Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

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