1 #!/bin/sh 2 # 3 # ZLIB compilation script for the OS/400. 4 # 5 # 6 # This is a shell script since make is not a standard component of OS/400. 7 8 9 ################################################################################ 10 # 11 # Tunable configuration parameters. 12 # 13 ################################################################################ 14 15 TARGETLIB='ZLIB' # Target OS/400 program library 16 STATBNDDIR='ZLIB_A' # Static binding directory. 17 DYNBNDDIR='ZLIB' # Dynamic binding directory. 18 SRVPGM="ZLIB" # Service program. 19 IFSDIR='/zlib' # IFS support base directory. 20 TGTCCSID='500' # Target CCSID of objects 21 DEBUG='*NONE' # Debug level 22 OPTIMIZE='40' # Optimisation level 23 OUTPUT='*NONE' # Compilation output option. 24 TGTRLS='V6R1M0' # Target OS release 25 26 export TARGETLIB STATBNDDIR DYNBNDDIR SRVPGM IFSDIR 27 export TGTCCSID DEBUG OPTIMIZE OUTPUT TGTRLS 28 29 30 ################################################################################ 31 # 32 # OS/400 specific definitions. 33 # 34 ################################################################################ 35 36 LIBIFSNAME="/QSYS.LIB/${TARGETLIB}.LIB" 37 38 39 ################################################################################ 40 # 41 # Procedures. 42 # 43 ################################################################################ 44 45 # action_needed dest [src] 46 # 47 # dest is an object to build 48 # if specified, src is an object on which dest depends. 49 # 50 # exit 0 (succeeds) if some action has to be taken, else 1. 51 52 action_needed() 53 54 { 55 [ ! -e "${1}" ] && return 0 56 [ "${2}" ] || return 1 57 [ "${1}" -ot "${2}" ] && return 0 58 return 1 59 } 60 61 62 # make_module module_name source_name [additional_definitions] 63 # 64 # Compile source name into module if needed. 65 # As side effect, append the module name to variable MODULES. 66 # Set LINK to "YES" if the module has been compiled. 67 68 make_module() 69 70 { 71 MODULES="${MODULES} ${1}" 72 MODIFSNAME="${LIBIFSNAME}/${1}.MODULE" 73 CSRC="`basename \"${2}\"`" 74 75 if action_needed "${MODIFSNAME}" "${2}" 76 then : 77 elif [ ! "`sed -e \"/<source name=\\\"${CSRC}\\\">/,/<\\\\/source>/!d\" \ 78 -e '/<depend /!d' \ 79 -e 's/.* name=\"\\([^\"]*\\)\".*/\\1/' < \"${TOPDIR}/treebuild.xml\" | 80 while read HDR 81 do if action_needed \"${MODIFSNAME}\" \"${IFSDIR}/include/${HDR}\" 82 then echo recompile 83 break 84 fi 85 done`" ] 86 then return 0 87 fi 88 89 CMD="CRTCMOD MODULE(${TARGETLIB}/${1}) SRCSTMF('${2}')" 90 CMD="${CMD} SYSIFCOPT(*IFS64IO) OPTION(*INCDIRFIRST)" 91 CMD="${CMD} LOCALETYPE(*LOCALE) FLAG(10)" 92 CMD="${CMD} INCDIR('${IFSDIR}/include' ${INCLUDES})" 93 CMD="${CMD} TGTCCSID(${TGTCCSID}) TGTRLS(${TGTRLS})" 94 CMD="${CMD} OUTPUT(${OUTPUT})" 95 CMD="${CMD} OPTIMIZE(${OPTIMIZE})" 96 CMD="${CMD} DBGVIEW(${DEBUG})" 97 system "${CMD}" 98 LINK=YES 99 } 100 101 102 # Determine DB2 object name from IFS name. 103 104 db2_name() 105 106 { 107 basename "${1}" | 108 tr 'a-z-' 'A-Z_' | 109 sed -e 's/\..*//' \ 110 -e 's/^\(.\).*\(.........\)$/\1\2/' 111 } 112 113 114 # Force enumeration types to be the same size as integers. 115 116 copy_hfile() 117 118 { 119 sed -e '1i\ 120 #pragma enum(int)\ 121 ' "${@}" -e '$a\ 122 #pragma enum(pop)\ 123 ' 124 } 125 126 127 ################################################################################ 128 # 129 # Script initialization. 130 # 131 ################################################################################ 132 133 SCRIPTDIR=`dirname "${0}"` 134 135 case "${SCRIPTDIR}" in 136 /*) ;; 137 *) SCRIPTDIR="`pwd`/${SCRIPTDIR}" 138 esac 139 140 while true 141 do case "${SCRIPTDIR}" in 142 */.) SCRIPTDIR="${SCRIPTDIR%/.}";; 143 *) break;; 144 esac 145 done 146 147 # The script directory is supposed to be in ${TOPDIR}/os400. 148 149 TOPDIR=`dirname "${SCRIPTDIR}"` 150 export SCRIPTDIR TOPDIR 151 cd "${TOPDIR}" 152 153 154 # Extract the version from the master compilation XML file. 155 156 VERSION=`sed -e '/^<package /!d' \ 157 -e 's/^.* version="\([0-9.]*\)".*$/\1/' -e 'q' \ 158 < treebuild.xml` 159 export VERSION 160 161 ################################################################################ 162 163 164 # Create the OS/400 library if it does not exist. 165 166 if action_needed "${LIBIFSNAME}" 167 then CMD="CRTLIB LIB(${TARGETLIB}) TEXT('ZLIB: Data compression API')" 168 system "${CMD}" 169 fi 170 171 172 # Create the DOCS source file if it does not exist. 173 174 if action_needed "${LIBIFSNAME}/DOCS.FILE" 175 then CMD="CRTSRCPF FILE(${TARGETLIB}/DOCS) RCDLEN(112)" 176 CMD="${CMD} CCSID(${TGTCCSID}) TEXT('Documentation texts')" 177 system "${CMD}" 178 fi 179 180 # Copy some documentation files if needed. 181 182 for TEXT in "${TOPDIR}/ChangeLog" "${TOPDIR}/FAQ" \ 183 "${TOPDIR}/README" "${SCRIPTDIR}/README400" 184 do MEMBER="${LIBIFSNAME}/DOCS.FILE/`db2_name \"${TEXT}\"`.MBR" 185 186 if action_needed "${MEMBER}" "${TEXT}" 187 then CMD="CPY OBJ('${TEXT}') TOOBJ('${MEMBER}') TOCCSID(${TGTCCSID})" 188 CMD="${CMD} DTAFMT(*TEXT) REPLACE(*YES)" 189 system "${CMD}" 190 fi 191 done 192 193 194 # Create the OS/400 source program file for the C header files. 195 196 SRCPF="${LIBIFSNAME}/H.FILE" 197 198 if action_needed "${SRCPF}" 199 then CMD="CRTSRCPF FILE(${TARGETLIB}/H) RCDLEN(112)" 200 CMD="${CMD} CCSID(${TGTCCSID}) TEXT('ZLIB: C/C++ header files')" 201 system "${CMD}" 202 fi 203 204 205 # Create the IFS directory for the C header files. 206 207 if action_needed "${IFSDIR}/include" 208 then mkdir -p "${IFSDIR}/include" 209 fi 210 211 # Copy the header files to DB2 library. Link from IFS include directory. 212 213 for HFILE in "${TOPDIR}/"*.h 214 do DEST="${SRCPF}/`db2_name \"${HFILE}\"`.MBR" 215 216 if action_needed "${DEST}" "${HFILE}" 217 then copy_hfile < "${HFILE}" > tmphdrfile 218 219 # Need to translate to target CCSID. 220 221 CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DEST}')" 222 CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" 223 system "${CMD}" 224 # touch -r "${HFILE}" "${DEST}" 225 rm -f tmphdrfile 226 fi 227 228 IFSFILE="${IFSDIR}/include/`basename \"${HFILE}\"`" 229 230 if action_needed "${IFSFILE}" "${DEST}" 231 then rm -f "${IFSFILE}" 232 ln -s "${DEST}" "${IFSFILE}" 233 fi 234 done 235 236 237 # Install the ILE/RPG header file. 238 239 240 HFILE="${SCRIPTDIR}/zlib.inc" 241 DEST="${SRCPF}/ZLIB.INC.MBR" 242 243 if action_needed "${DEST}" "${HFILE}" 244 then CMD="CPY OBJ('${HFILE}') TOOBJ('${DEST}')" 245 CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" 246 system "${CMD}" 247 # touch -r "${HFILE}" "${DEST}" 248 fi 249 250 IFSFILE="${IFSDIR}/include/`basename \"${HFILE}\"`" 251 252 if action_needed "${IFSFILE}" "${DEST}" 253 then rm -f "${IFSFILE}" 254 ln -s "${DEST}" "${IFSFILE}" 255 fi 256 257 258 # Create and compile the identification source file. 259 260 echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c 261 echo '#pragma comment(user, __DATE__)' >> os400.c 262 echo '#pragma comment(user, __TIME__)' >> os400.c 263 echo '#pragma comment(copyright, "Copyright (C) 1995-2017 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c 264 make_module OS400 os400.c 265 LINK= # No need to rebuild service program yet. 266 MODULES= 267 268 269 # Get source list. 270 271 CSOURCES=`sed -e '/<source name="/!d' \ 272 -e 's/.* name="\([^"]*\)".*/\1/' < treebuild.xml` 273 274 # Compile the sources into modules. 275 276 for SRC in ${CSOURCES} 277 do MODULE=`db2_name "${SRC}"` 278 make_module "${MODULE}" "${SRC}" 279 done 280 281 282 # If needed, (re)create the static binding directory. 283 284 if action_needed "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR" 285 then LINK=YES 286 fi 287 288 if [ "${LINK}" ] 289 then rm -rf "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR" 290 CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${STATBNDDIR})" 291 CMD="${CMD} TEXT('ZLIB static binding directory')" 292 system "${CMD}" 293 294 for MODULE in ${MODULES} 295 do CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${STATBNDDIR})" 296 CMD="${CMD} OBJ((${TARGETLIB}/${MODULE} *MODULE))" 297 system "${CMD}" 298 done 299 fi 300 301 302 # The exportation file for service program creation must be in a DB2 303 # source file, so make sure it exists. 304 305 if action_needed "${LIBIFSNAME}/TOOLS.FILE" 306 then CMD="CRTSRCPF FILE(${TARGETLIB}/TOOLS) RCDLEN(112)" 307 CMD="${CMD} CCSID(${TGTCCSID}) TEXT('ZLIB: build tools')" 308 system "${CMD}" 309 fi 310 311 312 DEST="${LIBIFSNAME}/TOOLS.FILE/BNDSRC.MBR" 313 314 if action_needed "${SCRIPTDIR}/bndsrc" "${DEST}" 315 then CMD="CPY OBJ('${SCRIPTDIR}/bndsrc') TOOBJ('${DEST}')" 316 CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" 317 system "${CMD}" 318 # touch -r "${SCRIPTDIR}/bndsrc" "${DEST}" 319 LINK=YES 320 fi 321 322 323 # Build the service program if needed. 324 325 if action_needed "${LIBIFSNAME}/${SRVPGM}.SRVPGM" 326 then LINK=YES 327 fi 328 329 if [ "${LINK}" ] 330 then CMD="CRTSRVPGM SRVPGM(${TARGETLIB}/${SRVPGM})" 331 CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(BNDSRC)" 332 CMD="${CMD} MODULE(${TARGETLIB}/OS400)" 333 CMD="${CMD} BNDDIR(${TARGETLIB}/${STATBNDDIR})" 334 CMD="${CMD} TEXT('ZLIB ${VERSION} dynamic library')" 335 CMD="${CMD} TGTRLS(${TGTRLS})" 336 system "${CMD}" 337 LINK=YES 338 339 # Duplicate the service program for a versioned backup. 340 341 BACKUP=`echo "${SRVPGM}${VERSION}" | 342 sed -e 's/.*\(..........\)$/\1/' -e 's/\./_/g'` 343 BACKUP="`db2_name \"${BACKUP}\"`" 344 BKUPIFSNAME="${LIBIFSNAME}/${BACKUP}.SRVPGM" 345 rm -f "${BKUPIFSNAME}" 346 CMD="CRTDUPOBJ OBJ(${SRVPGM}) FROMLIB(${TARGETLIB})" 347 CMD="${CMD} OBJTYPE(*SRVPGM) NEWOBJ(${BACKUP})" 348 system "${CMD}" 349 fi 350 351 352 # If needed, (re)create the dynamic binding directory. 353 354 if action_needed "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR" 355 then LINK=YES 356 fi 357 358 if [ "${LINK}" ] 359 then rm -rf "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR" 360 CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${DYNBNDDIR})" 361 CMD="${CMD} TEXT('ZLIB dynamic binding directory')" 362 system "${CMD}" 363 CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${DYNBNDDIR})" 364 CMD="${CMD} OBJ((*LIBL/${SRVPGM} *SRVPGM))" 365 system "${CMD}" 366 fi 367
Indexes created Sat Sep 20 22:09:52 GMT 2025