make 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130
  1. ?tacl routine
  2. #FRAME
  3. SINK [#LOAD /keep 1/ commacs]
  4. SINK [#LOAD /keep 1/ macros]
  5. [#PUSH file prev memory clib OK model zip lib accel unlicensed licensed
  6. options fileset nocrypt crypt
  7. ]
  8. #PUSH #DEFAULTS
  9. #SET OK -1
  10. [#IF [#ARGUMENT /VALUE memory/ KEYWORD /WORDLIST LARGE SMALL/ OTHERWISE ]]
  11. [#IF [#ARGUMENT /VALUE model/ KEYWORD /WORDLIST NOWIDE WIDE/ OTHERWISE ]]
  12. [#IF [#ARGUMENT /VALUE unlicensed/ KEYWORD /WORDLIST UNLICENSED/ OTHERWISE ]]
  13. [#IF [#ARGUMENT /VALUE nocrypt/ KEYWORD /WORDLIST NOCRYPT/ OTHERWISE ]]
  14. [#IF [#ARGUMENT /VALUE fileset/ TEMPLATE FILENAME OTHERWISE ]]
  15. [#IF [#EMPTYV memory] |THEN| #SET memory LARGE]
  16. [#IF [#EMPTYV model] |THEN| #SET model NOWIDE]
  17. [#IF model '=' "WIDE"
  18. |THEN| #SETV clib model
  19. |ELSE| #SETV clib memory
  20. ]
  21. [#IF model '=' "WIDE"
  22. |THEN|
  23. #SET zip ZIPW
  24. |ELSE|
  25. #SET zip ZIPL
  26. ]
  27. #SET lib [zip]B
  28. #SET accel ZIP
  29. #SET options [options], [model]
  30. [#IF unlicensed '=' "UNLICENSED"
  31. |THEN|
  32. #SET zip [zip]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. [#IF nocrypt '=' "NOCRYPT"
  40. |THEN|
  41. |ELSE|
  42. #SET crypt USE_CRYPT
  43. #SET options [options], define [crypt]
  44. ]
  45. [#IF [#EMPTYV fileset] |THEN| #SET fileset *C]
  46. #OUTPUT Files to compile: [fileset]
  47. #OUTPUT Pointer Model : [model]
  48. #OUTPUT Memory Model : [memory]
  49. #OUTPUT C Library : [clib]
  50. #OUTPUT Axcel Object : [accel]
  51. #OUTPUT Run Object : [zip]
  52. #OUTPUT Library Object : [lib]
  53. #OUTPUT Compile Options : [options]
  54. #OUTPUT
  55. #SET file [#FILENAMES /MAXIMUM 1/ [fileset]]
  56. [#loop |while| NOT [#EMPTYV file]
  57. |do|
  58. #SETV prev file
  59. CC [file] $T.#ZIP [options]
  60. [#IF [tacl^completioncode] > 1 |THEN| #set OK 0 ]
  61. #SET file [#FILENAMES /MAXIMUM 1, PREVIOUS [prev]/ [fileset]]
  62. ]
  63. [#IF OK |THEN|
  64. BBZIPLIB
  65. [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  66. ]
  67. #PUSH #PROCESSFILESECURITY
  68. VOLUME ,"NUNU"
  69. [#IF OK |THEN|
  70. BBZIP [zip] [clib]
  71. [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  72. ]
  73. [#IF OK |THEN|
  74. secure^file [accel] "UUUU" SUPER.DAVES
  75. accel^file [zip] [accel]
  76. [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  77. ]
  78. [#IF OK
  79. |THEN| #OUTPUT Successfully produced Accelerated Object [accel]
  80. secure^file [accel] "UUUU" SUPER.DAVES
  81. [#IF [#INTERACTIVE] |THEN|
  82. [#IF licensed '=' "LICENSED" |THEN|
  83. #OUTPUT [accel] will not run without being LICENSED
  84. [#IF [#FILEINFO /LICENSED/ [accel]]
  85. |THEN|
  86. #OUTPUT [accel] already LICENSED
  87. |ELSE|
  88. [#IF [#MATCH Y* [#INPUT [accel] License [accel] ?]] |THEN|
  89. fup^license [accel]
  90. ]
  91. ]
  92. ]
  93. ]
  94. |ELSE| #OUTPUT Failed to produce Accelerated Object [accel]
  95. ]
  96. #OUTPUT Finished
  97. #OUTPUT Setting up additonal utilities
  98. == ZIPNOTE
  99. CC ZIPNOTEC $T.#ZIP [options]
  100. #SET zip ZIPNOTE
  101. #SET accel ZIPNOTE
  102. [#IF OK |THEN|
  103. BBANY [zip] [clib]
  104. [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  105. ]
  106. [#IF OK |THEN|
  107. secure^file [accel] "UUUU" SUPER.DAVES
  108. accel^file [zip] [accel]
  109. [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  110. ]
  111. #UNFRAME