1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
?tacl routine
#FRAME
SINK [#LOAD /keep 1/ commacs]
SINK [#LOAD /keep 1/ macros]
[#PUSH file prev memory clib OK model zip lib accel unlicensed licensed
options fileset nocrypt crypt
]
#PUSH #DEFAULTS
#SET OK -1
[#IF [#ARGUMENT /VALUE memory/ KEYWORD /WORDLIST LARGE SMALL/ OTHERWISE ]]
[#IF [#ARGUMENT /VALUE model/ KEYWORD /WORDLIST NOWIDE WIDE/ OTHERWISE ]]
[#IF [#ARGUMENT /VALUE unlicensed/ KEYWORD /WORDLIST UNLICENSED/ OTHERWISE ]]
[#IF [#ARGUMENT /VALUE nocrypt/ KEYWORD /WORDLIST NOCRYPT/ OTHERWISE ]]
[#IF [#ARGUMENT /VALUE fileset/ TEMPLATE FILENAME OTHERWISE ]]
[#IF [#EMPTYV memory] |THEN| #SET memory LARGE]
[#IF [#EMPTYV model] |THEN| #SET model NOWIDE]
[#IF model '=' "WIDE"
|THEN| #SETV clib model
|ELSE| #SETV clib memory
]
[#IF model '=' "WIDE"
|THEN|
#SET zip ZIPW
|ELSE|
#SET zip ZIPL
]
#SET lib [zip]B
#SET accel ZIP
#SET options [options], [model]
[#IF unlicensed '=' "UNLICENSED"
|THEN|
#SET zip [zip]U
#SET accel [accel]U
#SET lib [lib]U
|ELSE|
#SET licensed LICENSED
#SET options [options], define [licensed]
]
[#IF nocrypt '=' "NOCRYPT"
|THEN|
|ELSE|
#SET crypt USE_CRYPT
#SET options [options], define [crypt]
]
[#IF [#EMPTYV fileset] |THEN| #SET fileset *C]
#OUTPUT Files to compile: [fileset]
#OUTPUT Pointer Model : [model]
#OUTPUT Memory Model : [memory]
#OUTPUT C Library : [clib]
#OUTPUT Axcel Object : [accel]
#OUTPUT Run Object : [zip]
#OUTPUT Library Object : [lib]
#OUTPUT Compile Options : [options]
#OUTPUT
#SET file [#FILENAMES /MAXIMUM 1/ [fileset]]
[#loop |while| NOT [#EMPTYV file]
|do|
#SETV prev file
CC [file] $T.#ZIP [options]
[#IF [tacl^completioncode] > 1 |THEN| #set OK 0 ]
#SET file [#FILENAMES /MAXIMUM 1, PREVIOUS [prev]/ [fileset]]
]
[#IF OK |THEN|
BBZIPLIB
[#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
]
#PUSH #PROCESSFILESECURITY
VOLUME ,"NUNU"
[#IF OK |THEN|
BBZIP [zip] [clib]
[#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
]
[#IF OK |THEN|
secure^file [accel] "UUUU" SUPER.DAVES
accel^file [zip] [accel]
[#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
]
[#IF OK
|THEN| #OUTPUT Successfully produced Accelerated Object [accel]
secure^file [accel] "UUUU" SUPER.DAVES
[#IF [#INTERACTIVE] |THEN|
[#IF licensed '=' "LICENSED" |THEN|
#OUTPUT [accel] will not run without being LICENSED
[#IF [#FILEINFO /LICENSED/ [accel]]
|THEN|
#OUTPUT [accel] already LICENSED
|ELSE|
[#IF [#MATCH Y* [#INPUT [accel] License [accel] ?]] |THEN|
fup^license [accel]
]
]
]
]
|ELSE| #OUTPUT Failed to produce Accelerated Object [accel]
]
#OUTPUT Finished
#OUTPUT Setting up additonal utilities
== ZIPNOTE
CC ZIPNOTEC $T.#ZIP [options]
#SET zip ZIPNOTE
#SET accel ZIPNOTE
[#IF OK |THEN|
BBANY [zip] [clib]
[#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
]
[#IF OK |THEN|
secure^file [accel] "UUUU" SUPER.DAVES
accel^file [zip] [accel]
[#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
]
#UNFRAME
|
