summaryrefslogtreecommitdiffstats
path: root/libxml2/os400/libxmlrpg/transcode.rpgle
blob: b96e4e8fda15456aba552f661b103aa7ac9aedad (plain)
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