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: (OFNotification *)notification
{
OFIRI *sourcesIRI = [[OFFileManager defaultManager].currentDirectoryIRI
IRIByAppendingPathComponent: @"../../src"];
OFIRI *runtimeLibraryIRI = [sourcesIRI
IRIByAppendingPathComponent: @"runtime/amiga-library.xml"];
OFIRI *runtimeLinkLibIRI = [sourcesIRI
IRIByAppendingPathComponent: @"runtime/linklib/linklib.m"];
OFIRI *runtimeGlueHeaderIRI = [sourcesIRI
IRIByAppendingPathComponent: @"runtime/amiga-glue.h"];
OFIRI *runtimeGlueIRI = [sourcesIRI
IRIByAppendingPathComponent: @"runtime/amiga-glue.m"];
OFIRI *runtimeFuncArrayIRI = [sourcesIRI
IRIByAppendingPathComponent: @"runtime/amiga-funcarray.inc"];
OFXMLElement *runtimeLibrary = [OFXMLElement elementWithStream:
[OFFile fileWithPath: runtimeLibraryIRI.fileSystemRepresentation
mode: @"r"]];
OFFile *runtimeLinkLib =
[OFFile fileWithPath: runtimeLinkLibIRI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlueHeader =
[OFFile fileWithPath: runtimeGlueHeaderIRI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeGlue =
[OFFile fileWithPath: runtimeGlueIRI.fileSystemRepresentation
mode: @"w"];
OFFile *runtimeFuncArray =
[OFFile fileWithPath: runtimeFuncArrayIRI.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
{
OFIRI *sourcesIRI = [[OFFileManager defaultManager].currentDirectoryIRI
IRIByAppendingPathComponent: directory];
OFIRI *libraryIRI = [sourcesIRI
IRIByAppendingPathComponent: @"amiga-library.xml"];
OFIRI *linkLibIRI = [sourcesIRI
IRIByAppendingPathComponent: @"linklib/linklib.m"];
OFIRI *glueHeaderIRI = [sourcesIRI
IRIByAppendingPathComponent: @"amiga-glue.h"];
OFIRI *glueIRI = [sourcesIRI
IRIByAppendingPathComponent: @"amiga-glue.m"];
OFIRI *funcArrayIRI = [sourcesIRI
IRIByAppendingPathComponent: @"amiga-funcarray.inc"];
OFXMLElement *library = [OFXMLElement elementWithStream:
[OFFile fileWithPath: libraryIRI.fileSystemRepresentation
mode: @"r"]];
OFFile *linkLib =
[OFFile fileWithPath: linkLibIRI.fileSystemRepresentation
mode: @"w"];
OFFile *glueHeader =
[OFFile fileWithPath: glueHeaderIRI.fileSystemRepresentation
mode: @"w"];
OFFile *glue =
[OFFile fileWithPath: glueIRI.fileSystemRepresentation mode: @"w"];
OFFile *funcArray =
[OFFile fileWithPath: funcArrayIRI.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: (OFNotification *)notification
{
[self generateInDirectory: @"../../src"];
[self generateInDirectory: @"../../src/runtime"];
[OFApplication terminate];
}
@end
|