27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
@interface LibraryGenerator: OFObject <OFApplicationDelegate>
@end
OF_APPLICATION_DELEGATE(LibraryGenerator)
@implementation LibraryGenerator
- (void)applicationDidFinishLaunching
{
OFURL *sourcesURL = [[OFFileManager defaultManager].currentDirectoryURL
URLByAppendingPathComponent: @"../../src"];
OFURL *runtimeLibraryURL = [sourcesURL
URLByAppendingPathComponent: @"runtime/amiga-library.xml"];
OFURL *runtimeLinkLibURL = [sourcesURL
URLByAppendingPathComponent: @"runtime/linklib/linklib.m"];
OFURL *runtimeGlueHeaderURL = [sourcesURL
URLByAppendingPathComponent: @"runtime/amiga-glue.h"];
OFURL *runtimeGlueURL = [sourcesURL
URLByAppendingPathComponent: @"runtime/amiga-glue.m"];
OFURL *runtimeFuncArrayURL = [sourcesURL
URLByAppendingPathComponent: @"runtime/amiga-funcarray.inc"];
OFXMLElement *runtimeLibrary = [OFXMLElement elementWithStream:
[OFFile fileWithPath: runtimeLibraryURL.fileSystemRepresentation
mode: @"r"]];
OFFile *runtimeLinkLib =
[OFFile fileWithPath: runtimeLinkLibURL.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlueHeader =
[OFFile fileWithPath: runtimeGlueHeaderURL.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlue =
[OFFile fileWithPath: runtimeGlueURL.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeFuncArray =
[OFFile fileWithPath: runtimeFuncArrayURL.fileSystemRepresentation
mode: @"w"];
LinkLibGenerator *runtimeLinkLibGenerator = [[[LinkLibGenerator alloc]
initWithLibrary: runtimeLibrary
implementation: runtimeLinkLib] autorelease];
GlueGenerator *runtimeGlueGenerator = [[[GlueGenerator alloc]
initWithLibrary: runtimeLibrary
header: runtimeGlueHeader
implementation: runtimeGlue] autorelease];
FuncArrayGenerator *runtimeFuncArrayGenerator;
runtimeFuncArrayGenerator = [[[FuncArrayGenerator alloc]
initWithLibrary: runtimeLibrary
include: runtimeFuncArray] autorelease];
[runtimeLinkLibGenerator generate];
[runtimeGlueGenerator generate];
[runtimeFuncArrayGenerator generate];
[OFApplication terminate];
}
@end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>
>
<
<
<
|
|
|
|
|
|
|
|
|
<
|
|
|
|
|
|
>
>
>
>
>
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
@interface LibraryGenerator: OFObject <OFApplicationDelegate>
@end
OF_APPLICATION_DELEGATE(LibraryGenerator)
@implementation LibraryGenerator
- (void)generateInDirectory: (OFString *)directory
{
OFURL *sourcesURL = [[OFFileManager defaultManager].currentDirectoryURL
URLByAppendingPathComponent: directory];
OFURL *libraryURL = [sourcesURL
URLByAppendingPathComponent: @"amiga-library.xml"];
OFURL *linkLibURL = [sourcesURL
URLByAppendingPathComponent: @"linklib/linklib.m"];
OFURL *glueHeaderURL = [sourcesURL
URLByAppendingPathComponent: @"amiga-glue.h"];
OFURL *glueURL = [sourcesURL
URLByAppendingPathComponent: @"amiga-glue.m"];
OFURL *funcArrayURL = [sourcesURL
URLByAppendingPathComponent: @"amiga-funcarray.inc"];
OFXMLElement *library = [OFXMLElement elementWithStream:
[OFFile fileWithPath: libraryURL.fileSystemRepresentation
mode: @"r"]];
OFFile *linkLib =
[OFFile fileWithPath: linkLibURL.fileSystemRepresentation
mode: @"w"];
OFFile *glueHeader =
[OFFile fileWithPath: glueHeaderURL.fileSystemRepresentation
mode: @"w"];
OFFile *glue =
[OFFile fileWithPath: glueURL.fileSystemRepresentation mode: @"w"];
OFFile *funcArray =
[OFFile fileWithPath: funcArrayURL.fileSystemRepresentation
mode: @"w"];
LinkLibGenerator *linkLibGenerator = [[[LinkLibGenerator alloc]
initWithLibrary: library
implementation: linkLib] autorelease];
GlueGenerator *glueGenerator = [[[GlueGenerator alloc]
initWithLibrary: library
header: glueHeader
implementation: glue] autorelease];
FuncArrayGenerator *funcArrayGenerator = [[[FuncArrayGenerator alloc]
initWithLibrary: library
include: funcArray] autorelease];
[linkLibGenerator generate];
[glueGenerator generate];
[funcArrayGenerator generate];
}
- (void)applicationDidFinishLaunching
{
[self generateInDirectory: @"../../src"];
[self generateInDirectory: @"../../src/runtime"];
[OFApplication terminate];
}
@end
|