transcode.rpgle 3.96 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
      * Supplementary character code conversion functions for
      *   EBCDIC environments.
      *
      * Copy: See Copyright for the status of this software.
      *
      * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.

      /if not defined(TRANSCODE_H__)
      /define TRANSCODE_H__

      /include "libxmlrpg/dict"
      /include "libxmlrpg/xmlstdarg"

     d xmlZapDict      pr                  extproc('xmlZapDict')
     d  dict                               like(xmlDictPtr)

     d xmlTranscodeResult...
     d                 pr              *   extproc('xmlTranscodeResult')        const char *
     d  s                              *   value options(*string)               const xmlChar *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)
     d  freeproc                       *   value procptr

     d xmlTranscodeString...
     d                 pr              *   extproc('xmlTranscodeString')        const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)

     d xmlTranscodeWString...
     d                 pr              *   extproc('xmlTranscodeWString')       const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)

     d xmlTranscodeHString...
     d                 pr              *   extproc('xmlTranscodeHString')       const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)

      /if not defined(XML_NO_SHORT_NAMES)
     d xmlTR           pr              *   extproc('xmlTranscodeResult')        const char *
     d  s                              *   value options(*string)               const xmlChar *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)
     d  freeproc                       *   value procptr

     d xmlTS           pr              *   extproc('xmlTranscodeString')        const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)

     d xmlTW           pr              *   extproc('xmlTranscodeWString')       const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)

     d xmlTH           pr              *   extproc('xmlTranscodeHString')       const xmlChar *
     d  s                              *   value options(*string)               const char *
     d  encoding                       *   value options(*string)               const char *
     d  dict                               like(xmlDictPtr) options(*omit)
      /endif

     d xmlVasprintf    pr              *   extproc('xmlVasprintf')
     d  dict                               like(xmlDictPtr) options(*omit)
     d  encoding                       *   value options(*string)               const char *
     d  fmt                            *   value options(*string)               const xmlChar *
     d  args                               likeds(xmlVaList)

      /endif