forked from KolibriOS/kolibrios
80 lines
1.8 KiB
Plaintext
80 lines
1.8 KiB
Plaintext
|
?tacl routine
|
||
|
|
#FRAME
|
||
|
|
load /keep 1/ commacs
|
||
|
|
|
||
|
|
#PUSH file prev memory OK model sfx lib accel unlicensed licensed options
|
||
|
|
#PUSH #DEFAULTS
|
||
|
|
|
||
|
|
load /keep 1/ macros
|
||
|
|
|
||
|
|
#SET OK -1
|
||
|
|
|
||
|
|
[#IF [#ARGUMENT /VALUE memory/ KEYWORD /WORDLIST LARGE WIDE/ OTHERWISE ]]
|
||
|
|
[#IF [#ARGUMENT /VALUE unlicensed/ KEYWORD /WORDLIST UNLICENSED/ OTHERWISE ]]
|
||
|
|
|
||
|
|
[#IF memory '=' "WIDE"
|
||
|
|
|THEN|
|
||
|
|
#SET model WIDE
|
||
|
|
#SET sfx SFX
|
||
|
|
|ELSE|
|
||
|
|
#SET memory LARGE
|
||
|
|
#SET model NOWIDE
|
||
|
|
#SET sfx SFX
|
||
|
|
]
|
||
|
|
#OUTPUT Creating SFX Module
|
||
|
|
#SET lib [sfx]B
|
||
|
|
#SET accel SFX
|
||
|
|
|
||
|
|
#SET options [options], [model], define SFX
|
||
|
|
|
||
|
|
[#IF unlicensed '=' "UNLICENSED"
|
||
|
|
|THEN|
|
||
|
|
#SET sfx [sfx]U
|
||
|
|
#SET accel [accel]U
|
||
|
|
#SET lib [lib]U
|
||
|
|
|ELSE|
|
||
|
|
#SET licensed LICENSED
|
||
|
|
#SET options [options], define [licensed]
|
||
|
|
]
|
||
|
|
|
||
|
|
#OUTPUT Memory Model : [memory]
|
||
|
|
#OUTPUT Axcel Module : [accel]
|
||
|
|
#OUTPUT Run Module : [sfx]
|
||
|
|
|
||
|
|
[#IF [#FILEINFO /MODIFICATION/ EXTRACTC] > [#FILEINFO /MODIFICATION/ EXTRACTX]
|
||
|
|
|THEN|
|
||
|
|
#OUTPUT Compiling EXTRACTC for SFX
|
||
|
|
C /IN EXTRACTC, OUT $T.#SFX.EXTRACT/EXTRACTX;SYMBOLS,HIGHPIN [options]
|
||
|
|
|ELSE|
|
||
|
|
#OUTPUT EXTRACT(SFX) is up to date
|
||
|
|
]
|
||
|
|
|
||
|
|
[#IF [#FILEINFO /MODIFICATION/ PROCESSC] > [#FILEINFO /MODIFICATION/ PROCESSX]
|
||
|
|
|THEN|
|
||
|
|
#OUTPUT Compiling PROCESSC for SFX
|
||
|
|
C /IN PROCESSC, OUT $T.#SFX.PROCESS/PROCESSX;SYMBOLS,HIGHPIN [options]
|
||
|
|
|ELSE|
|
||
|
|
#OUTPUT PROCESS(SFX) is up to date
|
||
|
|
]
|
||
|
|
|
||
|
|
[#IF [#FILEINFO /MODIFICATION/ TANUNZC] > [#FILEINFO /MODIFICATION/ TANUNZX]
|
||
|
|
|THEN|
|
||
|
|
#OUTPUT Compiling TANUNZC for SFX
|
||
|
|
C /IN TANUNZC , OUT $T.#SFX.TANUNZ /TANUNZX ;SYMBOLS,HIGHPIN [options]
|
||
|
|
|ELSE|
|
||
|
|
#OUTPUT TANUNZ(SFX) is up to date
|
||
|
|
]
|
||
|
|
|
||
|
|
[#IF [#FILEINFO /MODIFICATION/ UNZIPC] > [#FILEINFO /MODIFICATION/ UNZIPX]
|
||
|
|
|THEN|
|
||
|
|
#OUTPUT Compiling UNZIPC for SFX
|
||
|
|
C /IN UNZIPC , OUT $T.#SFX.UNZIP /UNZIPX ;SYMBOLS,HIGHPIN [options]
|
||
|
|
|ELSE|
|
||
|
|
#OUTPUT UNZIP(SFX) is up to date
|
||
|
|
]
|
||
|
|
|
||
|
|
BBSFXLIB
|
||
|
|
BBSFX [sfx] [memory]
|
||
|
|
|
||
|
|
#UNFRAME
|