aboutsummaryrefslogtreecommitdiff
/**
***     Replace system/C library calls by EBCDIC wrappers.
***     This is a layer inserted between libxml2 itself and the EBCDIC
***             environment.
***
***     See Copyright for the status of this software.
***
***     Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/

#ifndef __WRAPPERS_H_
#define __WRAPPERS_H_

/**
***     OS/400 specific defines.
**/

#define __cplusplus__strings__

/**
***     Force header inclusions before renaming procedures to UTF-8 wrappers.
**/

#include <sys/types.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <netdb.h>

#include "dlfcn.h"


/**
***     UTF-8 wrappers prototypes.
**/

extern int      _lx_getaddrinfo(const char * node, const char * service,
                        const struct addrinfo * hints, struct addrinfo * * res);
extern const char *
                _lx_inet_ntop(int af,
                        const void * src, char * dst, socklen_t size);
extern void *   _lx_dlopen(const char * filename, int flag);
extern void *   _lx_dlsym(void * handle, const char * symbol);
extern char *   _lx_dlerror(void);


#ifdef LIBXML_ZLIB_ENABLED

#include <zlib.h>

extern gzFile   _lx_gzopen(const char * path, const char * mode);
extern gzFile   _lx_gzdopen(int fd, const char * mode);

#endif


/**
***     Rename data/procedures to UTF-8 wrappers.
**/

#define getaddrinfo     _lx_getaddrinfo
#define inet_ntop       _lx_inet_ntop
#define dlopen          _lx_dlopen
#define dlsym           _lx_dlsym
#define dlerror         _lx_dlerror
#define gzopen          _lx_gzopen
#define gzdopen         _lx_gzdopen
#define inflateInit2_   _lx_inflateInit2_
#define deflateInit2_   _lx_deflateInit2_

#endif
o_sources=`get_make_var trio_sources` CSOURCES=`eval echo "\`get_make_var libxml2_la_SOURCES | tr '()' '{}'\`"` # Compile the sources into modules. INCLUDES="'`pwd`'" # OS/400 specific modules first. make_module --ebcdic DLFCN "${SCRIPTDIR}/dlfcn/dlfcn.c" make_module --ebcdic ICONV "${SCRIPTDIR}/iconv/iconv.c" make_module --ebcdic WRAPPERS "${SCRIPTDIR}/wrappers.c" make_module TRANSCODE "${SCRIPTDIR}/transcode.c" make_module RPGSUPPORT "${SCRIPTDIR}/rpgsupport.c" # Regular libxml2 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('libxml2 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('libxml2: build tools')" system "${CMD}" fi # Generate all exported symbol table versions in a binding source file. BSF="${LIBIFSNAME}/TOOLS.FILE/BNDSRC.MBR" PGMEXPS= OS400SYMS=`cat os400/transcode.h os400/rpgsupport.h | sed -e 'H' \ -e 'g' \ -e 's/\n/ /' \ -e 's/\\$/ /' \ -e 's/.*/& /' \ -e 's/\/\*.*\*\// /g' \ -e 'h' \ -e ':loop' \ -e 'g' \ -e '/\/\*/d' \ -e '/;/!d' \ -e 's/[^;]*;//' \ -e 'x' \ -e 's/[[:space:]]*;.*$//' \ -e '/XMLPUBFUN/{' \ -e 's/[[:space:]]*(.*$//' \ -e 's/.*[[:space:]*]//' \ -e 'p' \ -e 'bloop' \ -e '}' \ -e '/XMLPUBVAR/!bloop' \ -e ':loop2' \ -e '/\[[^][]*\]/{' \ -e 's///' \ -e 'bloop2' \ -e '}' \ -e 's/[[:space:]]*,[[:space:]]*/,/g' \ -e 's/[^,]*[[:space:]*]//' \ -e 's/[^[:alnum:]_,]//g' \ -e 's/,/\n/g' \ -e 'p' \ -e 'bloop'` sed -e 's/#.*//' \ -e 's/[[:space:]]*$//' \ -e 's/^[[:space:]]*//' \ -e '/^*global:$/d' \ -e '/^$/d' \ -e '/[[:space:]]*{$/{' \ -e 's///' \ -e 'h' \ -e 's/[^A-Za-z0-9]/_/g' \ -e 's/^[0-9]/_&/' \ -e 'x' \ -e 'G' \ -e 's/\(.*\)\n\(.*\)/\2_SIGNATURE="\1"/' \ -e 'p' \ -e 's/.*//' \ -e 'x' \ -e "s/.*/SONAME='&'/" \ -e 'b' \ -e '}' \ -e '/[[:space:]]*;$/!d' \ -e 's///' \ -e '/^xmlDllMain$/d' \ -e '/^}[[:space:]]*/!{' \ -e 'H' \ -e 'd' \ -e '}' \ -e 's///' \ -e '/^$/!{' \ -e 's/[^A-Za-z0-9]/_/g' \ -e 's/^[0-9]/_&/' \ -e 's/.*/${&}/' \ -e 'x' \ -e 'H' \ -e 's/.*//' \ -e '}' \ -e 'x' \ -e 's/\n/ /g' \ -e 's/^[[:space:]]*//' \ -e 's/.*/declare ${SONAME}="&"/' \ -e 's/.*/&; PGMEXPS="${SONAME} ${PGMEXPS}"/' \ < "${TOPDIR}/libxml2.syms" > bndvars . ./bndvars PGMLVL=CURRENT for PGMEXP in ${PGMEXPS} do SIGNATURE=`echo "${PGMEXP}" | sed 's/^LIBXML2_//'` eval ENTRIES=\"\${${PGMEXP}}\" echo " STRPGMEXP PGMLVL(*${PGMLVL}) SIGNATURE('${SIGNATURE}')" for ENTRY in ${ENTRIES} ${OS400SYMS} do echo " EXPORT SYMBOL('${ENTRY}')" done echo ' ENDPGMEXP' PGMLVL=PRV done > "${BSF}" # 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})" if [ "${WITH_ZLIB}" -ne 0 ] then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})" fi CMD="${CMD})" CMD="${CMD} BNDSRVPGM(QADRTTS)" CMD="${CMD} TEXT('libxml2 dynamic library')" CMD="${CMD} TGTRLS(${TGTRLS})" system "${CMD}" LINK=YES 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('libxml2 dynamic binding directory')" system "${CMD}" CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${DYNBNDDIR})" CMD="${CMD} OBJ((*LIBL/${SRVPGM} *SRVPGM))" system "${CMD}" fi # Compile the ASCII main() stub. make_module --ebcdic --sysiconv LIBXMLMAIN "${SCRIPTDIR}/libxmlmain.c" # Compile and link program xmllint. if action_needed "${LIBIFSNAME}/XMLLINT.PGM" "xmllint.c" || action_needed "${LIBIFSNAME}/XMLLINT.PGM" "${LIBIFSNAME}/${SRVPGM}.SRVPGM" || action_needed "${LIBIFSNAME}/XMLLINT.PGM" "${LIBIFSNAME}/LIBXMLMAIN.MODULE" then make_module XMLLINT xmllint.c CMD="CRTPGM PGM(${TARGETLIB}/XMLLINT) MODULE(${TARGETLIB}/XMLLINT)" CMD="${CMD} ENTMOD(${TARGETLIB}/LIBXMLMAIN)" CMD="${CMD} BNDSRVPGM(QADRTTS) BNDDIR((${TARGETLIB}/${STATBNDDIR})" if [ "${WITH_ZLIB}" -ne 0 ] then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})" fi CMD="${CMD}) ACTGRP(*NEW) TEXT('XML tool')" CMD="${CMD} TGTRLS(${TGTRLS})" system "${CMD}" rm -f "${LIBIFSNAME}/XMLLINT.MODULE" fi # Install xmllint in IFS. if [ ! -d "${IFSDIR}/bin" ] then mkdir -p "${IFSDIR}/bin" fi rm -f "${IFSDIR}/bin/xmllint" ln -s "${LIBIFSNAME}/XMLLINT.PGM" "${IFSDIR}/bin/xmllint" # Prepare the XMLLINT command and its response program. if action_needed "${LIBIFSNAME}/XMLLINTCL.PGM" "${SCRIPTDIR}/xmllintcl.c" then make_module --ebcdic XMLLINTCL "${SCRIPTDIR}/xmllintcl.c" CMD="CRTPGM PGM(${TARGETLIB}/XMLLINTCL) MODULE(${TARGETLIB}/XMLLINTCL)" CMD="${CMD} ACTGRP(*NEW) TEXT('XMLLINT command response')" CMD="${CMD} TGTRLS(${TGTRLS})" system "${CMD}" rm -f "${LIBIFSNAME}/XMLLINTCL.MODULE" fi if action_needed "${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR" \ "${SCRIPTDIR}/xmllint.cmd" then CMD="CPY OBJ('${SCRIPTDIR}/xmllint.cmd')" CMD="${CMD} TOOBJ('${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR')" CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" system "${CMD}" fi if action_needed "${LIBIFSNAME}/XMLLINT.CMD" \ "${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR" then CMD="CRTCMD CMD(${TARGETLIB}/XMLLINT) PGM(${TARGETLIB}/XMLLINTCL)" CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(XMLLINT) THDSAFE(*YES)" CMD="${CMD} TEXT('XML tool') REPLACE(*YES)" system "${CMD}" fi # Compile and link program xmlcatalog. if action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" "xmlcatalog.c" || action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" \ "${LIBIFSNAME}/${SRVPGM}.SRVPGM" || action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" \ "${LIBIFSNAME}/LIBXMLMAIN.MODULE" then make_module XMLCATALOG xmlcatalog.c CMD="CRTPGM PGM(${TARGETLIB}/XMLCATALOG)" CMD="${CMD} MODULE(${TARGETLIB}/XMLCATALOG)" CMD="${CMD} ENTMOD(${TARGETLIB}/LIBXMLMAIN)" CMD="${CMD} BNDSRVPGM(QADRTTS) BNDDIR((${TARGETLIB}/${STATBNDDIR})" if [ "${WITH_ZLIB}" -ne 0 ] then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})" fi CMD="${CMD}) ACTGRP(*NEW) TEXT('XML/SGML catalog tool')" CMD="${CMD} TGTRLS(${TGTRLS})" system "${CMD}" rm -f "${LIBIFSNAME}/XMLCATALOG.MODULE" fi # Install xmlcatalog in IFS. rm -f "${IFSDIR}/bin/xmlcatalog" ln -s "${LIBIFSNAME}/XMLCATALOG.PGM" "${IFSDIR}/bin/xmlcatalog" # Prepare the XMLCATALOG command and its response program. if action_needed "${LIBIFSNAME}/XMLCATLGCL.PGM" "${SCRIPTDIR}/xmlcatlgcl.c" then make_module --ebcdic XMLCATLGCL "${SCRIPTDIR}/xmlcatlgcl.c" CMD="CRTPGM PGM(${TARGETLIB}/XMLCATLGCL)" CMD="${CMD} MODULE(${TARGETLIB}/XMLCATLGCL)" CMD="${CMD} ACTGRP(*NEW) TEXT('XMLCATALOG command response')" CMD="${CMD} TGTRLS(${TGTRLS})" system "${CMD}" rm -f "${LIBIFSNAME}/XMLCATLGCL.MODULE" fi if action_needed "${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR" \ "${SCRIPTDIR}/xmlcatalog.cmd" then CMD="CPY OBJ('${SCRIPTDIR}/xmlcatalog.cmd')" CMD="${CMD} TOOBJ('${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR')" CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)" system "${CMD}" fi if action_needed "${LIBIFSNAME}/XMLCATALOG.CMD" \ "${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR" then CMD="CRTCMD CMD(${TARGETLIB}/XMLCATALOG) PGM(${TARGETLIB}/XMLCATLGCL)" CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(XMLCATALOG)" CMD="${CMD} THDSAFE(*YES) TEXT('XML/SGML catalog tool') REPLACE(*YES)" system "${CMD}" fi