rolled back to 2.9.2 because 2.9.4 doesn't work with XML validator
[platform/upstream/libxml2.git] / os400 / libxmlrpg / xmlstring.rpgle
index 8980fc0..41e9eb5 100644 (file)
@@ -10,7 +10,6 @@
       /define XML_STRING_H__
 
       /include "libxmlrpg/xmlversion"
-      /include "libxmlrpg/xmlTypesC"
       /include "libxmlrpg/xmlstdarg"
 
       * xmlChar:
@@ -19,8 +18,7 @@
       * 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)
+     d xmlChar         s              3u 0 based(######typedef######)
 
       * xmlChar handling
 
 
      d xmlStrndup      pr              *   extproc('xmlStrndup')                xmlChar *
      d  cur                            *   value options(*string)               const xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
      d xmlCharStrndup  pr              *   extproc('xmlCharStrndup')            xmlChar *
      d  cur                            *   value options(*string)               const char *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
      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  start                        10i 0 value
+     d  len                          10i 0 value
 
      d xmlStrchr       pr              *   extproc('xmlStrchr')                 const xmlChar *
      d  str                            *   value options(*string)               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 xmlStrcmp       pr            10i 0 extproc('xmlStrcmp')
      d  str1                           *   value options(*string)               const xmlChar *
      d  str2                           *   value options(*string)               const xmlChar *
 
-     d xmlStrncmp      pr                  extproc('xmlStrncmp')
-     d                                     like(xmlCint)
+     d xmlStrncmp      pr            10i 0 extproc('xmlStrncmp')
      d  str1                           *   value options(*string)               const xmlChar *
      d  str2                           *   value options(*string)               const xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
-     d xmlStrcasecmp   pr                  extproc('xmlStrcasecmp')
-     d                                     like(xmlCint)
+     d xmlStrcasecmp   pr            10i 0 extproc('xmlStrcasecmp')
      d  str1                           *   value options(*string)               const xmlChar *
      d  str2                           *   value options(*string)               const xmlChar *
 
-     d xmlStrncasecmp  pr                  extproc('xmlStrncasecmp')
-     d                                     like(xmlCint)
+     d xmlStrncasecmp  pr            10i 0 extproc('xmlStrncasecmp')
      d  str1                           *   value options(*string)               const xmlChar *
      d  str2                           *   value options(*string)               const xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
-     d xmlStrEqual     pr                  extproc('xmlStrEqual')
-     d                                     like(xmlCint)
+     d xmlStrEqual     pr            10i 0 extproc('xmlStrEqual')
      d  str1                           *   value options(*string)               const xmlChar *
      d  str2                           *   value options(*string)               const xmlChar *
 
-     d xmlStrQEqual    pr                  extproc('xmlStrQEqual')
-     d                                     like(xmlCint)
+     d xmlStrQEqual    pr            10i 0 extproc('xmlStrQEqual')
      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 xmlStrlen       pr            10i 0 extproc('xmlStrlen')
      d  str                            *   value options(*string)               const xmlChar *
 
      d xmlStrcat       pr              *   extproc('xmlStrcat')                 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  len                          10i 0 value
 
      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)
+     d  len                          10i 0 value
 
       * 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 xmlStrPrintf    pr            10i 0 extproc('xmlStrPrintf')
      d  buf                            *   value options(*string)               xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
      d  msg                            *   value options(*string)               const xmlChar *
      d  arg1                           *   value options(*string: *nopass)
      d  arg2                           *   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 xmlStrVPrintf   pr            10i 0 extproc('xmlStrVPrintf')
      d  buf                            *   value options(*string)               xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
      d  msg                            *   value options(*string)               const xmlChar *
      d  ap                                 likeds(xmlVaList)
 
-     d xmlGetUTF8Char  pr                  extproc('xmlGetUTF8Char')
-     d                                     like(xmlCint)
+     d xmlGetUTF8Char  pr            10i 0 extproc('xmlGetUTF8Char')
      d  utf                            *   value options(*string)               const uns. char *
-     d  len                                like(xmlCint)
+     d  len                          10i 0
 
-     d xmlCheckUTF8    pr                  extproc('xmlCheckUTF8')
-     d                                     like(xmlCint)
+     d xmlCheckUTF8    pr            10i 0 extproc('xmlCheckUTF8')
      d  utf                            *   value options(*string)               const uns. char *
 
-     d xmlUTF8Strsize  pr                  extproc('xmlUTF8Strsize')
-     d                                     like(xmlCint)
+     d xmlUTF8Strsize  pr            10i 0 extproc('xmlUTF8Strsize')
      d  utf                            *   value options(*string)               const xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
      d xmlUTF8Strndup  pr              *   extproc('xmlUTF8Strndup')            xmlChar *
      d  utf                            *   value options(*string)               const xmlChar *
-     d  len                                value like(xmlCint)
+     d  len                          10i 0 value
 
      d xmlUTF8Strpos   pr              *   extproc('xmlUTF8Strpos')             const xmlChar *
      d  utf                            *   value options(*string)               const xmlChar *
-     d  pos                                value like(xmlCint)
+     d  pos                          10i 0 value
 
-     d xmlUTF8Strloc   pr                  extproc('xmlUTF8Strloc')
-     d                                     like(xmlCint)
+     d xmlUTF8Strloc   pr            10i 0 extproc('xmlUTF8Strloc')
      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  start                        10i 0 value
+     d  len                          10i 0 value
 
-     d xmlUTF8Strlen   pr                  extproc('xmlUTF8Strlen')
-     d                                     like(xmlCint)
+     d xmlUTF8Strlen   pr            10i 0 extproc('xmlUTF8Strlen')
      d  utf                            *   value options(*string)               const xmlChar *
 
-     d xmlUTF8Size     pr                  extproc('xmlUTF8Size')
-     d                                     like(xmlCint)
+     d xmlUTF8Size     pr            10i 0 extproc('xmlUTF8Size')
      d  utf                            *   value options(*string)               const xmlChar *
 
-     d xmlUTF8Charcmp  pr                  extproc('xmlUTF8Charcmp')
-     d                                     like(xmlCint)
+     d xmlUTF8Charcmp  pr            10i 0 extproc('xmlUTF8Charcmp')
      d  utf1                           *   value options(*string)               const xmlChar *
      d  utf2                           *   value options(*string)               const xmlChar *