|
cannam@89
|
1 /******************************************************************************/
|
|
cannam@89
|
2 /* */
|
|
cannam@89
|
3 /* ZLIB */
|
|
cannam@89
|
4 /* */
|
|
cannam@89
|
5 /* Compile sources into modules and link them into a service program. */
|
|
cannam@89
|
6 /* */
|
|
cannam@89
|
7 /******************************************************************************/
|
|
cannam@89
|
8
|
|
cannam@89
|
9 PGM
|
|
cannam@89
|
10
|
|
cannam@89
|
11 /* Configuration adjustable parameters. */
|
|
cannam@89
|
12
|
|
cannam@89
|
13 DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) +
|
|
cannam@89
|
14 VALUE('ZLIB') /* Source library. */
|
|
cannam@89
|
15 DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10) +
|
|
cannam@89
|
16 VALUE('SOURCES') /* Source member file. */
|
|
cannam@89
|
17 DCL VAR(&CTLFILE) TYPE(*CHAR) LEN(10) +
|
|
cannam@89
|
18 VALUE('TOOLS') /* Control member file. */
|
|
cannam@89
|
19
|
|
cannam@89
|
20 DCL VAR(&MODLIB) TYPE(*CHAR) LEN(10) +
|
|
cannam@89
|
21 VALUE('ZLIB') /* Module library. */
|
|
cannam@89
|
22
|
|
cannam@89
|
23 DCL VAR(&SRVLIB) TYPE(*CHAR) LEN(10) +
|
|
cannam@89
|
24 VALUE('LGPL') /* Service program library. */
|
|
cannam@89
|
25
|
|
cannam@89
|
26 DCL VAR(&CFLAGS) TYPE(*CHAR) +
|
|
cannam@89
|
27 VALUE('OPTIMIZE(40)') /* Compile options. */
|
|
cannam@89
|
28
|
|
cannam@89
|
29 DCL VAR(&TGTRLS) TYPE(*CHAR) +
|
|
cannam@89
|
30 VALUE('V5R3M0') /* Target release. */
|
|
cannam@89
|
31
|
|
cannam@89
|
32
|
|
cannam@89
|
33 /* Working storage. */
|
|
cannam@89
|
34
|
|
cannam@89
|
35 DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300) /* Command length. */
|
|
cannam@89
|
36 DCL VAR(&CMD) TYPE(*CHAR) LEN(512)
|
|
cannam@89
|
37 DCL VAR(&FIXDCMD) TYPE(*CHAR) LEN(512)
|
|
cannam@89
|
38
|
|
cannam@89
|
39
|
|
cannam@89
|
40 /* Compile sources into modules. */
|
|
cannam@89
|
41
|
|
cannam@89
|
42 CHGVAR VAR(&FIXDCMD) VALUE('CRTCMOD' *BCAT &CFLAGS *BCAT +
|
|
cannam@89
|
43 'SYSIFCOPT(*IFS64IO)' *BCAT +
|
|
cannam@89
|
44 'DEFINE(''_LARGEFILE64_SOURCE''' *BCAT +
|
|
cannam@89
|
45 '''_LFS64_LARGEFILE=1'') TGTRLS(' *TCAT &TGTRLS *TCAT +
|
|
cannam@89
|
46 ') SRCFILE(' *TCAT &SRCLIB *TCAT '/' *TCAT +
|
|
cannam@89
|
47 &SRCFILE *TCAT ') MODULE(' *TCAT &MODLIB *TCAT '/')
|
|
cannam@89
|
48
|
|
cannam@89
|
49
|
|
cannam@89
|
50 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'ADLER32)')
|
|
cannam@89
|
51 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
52
|
|
cannam@89
|
53 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'COMPRESS)')
|
|
cannam@89
|
54 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
55
|
|
cannam@89
|
56 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'CRC32)')
|
|
cannam@89
|
57 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
58
|
|
cannam@89
|
59 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'DEFLATE)')
|
|
cannam@89
|
60 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
61
|
|
cannam@89
|
62 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZCLOSE)')
|
|
cannam@89
|
63 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
64
|
|
cannam@89
|
65 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZLIB)')
|
|
cannam@89
|
66 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
67
|
|
cannam@89
|
68 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZREAD)')
|
|
cannam@89
|
69 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
70
|
|
cannam@89
|
71 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZWRITE)')
|
|
cannam@89
|
72 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
73
|
|
cannam@89
|
74 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFBACK)')
|
|
cannam@89
|
75 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
76
|
|
cannam@89
|
77 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFFAST)')
|
|
cannam@89
|
78 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
79
|
|
cannam@89
|
80 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFLATE)')
|
|
cannam@89
|
81 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
82
|
|
cannam@89
|
83 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFTREES)')
|
|
cannam@89
|
84 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
85
|
|
cannam@89
|
86 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'TREES)')
|
|
cannam@89
|
87 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
88
|
|
cannam@89
|
89 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'UNCOMPR)')
|
|
cannam@89
|
90 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
91
|
|
cannam@89
|
92 CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'ZUTIL)')
|
|
cannam@89
|
93 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
cannam@89
|
94
|
|
cannam@89
|
95
|
|
cannam@89
|
96 /* Link modules into a service program. */
|
|
cannam@89
|
97
|
|
cannam@89
|
98 CRTSRVPGM SRVPGM(&SRVLIB/ZLIB) +
|
|
cannam@89
|
99 MODULE(&MODLIB/ADLER32 &MODLIB/COMPRESS +
|
|
cannam@89
|
100 &MODLIB/CRC32 &MODLIB/DEFLATE +
|
|
cannam@89
|
101 &MODLIB/GZCLOSE &MODLIB/GZLIB +
|
|
cannam@89
|
102 &MODLIB/GZREAD &MODLIB/GZWRITE +
|
|
cannam@89
|
103 &MODLIB/INFBACK &MODLIB/INFFAST +
|
|
cannam@89
|
104 &MODLIB/INFLATE &MODLIB/INFTREES +
|
|
cannam@89
|
105 &MODLIB/TREES &MODLIB/UNCOMPR +
|
|
cannam@89
|
106 &MODLIB/ZUTIL) +
|
|
cannam@89
|
107 SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) +
|
|
cannam@89
|
108 TEXT('ZLIB 1.2.7') TGTRLS(&TGTRLS)
|
|
cannam@89
|
109
|
|
cannam@89
|
110 ENDPGM
|
