summaryrefslogtreecommitdiff
path: root/os400/libxmlrpg/transcode.rpgle
diff options
context:
space:
mode:
Diffstat (limited to 'os400/libxmlrpg/transcode.rpgle')
-rw-r--r--os400/libxmlrpg/transcode.rpgle71
1 files changed, 71 insertions, 0 deletions
diff --git a/os400/libxmlrpg/transcode.rpgle b/os400/libxmlrpg/transcode.rpgle
new file mode 100644
index 0000000..b96e4e8
--- /dev/null
+++ b/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