diff options
author | Wojtek Kosior <wk@koszkonutek-tmp.pl.eu.org> | 2021-04-30 18:47:09 +0200 |
---|---|---|
committer | Wojtek Kosior <wk@koszkonutek-tmp.pl.eu.org> | 2021-04-30 18:47:09 +0200 |
commit | 35a201cc8ef0c3f5b2df88d2e528aabee1048348 (patch) | |
tree | 902dae955480e19f4498dbe4964619fc91d09b06 /libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle | |
download | xml-backup-restore-35a201cc8ef0c3f5b2df88d2e528aabee1048348.tar.gz xml-backup-restore-35a201cc8ef0c3f5b2df88d2e528aabee1048348.zip |
Diffstat (limited to 'libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle')
-rw-r--r-- | libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle b/libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle new file mode 100644 index 0000000..b96e4e8 --- /dev/null +++ b/libxml2-2.9.10/os400/libxmlrpg/transcode.rpgle @@ -0,0 +1,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 |