Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6725 | siemargl | 1 | /* CCUNZIP EXEC Compile unzip 5.4 for VM/CMS */ |
| 2 | /* Author: George Petrov, 11 Apr 1995 (VMCOMPIL EXEC) */ |
||
| 3 | /* Modified for IBM C V3R1 by Ian E. Gorman, 2 Nov 1998 |
||
| 4 | Facilities for compiling and testing were provided by |
||
| 5 | OmniMark Technologies Corporation, Ottawa, Canada |
||
| 6 | */ |
||
| 7 | Address Command |
||
| 8 | Signal On Error |
||
| 9 | |||
| 10 | /* Allow longnames, compile re-entrant code. |
||
| 11 | global.c and vmmvs.c require EXTENDED features */ |
||
| 12 | CCopts = 'LONGNAME RENT LANGLVL(EXTENDED) NOEXECOPS' |
||
| 13 | |||
| 14 | /* UNZIP options -- VM_CMS, REENTRANT */ |
||
| 15 | CCopts = CCopts 'DEFINE(VM_CMS,REENTRANT)' |
||
| 16 | |||
| 17 | /* Link the load module to run in more or less than 16MB memory */ |
||
| 18 | LINKopts = 'AMODE ANY RMODE ANY RLDSAVE' |
||
| 19 | |||
| 20 | |||
| 21 | 'GLOBAL TXTLIB SCEELKED CMSLIB' |
||
| 22 | 'GLOBAL LOADLIB SCEERUN' |
||
| 23 | |||
| 24 | |||
| 25 | /* produce the TEXT (object) files */ |
||
| 26 | linklist='' |
||
| 27 | modname='UNZIP' |
||
| 28 | Say 'Building' modname 'MODULE...' |
||
| 29 | Call Compile 'UNZIP' |
||
| 30 | Call Compile 'CRC32' |
||
| 31 | Call Compile 'CRYPT' |
||
| 32 | Call Compile 'ENVARGS' |
||
| 33 | Call Compile 'EXPLODE' |
||
| 34 | Call Compile 'EXTRACT' |
||
| 35 | Call Compile 'FILEIO' |
||
| 36 | Call Compile 'GLOBALS' |
||
| 37 | Call Compile 'INFLATE' |
||
| 38 | Call Compile 'PROCESS' |
||
| 39 | Call Compile 'LIST' |
||
| 40 | Call Compile 'MATCH' |
||
| 41 | Call Compile 'TTYIO' |
||
| 42 | Call Compile 'UNREDUCE' |
||
| 43 | Call Compile 'UNSHRINK' |
||
| 44 | Call Compile 'ZIPINFO' |
||
| 45 | Call Compile 'VMMVS' |
||
| 46 | |||
| 47 | Say 'Linking...' |
||
| 48 | 'EXEC CMOD' linklist '(MODNAME' modname LINKopts |
||
| 49 | Say modname 'built successfully.' |
||
| 50 | |||
| 51 | |||
| 52 | /* Make ZIPINFO from UNZIP */ |
||
| 53 | modname = 'ZIPINFO' |
||
| 54 | 'COPYFILE UNZIP MODULE A ZIPINFO MODULE A (OLDDATE REPLACE' |
||
| 55 | Say modname 'built successfully.' |
||
| 56 | Say 'Done.' |
||
| 57 | |||
| 58 | Exit rc |
||
| 59 | |||
| 60 | |||
| 61 | |||
| 62 | error: |
||
| 63 | Say 'Error' rc 'during compilation!' |
||
| 64 | Say 'Error in line' sigl':' |
||
| 65 | Say ' 'Sourceline(sigl) |
||
| 66 | Exit rc |
||
| 67 | |||
| 68 | |||
| 69 | |||
| 70 | Compile: Procedure Expose CCopts LINKopts linklist |
||
| 71 | Parse arg filename filetype filemode . |
||
| 72 | If filetype='' Then filetype='C' |
||
| 73 | linklist = linklist filename |
||
| 74 | |||
| 75 | Say 'Compiling' filename filetype filemode '...' |
||
| 76 | 'EXEC CC' filename filetype filemode '('CCopts |
||
| 77 | Return rc |