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
{
OFURI *sourcesURI = [[OFFileManager defaultManager].currentDirectoryURI
URIByAppendingPathComponent: @"../../src"];
OFURI *runtimeLibraryURI = [sourcesURI
URIByAppendingPathComponent: @"runtime/amiga-library.xml"];
OFURI *runtimeLinkLibURI = [sourcesURI
URIByAppendingPathComponent: @"runtime/linklib/linklib.m"];
OFURI *runtimeGlueHeaderURI = [sourcesURI
URIByAppendingPathComponent: @"runtime/amiga-glue.h"];
OFURI *runtimeGlueURI = [sourcesURI
URIByAppendingPathComponent: @"runtime/amiga-glue.m"];
OFURI *runtimeFuncArrayURI = [sourcesURI
URIByAppendingPathComponent: @"runtime/amiga-funcarray.inc"];
OFXMLElement *runtimeLibrary = [OFXMLElement elementWithStream:
[OFFile fileWithPath: runtimeLibraryURI.fileSystemRepresentation
mode: @"r"]];
OFFile *runtimeLinkLib =
[OFFile fileWithPath: runtimeLinkLibURI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlueHeader =
[OFFile fileWithPath: runtimeGlueHeaderURI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlue =
[OFFile fileWithPath: runtimeGlueURI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeFuncArray =
[OFFile fileWithPath: runtimeFuncArrayURI.fileSystemRepresentation
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
{
OFURI *sourcesURI = [[OFFileManager defaultManager].currentDirectoryURI
URIByAppendingPathComponent: directory];
OFURI *libraryURI = [sourcesURI
URIByAppendingPathComponent: @"amiga-library.xml"];
OFURI *linkLibURI = [sourcesURI
URIByAppendingPathComponent: @"linklib/linklib.m"];
OFURI *glueHeaderURI = [sourcesURI
URIByAppendingPathComponent: @"amiga-glue.h"];
OFURI *glueURI = [sourcesURI
URIByAppendingPathComponent: @"amiga-glue.m"];
OFURI *funcArrayURI = [sourcesURI
URIByAppendingPathComponent: @"amiga-funcarray.inc"];
OFXMLElement *library = [OFXMLElement elementWithStream:
[OFFile fileWithPath: libraryURI.fileSystemRepresentation
mode: @"r"]];
OFFile *linkLib =
[OFFile fileWithPath: linkLibURI.fileSystemRepresentation
mode: @"w"];
OFFile *glueHeader =
[OFFile fileWithPath: glueHeaderURI.fileSystemRepresentation
mode: @"w"];
OFFile *glue =
[OFFile fileWithPath: glueURI.fileSystemRepresentation mode: @"w"];
OFFile *funcArray =
[OFFile fileWithPath: funcArrayURI.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
|