123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- Address Command
- Signal On Error
- CCopts = 'LONGNAME RENT LANGLVL(EXTENDED) NOEXECOPS'
- CCopts = CCopts 'DEFINE(VM_CMS,REENTRANT)'
- LINKopts = 'AMODE ANY RMODE ANY RLDSAVE'
- 'GLOBAL TXTLIB SCEELKED CMSLIB'
- 'GLOBAL LOADLIB SCEERUN'
- linklist=''
- modname='UNZIP'
- Say 'Building' modname 'MODULE...'
- Call Compile 'UNZIP'
- Call Compile 'CRC32'
- Call Compile 'CRYPT'
- Call Compile 'ENVARGS'
- Call Compile 'EXPLODE'
- Call Compile 'EXTRACT'
- Call Compile 'FILEIO'
- Call Compile 'GLOBALS'
- Call Compile 'INFLATE'
- Call Compile 'PROCESS'
- Call Compile 'LIST'
- Call Compile 'MATCH'
- Call Compile 'TTYIO'
- Call Compile 'UNREDUCE'
- Call Compile 'UNSHRINK'
- Call Compile 'ZIPINFO'
- Call Compile 'VMMVS'
- Say 'Linking...'
- 'EXEC CMOD' linklist '(MODNAME' modname LINKopts
- Say modname 'built successfully.'
- modname = 'ZIPINFO'
- 'COPYFILE UNZIP MODULE A ZIPINFO MODULE A (OLDDATE REPLACE'
- Say modname 'built successfully.'
- Say 'Done.'
- Exit rc
- error:
- Say 'Error' rc 'during compilation!'
- Say 'Error in line' sigl':'
- Say ' 'Sourceline(sigl)
- Exit rc
- Compile: Procedure Expose CCopts LINKopts linklist
- Parse arg filename filetype filemode .
- If filetype='' Then filetype='C'
- linklist = linklist filename
- Say 'Compiling' filename filetype filemode '...'
- 'EXEC CC' filename filetype filemode '('CCopts
- Return rc
|