os400/make-rpg.sh

   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@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