ronnie
2022-10-14 1504bb53e29d3d46222c0b3ea994fc494b48e153
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