|  | #!/bin/sh | 
|  | # | 
|  | #       ZLIB compilation script for the OS/400. | 
|  | # | 
|  | # | 
|  | #       This is a shell script since make is not a standard component of OS/400. | 
|  |  | 
|  |  | 
|  | ################################################################################ | 
|  | # | 
|  | #                       Tunable configuration parameters. | 
|  | # | 
|  | ################################################################################ | 
|  |  | 
|  | TARGETLIB='ZLIB'                # Target OS/400 program library | 
|  | STATBNDDIR='ZLIB_A'             # Static binding directory. | 
|  | DYNBNDDIR='ZLIB'                # Dynamic binding directory. | 
|  | SRVPGM="ZLIB"                   # Service program. | 
|  | IFSDIR='/zlib'                  # IFS support base directory. | 
|  | TGTCCSID='500'                  # Target CCSID of objects | 
|  | DEBUG='*NONE'                   # Debug level | 
|  | OPTIMIZE='40'                   # Optimisation level | 
|  | OUTPUT='*NONE'                  # Compilation output option. | 
|  | TGTRLS='V6R1M0'                 # Target OS release | 
|  |  | 
|  | export TARGETLIB STATBNDDIR DYNBNDDIR SRVPGM IFSDIR | 
|  | export TGTCCSID DEBUG OPTIMIZE OUTPUT TGTRLS | 
|  |  | 
|  |  | 
|  | ################################################################################ | 
|  | # | 
|  | #                       OS/400 specific definitions. | 
|  | # | 
|  | ################################################################################ | 
|  |  | 
|  | LIBIFSNAME="/QSYS.LIB/${TARGETLIB}.LIB" | 
|  |  | 
|  |  | 
|  | ################################################################################ | 
|  | # | 
|  | #                               Procedures. | 
|  | # | 
|  | ################################################################################ | 
|  |  | 
|  | #       action_needed dest [src] | 
|  | # | 
|  | #       dest is an object to build | 
|  | #       if specified, src is an object on which dest depends. | 
|  | # | 
|  | #       exit 0 (succeeds) if some action has to be taken, else 1. | 
|  |  | 
|  | action_needed() | 
|  |  | 
|  | { | 
|  | [ ! -e "${1}" ] && return 0 | 
|  | [ "${2}" ] || return 1 | 
|  | [ "${1}" -ot "${2}" ] && return 0 | 
|  | return 1 | 
|  | } | 
|  |  | 
|  |  | 
|  | #       make_module module_name source_name [additional_definitions] | 
|  | # | 
|  | #       Compile source name into module if needed. | 
|  | #       As side effect, append the module name to variable MODULES. | 
|  | #       Set LINK to "YES" if the module has been compiled. | 
|  |  | 
|  | make_module() | 
|  |  | 
|  | { | 
|  | MODULES="${MODULES} ${1}" | 
|  | MODIFSNAME="${LIBIFSNAME}/${1}.MODULE" | 
|  | CSRC="`basename \"${2}\"`" | 
|  |  | 
|  | if action_needed "${MODIFSNAME}" "${2}" | 
|  | then    : | 
|  | elif [ ! "`sed -e \"/<source name=\\\"${CSRC}\\\">/,/<\\\\/source>/!d\" \ | 
|  | -e '/<depend /!d'                                                 \ | 
|  | -e 's/.* name=\"\\([^\"]*\\)\".*/\\1/' < \"${TOPDIR}/treebuild.xml\" | | 
|  | while read HDR | 
|  | do      if action_needed \"${MODIFSNAME}\" \"${IFSDIR}/include/${HDR}\" | 
|  | then    echo recompile | 
|  | break | 
|  | fi | 
|  | done`" ] | 
|  | then    return 0 | 
|  | fi | 
|  |  | 
|  | CMD="CRTCMOD MODULE(${TARGETLIB}/${1}) SRCSTMF('${2}')" | 
|  | CMD="${CMD} SYSIFCOPT(*IFS64IO) OPTION(*INCDIRFIRST)" | 
|  | CMD="${CMD} LOCALETYPE(*LOCALE) FLAG(10)" | 
|  | CMD="${CMD} INCDIR('${IFSDIR}/include' ${INCLUDES})" | 
|  | CMD="${CMD} TGTCCSID(${TGTCCSID}) TGTRLS(${TGTRLS})" | 
|  | CMD="${CMD} OUTPUT(${OUTPUT})" | 
|  | CMD="${CMD} OPTIMIZE(${OPTIMIZE})" | 
|  | CMD="${CMD} DBGVIEW(${DEBUG})" | 
|  | system "${CMD}" | 
|  | LINK=YES | 
|  | } | 
|  |  | 
|  |  | 
|  | #       Determine DB2 object name from IFS name. | 
|  |  | 
|  | db2_name() | 
|  |  | 
|  | { | 
|  | basename "${1}"                                                 | | 
|  | tr 'a-z-' 'A-Z_'                                                | | 
|  | sed -e 's/\..*//'                                               \ | 
|  | -e 's/^\(.\).*\(.........\)$/\1\2/' | 
|  | } | 
|  |  | 
|  |  | 
|  | #       Force enumeration types to be the same size as integers. | 
|  |  | 
|  | copy_hfile() | 
|  |  | 
|  | { | 
|  | sed -e '1i\ | 
|  | #pragma enum(int)\ | 
|  | ' "${@}" -e '$a\ | 
|  | #pragma enum(pop)\ | 
|  | ' | 
|  | } | 
|  |  | 
|  |  | 
|  | ################################################################################ | 
|  | # | 
|  | #                             Script initialization. | 
|  | # | 
|  | ################################################################################ | 
|  |  | 
|  | SCRIPTDIR=`dirname "${0}"` | 
|  |  | 
|  | case "${SCRIPTDIR}" in | 
|  | /*)     ;; | 
|  | *)      SCRIPTDIR="`pwd`/${SCRIPTDIR}" | 
|  | esac | 
|  |  | 
|  | while true | 
|  | do      case "${SCRIPTDIR}" in | 
|  | */.)    SCRIPTDIR="${SCRIPTDIR%/.}";; | 
|  | *)      break;; | 
|  | esac | 
|  | done | 
|  |  | 
|  | #  The script directory is supposed to be in ${TOPDIR}/os400. | 
|  |  | 
|  | TOPDIR=`dirname "${SCRIPTDIR}"` | 
|  | export SCRIPTDIR TOPDIR | 
|  | cd "${TOPDIR}" | 
|  |  | 
|  |  | 
|  | #  Extract the version from the master compilation XML file. | 
|  |  | 
|  | VERSION=`sed -e '/^<package /!d'                                        \ | 
|  | -e 's/^.* version="\([0-9.]*\)".*$/\1/' -e 'q'              \ | 
|  | < treebuild.xml` | 
|  | export VERSION | 
|  |  | 
|  | ################################################################################ | 
|  |  | 
|  |  | 
|  | #       Create the OS/400 library if it does not exist. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}" | 
|  | then    CMD="CRTLIB LIB(${TARGETLIB}) TEXT('ZLIB: Data compression API')" | 
|  | system "${CMD}" | 
|  | fi | 
|  |  | 
|  |  | 
|  | #       Create the DOCS source file if it does not exist. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}/DOCS.FILE" | 
|  | then    CMD="CRTSRCPF FILE(${TARGETLIB}/DOCS) RCDLEN(112)" | 
|  | CMD="${CMD} CCSID(${TGTCCSID}) TEXT('Documentation texts')" | 
|  | system "${CMD}" | 
|  | fi | 
|  |  | 
|  | #       Copy some documentation files if needed. | 
|  |  | 
|  | for TEXT in "${TOPDIR}/ChangeLog" "${TOPDIR}/FAQ"                       \ | 
|  | "${TOPDIR}/README" "${SCRIPTDIR}/README400" | 
|  | do      MEMBER="${LIBIFSNAME}/DOCS.FILE/`db2_name \"${TEXT}\"`.MBR" | 
|  |  | 
|  | if action_needed "${MEMBER}" "${TEXT}" | 
|  | then    CMD="CPY OBJ('${TEXT}') TOOBJ('${MEMBER}') TOCCSID(${TGTCCSID})" | 
|  | CMD="${CMD} DTAFMT(*TEXT) REPLACE(*YES)" | 
|  | system "${CMD}" | 
|  | fi | 
|  | done | 
|  |  | 
|  |  | 
|  | #       Create the OS/400 source program file for the C header files. | 
|  |  | 
|  | SRCPF="${LIBIFSNAME}/H.FILE" | 
|  |  | 
|  | if action_needed "${SRCPF}" | 
|  | then    CMD="CRTSRCPF FILE(${TARGETLIB}/H) RCDLEN(112)" | 
|  | CMD="${CMD} CCSID(${TGTCCSID}) TEXT('ZLIB: C/C++ header files')" | 
|  | system "${CMD}" | 
|  | fi | 
|  |  | 
|  |  | 
|  | #       Create the IFS directory for the C header files. | 
|  |  | 
|  | if action_needed "${IFSDIR}/include" | 
|  | then    mkdir -p "${IFSDIR}/include" | 
|  | fi | 
|  |  | 
|  | #       Copy the header files to DB2 library. Link from IFS include directory. | 
|  |  | 
|  | for HFILE in "${TOPDIR}/"*.h | 
|  | do      DEST="${SRCPF}/`db2_name \"${HFILE}\"`.MBR" | 
|  |  | 
|  | if action_needed "${DEST}" "${HFILE}" | 
|  | then    copy_hfile < "${HFILE}" > tmphdrfile | 
|  |  | 
|  | #       Need to translate to target CCSID. | 
|  |  | 
|  | CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DEST}')" | 
|  | CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" | 
|  | system "${CMD}" | 
|  | # touch -r "${HFILE}" "${DEST}" | 
|  | rm -f tmphdrfile | 
|  | fi | 
|  |  | 
|  | IFSFILE="${IFSDIR}/include/`basename \"${HFILE}\"`" | 
|  |  | 
|  | if action_needed "${IFSFILE}" "${DEST}" | 
|  | then    rm -f "${IFSFILE}" | 
|  | ln -s "${DEST}" "${IFSFILE}" | 
|  | fi | 
|  | done | 
|  |  | 
|  |  | 
|  | #       Install the ILE/RPG header file. | 
|  |  | 
|  |  | 
|  | HFILE="${SCRIPTDIR}/zlib.inc" | 
|  | DEST="${SRCPF}/ZLIB.INC.MBR" | 
|  |  | 
|  | if action_needed "${DEST}" "${HFILE}" | 
|  | then    CMD="CPY OBJ('${HFILE}') TOOBJ('${DEST}')" | 
|  | CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" | 
|  | system "${CMD}" | 
|  | # touch -r "${HFILE}" "${DEST}" | 
|  | fi | 
|  |  | 
|  | IFSFILE="${IFSDIR}/include/`basename \"${HFILE}\"`" | 
|  |  | 
|  | if action_needed "${IFSFILE}" "${DEST}" | 
|  | then    rm -f "${IFSFILE}" | 
|  | ln -s "${DEST}" "${IFSFILE}" | 
|  | fi | 
|  |  | 
|  |  | 
|  | #      Create and compile the identification source file. | 
|  |  | 
|  | echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c | 
|  | echo '#pragma comment(user, __DATE__)' >> os400.c | 
|  | echo '#pragma comment(user, __TIME__)' >> os400.c | 
|  | echo '#pragma comment(copyright, "Copyright (C) 1995-2017 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c | 
|  | make_module     OS400           os400.c | 
|  | LINK=                           # No need to rebuild service program yet. | 
|  | MODULES= | 
|  |  | 
|  |  | 
|  | #       Get source list. | 
|  |  | 
|  | CSOURCES=`sed -e '/<source name="/!d'                                   \ | 
|  | -e 's/.* name="\([^"]*\)".*/\1/' < treebuild.xml` | 
|  |  | 
|  | #       Compile the sources into modules. | 
|  |  | 
|  | for SRC in ${CSOURCES} | 
|  | do      MODULE=`db2_name "${SRC}"` | 
|  | make_module "${MODULE}" "${SRC}" | 
|  | done | 
|  |  | 
|  |  | 
|  | #       If needed, (re)create the static binding directory. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR" | 
|  | then    LINK=YES | 
|  | fi | 
|  |  | 
|  | if [ "${LINK}" ] | 
|  | then    rm -rf "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR" | 
|  | CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${STATBNDDIR})" | 
|  | CMD="${CMD} TEXT('ZLIB static binding directory')" | 
|  | system "${CMD}" | 
|  |  | 
|  | for MODULE in ${MODULES} | 
|  | do      CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${STATBNDDIR})" | 
|  | CMD="${CMD} OBJ((${TARGETLIB}/${MODULE} *MODULE))" | 
|  | system "${CMD}" | 
|  | done | 
|  | fi | 
|  |  | 
|  |  | 
|  | #       The exportation file for service program creation must be in a DB2 | 
|  | #               source file, so make sure it exists. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}/TOOLS.FILE" | 
|  | then    CMD="CRTSRCPF FILE(${TARGETLIB}/TOOLS) RCDLEN(112)" | 
|  | CMD="${CMD} CCSID(${TGTCCSID}) TEXT('ZLIB: build tools')" | 
|  | system "${CMD}" | 
|  | fi | 
|  |  | 
|  |  | 
|  | DEST="${LIBIFSNAME}/TOOLS.FILE/BNDSRC.MBR" | 
|  |  | 
|  | if action_needed "${SCRIPTDIR}/bndsrc" "${DEST}" | 
|  | then    CMD="CPY OBJ('${SCRIPTDIR}/bndsrc') TOOBJ('${DEST}')" | 
|  | CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" | 
|  | system "${CMD}" | 
|  | # touch -r "${SCRIPTDIR}/bndsrc" "${DEST}" | 
|  | LINK=YES | 
|  | fi | 
|  |  | 
|  |  | 
|  | #       Build the service program if needed. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}/${SRVPGM}.SRVPGM" | 
|  | then    LINK=YES | 
|  | fi | 
|  |  | 
|  | if [ "${LINK}" ] | 
|  | then    CMD="CRTSRVPGM SRVPGM(${TARGETLIB}/${SRVPGM})" | 
|  | CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(BNDSRC)" | 
|  | CMD="${CMD} MODULE(${TARGETLIB}/OS400)" | 
|  | CMD="${CMD} BNDDIR(${TARGETLIB}/${STATBNDDIR})" | 
|  | CMD="${CMD} TEXT('ZLIB ${VERSION} dynamic library')" | 
|  | CMD="${CMD} TGTRLS(${TGTRLS})" | 
|  | system "${CMD}" | 
|  | LINK=YES | 
|  |  | 
|  | #       Duplicate the service program for a versioned backup. | 
|  |  | 
|  | BACKUP=`echo "${SRVPGM}${VERSION}"                              | | 
|  | sed -e 's/.*\(..........\)$/\1/' -e 's/\./_/g'` | 
|  | BACKUP="`db2_name \"${BACKUP}\"`" | 
|  | BKUPIFSNAME="${LIBIFSNAME}/${BACKUP}.SRVPGM" | 
|  | rm -f "${BKUPIFSNAME}" | 
|  | CMD="CRTDUPOBJ OBJ(${SRVPGM}) FROMLIB(${TARGETLIB})" | 
|  | CMD="${CMD} OBJTYPE(*SRVPGM) NEWOBJ(${BACKUP})" | 
|  | system "${CMD}" | 
|  | fi | 
|  |  | 
|  |  | 
|  | #       If needed, (re)create the dynamic binding directory. | 
|  |  | 
|  | if action_needed "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR" | 
|  | then    LINK=YES | 
|  | fi | 
|  |  | 
|  | if [ "${LINK}" ] | 
|  | then    rm -rf "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR" | 
|  | CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${DYNBNDDIR})" | 
|  | CMD="${CMD} TEXT('ZLIB dynamic binding directory')" | 
|  | system "${CMD}" | 
|  | CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${DYNBNDDIR})" | 
|  | CMD="${CMD} OBJ((*LIBL/${SRVPGM} *SRVPGM))" | 
|  | system "${CMD}" | 
|  | fi |