#!/bin/sh # # Installation of the ILE/RPG header files in the OS/400 library. # # See Copyright for the status of this software. # # Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A. #

SCRIPTDIR=`dirname “${0}”` . “${SCRIPTDIR}/initscript.sh” cd “${TOPDIR}/os400/libxmlrpg”

# Create the OS/400 source program file for the ILE/RPG header files.

SRCPF=“${LIBIFSNAME}/LIBXMLRPG.FILE”

if action_needed “${SRCPF}” then CMD=“CRTSRCPF FILE(${TARGETLIB}/LIBXMLRPG) RCDLEN(112)”

CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: ILE/RPG header files')"
system "${CMD}"

fi

# Map file names to DB2 name syntax.

for HFILE in *.rpgle *.rpgle.in do NAME=“`basename "${HFILE}" .in`”

VAR="`basename \"${NAME}\" .rpgle`"
VAL="`db2_name \"${NAME}\" nomangle`"

if [ "${VAR}" = 'xmlschemastypes' ]
then    VAL=SCHMTYPES
fi

eval "VAR_${VAR}=\"${VAL}\""
echo "${VAR} s/${VAR}/${VAL}/g"

done > tmpsubstfile1

# Order substitution commands so that a prefix appears after all # file names beginning with the prefix.

sort -r tmpsubstfile1 | sed 's/^[^ ]*[ ]*//' > tmpsubstfile2

change_include()

{

sed -e '\#^....../include  *"libxmlrpg/#{'                      \
    -e 's///'                                                   \
    -e 's/".*//'                                                \
    -f tmpsubstfile2                                            \
    -e 's#.*#      /include libxmlrpg,&#'                       \
    -e '}'

}

# Create the IFS directory for the ILE/RPG header files.

RPGIFSDIR=“${IFSDIR}/include/libxmlrpg”

if action_needed “${RPGIFSDIR}” then mkdir -p “${RPGIFSDIR}” fi

# Copy the header files to IFS ILE/RPG include directory. # Copy them with include path editing to the DB2 library.

for HFILE in *.rpgle *.rpgle.in do IFSCMD=“cat "${HFILE}"”

DB2CMD="change_include < \"${HFILE}\""
IFSFILE="`basename \"${HFILE}\" .in`"

case "${HFILE}" in

*.in)   IFSCMD="${IFSCMD} | versioned_copy"
        DB2CMD="${DB2CMD} | versioned_copy"
        ;;
esac

IFSDEST="${RPGIFSDIR}/${IFSFILE}"

if action_needed "${IFSDEST}" "${HFILE}"
then    eval "${IFSCMD}" > "${IFSDEST}"
fi

eval DB2MBR="\"\${VAR_`basename \"${IFSDEST}\" .rpgle`}\""
DB2DEST="${SRCPF}/${DB2MBR}.MBR"

if action_needed "${DB2DEST}" "${HFILE}"
then    eval "${DB2CMD}" | change_include > tmphdrfile

        #       Need to translate to target CCSID.

        CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DB2DEST}')"
        CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
        system "${CMD}"
fi

done