From 35a201cc8ef0c3f5b2df88d2e528aabee1048348 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 30 Apr 2021 18:47:09 +0200 Subject: Initial/Final commit --- libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle | 180 +++++++++++++++++++++++++ 1 file changed, 180 insertions(+) create mode 100644 libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle (limited to 'libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle') diff --git a/libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle b/libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle new file mode 100644 index 0000000..59a7625 --- /dev/null +++ b/libxml2-2.9.10/os400/libxmlrpg/xmlstring.rpgle @@ -0,0 +1,180 @@ + * Summary: set of routines to process strings + * Description: type and interfaces needed for the internal string + * handling of the library, especially UTF8 processing. + * + * Copy: See Copyright for the status of this software. + * + * Author: Patrick Monnerat , DATASPHERE S.A. + + /if not defined(XML_STRING_H__) + /define XML_STRING_H__ + + /include "libxmlrpg/xmlversion" + /include "libxmlrpg/xmlTypesC" + /include "libxmlrpg/xmlstdarg" + + * xmlChar: + * + * This is a basic byte in an UTF-8 encoded string. + * It's unsigned allowing to pinpoint case where char * are assigned + * to xmlChar * (possibly making serialization back impossible). + + d xmlChar s based(######typedef######) + d like(xmlCuchar) + + * xmlChar handling + + d xmlStrdup pr * extproc('xmlStrdup') xmlChar * + d cur * value options(*string) const xmlChar * + + d xmlStrndup pr * extproc('xmlStrndup') xmlChar * + d cur * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlCharStrndup pr * extproc('xmlCharStrndup') xmlChar * + d cur * value options(*string) const char * + d len value like(xmlCint) + + d xmlCharStrdup pr * extproc('xmlCharStrdup') xmlChar * + d cur * value options(*string) const char * + + d xmlStrsub pr * extproc('xmlStrsub') const xmlChar * + d str * value options(*string) const xmlChar * + d start value like(xmlCint) + d len value like(xmlCint) + + d xmlStrchr pr * extproc('xmlStrchr') const xmlChar * + d str * value options(*string) const xmlChar * + d val value like(xmlChar) + + d xmlStrstr pr * extproc('xmlStrstr') const xmlChar * + d str * value options(*string) const xmlChar * + d val * value options(*string) const xmlChar * + + d xmlStrcasestr pr * extproc('xmlStrcasestr') const xmlChar * + d str * value options(*string) const xmlChar * + d val * value options(*string) const xmlChar * + + d xmlStrcmp pr extproc('xmlStrcmp') + d like(xmlCint) + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + + d xmlStrncmp pr extproc('xmlStrncmp') + d like(xmlCint) + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlStrcasecmp pr extproc('xmlStrcasecmp') + d like(xmlCint) + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + + d xmlStrncasecmp pr extproc('xmlStrncasecmp') + d like(xmlCint) + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlStrEqual pr extproc('xmlStrEqual') + d like(xmlCint) + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + + d xmlStrQEqual pr extproc('xmlStrQEqual') + d like(xmlCint) + d pref * value options(*string) const xmlChar * + d name * value options(*string) const xmlChar * + d stre * value options(*string) const xmlChar * + + d xmlStrlen pr extproc('xmlStrlen') + d like(xmlCint) + d str * value options(*string) const xmlChar * + + d xmlStrcat pr * extproc('xmlStrcat') xmlChar * + d cur * value options(*string) xmlChar * + d add * value options(*string) const xmlChar * + + d xmlStrncat pr * extproc('xmlStrncat') xmlChar * + d cur * value options(*string) xmlChar * + d add * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlStrncatNew pr * extproc('xmlStrncatNew') xmlChar * + d str1 * value options(*string) const xmlChar * + d str2 * value options(*string) const xmlChar * + d len value like(xmlCint) + + * xmlStrPrintf() is a vararg function. + * The following prototype supports up to 8 pointer arguments. + * Other argument signature can be achieved by defining alternate + * prototypes redirected to the same function. + + d xmlStrPrintf pr extproc('xmlStrPrintf') + d like(xmlCint) + d buf * value options(*string) xmlChar * + d len value like(xmlCint) + d msg * value options(*string) const char * + d arg1 * value options(*string: *nopass) + d arg2 * value options(*string: *nopass) + d arg3 * value options(*string: *nopass) + d arg4 * value options(*string: *nopass) + d arg5 * value options(*string: *nopass) + d arg6 * value options(*string: *nopass) + d arg7 * value options(*string: *nopass) + d arg8 * value options(*string: *nopass) + + d xmlStrVPrintf pr extproc('xmlStrVPrintf') + d like(xmlCint) + d buf * value options(*string) xmlChar * + d len value like(xmlCint) + d msg * value options(*string) const char * + d ap likeds(xmlVaList) + + d xmlGetUTF8Char pr extproc('xmlGetUTF8Char') + d like(xmlCint) + d utf * value options(*string) const uns. char * + d len like(xmlCint) + + d xmlCheckUTF8 pr extproc('xmlCheckUTF8') + d like(xmlCint) + d utf * value options(*string) const uns. char * + + d xmlUTF8Strsize pr extproc('xmlUTF8Strsize') + d like(xmlCint) + d utf * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlUTF8Strndup pr * extproc('xmlUTF8Strndup') xmlChar * + d utf * value options(*string) const xmlChar * + d len value like(xmlCint) + + d xmlUTF8Strpos pr * extproc('xmlUTF8Strpos') const xmlChar * + d utf * value options(*string) const xmlChar * + d pos value like(xmlCint) + + d xmlUTF8Strloc pr extproc('xmlUTF8Strloc') + d like(xmlCint) + d utf * value options(*string) const xmlChar * + d utfchar * value options(*string) const xmlChar * + + d xmlUTF8Strsub pr * extproc('xmlUTF8Strsub') xmlChar * + d utf * value options(*string) const xmlChar * + d start value like(xmlCint) + d len value like(xmlCint) + + d xmlUTF8Strlen pr extproc('xmlUTF8Strlen') + d like(xmlCint) + d utf * value options(*string) const xmlChar * + + d xmlUTF8Size pr extproc('xmlUTF8Size') + d like(xmlCint) + d utf * value options(*string) const xmlChar * + + d xmlUTF8Charcmp pr extproc('xmlUTF8Charcmp') + d like(xmlCint) + d utf1 * value options(*string) const xmlChar * + d utf2 * value options(*string) const xmlChar * + + /endif XML_STRING_H__ -- cgit v1.2.3