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