|
Packit |
423ecb |
#!/bin/sh
|
|
Packit |
423ecb |
#
|
|
Packit |
423ecb |
# Installation of the ILE/RPG header files in the OS/400 library.
|
|
Packit |
423ecb |
#
|
|
Packit |
423ecb |
# See Copyright for the status of this software.
|
|
Packit |
423ecb |
#
|
|
Packit |
423ecb |
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
|
|
Packit |
423ecb |
#
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
SCRIPTDIR=`dirname "${0}"`
|
|
Packit |
423ecb |
. "${SCRIPTDIR}/initscript.sh"
|
|
Packit |
423ecb |
cd "${TOPDIR}/os400/libxmlrpg"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Create the OS/400 source program file for the ILE/RPG header files.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
SRCPF="${LIBIFSNAME}/LIBXMLRPG.FILE"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if action_needed "${SRCPF}"
|
|
Packit |
423ecb |
then CMD="CRTSRCPF FILE(${TARGETLIB}/LIBXMLRPG) RCDLEN(112)"
|
|
Packit |
423ecb |
CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: ILE/RPG header files')"
|
|
Packit |
423ecb |
system "${CMD}"
|
|
Packit |
423ecb |
fi
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Map file names to DB2 name syntax.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
for HFILE in *.rpgle *.rpgle.in
|
|
Packit |
423ecb |
do NAME="`basename \"${HFILE}\" .in`"
|
|
Packit |
423ecb |
VAR="`basename \"${NAME}\" .rpgle`"
|
|
Packit |
423ecb |
VAL="`db2_name \"${NAME}\" nomangle`"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if [ "${VAR}" = 'xmlschemastypes' ]
|
|
Packit |
423ecb |
then VAL=SCHMTYPES
|
|
Packit |
423ecb |
fi
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
eval "VAR_${VAR}=\"${VAL}\""
|
|
Packit |
423ecb |
echo "${VAR} s/${VAR}/${VAL}/g"
|
|
Packit |
423ecb |
done > tmpsubstfile1
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Order substitution commands so that a prefix appears after all
|
|
Packit |
423ecb |
# file names beginning with the prefix.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
sort -r tmpsubstfile1 | sed 's/^[^ ]*[ ]*//' > tmpsubstfile2
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
change_include()
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
sed -e '\#^....../include *"libxmlrpg/#{' \
|
|
Packit |
423ecb |
-e 's///' \
|
|
Packit |
423ecb |
-e 's/".*//' \
|
|
Packit |
423ecb |
-f tmpsubstfile2 \
|
|
Packit |
423ecb |
-e 's#.*# /include libxmlrpg,&#' \
|
|
Packit |
423ecb |
-e '}'
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Create the IFS directory for the ILE/RPG header files.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
RPGIFSDIR="${IFSDIR}/include/libxmlrpg"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if action_needed "${RPGIFSDIR}"
|
|
Packit |
423ecb |
then mkdir -p "${RPGIFSDIR}"
|
|
Packit |
423ecb |
fi
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Copy the header files to IFS ILE/RPG include directory.
|
|
Packit |
423ecb |
# Copy them with include path editing to the DB2 library.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
for HFILE in *.rpgle *.rpgle.in
|
|
Packit |
423ecb |
do IFSCMD="cat \"${HFILE}\""
|
|
Packit |
423ecb |
DB2CMD="change_include < \"${HFILE}\""
|
|
Packit |
423ecb |
IFSFILE="`basename \"${HFILE}\" .in`"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
case "${HFILE}" in
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
*.in) IFSCMD="${IFSCMD} | versioned_copy"
|
|
Packit |
423ecb |
DB2CMD="${DB2CMD} | versioned_copy"
|
|
Packit |
423ecb |
;;
|
|
Packit |
423ecb |
esac
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
IFSDEST="${RPGIFSDIR}/${IFSFILE}"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if action_needed "${IFSDEST}" "${HFILE}"
|
|
Packit |
423ecb |
then eval "${IFSCMD}" > "${IFSDEST}"
|
|
Packit |
423ecb |
fi
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
eval DB2MBR="\"\${VAR_`basename \"${IFSDEST}\" .rpgle`}\""
|
|
Packit |
423ecb |
DB2DEST="${SRCPF}/${DB2MBR}.MBR"
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if action_needed "${DB2DEST}" "${HFILE}"
|
|
Packit |
423ecb |
then eval "${DB2CMD}" | change_include > tmphdrfile
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
# Need to translate to target CCSID.
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DB2DEST}')"
|
|
Packit |
423ecb |
CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
|
|
Packit |
423ecb |
system "${CMD}"
|
|
Packit |
423ecb |
fi
|
|
Packit |
423ecb |
done
|