regina/makezip.cmd

   1 /**/
   2 Parse Upper Arg target version .
   3 If Wordpos(target,'DJG VCP EMX W32') = 0 Then Call Usage
   4 If Stream('d:\djgpp\bin\go32.exe','C','QUERY EXISTS') = '' Then
   5   extra.djg = 'c:\djgpp\bin\go32.exe'
   6 Else
   7   extra.djg = 'd:\djgpp\bin\go32.exe'
   8 If Stream('f:\emx\bin\emx.exe','C','QUERY EXISTS') = '' Then
   9   extra.emx = 'c:\emx\bin\emx.exe'
  10 Else
  11   extra.emx = 'f:\emx\bin\emx.exe'
  12 Parse Value 'dos\go32 dos\emx os2\emx vc' With src.djg src.vcp src.emx src.w32
  13 Parse Value 'libregna.a regina.a regina.a regina.lib' With lib.djg lib.vcp lib.emx lib.w32
  14 Parse Value 'rexx.exe rexx.exe rexx.exe regina.exe' With exe.djg exe.vcp exe.emx exe.w32
  15 Parse Value 'rex rex rexx rexx' With ext.djg ext.vcp ext.emx ext.w32
  16 If Stream('tmp','C','QUERY EXISTS') = '' Then  'mkdir tmp'
  17 'cd tmp'
  18 If rc \= 0 Then Abort( 'Cannot change dir to "tmp"' )
  19 'del *.*'
  20 'copy ..\COPYING-LIB'
  21 'copy ..\rexxsaa.h'
  22 'copy ..\README.08?'
  23 'copy ..\README.2*'
  24 'copy ..\BUGS'
  25 'copy ..\README.' || target 'README'
  26 'copy ..\file_id.diz.' || target 'file_id.diz'
  27 'copy ..\' || src.target || '\' || exe.target
  28 'copy ..\' || src.target || '\' || lib.target
  29 If extra.target \= '' Then 'copy' extra.target
  30 If target = 'W32' Then
  31    Do
  32       'copy ..\' || src.target || 'regina.dll'
  33       'copy ..\' || src.target || 'test1.dll'
  34       'copy ..\' || src.target || 'test2.dll'
  35       'copy ..\' || src.target || 'rexx.lib'
  36    End
  37 If Stream('demo','C','QUERY EXISTS') = '' Then  'mkdir demo'
  38 'copy ..\demo\*.rexx demo\*.' || ext.target
  39 'zip -r rx' || version || target '*'
  40 'del ..\rx' || version || target ||'.zip'
  41 'move *.zip ..'
  42 'cd ..'
  43 Return 0
  44
  45 usage: Procedure
  46 Say 'Usage: makezip target version'
  47 Say 'where: target is one of emx, djg, vcp, w32'
  48 Say '       version is 20 etc'
  49 Exit 0
  50
  51 abort: Procedure
  52 Parse Arg msg
  53 Say msg
  54 Exit 1