Home | History | Annotate | Download | only in os400 
      1 #!/bin/sh
      2 #
      3 #       Installation of the ILE/RPG header files in the OS/400 library.
      4 #
      5 #       See Copyright for the status of this software.
      6 #
      7 #       Author: Patrick Monnerat <pm (at] datasphere.ch>, DATASPHERE S.A.
      8 #
      9 
     10 SCRIPTDIR=`dirname "${0}"`
     11 . "${SCRIPTDIR}/initscript.sh"
     12 cd "${TOPDIR}/os400/libxmlrpg"
     13 
     14 
     15 #       Create the OS/400 source program file for the ILE/RPG header files.
     16 
     17 SRCPF="${LIBIFSNAME}/LIBXMLRPG.FILE"
     18 
     19 if action_needed "${SRCPF}"
     20 then    CMD="CRTSRCPF FILE(${TARGETLIB}/LIBXMLRPG) RCDLEN(112)"
     21         CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: ILE/RPG header files')"
     22         system "${CMD}"
     23 fi
     24 
     25 
     26 #       Map file names to DB2 name syntax.
     27 
     28 for HFILE in *.rpgle *.rpgle.in
     29 do      NAME="`basename \"${HFILE}\" .in`"
     30         VAR="`basename \"${NAME}\" .rpgle`"
     31         VAL="`db2_name \"${NAME}\" nomangle`"
     32 
     33         if [ "${VAR}" = 'xmlschemastypes' ]
     34         then    VAL=SCHMTYPES
     35         fi
     36 
     37         eval "VAR_${VAR}=\"${VAL}\""
     38         echo "${VAR} s/${VAR}/${VAL}/g"
     39 done > tmpsubstfile1
     40 
     41 #       Order substitution commands so that a prefix appears after all
     42 #               file names beginning with the prefix.
     43 
     44 sort -r tmpsubstfile1 | sed 's/^[^ ]*[ ]*//' > tmpsubstfile2
     45 
     46 
     47 change_include()
     48 
     49 {
     50         sed -e '\#^....../include  *"libxmlrpg/#{'                      \
     51             -e 's///'                                                   \
     52             -e 's/".*//'                                                \
     53             -f tmpsubstfile2                                            \
     54             -e 's#.*#      /include libxmlrpg,&#'                       \
     55             -e '}'
     56 }
     57 
     58 
     59 #       Create the IFS directory for the ILE/RPG header files.
     60 
     61 RPGIFSDIR="${IFSDIR}/include/libxmlrpg"
     62 
     63 if action_needed "${RPGIFSDIR}"
     64 then    mkdir -p "${RPGIFSDIR}"
     65 fi
     66 
     67 #       Copy the header files to IFS ILE/RPG include directory.
     68 #       Copy them with include path editing to the DB2 library.
     69 
     70 for HFILE in *.rpgle *.rpgle.in
     71 do      IFSCMD="cat \"${HFILE}\""
     72         DB2CMD="change_include < \"${HFILE}\""
     73         IFSFILE="`basename \"${HFILE}\" .in`"
     74 
     75         case "${HFILE}" in
     76 
     77         *.in)   IFSCMD="${IFSCMD} | versioned_copy"
     78                 DB2CMD="${DB2CMD} | versioned_copy"
     79                 ;;
     80         esac
     81 
     82         IFSDEST="${RPGIFSDIR}/${IFSFILE}"
     83 
     84         if action_needed "${IFSDEST}" "${HFILE}"
     85         then    eval "${IFSCMD}" > "${IFSDEST}"
     86         fi
     87 
     88         eval DB2MBR="\"\${VAR_`basename \"${IFSDEST}\" .rpgle`}\""
     89         DB2DEST="${SRCPF}/${DB2MBR}.MBR"
     90 
     91         if action_needed "${DB2DEST}" "${HFILE}"
     92         then    eval "${DB2CMD}" | change_include > tmphdrfile
     93 
     94                 #       Need to translate to target CCSID.
     95 
     96                 CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DB2DEST}')"
     97                 CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
     98                 system "${CMD}"
     99         fi
    100 done
    101