makesfx 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. ?tacl routine
  2. #FRAME
  3. load /keep 1/ commacs
  4. #PUSH file prev memory OK model sfx lib accel unlicensed licensed options
  5. #PUSH #DEFAULTS
  6. load /keep 1/ macros
  7. #SET OK -1
  8. [#IF [#ARGUMENT /VALUE memory/ KEYWORD /WORDLIST LARGE WIDE/ OTHERWISE ]]
  9. [#IF [#ARGUMENT /VALUE unlicensed/ KEYWORD /WORDLIST UNLICENSED/ OTHERWISE ]]
  10. [#IF memory '=' "WIDE"
  11. |THEN|
  12. #SET model WIDE
  13. #SET sfx SFX
  14. |ELSE|
  15. #SET memory LARGE
  16. #SET model NOWIDE
  17. #SET sfx SFX
  18. ]
  19. #OUTPUT Creating SFX Module
  20. #SET lib [sfx]B
  21. #SET accel SFX
  22. #SET options [options], [model], define SFX
  23. [#IF unlicensed '=' "UNLICENSED"
  24. |THEN|
  25. #SET sfx [sfx]U
  26. #SET accel [accel]U
  27. #SET lib [lib]U
  28. |ELSE|
  29. #SET licensed LICENSED
  30. #SET options [options], define [licensed]
  31. ]
  32. #OUTPUT Memory Model : [memory]
  33. #OUTPUT Axcel Module : [accel]
  34. #OUTPUT Run Module : [sfx]
  35. [#IF [#FILEINFO /MODIFICATION/ EXTRACTC] > [#FILEINFO /MODIFICATION/ EXTRACTX]
  36. |THEN|
  37. #OUTPUT Compiling EXTRACTC for SFX
  38. C /IN EXTRACTC, OUT $T.#SFX.EXTRACT/EXTRACTX;SYMBOLS,HIGHPIN [options]
  39. |ELSE|
  40. #OUTPUT EXTRACT(SFX) is up to date
  41. ]
  42. [#IF [#FILEINFO /MODIFICATION/ PROCESSC] > [#FILEINFO /MODIFICATION/ PROCESSX]
  43. |THEN|
  44. #OUTPUT Compiling PROCESSC for SFX
  45. C /IN PROCESSC, OUT $T.#SFX.PROCESS/PROCESSX;SYMBOLS,HIGHPIN [options]
  46. |ELSE|
  47. #OUTPUT PROCESS(SFX) is up to date
  48. ]
  49. [#IF [#FILEINFO /MODIFICATION/ TANUNZC] > [#FILEINFO /MODIFICATION/ TANUNZX]
  50. |THEN|
  51. #OUTPUT Compiling TANUNZC for SFX
  52. C /IN TANUNZC , OUT $T.#SFX.TANUNZ /TANUNZX ;SYMBOLS,HIGHPIN [options]
  53. |ELSE|
  54. #OUTPUT TANUNZ(SFX) is up to date
  55. ]
  56. [#IF [#FILEINFO /MODIFICATION/ UNZIPC] > [#FILEINFO /MODIFICATION/ UNZIPX]
  57. |THEN|
  58. #OUTPUT Compiling UNZIPC for SFX
  59. C /IN UNZIPC , OUT $T.#SFX.UNZIP /UNZIPX ;SYMBOLS,HIGHPIN [options]
  60. |ELSE|
  61. #OUTPUT UNZIP(SFX) is up to date
  62. ]
  63. BBSFXLIB
  64. BBSFX [sfx] [memory]
  65. #UNFRAME