shaba/libxml2
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/libxml2.git synced 2025-03-20 18:50:08 +03:00
Code

Remove os400 port

Browse Source 
This is based on an ancient version and completely outdated.
This commit is contained in:
Nick Wellnhofer 2025-02-25 23:10:46 +01:00
parent e60f0712ea
commit 552864f109
80 changed files with 1 additions and 33084 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.am
View File

@ -206,7 +206,7 @@ cleanup:
-@(find . -name \*.orig -o -name \*.rej -o -name \*.old -exec rm -f {} \;)
dist-hook: cleanup
(cd $(srcdir) ; tar -cf - --exclude .git win32 os400 test result) | (cd $(distdir); tar xf -)
(cd $(srcdir) ; tar -cf - --exclude .git win32 test result) | (cd $(distdir); tar xf -)
CLEANFILES = runsuite.log runxmlconf.log test.out *.gcda *.gcno *.res
DISTCLEANFILES = COPYING missing.lst

226
os400/README400
View File

@ -1,226 +0,0 @@
Implementation notes:
This is a true OS/400 implementation, not a PASE implementation (for PASE,
use an AIX implementation).
The biggest problem with OS/400 is EBCDIC. The current libxml2 implementation
uses UTF-8 internally. To ease encoding conversion between the calling
applications and libxml2, supplementary "convert and latch" functions are
provided (See below). To bind the EBCDIC OS/400 system calls and libxml2,
an ASCII run-time environment (QADRT) has been used and wrapper functions have
been designed.
Other problems are:
- Source code line length: to be stored in DB2 members, source files may not
have lines longer than 100 characters. Some header and documentation files
have been modified accordingly.
- va_list dereferencing: the OS/400 implementation of va_list type is an array
but the compiler forbids explicit array dereferencing. Source files have
been updated accordingly.
- Depending on the compilation/execution environment, it is possible that
stdin/stdout/stderr are not associated with a file descriptor; as a side
effect, open() may return a file descriptor value 0, 1 or 2 that is NOT
a C standard file. Thus using such a number may be inaccurate.
- iconv_open() arguments: OS/400 uses non-standard encoding names and does not
support standard names. For this reason, a name wrapper has been designed.
- dlopen() (support for xmodule): the function and its corollaries are not
provided by the OS/400 library. However a local implementation is provided.
Compiling on OS/400:
_ As a prerequisite, QADRT development environment must be installed.
_ Install the libxml2 source directory in IFS.
_ Enter shell (QSH)
_ Change current directory to the libxml2 installation directory
_ Change current directory to ./os400
_ Edit file iniscript.sh. You may want to change tunable configuration
parameters, like debug info generation, optimisation level, listing option,
target library, zlib availability, etc.
_ Copy any file in the current directory to makelog (i.e.:
cp initscript.sh makelog): this is intended to create the makelog file with
an ASCII CCSID!
_ Enter the command "sh make.sh >makelog 2>&1'
_ Examine the makelog file to check for compilation errors.
Leaving file initscript.sh unchanged, this will produce the following
OS/400 objects:
_ Library LIBXML2. All other objects will be stored in this library.
_ Modules for all libxml2 units, with full debug info and no code optimization.
_ Binding directory LIBXML2_A, to be used at calling program link time for
statically binding the modules (specify BNDSRVPGM(QADRTTS QGLDCLNT QGLDBRDR)
when creating a program using LIBXML2_A).
_ Service program LIBXML2. To be used at calling program run-time
when this program has dynamically bound libxml2 at link time.
_ Binding directory LIBXML2. To be used to dynamically bind libxml2 when
linking a calling program.
_ Source file LIBXML. It contains all the header members needed to compile a
C/C++ module using libxml2.
_ Standard and additional C/C++ libxml2 header members (possibly renamed) in
file LIBXML.
_ IFS directory /libxml2 with subdirectory include/libxml containing all
C/C++ header files for IFS-based compilation.
_ Source file LIBXMLRPG. It contains all the include members needed to compile a
ILE/RPG module/program using libxml2 (ILE/RPG binding).
_ ILE/RPG binding include members (possibly renamed) in file LIBXMLRPG.
_ IFS subdirectory /libxml2/include/libxmlrpg containing all ILE/RPG include
files for IFS-based compilation.
Renamed header files in DB2 members:
DB2 member names are limited to 10 characters, thus the following C/C++
header members are renamed as:
parserInternals.h --> PARSERINTE
schemasInternals.h --> SCHEMASINT
xmlautomata.h --> XMLAUTOMAT
xmlschemastype.h --> SCHMTYPES
xpathInternals.h --> XPATHINTER
IFS header files are NOT renamed.
ILE/RPG headers are processed likewise.
Special programming consideration:
QADRT being used, the following points must be considered:
_ If static binding is used, service program QADRTTS must be linked too.
_ The EBCDIC CCSID used by QADRT is 37 by default, NOT THE JOB'S CCSID. If
another EBCDIC CCSID is required, it must be set via a locale through a call
to setlocale_a (QADRT's setlocale() ASCII wrapper) with category LC_ALL or
LC_CTYPE, or by setting environment variable QADRT_ENV_LOCALE to the locale
object path before executing the program.
_ Always use *IFSIO or *IFS64IO to compile calling programs.
Supplementary (non libxml2 standard) support procedures for OS/400.
As cited above, there are some procedures to ease encoding conversion of
libxml2 function arguments and results: the mechanism is based on
dictionaries. The functions convert a string, latch the result in a dictionary
to ensure its persistence and return its address. It is the caller's
responsibility to clean the dictionary when it becomes too big or disappears.
The procedures are:
#include <libxml/transcode.h>
const char * xmlTranscodeResult(const xmlChar * s,
const char * encoding,
xmlDictPtr * dict,
void (*freeproc)(const void *));
const xmlChar * xmlTranscodeString(const char * s,
const char * encoding,
xmlDictPtr * dict);
const xmlChar * xmlTranscodeWString(const char * s,
const char * encoding,
xmlDictPtr * dict);
const xmlChar * xmlTranscodeWString(const char * s,
const char * encoding,
xmlDictPtr * dict);
where:
s is the string to translate.
encoding is the alternate character encoding. If null, the current job's
encoding (CCSID) is used.
dict is the address of the latching directory. If NULL, the procedure
functions as a simple non-latching encoding converter and
its result value should be freed by the caller.
freeproc is a procedure to release the original string, or NULL.
xmlTranscodeResult() converts from UTF-8 to the given alternate encoding.
xmlTranscodeString() converts from the given 8-bit encoding to UTF-8 (note that
UTF-8 itself is considered as a 8-bit encoding).
xmlTranscodeWString() converts from the given 16-bit encoding to UTF-8.
xmlTranscodeHString() converts from the given 32-bit encoding to UTF-8.
To shorten statements using these functions, shorthands are defined:
xmlTR for xmlTranscodeResult
xmlTS for xmlTranscodeString
xmlTW for xmlTranscodeWString
xmlTH for xmlTranscodeHstring
These shorthands may be disabled by defining XML_NO_SHORT_NAMES before
libxml/transcode.h inclusion.
A directory pointer must be preset to NULL before the first call using it to
one of the above procedure.
To release a latching directory, use function
void xmlZapDict(xmlDictPtr * dict);
Example:
#include <libxml/transcode.h>
#include <libxml/tree.h>
xmlDocPtr mySimpleXMLDoc(char * element, char * text)
{
xmlDocPtr doc;
xmlNodePtr node;
xmlDictPtr dict = NULL;
/* element and text are encoded in the current job's encoding. */
doc = xmlNewDoc();
xmlNewTextChild((xmlNodePtr) doc, NULL, xmlTS(element, NULL,
&dict), xmlTS(text, NULL, &dict));
xmlZapDict(&dict);
return doc;
}
Additionally, a formatter into latched/dynamic storage is provided:
const char * xmlVasprintf(xmlDictPtr * dict,
const char * encoding,
const xmlChar * fmt,
va_list args);
xmllint and xmlcatalog programs:
These programs are fully implemented at the qshell level, with standard
command line options. Links to these are installed in sub-directory bin of
the IFS installation directory.
CL command interfaces to these programs are also provided with limited
support. In particular, interactive mode is not supported and argument count
and lengths are limited by the CL command syntax.
ILE/RPG binding:
All standard types and procedures are provided. Since ILE/RPG does not
support macros, they have not been ported. However some of them are emulated
as functions: these are the more useful ones (xmlXPathNodeSetGetLength,
xmlXPathNodeSetItem, xmlXPathNodeSetIsEmpty, htmlDefaultSubelement,
htmlElementAllowedHereDesc, htmlRequiredAttrs) and the global/threaded
variables access macros. These variables can be read with function
get_xxx(void), where xxxx is the name of the variable; they may be set by
calling function set_xxxx(value), where value is of the same type as the
variable.
The C va_list is not implemented as such in ILE/RPG. Functions implementing
va_list and associated methods are provided:
/include "libxmlrpg/xmlstdarg"
d xmlVaStart pr
d list like(xmlVaList)
d lastargaddr * value
d lastargsize 10u 0 value
d xmlVaArg pr
d list like(xmlVaList)
d dest * value
d argsize 10i 0 value
d xmlVaEnd pr
d list like(xmlVaList)

1213
os400/dlfcn/dlfcn.c
View File

File diff suppressed because it is too large Load Diff

32
os400/dlfcn/dlfcn.h
View File

@ -1,32 +0,0 @@
/**
*** dlopen(), dlclose() dlsym(), dlerror() emulation for OS/400.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#ifndef _DLFCN_H_
#define _DLFCN_H_
/**
*** Flags for dlopen().
*** Ignored for OS400.
**/
#define RTLD_LAZY 000
#define RTLD_NOW 001
#define RTLD_GLOBAL 010
/**
*** Prototypes.
**/
extern void * dlopen(const char * filename, int flag);
extern void * dlsym(void * handle, const char * symbol);
extern const char * dlerror(void);
extern int dlclose(void * handle);
#endif

47
os400/iconv/README.iconv
View File

@ -1,47 +0,0 @@
IBM OS/400 implements iconv in an odd way:
- Type iconv_t is a structure: therefore objects of this type cannot be
compared to (iconv_t) -1.
- Supported character sets names are all of the form IBMCCSIDccsid..., where
ccsid is a decimal 5-digit integer identifying an IBM coded character set.
In addition, character set names have to be given in EBCDIC.
Standard character set names like "UTF-8" are NOT recognized.
- The prototype of iconv_open() does not declare parameters as const, although
they are not altered.
Since libiconv does not support EBCDIC, use of this package here as a
replacement is not a solution.
For these reasons, the code in this directory implements a wrapper to the
OS/400 iconv implementation. The wrapper performs the following transformations:
- Type iconv_t is an pointer. Although OS/400 pointers are odd, comparing
with (iconv_t) -1 is OK.
- All IANA character set names are recognized in a coding- and case-insensitive
way, providing an equivalent CCSID exists. see
http://www.iana.org/assignments/character-sets/character-sets.xhtml
- All CCSIDs from the association file can be expressed as IBMCCSIDxxxxx where
xxxxx is the 5 digit CCSID; no null terminator is required. Alternate codes
are of the form ibm-xxx (null-terminated), where xxx is the integer CCSID with
leading zeroes stripped.
- If a IANA BIBenum is defined for a CCSID, the name iana-xxx can be used,
where xxx is the integer MIBenum without leading zeroes.
- In addition, some aliases are also taken from the association file. Examples
are: ASCII, EBCDIC, UTF8.
- Prototype of iconv_open() has const parameters.
- Character code names can be given in any code.
Character set names to CCSID conversion.
- http://www.iana.org/assignments/character-sets/character-sets.xhtml provides
all IANA registered character set names and aliases associated with a
MIBenum, that is a unique character set identifier.
- A hand-maintained file ccsid_mibenum.xml associates IBM CCSIDs to
IANA MBenums.
- An OS/400 C program (in subdirectory bldcsndfa) generates a deterministic
finite automaton from the files mentioned above into a C file for all
possible character set name and associating each of them with its
corresponding CCSID. This program can only be run on OS/400 since it uses
the native iconv support for EBCDIC.
- Since these operations are tedious and the table generation needs bootstraping
with libxml2, the generated automaton is stored within sources and need not
be rebuilt at each compilation. However, source is provided here to allow
new table generation with conversion tables that were not available at the
time of original generation.

1953
os400/iconv/bldcsndfa/bldcsndfa.c
View File

File diff suppressed because it is too large Load Diff

15
os400/iconv/bldcsndfa/ccsid_mibenum.dtd
View File

@ -1,15 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<!--
--- DTD for CCSID/MIBEnum association documents.
---
--- See Copyright for the status of this software.
---
--- Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
-->
<!ELEMENT ccsid_mibenum (assoc)*>
<!ELEMENT assoc (alias)*>
<!ATTLIST assoc
ccsid CDATA #IMPLIED
mibenum CDATA #IMPLIED
>
<!ELEMENT alias (#PCDATA)>

270
os400/iconv/bldcsndfa/ccsid_mibenum.xml
View File

@ -1,270 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE ccsid_mibenum SYSTEM "ccsid_mibenum.dtd">
<!--
--- CCSID/MIBEnum associations.
---
--- See Copyright for the status of this software.
---
--- Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
-->
<ccsid_mibenum>
<assoc ccsid="0"><!-- Current job's CCSID. --></assoc>
<assoc ccsid="37" mibenum="2028"><!-- EBCDIC-US -->
<alias>EBCDIC</alias>
</assoc>
<assoc ccsid="256"><!-- Netherlands ? --></assoc>
<assoc ccsid="273" mibenum="2030"><!-- EBCDIC-DE --></assoc>
<assoc ccsid="277" mibenum="2033"><!-- EBCDIC-DK/NO --></assoc>
<assoc ccsid="278" mibenum="2034"><!-- EBCDIC-FI/SE --></assoc>
<assoc ccsid="280" mibenum="2035"><!-- EBCDIC-IT --></assoc>
<assoc ccsid="284" mibenum="2037"><!-- EBCDIC-ES --></assoc>
<assoc ccsid="285" mibenum="2038"><!-- EBCDIC-GB --></assoc>
<assoc ccsid="290" mibenum="2039"><!-- EBCDIC-JP-Kana --></assoc>
<assoc ccsid="297" mibenum="2040"><!-- EBCDIC-FR --></assoc>
<assoc ccsid="300"><!-- Japan English ? --></assoc>
<assoc ccsid="301"><!-- PC DATA Japanese --></assoc>
<assoc ccsid="367" mibenum="3"><!-- ANSI X3.4 ASCII -->
<alias>ASCII</alias>
</assoc>
<assoc ccsid="420" mibenum="2041"><!-- EBCDIC-Arab --></assoc>
<assoc ccsid="423" mibenum="2042"><!-- EBCDIC-GR --></assoc>
<assoc ccsid="424" mibenum="2043"><!-- EBCDIC-Hebrew --></assoc>
<assoc ccsid="437" mibenum="2011"><!-- 8-bit PC ASCII --></assoc>
<assoc ccsid="500" mibenum="2044"><!-- EBCDIC-BE/CH international latin 1 --></assoc>
<assoc ccsid="720"><!-- MSDOS Arabic ? --></assoc>
<assoc ccsid="737"><!-- MSDOS Greek PC DATA ? --></assoc>
<assoc ccsid="775" mibenum="2087"><!-- MSDOS Baltic PC DATA --></assoc>
<assoc ccsid="813" mibenum="10"><!-- ISO-8859-7 --></assoc>
<assoc ccsid="819" mibenum="4"><!-- ISO-8859-1 --></assoc>
<assoc ccsid="833"><!-- Korea (extended range) --></assoc>
<assoc ccsid="835"><!-- Korea host double byte --></assoc>
<assoc ccsid="836"><!-- Simplified chinese (extended range) --></assoc>
<assoc ccsid="837"><!-- Simplified chinese --></assoc>
<assoc ccsid="838" mibenum="2016"><!-- IBM-Thai --></assoc>
<assoc ccsid="850" mibenum="2009"><!-- PC DATA international latin 1 --></assoc>
<assoc ccsid="851" mibenum="2045"><!-- PC DATA greek --></assoc>
<assoc ccsid="852" mibenum="2010"><!-- PC DATA latin-2 multilingual --></assoc>
<assoc ccsid="855" mibenum="2046"><!-- PC DATA ROECE cyrillic --></assoc>
<assoc ccsid="857" mibenum="2047"><!-- PC DATA Turkey latin-5 --></assoc>
<assoc ccsid="858" mibenum="2089"><!-- PC-Multilingual-850+Euro --></assoc>
<assoc ccsid="860" mibenum="2048"><!-- PC DATA Portugal --></assoc>
<assoc ccsid="861" mibenum="2049"><!-- PC DATA Iceland --></assoc>
<assoc ccsid="862" mibenum="2013"><!-- PC DATA Hebrew --></assoc>
<assoc ccsid="863" mibenum="2050"><!-- PC DATA Canada --></assoc>
<assoc ccsid="864" mibenum="2051"><!-- PC DATA Arabic --></assoc>
<assoc ccsid="865" mibenum="2052"><!-- PC DATA DK/NO --></assoc>
<assoc ccsid="866" mibenum="2086"><!-- PC DATA cyrillic 2 --></assoc>
<assoc ccsid="868" mibenum="2053"><!-- PC DATA Urdu --></assoc>
<assoc ccsid="869" mibenum="2054"><!-- PC DATA greek (2?) --></assoc>
<assoc ccsid="870" mibenum="2055"><!-- EBCDIC-Latin2-Multilingual --></assoc>
<assoc ccsid="871" mibenum="2056"><!-- EBCDIC-IS --></assoc>
<assoc ccsid="874" mibenum="2259"><!-- TIS-620 -->
<alias>EUC-TH></alias>
<alias>eucTH</alias>
<alias>csEUCTH</alias>
</assoc>
<assoc ccsid="875"><!-- Greece --></assoc>
<assoc ccsid="878" mibenum="2084"><!-- KOI8-R --></assoc>
<assoc ccsid="880" mibenum="2057"><!-- EBCDIC-Cyrillic --></assoc>
<assoc ccsid="891" mibenum="2058"><!-- PC DATA corean (non-extended) --></assoc>
<assoc ccsid="896"><!-- Japan 7-bit Katakana --></assoc>
<assoc ccsid="897" mibenum="15"><!-- JIS_X0201 --></assoc>
<assoc ccsid="903" mibenum="2059"><!-- PC DATA simplified chinese (non-extended) --></assoc>
<assoc ccsid="904" mibenum="2060"><!-- PC DATA traditional chinese --></assoc>
<assoc ccsid="905" mibenum="2061"><!-- EBCDIC-TR latin 3 --></assoc>
<assoc ccsid="912" mibenum="5"><!-- ISO-8859-2 --></assoc>
<assoc ccsid="913" mibenum="6"><!-- ISO-8859-3 --></assoc>
<assoc ccsid="914" mibenum="7"><!-- ISO-8859-4 --></assoc>
<assoc ccsid="915" mibenum="8"><!-- ISO-8859-5 --></assoc>
<assoc ccsid="916" mibenum="11"><!-- ISO-8859-8 --></assoc>
<assoc ccsid="918" mibenum="2062"><!-- IBM918 --></assoc>
<assoc ccsid="920" mibenum="12"><!-- ISO-8859-9 --></assoc>
<assoc ccsid="921" mibenum="109"><!-- ISO-8859-13 --></assoc>
<assoc ccsid="922"><!-- Estonia, 8-bit --></assoc>
<assoc ccsid="923" mibenum="111"><!-- ISO-8859-15 --></assoc>
<assoc ccsid="924" mibenum="2090"><!-- EBCDIC-Latin9+Euro --></assoc>
<assoc ccsid="926"><!-- Korean PC DATA DBCS, UDC 1880 --></assoc>
<assoc ccsid="927"><!-- Traditional chinese PC DATA DBCS, UDC 6204 --></assoc>
<assoc ccsid="928"><!-- Simplified chinese PC DATA DBCS, UDC 1880 --></assoc>
<assoc ccsid="930"><!-- Japan Katakana (extended range) 4370 UDC (User Defined Characters) --></assoc>
<assoc ccsid="932"><!-- Japan PC DATA Mixed --></assoc>
<assoc ccsid="933"><!-- Korea (extended range), 1880 UDC --></assoc>
<assoc ccsid="934"><!-- Korean PC DATA --></assoc>
<assoc ccsid="935"><!-- Simplified Chinese (extended range) --></assoc>
<assoc ccsid="936"><!-- Simplified Chinese (non-extended) --></assoc>
<assoc ccsid="937"><!-- Traditional Chinese (extended range) --></assoc>
<assoc ccsid="938"><!-- Traditional Chinese (non-extended) --></assoc>
<assoc ccsid="939"><!-- Japan English (extended range) 4370 UDC --></assoc>
<assoc ccsid="942"><!-- Japanese PC DATA Mixed --></assoc>
<assoc ccsid="943" mibenum="17"><!-- Shift_JIS --></assoc>
<assoc ccsid="944"><!-- Korean PC DATA Mixed --></assoc>
<assoc ccsid="946"><!-- Simplified Chinese PC DATA Mixed --></assoc>
<assoc ccsid="947"><!-- Traditional Chinese PC DATA Mixed 6204 UDC (User Defined Characters) --></assoc>
<assoc ccsid="949"><!-- Republic of Korea National Standard Graphic Character Set (KS). PC DATA mixed-byte including 1800 UDC --></assoc>
<assoc ccsid="950"><!-- Traditional Chinese PC DATA Mixed for Big5 --></assoc>
<assoc ccsid="951"><!-- Republic of Korea National Standard Graphic Character Set (KS). PC DATA double-byte including 1800 UDC --></assoc>
<assoc ccsid="956"><!-- JIS X201 Roman for CP 00895; JIS X208-1983 for CP 00952 --></assoc>
<assoc ccsid="957"><!-- JIS X201 Roman for CP 00895; JIS X208-1978 for CP 00955 --></assoc>
<assoc ccsid="958"><!-- ASCII for CP 00367; JIS X208-1983 for CP 00952 --></assoc>
<assoc ccsid="959"><!-- ASCII for CP 00367; JIS X208-1978 for CP 00955 --></assoc>
<assoc ccsid="964"><!-- G0 - ASCII for CP 00367; G1-CNS 11643 plane 1 for CP 960 --></assoc>
<assoc ccsid="965"><!-- ASCII for CP 00367; CNS 11643 plane 1 for CP 960 --></assoc>
<assoc ccsid="970" mibenum="38"><!-- EUC-KR --></assoc>
<assoc ccsid="1008"><!-- Arabic 8-bit ISO/ASCII --></assoc>
<assoc ccsid="1009"><!-- IRV --></assoc>
<assoc ccsid="1010"><!-- France --></assoc>
<assoc ccsid="1011"><!-- Germany --></assoc>
<assoc ccsid="1012"><!-- Italy --></assoc>
<assoc ccsid="1013"><!-- United Kingdom --></assoc>
<assoc ccsid="1014"><!-- Spain --></assoc>
<assoc ccsid="1015"><!-- Portugal --></assoc>
<assoc ccsid="1016"><!-- Norway --></assoc>
<assoc ccsid="1017"><!-- Denmark --></assoc>
<assoc ccsid="1018"><!-- Finland and Sweden --></assoc>
<assoc ccsid="1019"><!-- Belgium and Netherlands --></assoc>
<assoc ccsid="1025"><!-- Cyrillic Multilingual --></assoc>
<assoc ccsid="1026" mibenum="2063"><!-- Turkey latin 5 CECP --></assoc>
<assoc ccsid="1027"><!-- Japan english (extended range) --></assoc>
<assoc ccsid="1040"><!-- Korean Latin PC DATA extended --></assoc>
<assoc ccsid="1041"><!-- Japanese PC DATA extended --></assoc>
<assoc ccsid="1042"><!-- Simplified Chinese PC DATA extended --></assoc>
<assoc ccsid="1043"><!-- Traditional Chinese PC DATA extended --></assoc>
<assoc ccsid="1046"><!-- PC DATA - Arabic Extended --></assoc>
<assoc ccsid="1047" mibenum="2102"><!-- Latin open sys EBCDIC --></assoc>
<assoc ccsid="1051" mibenum="2004"><!-- hp-roman8 --></assoc>
<assoc ccsid="1088"><!-- Korean PC DATA single-byte --></assoc>
<assoc ccsid="1089" mibenum="9"><!-- ISO 8859-6: Arabic --></assoc>
<assoc ccsid="1097"><!-- Farsi --></assoc>
<assoc ccsid="1098"><!-- Farsi (IBM-PC) --></assoc>
<assoc ccsid="1112"><!-- Baltic, Multilingual --></assoc>
<assoc ccsid="1114"><!-- Traditional Chinese, Taiwan Industry Graphic Character Set (Big5) --></assoc>
<assoc ccsid="1115"><!-- Simplified Chinese, People&#x27;s Republic of China National. Standard (GB), personal computer SBCS --></assoc>
<assoc ccsid="1122"><!-- Estonia --></assoc>
<assoc ccsid="1123"/>
<assoc ccsid="1129"><!-- ISO-8 Vietnamese --></assoc>
<assoc ccsid="1130"><!-- EBCDIC Vietnamese --></assoc>
<assoc ccsid="1132"><!-- EBCDIC Lao --></assoc>
<assoc ccsid="1133"><!-- ISO-8 Lao --></assoc>
<assoc ccsid="1137"/>
<assoc ccsid="1140" mibenum="2091"><!-- EBCDIC-US-37+Euro --></assoc>
<assoc ccsid="1141" mibenum="2092"><!-- EBCDIC-DE-273+Euro --></assoc>
<assoc ccsid="1142" mibenum="2093"><!-- EBCDIC-DK/NO-277+Euro --></assoc>
<assoc ccsid="1143" mibenum="2094"><!-- EBCDIC-FI/SE-278+Euro --></assoc>
<assoc ccsid="1144" mibenum="2095"><!-- EBCDIC-IT-280+Euro --></assoc>
<assoc ccsid="1145" mibenum="2096"><!-- EBCDIC-ES-284+Euro --></assoc>
<assoc ccsid="1146" mibenum="2097"><!-- EBCDIC-GB-285+Euro --></assoc>
<assoc ccsid="1147" mibenum="2098"><!-- EBCDIC-FR-297+Euro --></assoc>
<assoc ccsid="1148" mibenum="2099"><!-- EBCDIC-INT-500+Euro --></assoc>
<assoc ccsid="1149" mibenum="2100"><!-- EBCDIC-IS-871+Euro --></assoc>
<assoc ccsid="1153"/>
<assoc ccsid="1154"/>
<assoc ccsid="1155"/>
<assoc ccsid="1156"/>
<assoc ccsid="1157"/>
<assoc ccsid="1158"/>
<assoc ccsid="1160"/>
<assoc ccsid="1164"/>
<assoc ccsid="1201" mibenum="1013"><!-- UTF-16BE -->
<alias>UTF16-BE</alias>
<alias>UTF16BE</alias>
<alias>UTF-16-BE</alias>
</assoc>
<assoc ccsid="1203" mibenum="1014"><!-- UTF-16LE -->
<alias>UTF16-LE</alias>
<alias>UTF16LE</alias>
<alias>UTF-16-LE</alias>
</assoc>
<assoc ccsid="1208" mibenum="106"><!-- UTF-8 -->
<alias>UTF8</alias>
</assoc>
<assoc ccsid="1233" mibenum="1018"><!-- UTF-32BE -->
<alias>UTF32-BE</alias>
<alias>UTF32BE</alias>
<alias>UTF-32-BE</alias>
</assoc>
<assoc ccsid="1235" mibenum="1019"><!-- UTF-32LE -->
<alias>UTF32-LE</alias>
<alias>UTF32LE</alias>
<alias>UTF-32-LE</alias>
</assoc>
<assoc ccsid="1250" mibenum="2002"><!-- Windows Latin 2 --></assoc>
<assoc ccsid="1251"><!-- Windows Cyrillic --></assoc>
<assoc ccsid="1252" mibenum="2001"><!-- Windows Latin 1 --></assoc>
<assoc ccsid="1253"><!-- Windows Greek --></assoc>
<assoc ccsid="1254"><!-- Windows Turkish --></assoc>
<assoc ccsid="1255"><!-- Windows Hebrew --></assoc>
<assoc ccsid="1256"><!-- Windows Arabic --></assoc>
<assoc ccsid="1257"><!-- Windows Baltic Rim --></assoc>
<assoc ccsid="1258"><!-- Windows Vietnamese --></assoc>
<assoc ccsid="1275"><!-- Apple, Latin-1 --></assoc>
<assoc ccsid="1276" mibenum="2005"><!-- Adobe-Standard-Encoding --></assoc>
<assoc ccsid="1280"><!-- Apple, Greek --></assoc>
<assoc ccsid="1281"><!-- Apple, Turkey --></assoc>
<assoc ccsid="1282"><!-- Apple, Central European (Latin-2) --></assoc>
<assoc ccsid="1283"><!-- Apple, Cyrillic --></assoc>
<assoc ccsid="1363" mibenum="36"><!-- KS_C_5601-1987 -->
<alias>korean</alias>
</assoc>
<assoc ccsid="1364"/>
<assoc ccsid="1373"><!-- Windows-950 --></assoc>
<assoc ccsid="1375" mibenum="2101"><!-- Big5-HKSCS --></assoc>
<assoc ccsid="1380"><!-- Simplified Chinese DBCS PC --></assoc>
<assoc ccsid="1381"><!-- Simplified Chinese PC DATA Mixed --></assoc>
<assoc ccsid="1383" mibenum="2025"><!-- GB2312 -->
<alias>EUC-CN</alias>
</assoc>
<assoc ccsid="1386" mibenum="113"><!-- GBK --></assoc>
<assoc ccsid="1388"><!-- Simplified Chinese DBCS-Host DATA GBK mixed --></assoc>
<assoc ccsid="1392"><!-- S-ch PC Dara mixed GB18030 --></assoc>
<assoc ccsid="1399" />
<assoc ccsid="4396"><!-- Japanese Host DB including 1880 --></assoc>
<assoc ccsid="4948"><!-- Latin 2 PC DATA Multilingual --></assoc>
<assoc ccsid="4951"><!-- Cyrillic PC DATA Multilingual --></assoc>
<assoc ccsid="4952"><!-- Hebrew PC DATA --></assoc>
<assoc ccsid="4953"><!-- Turkey PC DATA Latin 5 --></assoc>
<assoc ccsid="4960"><!-- Arabic PC DATA --></assoc>
<assoc ccsid="4965"><!-- Greek PC DATA --></assoc>
<assoc ccsid="4971"/>
<assoc ccsid="5026"><!-- Japan Katakana (extended range) 1880 UDC --></assoc>
<assoc ccsid="5035"><!-- Japan English (extended range) 1880 UDC --></assoc>
<assoc ccsid="5050"><!-- G0 - JIS X201 Roman for CP 895; G1 JIS X208-1990 for CP 952 --></assoc>
<assoc ccsid="5052"><!-- JIS X201 Roman for CP 895; JIS X208-1983 for CP 952 --></assoc>
<assoc ccsid="5053"><!-- JIS X201 Roman for CP 895; JIS X208-1978 for CP 955 --></assoc>
<assoc ccsid="5054"><!-- ASCII for CP 367; JIS X208-1983 for CP 952 --></assoc>
<assoc ccsid="5055"><!-- ASCII for CP 367; JIS X208-1978 for CP 955 --></assoc>
<assoc ccsid="5354" mibenum="2258"><!-- windows-1258 --></assoc>
<assoc ccsid="5346" mibenum="2250"><!-- windows-1250 --></assoc>
<assoc ccsid="5347" mibenum="2251"><!-- windows-1251 --></assoc>
<assoc ccsid="5348" mibenum="2252"><!-- windows-1252 --></assoc>
<assoc ccsid="5349" mibenum="2253"><!-- windows-1253 --></assoc>
<assoc ccsid="5350" mibenum="2254"><!-- windows-1254 --></assoc>
<assoc ccsid="5123"/>
<assoc ccsid="5478" mibenum="57"><!-- GB_2312-80 -->
<alias>chinese</alias>
</assoc>
<assoc ccsid="8612"><!-- Arabic (base shapes only) --></assoc>
<assoc ccsid="9030"><!-- Thai Host Extended SBCS --></assoc>
<assoc ccsid="9056"><!-- PC DATA: Arabic PC Storage/Interchange --></assoc>
<assoc ccsid="9066"><!-- Thai PC DATA Extended SBCS --></assoc>
<assoc ccsid="9447" mibenum="2255"><!-- windows-1255 --></assoc>
<assoc ccsid="9448" mibenum="2256"><!-- windows-1256 --></assoc>
<assoc ccsid="9449" mibenum="2257"><!-- windows-1257 --></assoc>
<assoc ccsid="12708"/>
<assoc ccsid="13121"/>
<assoc ccsid="13124"/>
<assoc ccsid="13488" mibenum="1000"><!-- ISO-10646-UCS-2 -->
<alias>UCS-2</alias>
<alias>UCS2</alias>
</assoc>
<assoc ccsid="17354"><!-- G0 - ASCII for CP 00367; G1 -KSC X5601-1989 (including 188 UDCs) for --></assoc>
<assoc ccsid="25546"><!-- Korean 2022-KR TCP ASCII --></assoc>
<assoc ccsid="28709"><!-- Traditional Chinese (extended range) --></assoc>
<assoc ccsid="33722" mibenum="18"><!-- EUC-JP --></assoc>
<assoc ccsid="57345"><!-- All Japanese 2022 characters --></assoc>
<assoc ccsid="61952"><!-- AS/400 specific UCS level 2. --></assoc>
<assoc ccsid="62211"/>
<assoc ccsid="62224"/>
<assoc ccsid="62235"/>
<assoc ccsid="62245"/>
<assoc mibenum="27"><!-- ISO-10646-UTF-1 --></assoc>
</ccsid_mibenum>

3077
os400/iconv/bldcsndfa/character-sets.xhtml
View File

File diff suppressed because it is too large Load Diff

4609
os400/iconv/ianatables.c
View File

File diff suppressed because it is too large Load Diff

154
os400/iconv/iconv.c
View File

@ -1,154 +0,0 @@
/**
*** iconv_open(), iconv(), iconv_close() wrappers for the OS/400.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include "/QIBM/include/iconv.h" /* Force system definition. */
#define USE_SYSTEM_ICONV
#include "iconv.h" /* Use local definitions. */
/**
*** Bring-in the name-->CCSID mapping DFA tables.
**/
#include "ianatables.c"
static int
findEncoding(const unsigned char * * namep)
{
t_staterange curstate;
t_ccsid ccsid;
t_ccsid final;
t_transrange l;
t_transrange h;
const unsigned char * name;
/**
*** Get the CCSID correspong to the name at *`namep'.
*** If success, update pointer at `namep' to 1st byte after matched
*** name and return the CCSID.
*** If failure, set errno and return -1.
**/
if (!namep || !(name = *namep)) {
errno = EINVAL;
return -1;
}
curstate = 0;
final = 0;
for (;;) {
if (curstate < sizeof final_array / sizeof final_array[0])
if (final_array[curstate]) {
final = final_array[curstate];
*namep = name;
}
l = trans_array[curstate] - 1;
h = trans_array[curstate + 1];
do {
if (++l >= h) {
if (!final) {
errno = EINVAL;
return -1;
}
return final - 1;
}
} while (label_array[l] != *name);
curstate = goto_array[l];
name++;
}
/* NOTREACHED. */
}
static void
makeos400codename(char * buf, unsigned int ccsid)
{
ccsid &= 0xFFFF;
memset(buf, 0, 32);
sprintf(buf, "IBMCCSID%05u0000000", ccsid);
}
Iconv_t
IconvOpen(const char * tocode, const char * fromcode)
{
int toccsid = findEncoding(&tocode);
int fromccsid = findEncoding(&fromcode);
char fromibmccsid[33];
char toibmccsid[33];
iconv_t * cd;
if (toccsid < 0 || fromccsid < 0)
return (Iconv_t) -1;
makeos400codename(fromibmccsid, fromccsid);
makeos400codename(toibmccsid, toccsid);
memset(toibmccsid + 13, 0, sizeof toibmccsid - 13);
cd = (iconv_t *) malloc(sizeof *cd);
if (!cd)
return (Iconv_t) -1;
*cd = iconv_open(toibmccsid, fromibmccsid);
if (cd->return_value) {
free((char *) cd);
return (Iconv_t) -1;
}
return (Iconv_t) cd;
}
size_t
Iconv(Iconv_t cd, char * * inbuf, size_t * inbytesleft,
char * * outbuf, size_t * outbytesleft)
{
if (!cd || cd == (Iconv_t) -1) {
errno = EINVAL;
return (size_t) -1;
}
return iconv(*(iconv_t *) cd, inbuf, inbytesleft, outbuf, outbytesleft);
}
int
IconvClose(Iconv_t cd)
{
if (!cd || cd == (Iconv_t) -1) {
errno = EINVAL;
return -1;
}
if (iconv_close(*(iconv_t *) cd))
return -1;
free((char *) cd);
return 0;
}

40
os400/iconv/iconv.h
View File

@ -1,40 +0,0 @@
/**
*** Declarations for the iconv wrappers.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#ifndef __ICONV_H_
#define __ICONV_H_
#ifdef __cplusplus
extern "C" {
#endif
#include <stddef.h> /* For size_t. */
typedef void * Iconv_t;
Iconv_t IconvOpen(const char * tocode, const char * fromcode);
size_t Iconv(Iconv_t cd, char * * inbuf, size_t * inbytesleft,
char * * outbuf, size_t * outbytesleft);
int IconvClose(Iconv_t cd);
#ifndef USE_SYSTEM_ICONV
#define iconv_t Iconv_t
#define iconv_open IconvOpen
#define iconv Iconv
#define iconv_close IconvClose
#endif
#ifdef __cplusplus
}
#endif
#endif

315
os400/initscript.sh
View File

@ -1,315 +0,0 @@
#!/bin/sh
#
# Compilation scripts initialization for the OS/400 implementation.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
case "${SCRIPTDIR}" in
/*) ;;
*) SCRIPTDIR="`pwd`/${SCRIPTDIR}"
esac
while true
do case "${SCRIPTDIR}" in
*/.) SCRIPTDIR="${SCRIPTDIR%/.}";;
*) break;;
esac
done
# The script directory is supposed to be in $TOPDIR/os400.
TOPDIR=`dirname "${SCRIPTDIR}"`
export SCRIPTDIR TOPDIR
setenv()
{
# Define and export.
eval ${1}="${2}"
export ${1}
}
################################################################################
#
# Tunable configuration parameters.
#
################################################################################
setenv TARGETLIB 'LIBXML2' # Target OS/400 program library.
setenv STATBNDDIR 'LIBXML2_A' # Static binding directory.
setenv DYNBNDDIR 'LIBXML2' # Dynamic binding directory.
setenv SRVPGM "LIBXML2" # Service program.
setenv TGTCCSID '500' # Target CCSID of objects.
setenv DEBUG '*ALL' # Debug level.
setenv OPTIMIZE '10' # Optimisation level.
setenv OUTPUT '*NONE' # Compilation output option.
setenv TGTRLS 'V6R1M0' # Target OS release.
setenv IFSDIR '/libxml2' # Installation IFS directory.
################################################################################
#
# Conditional compilation parameters.
#
################################################################################
setenv WITH_TRIO 1 # Configure trio support.
setenv WITH_THREADS 1 # Configure thread support.
setenv WITH_THREAD_ALLOC 1 # Whether allocation hooks are per-thread.
setenv WITH_TREE 1 # Compile DOM tree API.
setenv WITH_OUTPUT 1 # Compile serialization/saving support.
setenv WITH_PUSH 1 # Compile push parser.
setenv WITH_READER 1 # Compile parsing interface.
setenv WITH_PATTERN 1 # Compile pattern node selection interface.
setenv WITH_WRITER 1 # Compile saving interface.
setenv WITH_SAX1 1 # Compile SAX version 1 interface.
setenv WITH_FTP 1 # Compile FTP support.
setenv WITH_HTTP 1 # Compile HTTP support.
setenv WITH_VALID 1 # Compile DTD validation support.
setenv WITH_HTML 1 # Compile HTML support.
setenv WITH_LEGACY 1 # Compile deprecated API.
setenv WITH_C14N 1 # Compile canonicalization support.
setenv WITH_CATALOG 1 # Compile catalog support.
setenv WITH_DOCB 1 # Compile SGML Docbook support.
setenv WITH_XPATH 1 # Compile XPath support.
setenv WITH_XPTR 1 # Compile XPointer support.
setenv WITH_XINCLUDE 1 # Compile XInclude support.
setenv WITH_ICONV 1 # Whether iconv support is available.
setenv WITH_ICU 0 # Whether icu support is available.
setenv WITH_ISO8859X 1 # Compile ISO-8859-* support if no iconv.
setenv WITH_DEBUG 1 # Compile debugging module.
setenv WITH_MEM_DEBUG 1 # Compile memory debugging module.
setenv WITH_RUN_DEBUG 1 # Compile runtime debugging.
setenv WITH_REGEXPS 1 # Compile regular expression interfaces.
setenv WITH_SCHEMAS 1 # Compile schema validation interface.
setenv WITH_SCHEMATRON 1 # Compile schematron validation interface.
setenv WITH_MODULES 1 # Compile module interfaces.
setenv WITH_ZLIB 0 # Whether zlib is available.
setenv WITH_LZMA 0 # Whether LZMA is available.
# Define ZLIB locations. This is ignored if WITH_ZLIB is 0.
setenv ZLIB_INCLUDE '/zlib/include' # ZLIB include IFS directory.
setenv ZLIB_LIB 'ZLIB' # ZLIB library.
setenv ZLIB_BNDDIR 'ZLIB_A' # ZLIB binding directory.
################################################################################
#
# OS/400 specific definitions.
#
################################################################################
setenv LIBIFSNAME "/QSYS.LIB/${TARGETLIB}.LIB"
setenv MODULE_EXTENSION '.SRVPGM'
################################################################################
#
# Extract version information.
#
################################################################################
# Transitional: get file name of configure script.
AUTOCONFSCRIPT="${TOPDIR}/configure.ac"
if [ ! -f "${AUTOCONFSCRIPT}" ]
then AUTOCONFSCRIPT="${TOPDIR}/configure.in"
fi
# Need to get the version definitions.
eval "`grep '^LIBXML_[A-Z]*_VERSION=' \"${AUTOCONFSCRIPT}\"`"
eval "`grep '^LIBXML_MICRO_VERSION_SUFFIX=' \"${AUTOCONFSCRIPT}\"`"
LIBXML_VERSION="${LIBXML_MAJOR_VERSION}.${LIBXML_MINOR_VERSION}"
LIBXML_VERSION="${LIBXML_VERSION}.${LIBXML_MICRO_VERSION}"
LIBXML_VERSION="${LIBXML_VERSION}${LIBXML_MICRO_VERSION_SUFFIX}"
LIBXML_VERSION_NUMBER=`expr "${LIBXML_MAJOR_VERSION}" \* 10000 + \
"${LIBXML_MINOR_VERSION}" \* 100 + \
"${LIBXML_MICRO_VERSION}"`
export LIBXML_MAJOR_VERSION LIBXML_MINOR_VERSION
export LIBXML_MICRO_VERSION LIBXML_MICROVERSION_SUFFIX
export LIBXML_VERSION LIBXML_VERSION_NUMBER
setenv LIBXML_VERSION_EXTRA ''
setenv VERSION "${LIBXML_VERSION}"
################################################################################
#
# Procedures.
#
################################################################################
# action_needed dest [src]
#
# dest is an object to build
# if specified, src is an object on which dest depends.
#
# exit 0 (succeeds) if some action has to be taken, else 1.
action_needed()
{
[ ! -e "${1}" ] && return 0
[ "${2}" ] || return 1
[ "${1}" -ot "${2}" ] && return 0
return 1
}
# make_module [option] module_name source_name
#
# Compile source name into ASCII module if needed.
# As side effect, append the module name to variable MODULES.
# Set LINK to "YES" if the module has been compiled.
# Options are:
# --define <additional definitions>
# --ebcdic
# --sysiconv
make_module()
{
DEFN=
EBCDIC=
SYSICONV=
while true
do case "${1}" in
--define)
DEFN="${2}"
shift
;;
--ebcdic)
EBCDIC=yes
;;
--sysiconv)
SYSICONV=yes
;;
*) break
esac
shift
done
MODULES="${MODULES} ${1}"
MODIFSNAME="${LIBIFSNAME}/${1}.MODULE"
action_needed "${MODIFSNAME}" "${2}" || return 0;
# #pragma convert has to be in the source file itself, i.e.
# putting it in an include file makes it only active
# for that include file.
# Thus we build a temporary file with the pragma prepended to
# the source file and we compile that temporary file.
rm -f __tmpsrcf.c
if [ -z "${EBCDIC}" ]
then echo "#line 1 \"${2}\"" >> __tmpsrcf.c
echo "#pragma convert(819)" >> __tmpsrcf.c
echo '#include "wrappers.h"' >> __tmpsrcf.c
fi
echo "#line 1 \"${2}\"" >> __tmpsrcf.c
cat "${2}" >> __tmpsrcf.c
CMD="CRTCMOD MODULE(${TARGETLIB}/${1}) SRCSTMF('__tmpsrcf.c')"
# CMD="${CMD} OPTION(*INCDIRFIRST *SHOWINC *SHOWSYS)"
CMD="${CMD} OPTION(*INCDIRFIRST) FLAG(10)"
CMD="${CMD} SYSIFCOPT(*IFS64IO) LANGLVL(*EXTENDED) LOCALETYPE(*LOCALE)"
CMD="${CMD} INCDIR("
if [ -z "${SYSICONV}" ]
then CMD="${CMD} '${TOPDIR}/os400/iconv'"
fi
if [ -z "${EBCDIC}" ]
then CMD="${CMD} '/qibm/proddata/qadrt/include'"
fi
CMD="${CMD} '${TOPDIR}/os400' '${TOPDIR}/os400/dlfcn'"
CMD="${CMD} '${IFSDIR}/include/libxml' '${IFSDIR}/include'"
if [ "${ZLIB_INCLUDE}" ]
then CMD="${CMD} '${ZLIB_INCLUDE}'"
fi
CMD="${CMD} '${TOPDIR}' ${INCLUDES})"
CMD="${CMD} TGTCCSID(${TGTCCSID}) TGTRLS(${TGTRLS})"
CMD="${CMD} OUTPUT(${OUTPUT})"
CMD="${CMD} OPTIMIZE(${OPTIMIZE})"
CMD="${CMD} DBGVIEW(${DEBUG})"
CMD="${CMD} DEFINE('_REENTRANT' 'TRIO_HAVE_CONFIG_H' 'NDEBUG' ${DEFN})"
system "${CMD}"
rm -f __tmpsrcf.c
LINK=YES
}
# Determine DB2 object name from IFS name.
db2_name()
{
if [ "${2}" = 'nomangle' ]
then basename "${1}" |
tr 'a-z-' 'A-Z_' |
sed -e 's/\..*//' \
-e 's/^\(..........\).*$/\1/'
else basename "${1}" |
tr 'a-z-' 'A-Z_' |
sed -e 's/\..*//' \
-e 's/^TEST/T/' \
-e 's/^XML/X/' \
-e 's/^\(.\).*\(.........\)$/\1\2/'
fi
}
# Copy IFS file replacing version & configuration info.
versioned_copy()
{
sed -e "s/@LIBXML_VERSION@/${LIBXML_VERSION}/g" \
\
-e "s#@LIBXML_MAJOR_VERSION@#${LIBXML_MAJOR_VERSION}#g" \
-e "s#@LIBXML_MINOR_VERSION@#${LIBXML_MINOR_VERSION}#g" \
-e "s#@LIBXML_MICRO_VERSION@#${LIBXML_MICRO_VERSION}#g" \
-e "s#@LIBXML_MICRO_VERSION_SUFFIX@#${LIBXML_MICRO_VERSION_SUFFIX}#g" \
-e "s#@LIBXML_VERSION@#${LIBXML_VERSION}#g" \
-e "s#@LIBXML_VERSION_NUMBER@#${LIBXML_VERSION_NUMBER}#g" \
-e "s#@LIBXML_VERSION_EXTRA@#${LIBXML_VERSION_EXTRA}#g" \
-e "s#@VERSION@#${VERSION}#g" \
-e "s#@WITH_TRIO@#${WITH_TRIO}#g" \
-e "s#@WITH_THREADS@#${WITH_THREADS}#g" \
-e "s#@WITH_THREAD_ALLOC@#${WITH_THREAD_ALLOC}#g" \
-e "s#@WITH_TREE@#${WITH_TREE}#g" \
-e "s#@WITH_OUTPUT@#${WITH_OUTPUT}#g" \
-e "s#@WITH_PUSH@#${WITH_PUSH}#g" \
-e "s#@WITH_READER@#${WITH_READER}#g" \
-e "s#@WITH_PATTERN@#${WITH_PATTERN}#g" \
-e "s#@WITH_WRITER@#${WITH_WRITER}#g" \
-e "s#@WITH_SAX1@#${WITH_SAX1}#g" \
-e "s#@WITH_FTP@#${WITH_FTP}#g" \
-e "s#@WITH_HTTP@#${WITH_HTTP}#g" \
-e "s#@WITH_VALID@#${WITH_VALID}#g" \
-e "s#@WITH_HTML@#${WITH_HTML}#g" \
-e "s#@WITH_LEGACY@#${WITH_LEGACY}#g" \
-e "s#@WITH_C14N@#${WITH_C14N}#g" \
-e "s#@WITH_CATALOG@#${WITH_CATALOG}#g" \
-e "s#@WITH_DOCB@#${WITH_DOCB}#g" \
-e "s#@WITH_XPATH@#${WITH_XPATH}#g" \
-e "s#@WITH_XPTR@#${WITH_XPTR}#g" \
-e "s#@WITH_XINCLUDE@#${WITH_XINCLUDE}#g" \
-e "s#@WITH_ICONV@#${WITH_ICONV}#g" \
-e "s#@WITH_ICU@#${WITH_ICU}#g" \
-e "s#@WITH_ISO8859X@#${WITH_ISO8859X}#g" \
-e "s#@WITH_DEBUG@#${WITH_DEBUG}#g" \
-e "s#@WITH_MEM_DEBUG@#${WITH_MEM_DEBUG}#g" \
-e "s#@WITH_RUN_DEBUG@#${WITH_RUN_DEBUG}#g" \
-e "s#@WITH_REGEXPS@#${WITH_REGEXPS}#g" \
-e "s#@WITH_SCHEMAS@#${WITH_SCHEMAS}#g" \
-e "s#@WITH_SCHEMATRON@#${WITH_SCHEMATRON}#g" \
-e "s#@WITH_MODULES@#${WITH_MODULES}#g" \
-e "s#@WITH_ZLIB@#${WITH_ZLIB}#g" \
-e "s#@WITH_LZMA@#${WITH_LZMA}#g"
}

102
os400/libxmlmain.c
View File

@ -1,102 +0,0 @@
/**
*** QADRT/QADRTMAIN2 substitution program.
*** This is needed because the IBM-provided QADRTMAIN2 does not
*** properly translate arguments by default or if no locale is provided.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <stdlib.h>
#include <string.h>
#include <iconv.h>
#include <errno.h>
#include <locale.h>
/* Do not use qadrt.h since it defines unneeded static procedures. */
extern void QadrtInit(void);
extern int QadrtFreeConversionTable(void);
extern int QadrtFreeEnviron(void);
extern char * setlocale_a(int, const char *);
/* The ASCII main program. */
extern int main_a(int argc, char * * argv);
/* Global values of original EBCDIC arguments. */
int ebcdic_argc;
char * * ebcdic_argv;
int
main(int argc, char * * argv)
{
int i;
int j;
iconv_t cd;
size_t bytecount = 0;
char * inbuf;
char * outbuf;
size_t inbytesleft;
size_t outbytesleft;
char dummybuf[128];
char tocode[32];
char fromcode[32];
ebcdic_argc = argc;
ebcdic_argv = argv;
/* Build the encoding converter. */
strncpy(tocode, "IBMCCSID01208", sizeof tocode);
strncpy(fromcode, "IBMCCSID000000000010", sizeof fromcode);
cd = iconv_open(tocode, fromcode);
/* Measure the arguments. */
for (i = 0; i < argc; i++) {
inbuf = argv[i];
do {
inbytesleft = 0;
outbuf = dummybuf;
outbytesleft = sizeof dummybuf;
j = iconv(cd,
&inbuf, &inbytesleft, &outbuf, &outbytesleft);
bytecount += outbuf - dummybuf;
} while (j == -1 && errno == E2BIG);
/* Reset the shift state. */
iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
}
/* Allocate memory for the ASCII arguments and vector. */
argv = (char * *) malloc((argc + 1) * sizeof *argv + bytecount);
/* Build the vector and convert argument encoding. */
outbuf = (char *) (argv + argc + 1);
outbytesleft = bytecount;
for (i = 0; i < argc; i++) {
argv[i] = outbuf;
inbuf = ebcdic_argv[i];
inbytesleft = 0;
iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);
iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
}
iconv_close(cd);
argv[argc] = NULL;
/* Try setting the locale regardless of QADRT_ENV_LOCALE. */
setlocale_a(LC_ALL, "");
/* Call the program. */
i = main_a(argc, argv);
/* Clean-up allocated items. */
free((char *) argv);
QadrtFreeConversionTable();
QadrtFreeEnviron();
/* Terminate. */
return i;
}

120
os400/libxmlrpg/DOCBparser.rpgle
View File

@ -1,120 +0,0 @@
* Summary: old DocBook SGML parser
* Description: interface for a DocBook SGML non-verifying parser
* This code is DEPRECATED, and should not be used anymore.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(DOCB_PARSER_H__)
/define DOCB_PARSER_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_DOCB_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/parser"
/include "libxmlrpg/parserInternals"
* Most of the back-end structures from XML and SGML are shared.
d docbParserCtxtPtr...
d s based(######typedef######)
d like(xmlParserCtxtPtr)
d docbParserCtxt ds based(docbParserCtxtPtr)
d likeds(xmlParserCtxt)
d docbSAXHandlerPtr...
d s based(######typedef######)
d like(xmlSAXHandlerPtr)
d docbSAXHandler ds based(docbSAXHandlerPtr)
d likeds(xmlSAXHandler)
d docbParserInputPtr...
d s based(######typedef######)
d like(xmlParserInputPtr)
d docbParserInput...
d ds based(docbParserInputPtr)
d likeds(xmlParserInput)
d docbDocPtr s based(######typedef######)
d like(xmlDocPtr)
* There is only few public functions.
d docbEncodeEntities...
d pr extproc('docbEncodeEntities')
d like(xmlCint)
d out * value options(*string) unsigned char *
d outlen * value int *
d in * value options(*string) const unsigned char
d *
d inlen * value int *
d quoteChar value like(xmlCint)
d docbSAXParseDoc...
d pr extproc('docbSAXParseDoc')
d like(docbDocPtr)
d cur * value options(*string) xmlChar *
d encoding * value options(*string) const char *
d sax value like(docbSAXHandlerPtr)
d userData * value void *
d docbParseDoc pr extproc('docbParseDoc')
d like(docbDocPtr)
d cur * value options(*string) xmlChar *
d encoding * value options(*string) const char *
d docbSAXParseFile...
d pr extproc('docbSAXParseFile')
d like(docbDocPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d sax value like(docbSAXHandlerPtr)
d userData * value void *
d docbParseFile pr extproc('docbParseFile')
d like(docbDocPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
* Interfaces for the Push mode.
d docbFreeParserCtxt...
d pr extproc('docbFreeParserCtxt')
d ctxt value like(docbParserCtxtPtr)
d docbCreatePushParserCtxt...
d pr extproc('docbCreatePushParserCtxt')
d like(docbParserCtxtPtr)
d sax value like(docbSAXHandlerPtr)
d user_data * value void *
d chunk * value options(*string) const char *
d size value like(xmlCint)
d filename * value options(*string) const char *
d enc value like(xmlCharEncoding)
d docbParseChunk pr extproc('docbParseChunk')
d like(xmlCint)
d ctxt value like(docbParserCtxtPtr)
d chunk * value options(*string) const char *
d size value like(xmlCint)
d terminate value like(xmlCint)
d docbCreateFileParserCtxt...
d pr extproc('docbCreateFileParserCtxt')
d like(docbParserCtxtPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d docbParseDocument...
d pr extproc('docbParseDocument')
d like(xmlCint)
d ctxt value like(docbParserCtxtPtr)
/endif LIBXML_DOCB_ENABLED
/endif DOCB_PARSER_H__

419
os400/libxmlrpg/HTMLparser.rpgle
View File

@ -1,419 +0,0 @@
* Summary: interface for an HTML 4.0 non-verifying parser
* Description: this module implements an HTML 4.0 non-verifying parser
* with API compatible with the XML parser ones. It should
* be able to parse "real world" HTML, even if severely
* broken from a specification point of view.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(HTML_PARSER_H__)
/define HTML_PARSER_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_HTML_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/parser"
* Most of the back-end structures from XML and HTML are shared.
d htmlParserCtxtPtr...
d s based(######typedef######)
d like(xmlParserCtxtPtr)
d htmlParserCtxt ds based(htmlParserCtxtPtr)
d likeds(xmlParserCtxt)
d htmlParserNodeInfoPtr...
d s based(######typedef######)
d like(xmlParserNodeInfoPtr)
d htmlParserNodeInfo...
d ds based(htmlParserNodeInfoPtr)
d likeds(xmlParserNodeInfo)
d htmlSAXHandlerPtr...
d s based(######typedef######)
d like(xmlSAXHandlerPtr)
d htmlSAXHandler ds based(htmlSAXHandlerPtr)
d likeds(xmlSAXHandler)
d htmlParserInputPtr...
d s based(######typedef######)
d like(xmlParserInputPtr)
d htmlParserInput...
d ds based(htmlParserInputPtr)
d likeds(xmlParserInput)
d htmlDocPtr s based(######typedef######)
d like(xmlDocPtr)
d htmlNodePtr s based(######typedef######)
d like(xmlNodePtr)
* Internal description of an HTML element, representing HTML 4.01
* and XHTML 1.0 (which share the same structure).
d htmlElemDescPtr...
d s * based(######typedef######)
d htmlElemDesc ds based(htmlElemDescPtr)
d align qualified
d name * const char *
d startTag like(xmlCchar) Start tag implied ?
d endTag like(xmlCchar) End tag implied ?
d saveEndTag like(xmlCchar) Save end tag ?
d empty like(xmlCchar) Empty element ?
d depr like(xmlCchar) Deprecated element ?
d dtd like(xmlCchar) Loose DTD/Frameset
d isinline like(xmlCchar) Block 0/inline elem?
d desc * const char *
*
* New fields encapsulating HTML structure
*
* Bugs:
* This is a very limited representation. It fails to tell us when
* an element *requires* subelements (we only have whether they're
* allowed or not), and it doesn't tell us where CDATA and PCDATA
* are allowed. Some element relationships are not fully represented:
* these are flagged with the word MODIFIER
*
d subelts * const char * *
d defaultsubelt * const char *
d attrs_opt * const char * *
d attrs_depr * const char * *
d attrs_req * const char * *
* Internal description of an HTML entity.
d htmlEntityDescPtr...
d s * based(######typedef######)
d htmlEntityDesc...
d ds based(htmlEntityDescPtr)
d align qualified
d value like(xmlCuint)
d name * const char *
d desc * const char *
* There is only few public functions.
d htmlTagLookup pr extproc('htmlTagLookup')
d like(htmlElemDescPtr) const
d tag * value options(*string) const xmlChar *
d htmlEntityLookup...
d pr extproc('htmlEntityLookup')
d like(htmlEntityDescPtr) const
d name * value options(*string) const xmlChar *
d htmlEntityValueLookup...
d pr extproc('htmlEntityValueLookup')
d like(htmlEntityDescPtr) const
d value value like(xmlCuint)
d htmlIsAutoClosed...
d pr extproc('htmlIsAutoClosed')
d like(xmlCint)
d doc value like(htmlDocPtr)
d elem value like(htmlNodePtr)
d htmlAutoCloseTag...
d pr extproc('htmlAutoCloseTag')
d like(xmlCint)
d doc value like(htmlDocPtr)
d name * value options(*string) const xmlChar *
d elem value like(htmlNodePtr)
d htmlParseEntityRef...
d pr extproc('htmlParseEntityRef')
d like(htmlEntityDescPtr) const
d ctxt value like(htmlParserCtxtPtr)
d str * const xmlChar *(*)
d htmlParseCharRef...
d pr extproc('htmlParseCharRef')
d like(xmlCint)
d ctxt value like(htmlParserCtxtPtr)
d htmlParseElement...
d pr extproc('htmlParseElement')
d ctxt value like(htmlParserCtxtPtr)
d htmlNewParserCtxt...
d pr extproc('htmlNewParserCtxt')
d like(htmlParserCtxtPtr)
d htmlCreateMemoryParserCtxt...
d pr extproc('htmlCreateMemoryParserCtxt')
d like(htmlParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d htmlParseDocument...
d pr extproc('htmlParseDocument')
d like(xmlCint)
d ctxt value like(htmlParserCtxtPtr)
d htmlSAXParseDoc...
d pr extproc('htmlSAXParseDoc')
d like(htmlDocPtr)
d cur * value options(*string) xmlChar *
d encoding * value options(*string) const char *
d sax value like(htmlSAXHandlerPtr)
d userData * value void *
d htmlParseDoc pr extproc('htmlParseDoc')
d like(htmlDocPtr)
d cur * value options(*string) xmlChar *
d encoding * value options(*string) const char *
d htmlSAXParseFile...
d pr extproc('htmlSAXParseFile')
d like(htmlDocPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d sax value like(htmlSAXHandlerPtr)
d userData * value void *
d htmlParseFile pr extproc('htmlParseFile')
d like(htmlDocPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d UTF8ToHtml pr extproc('UTF8ToHtml')
d like(xmlCint)
d out 65535 options(*varsize) unsigned char []
d outlen like(xmlCint)
d in * value options(*string) const unsigned char*
d inlen like(xmlCint)
d htmlEncodeEntities...
d pr extproc('htmlEncodeEntities')
d like(xmlCint)
d out 65535 options(*varsize) unsigned char []
d outlen like(xmlCint)
d in * value options(*string) const unsigned char*
d inlen like(xmlCint)
d quoteChar value like(xmlCint)
d htmlIsScriptAttribute...
d pr extproc('htmlIsScriptAttribute')
d like(xmlCint)
d name * value options(*string) const xmlChar *
d htmlHandleOmittedElem...
d pr extproc('htmlHandleOmittedElem')
d like(xmlCint)
d val value like(xmlCint)
/if defined(LIBXML_PUSH_ENABLED)
* Interfaces for the Push mode.
d htmlCreatePushParserCtxt...
d pr extproc('htmlCreatePushParserCtxt')
d like(htmlParserCtxtPtr)
d sax value like(htmlSAXHandlerPtr)
d user_data * value void *
d chunk * value options(*string) const char *
d size value like(xmlCint)
d filename * value options(*string) const char *
d enc value like(xmlCharEncoding)
d htmlParseChunk pr extproc('htmlParseChunk')
d like(xmlCint)
d ctxt value like(htmlParserCtxtPtr)
d chunk * value options(*string) const char *
d size value like(xmlCint)
d terminate value like(xmlCint)
/endif LIBXML_PUSH_ENABLED
d htmlFreeParserCtxt...
d pr extproc('htmlFreeParserCtxt')
d ctxt value like(htmlParserCtxtPtr)
* New set of simpler/more flexible APIs
* xmlParserOption:
*
* This is the set of XML parser options that can be passed down
* to the xmlReadDoc() and similar calls.
d htmlParserOption...
d s based(######typedef######)
d like(xmlCenum)
d HTML_PARSE_RECOVER... Relaxed parsing
d c X'00000001'
d HTML_PARSE_NODEFDTD... No default doctype
d c X'00000004'
d HTML_PARSE_NOERROR... No error reports
d c X'00000020'
d HTML_PARSE_NOWARNING... No warning reports
d c X'00000040'
d HTML_PARSE_PEDANTIC... Pedantic err reports
d c X'00000080'
d HTML_PARSE_NOBLANKS... Remove blank nodes
d c X'00000100'
d HTML_PARSE_NONET... Forbid net access
d c X'00000800'
d HTML_PARSE_NOIMPLIED... No implied html/body
d c X'00002000'
d HTML_PARSE_COMPACT... compact small txtnod
d c X'00010000'
d HTML_PARSE_IGNORE_ENC... Ignore encoding hint
d c X'00200000'
d htmlCtxtReset pr extproc('htmlCtxtReset')
d ctxt value like(htmlParserCtxtPtr)
d htmlCtxtUseOptions...
d pr extproc('htmlCtxtUseOptions')
d like(xmlCint)
d ctxt value like(htmlParserCtxtPtr)
d options value like(xmlCint)
d htmlReadDoc pr extproc('htmlReadDoc')
d like(htmlDocPtr)
d cur * value options(*string) const xmlChar *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlReadFile pr extproc('htmlReadFile')
d like(htmlDocPtr)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlReadMemory pr extproc('htmlReadMemory')
d like(htmlDocPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlReadFd pr extproc('htmlReadFd')
d like(htmlDocPtr)
d fd value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlReadIO pr extproc('htmlReadIO')
d like(htmlDocPtr)
d ioread value like(xmlInputReadCallback)
d ioclose value like(xmlInputCloseCallback)
d ioctx * value void *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlCtxtReadDoc...
d pr extproc('htmlCtxtReadDoc')
d like(htmlDocPtr)
d ctxt value like(xmlParserCtxtPtr)
d cur * value options(*string) const xmlChar *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlCtxtReadFile...
d pr extproc('htmlCtxtReadFile')
d like(htmlDocPtr)
d ctxt value like(xmlParserCtxtPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlCtxtReadMemory...
d pr extproc('htmlCtxtReadMemory')
d like(htmlDocPtr)
d ctxt value like(xmlParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlCtxtReadFd pr extproc('htmlCtxtReadFd')
d like(htmlDocPtr)
d ctxt value like(xmlParserCtxtPtr)
d fd value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d htmlCtxtReadIO pr extproc('htmlCtxtReadIO')
d like(htmlDocPtr)
d ctxt value like(xmlParserCtxtPtr)
d ioread value like(xmlInputReadCallback)
d ioclose value like(xmlInputCloseCallback)
d ioctx * value void *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
* Further knowledge of HTML structure
d htmlStatus s based(######typedef######)
d like(xmlCenum)
d HTML_NA c X'0000' No check at all
d HTML_INVALID c X'0001'
d HTML_DEPRECATED...
d c X'0002'
d HTML_VALID c X'0004'
d HTML_REQUIRED c X'000C' HTML_VALID ored-in
* Using htmlElemDesc rather than name here, to emphasise the fact
* that otherwise there's a lookup overhead
d htmlAttrAllowed...
d pr extproc('htmlAttrAllowed')
d like(htmlStatus)
d #param1 value like(htmlElemDescPtr) const
d #param2 * value options(*string) const xmlChar *
d #param3 value like(xmlCint)
d htmlElementAllowedHere...
d pr extproc('htmlElementAllowedHere')
d like(xmlCint)
d #param1 value like(htmlElemDescPtr) const
d #param2 * value options(*string) const xmlChar *
d htmlElementStatusHere...
d pr extproc('htmlElementStatusHere')
d like(htmlStatus)
d #param1 value like(htmlElemDescPtr) const
d #param2 value like(htmlElemDescPtr) const
d htmlNodeStatus pr extproc('htmlNodeStatus')
d like(htmlStatus)
d #param1 value like(htmlNodePtr)
d #param2 value like(xmlCint)
* C macros implemented as procedures for ILE/RPG support.
d htmlDefaultSubelement...
d pr * extproc('__htmlDefaultSubelement') const char *
d elt * value const htmlElemDesc *
d htmlElementAllowedHereDesc...
d pr extproc(
d '__htmlElementAllowedHereDesc')
d like(xmlCint)
d parent * value const htmlElemDesc *
d elt * value const htmlElemDesc *
d htmlRequiredAttrs...
d pr * extproc('__htmlRequiredAttrs') const char * *
d elt * value const htmlElemDesc *
/endif LIBXML_HTML_ENABLED
/endif HTML_PARSER_H__

176
os400/libxmlrpg/HTMLtree.rpgle
View File

@ -1,176 +0,0 @@
* Summary: specific APIs to process HTML tree, especially serialization
* Description: this module implements a few function needed to process
* tree in an HTML specific way.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(HTML_TREE_H__)
/define HTML_TREE_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_HTML_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/HTMLparser"
* HTML_TEXT_NODE:
*
* Macro. A text node in a HTML document is really implemented
* the same way as a text node in an XML document.
d HTML_TEXT_NODE c 3
* HTML_ENTITY_REF_NODE:
*
* Macro. An entity reference in a HTML document is really implemented
* the same way as an entity reference in an XML document.
d HTML_ENTITY_REF_NODE...
d c 5
* HTML_COMMENT_NODE:
*
* Macro. A comment in a HTML document is really implemented
* the same way as a comment in an XML document.
d HTML_COMMENT_NODE...
d c 8
* HTML_PRESERVE_NODE:
*
* Macro. A preserved node in a HTML document is really implemented
* the same way as a CDATA section in an XML document.
d HTML_PRESERVE_NODE...
d c 4
* HTML_PI_NODE:
*
* Macro. A processing instruction in a HTML document is really implemented
* the same way as a processing instruction in an XML document.
d HTML_PI_NODE c 7
d htmlNewDoc pr extproc('htmlNewDoc')
d like(htmlDocPtr)
d URI * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d htmlNewDocNoDtD...
d pr extproc('htmlNewDocNoDtD')
d like(htmlDocPtr)
d URI * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d htmlGetMetaEncoding...
d pr * extproc('htmlGetMetaEncoding') const xmlChar *
d doc value like(htmlDocPtr)
d htmlSetMetaEncoding...
d pr extproc('htmlSetMetaEncoding')
d like(xmlCint)
d doc value like(htmlDocPtr)
d encoding * value options(*string) const xmlChar *
/if defined(LIBXML_OUTPUT_ENABLED)
d htmlDocDumpMemory...
d pr extproc('htmlDocDumpMemory')
d cur value like(xmlDocPtr)
d mem * value xmlChar * *
d size like(xmlCint)
d htmlDocDumpMemoryFormat...
d pr extproc('htmlDocDumpMemoryFormat')
d cur value like(xmlDocPtr)
d mem * value xmlChar * *
d size like(xmlCint)
d format value like(xmlCint)
d htmlDocDump pr extproc('htmlDocDump')
d like(xmlCint)
d f * value FILE *
d cur value like(xmlDocPtr)
d htmlSaveFile pr extproc('htmlSaveFile')
d like(xmlCint)
d filename * value options(*string) const char *
d cur value like(xmlDocPtr)
d htmlNodeDump pr extproc('htmlNodeDump')
d like(xmlCint)
d buf value like(xmlBufferPtr)
d doc value like(xmlDocPtr)
d cur value like(xmlNodePtr)
d htmlNodeDumpFile...
d pr extproc('htmlNodeDumpFile')
d out * value FILE *
d doc value like(xmlDocPtr)
d cur value like(xmlNodePtr)
d htmlNodeDumpFileFormat...
d pr extproc('htmlNodeDumpFileFormat')
d like(xmlCint)
d out * value FILE *
d doc value like(xmlDocPtr)
d cur value like(xmlNodePtr)
d encoding * value options(*string) const char *
d format value like(xmlCint)
d htmlSaveFileEnc...
d pr extproc('htmlSaveFileEnc')
d like(xmlCint)
d filename * value options(*string) const char *
d cur value like(xmlDocPtr)
d encoding * value options(*string) const char *
d htmlSaveFileFormat...
d pr extproc('htmlSaveFileFormat')
d like(xmlCint)
d filename * value options(*string) const char *
d cur value like(xmlDocPtr)
d encoding * value options(*string) const char *
d format value like(xmlCint)
d htmlNodeDumpFormatOutput...
d pr extproc('htmlNodeDumpFormatOutput')
d buf value like(xmlOutputBufferPtr)
d doc value like(xmlDocPtr)
d cur value like(xmlNodePtr)
d encoding * value options(*string) const char *
d format value like(xmlCint)
d htmlDocContentDumpOutput...
d pr extproc('htmlDocContentDumpOutput')
d buf value like(xmlOutputBufferPtr)
d cur value like(xmlDocPtr)
d encoding * value options(*string) const char *
d htmlDocContentDumpFormatOutput...
d pr extproc(
d 'htmlDocContentDumpFormatOutput')
d buf value like(xmlOutputBufferPtr)
d cur value like(xmlDocPtr)
d encoding * value options(*string) const char *
d format value like(xmlCint)
d htmlNodeDumpOutput...
d pr extproc('htmlNodeDumpOutput')
d buf value like(xmlOutputBufferPtr)
d doc value like(xmlDocPtr)
d cur value like(xmlNodePtr)
d encoding * value options(*string) const char *
/endif LIBXML_OUTPUT_ENABLD
d htmlIsBooleanAttr...
d pr extproc('htmlIsBooleanAttr')
d like(xmlCint)
d name * value options(*string) const xmlChar *
/endif LIBXML_HTML_ENABLED
/endif HTML_TREE_H__

213
os400/libxmlrpg/SAX.rpgle
View File

@ -1,213 +0,0 @@
* Summary: Old SAX version 1 handler, deprecated
* Description: DEPRECATED set of SAX version 1 interfaces used to
* build the DOM tree.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_SAX_H__)
/define XML_SAX_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/parser"
/include "libxmlrpg/xlink"
/if defined(LIBXML_LEGACY_ENABLED)
d getPublicId pr * extproc('getPublicId') const xmlChar *
d ctx * value void *
d getSystemId pr * extproc('getSystemId') const xmlChar *
d ctx * value void *
d setDocumentLocator...
d pr extproc('setDocumentLocator')
d ctx * value void *
d loc value like(xmlSAXLocatorPtr)
d getLineNumber pr extproc('getLineNumber')
d like(xmlCint)
d ctx * value void *
d getColumnNumber...
d pr extproc('getColumnNumber')
d like(xmlCint)
d ctx * value void *
d isStandalone pr extproc('isStandalone')
d like(xmlCint)
d ctx * value void *
d hasInternalSubset...
d pr extproc('hasInternalSubset')
d like(xmlCint)
d ctx * value void *
d hasExternalSubset...
d pr extproc('hasExternalSubset')
d like(xmlCint)
d ctx * value void *
d internalSubset pr extproc('internalSubset')
d ctx * value void *
d name * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d externalSubset pr extproc('externalSubset')
d ctx * value void *
d name * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d getEntity pr extproc('getEntity')
d like(xmlEntityPtr)
d ctx * value void *
d name * value options(*string) const xmlChar *
d getParameterEntity...
d pr extproc('getParameterEntity')
d like(xmlEntityPtr)
d ctx * value void *
d name * value options(*string) const xmlChar *
d resolveEntity pr extproc('resolveEntity')
d like(xmlParserInputPtr)
d ctx * value void *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d entityDecl pr extproc('entityDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d content * value options(*string) xmlChar *
d attributeDecl pr extproc('attributeDecl')
d ctx * value void *
d elem * value options(*string) const xmlChar *
d fullname * value options(*string) const xmlChar *
d type value like(xmlCint)
d def value like(xmlCint)
d defaultValue * value options(*string) const xmlChar *
d tree value like(xmlEnumerationPtr)
d elementDecl pr extproc('elementDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d content value like(xmlElementContentPtr)
d notationDecl pr extproc('notationDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d unparsedEntityDecl...
d pr extproc('unparsedEntityDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d notationName * value options(*string) const xmlChar *
d startDocument pr extproc('startDocument')
d ctx * value void *
d endDocument pr extproc('endDocument')
d ctx * value void *
d attribute pr extproc('attribute')
d ctx * value void *
d fullname * value options(*string) const xmlChar *
d value * value options(*string) const xmlChar *
d startElement pr extproc('startElement')
d ctx * value void *
d fullname * value options(*string) const xmlChar *
d atts * const xmlChar *(*)
d endElement pr extproc('endElement')
d ctx * value void *
d name * value options(*string) const xmlChar *
d reference pr extproc('reference')
d ctx * value void *
d name * value options(*string) const xmlChar *
d characters pr extproc('characters')
d ctx * value void *
d ch * value options(*string) const xmlChar *
d len value like(xmlCint)
d ignorableWhitespace...
d pr extproc('ignorableWhitespace')
d ctx * value void *
d ch * value options(*string) const xmlChar *
d len value like(xmlCint)
d processingInstruction...
d pr extproc('processingInstruction')
d ctx * value void *
d target * value options(*string) const xmlChar *
d data * value options(*string) const xmlChar *
d globalNamespace...
d pr extproc('globalNamespace')
d ctx * value void *
d href * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d setNamespace pr extproc('setNamespace')
d ctx * value void *
d name * value options(*string) const xmlChar *
d getNamespace pr extproc('getNamespace')
d like(xmlNsPtr)
d ctx * value void *
d checkNamespace pr extproc('checkNamespace')
d like(xmlCint)
d ctx * value void *
d nameSpace * value options(*string) xmlChar *
d namespaceDecl pr extproc('namespaceDecl')
d ctx * value void *
d href * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d comment pr extproc('comment')
d ctx * value void *
d value * value options(*string) const xmlChar *
d cdataBlock pr extproc('cdataBlock')
d ctx * value void *
d value * value options(*string) const xmlChar *
d len value like(xmlCint)
/if defined(LIBXML_SAX1_ENABLED)
d initxmlDefaultSAXHandler...
d pr extproc('initxmlDefaultSAXHandler')
d hdlr likeds(xmlSAXHandlerV1)
d warning value like(xmlCint)
/if defined(LIBXML_HTML_ENABLED)
d inithtmlDefaultSAXHandler...
d pr extproc('inithtmlDefaultSAXHandler')
d hdlr likeds(xmlSAXHandlerV1)
/endif
/if defined(LIBXML_DOCB_ENABLED)
d initdocbDefaultSAXHandler...
d pr extproc('initdocbDefaultSAXHandler')
d hdlr likeds(xmlSAXHandlerV1)
/endif
/endif LIBXML_SAX1_ENABLED
/endif LIBXML_LEGACY_ENABLD
/endif XML_SAX_H__

256
os400/libxmlrpg/SAX2.rpgle
View File

@ -1,256 +0,0 @@
* Summary: SAX2 parser interface used to build the DOM tree
* Description: those are the default SAX2 interfaces used by
* the library when building DOM tree.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_SAX2_H__)
/define XML_SAX2_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/parser"
/include "libxmlrpg/xlink"
d xmlSAX2GetPublicId...
d pr * extproc('xmlSAX2getPublicId') const xmlChar *
d ctx * value void *
d xmlSAX2GetSystemId...
d pr * extproc('xmlSAX2getSystemId') const xmlChar *
d ctx * value void *
d xmlSAX2SetDocumentLocator...
d pr extproc('xmlSAX2SetDocumentLocator')
d ctx * value void *
d loc value like(xmlSAXLocatorPtr)
d xmlSAX2GetLineNumber...
d pr extproc('xmlSAX2GetLineNumber')
d like(xmlCint)
d ctx * value void *
d xmlSAX2GetColumnNumber...
d pr extproc('xmlSAX2GetColumnNumber')
d like(xmlCint)
d ctx * value void *
d xmlSAX2IsStandalone...
d pr extproc('xmlSAX2IsStandalone')
d like(xmlCint)
d ctx * value void *
d xmlSAX2HasInternalSubset...
d pr extproc('xmlSAX2HasInternalSubset')
d like(xmlCint)
d ctx * value void *
d xmlSAX2HasExternalSubset...
d pr extproc('xmlSAX2HasExternalSubset')
d like(xmlCint)
d ctx * value void *
d xmlSAX2InternalSubset...
d pr extproc('xmlSAX2InternalSubset')
d ctx * value void *
d name * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d xmlSAX2ExternalSubset...
d pr extproc('xmlSAX2ExternalSubset')
d ctx * value void *
d name * value options(*string) const xmlChar *
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d xmlSAX2GetEntity...
d pr extproc('xmlSAX2GetEntity')
d like(xmlEntityPtr)
d ctx * value void *
d name * value options(*string) const xmlChar *
d xmlSAX2GetParameterEntity...
d pr extproc('xmlSAX2GetParameterEntity')
d like(xmlEntityPtr)
d ctx * value void *
d name * value options(*string) const xmlChar *
d xmlSAX2ResolveEntity...
d pr extproc('xmlSAX2ResolveEntity')
d like(xmlParserInputPtr)
d ctx * value void *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d xmlSAX2EntityDecl...
d pr extproc('xmlSAX2EntityDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d content * value options(*string) xmlChar *
d xmlSAX2AttributeDecl...
d pr extproc('xmlSAX2AttributeDecl')
d ctx * value void *
d elem * value options(*string) const xmlChar *
d fullname * value options(*string) const xmlChar *
d type value like(xmlCint)
d def value like(xmlCint)
d defaultValue * value options(*string) const xmlChar *
d tree value like(xmlEnumerationPtr)
d xmlSAX2ElementDecl...
d pr extproc('xmlSAX2ElementDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d content value like(xmlElementContentPtr)
d xmlSAX2NotationDecl...
d pr extproc('xmlSAX2NotationDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d xmlSAX2UnparsedEntityDecl...
d pr extproc('xmlSAX2UnparsedEntityDecl')
d ctx * value void *
d name * value options(*string) const xmlChar *
d publicId * value options(*string) const xmlChar *
d systemId * value options(*string) const xmlChar *
d notationName * value options(*string) xmlChar *
d xmlSAX2StartDocument...
d pr extproc('xmlSAX2StartDocument')
d ctx * value void *
d xmlSAX2EndDocument...
d pr extproc('xmlSAX2EndDocument')
d ctx * value void *
/undefine XML_TESTVAL
/if defined(LIBXML_SAX1_ENABLED)
/define XML_TESTVAL
/elseif defined(LIBXML_HTML_ENABLED)
/define XML_TESTVAL
/elseif defined(LIBXML_WRITER_ENABLED)
/define XML_TESTVAL
/elseif defined(LIBXML_DOCB_ENABLED)
/endif
/if defined(XML_TESTVAL)
d xmlSAX2StartElement...
d pr extproc('xmlSAX2StartElement')
d ctx * value void *
d fullname * value options(*string) const xmlChar *
d atts * const xmlChar *(*)
d xmlSAX2EndElement...
d pr extproc('xmlSAX2EndElement')
d ctx * value void *
d name * value options(*string) const xmlChar *
/undefine XML_TESTVAL
/endif
d xmlSAX2StartElementNs...
d pr extproc('xmlSAX2StartElementNs')
d ctx * value void *
d localname * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d URI * value options(*string) const xmlChar *
d nb_namespaces value like(xmlCint)
d namespaces * value const xmlChar *(*)
d nb_attributes value like(xmlCint)
d nb_defaulted value like(xmlCint)
d attributes * const xmlChar *(*)
d xmlSAX2EndElementNs...
d pr extproc('xmlSAX2EndElementNs')
d ctx * value void *
d localname * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d URI * value options(*string) const xmlChar *
d xmlSAX2Reference...
d pr extproc('xmlSAX2Reference')
d ctx * value void *
d name * value options(*string) const xmlChar *
d xmlSAX2Characters...
d pr extproc('xmlSAX2Characters')
d ctx * value void *
d ch * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlSAX2IgnorableWhitespace...
d pr extproc('xmlSAX2IgnorableWhitespace')
d ctx * value void *
d ch * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlSAX2ProcessingInstruction...
d pr extproc(
d 'xmlSAX2ProcessingInstruction')
d ctx * value void *
d target * value options(*string) const xmlChar *
d data * value options(*string) const xmlChar *
d xmlSAX2Comment...
d pr extproc('xmlSAX2Comment')
d ctx * value void *
d value * value options(*string) const xmlChar *
d xmlSAX2CDataBlock...
d pr extproc('xmlSAX2CDataBlock')
d ctx * value void *
d value * value options(*string) const xmlChar *
d len value like(xmlCint)
/if defined(LIBXML_SAX1_ENABLED)
d xmlSAXDefaultVersion...
d pr extproc('xmlSAXDefaultVersion')
d like(xmlCint)
d version value like(xmlCint)
/endif LIBXML_SAX1_ENABLED
d xmlSAXVersion pr extproc('xmlSAXVersion')
d like(xmlCint)
d hdlr likeds(xmlSAXHandler)
d version value like(xmlCint)
d xmlSAX2InitDefaultSAXHandler...
d pr extproc(
d 'xmlSAX2InitDefaultSAXHandler')
d hdlr likeds(xmlSAXHandler)
d warning value like(xmlCint)
/if defined(LIBXML_HTML_ENABLED)
d xmlSAX2InitHtmlDefaultSAXHandler...
d pr extproc(
d 'xmlSAX2InitHtmlDefaultSAXHandler')
d hdlr likeds(xmlSAXHandler)
d htmlDefaultSAXHandlerInit...
d pr extproc('htmlDefaultSAXHandlerInit')
/endif
/if defined(LIBXML_DOCB_ENABLED)
d xmlSAX2InitDocbDefaultSAXHandler...
d pr extproc(
d 'xmlSAX2InitDocbDefaultSAXHandler')
d hdlr likeds(xmlSAXHandler)
d docbDefaultSAXHandlerInit...
d pr extproc('docbDefaultSAXHandlerInit')
/endif
d xmlDefaultSAXHandlerInit...
d pr extproc('xmlDefaultSAXHandlerInit')
/endif XML_SAX2_H__

125
os400/libxmlrpg/c14n.rpgle
View File

@ -1,125 +0,0 @@
* Summary: Provide Canonical XML and Exclusive XML Canonicalization
* Description: the c14n modules provides a
*
* "Canonical XML" implementation
* http://www.w3.org/TR/xml-c14n
*
* and an
*
* "Exclusive XML Canonicalization" implementation
* http://www.w3.org/TR/xml-exc-c14n
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_C14N_H__)
/define XML_C14N_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_C14N_ENABLED)
/if defined(LIBXML_OUTPUT_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/xpath"
* XML Canonicazation
* http://www.w3.org/TR/xml-c14n
*
* Exclusive XML Canonicazation
* http://www.w3.org/TR/xml-exc-c14n
*
* Canonical form of an XML document could be created if and only if
* a) default attributes (if any) are added to all nodes
* b) all character and parsed entity references are resolved
* In order to achive this in libxml2 the document MUST be loaded with
* following global setings:
*
* xmlLoadExtDtdDefaultValue = XML_DETECT_IDS ã XML_COMPLETE_ATTRS;
* xmlSubstituteEntitiesDefault(1);
*
* or corresponding parser context setting:
* xmlParserCtxtPtr ctxt;
*
* ...
* ctxt->loadsubset = XML_DETECT_IDS ã XML_COMPLETE_ATTRS;
* ctxt->replaceEntities = 1;
* ...
* xmlC14NMode:
*
* Predefined values for C14N modes
d xmlBufferAllocationScheme...
d xmlC14NMode s based(######typedef######)
d like(xmlCenum)
d XML_C14N_1_0 c 0 Original C14N 1.0
d XML_C14N_EXCLUSIVE_1_0... Exclusive C14N 1.0
d c 1
d XML_C14N_1_1 c 2 C14N 1.1 spec
d xmlC14NDocSaveTo...
d pr extproc('xmlC14NDocSaveTo')
d like(xmlCint)
d doc value like(xmlDocPtr)
d nodes value like(xmlNodeSetPtr)
d mode value like(xmlCint)
d inclusive_ns_prefixes...
d * options(*omit) xmlChar *(*)
d with_comments value like(xmlCint)
d buf value like(xmlOutputBufferPtr)
d xmlC14NDocDumpMemory...
d pr extproc('xmlC14NDocDumpMemory')
d like(xmlCint)
d doc value like(xmlDocPtr)
d nodes value like(xmlNodeSetPtr)
d mode value like(xmlCint)
d inclusive_ns_prefixes...
d * options(*omit) xmlChar *(*)
d with_comments value like(xmlCint)
d doc_txt_ptr * xmlChar *(*)
d xmlC14NDocSave pr extproc('xmlC14NDocSave')
d like(xmlCint)
d doc value like(xmlDocPtr)
d nodes value like(xmlNodeSetPtr)
d mode value like(xmlCint)
d inclusive_ns_prefixes...
d * options(*omit) xmlChar *(*)
d with_comments value like(xmlCint)
d filename * value options(*string) const char *
d compression value like(xmlCint)
* This is the core C14N function
* xmlC14NIsVisibleCallback:
* @user_data: user data
* @node: the curent node
* @parent: the parent node
*
* Signature for a C14N callback on visible nodes
*
* Returns 1 if the node should be included
d xmlC14NIsVisibleCallback...
d s * based(######typedef######)
d procptr
d xmlC14NExecute pr extproc('xmlC14NExecute')
d like(xmlCint)
d doc value like(xmlDocPtr)
d is_visible_callback...
d value like(xmlC14NIsVisibleCallback)
d user_data * value void *
d mode value like(xmlCint)
d inclusive_ns_prefixes...
d * options(*omit) xmlChar *(*)
d with_comments value like(xmlCint)
d buf value like(xmlOutputBufferPtr)
/endif LIBXML_OUTPUT_ENABLD
/endif LIBXML_C14N_ENABLED
/endif XML_C14N_H__

248
os400/libxmlrpg/catalog.rpgle
View File

@ -1,248 +0,0 @@
* Summary: interfaces to the Catalog handling system
* Description: the catalog module implements the support for
* XML Catalogs and SGML catalogs
*
* SGML Open Technical Resolution TR9401:1997.
* http://www.jclark.com/sp/catalog.htm
*
* XML Catalogs Working Draft 06 August 2001
* http://www.oasis-open.org/committees/entity/spec-2001-08-06.html
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_CATALOG_H__)
/define XML_CATALOG_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_CATALOG_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlstring"
/include "libxmlrpg/tree"
* XML_CATALOGS_NAMESPACE:
*
* The namespace for the XML Catalogs elements.
d XML_CATALOGS_NAMESPACE...
d c 'urn:oasis:names:+
d tc:entity:xmlns:xml:catalog'
* XML_CATALOG_PI:
*
* The specific XML Catalog Processing Instruction name.
d XML_CATALOG_PI c 'oasis-xml-catalog'
* The API is voluntarily limited to general cataloging.
d xmlCatalogPrefer...
d s based(######typedef######)
d like(xmlCenum)
d XML_CATA_PREFER_NONE...
d c 0
d XML_CATA_PREFER_PUBLIC...
d c 1
d XML_CATA_PREFER_SYSTEM...
d c 2
d xmlCatalogAllow...
d s based(######typedef######)
d like(xmlCenum)
d XML_CATA_ALLOW_NONE...
d c 0
d XML_CATA_ALLOW_GLOBAL...
d c 1
d XML_CATA_ALLOW_DOCUMENT...
d c 2
d XML_CATA_ALLOW_ALL...
d c 3
d xmlCatalogPtr s * based(######typedef######)
* Operations on a given catalog.
d xmlNewCatalog pr extproc('xmlNewCatalog')
d like(xmlCatalogPtr)
d sgml value like(xmlCint)
d xmlLoadACatalog...
d pr extproc('xmlLoadACatalog')
d like(xmlCatalogPtr)
d filename * value options(*string) const char *
d xmlLoadSGMLSuperCatalog...
d pr extproc('xmlLoadSGMLSuperCatalog')
d like(xmlCatalogPtr)
d filename * value options(*string) const char *
d xmlConvertSGMLCatalog...
d pr extproc('xmlConvertSGMLCatalog')
d like(xmlCint)
d catal value like(xmlCatalogPtr)
d xmlACatalogAdd pr extproc('xmlACatalogAdd')
d like(xmlCint)
d catal value like(xmlCatalogPtr)
d type * value options(*string) const xmlChar *
d orig * value options(*string) const xmlChar *
d replace * value options(*string) const xmlChar *
d xmlACatalogRemove...
d pr extproc('xmlACatalogRemove')
d like(xmlCint)
d catal value like(xmlCatalogPtr)
d value * value options(*string) const xmlChar *
d xmlACatalogResolve...
d pr * extproc('xmlACatalogResolve') xmlChar *
d catal value like(xmlCatalogPtr)
d pubID * value options(*string) const xmlChar *
d sysID * value options(*string) const xmlChar *
d xmlACatalogResolveSystem...
d pr * extproc('xmlACatalogResolveSystem') xmlChar *
d catal value like(xmlCatalogPtr)
d sysID * value options(*string) const xmlChar *
d xmlACatalogResolvePublic...
d pr * extproc('xmlACatalogResolvePublic') xmlChar *
d catal value like(xmlCatalogPtr)
d pubID * value options(*string) const xmlChar *
d xmlACatalogResolveURI...
d pr * extproc('xmlACatalogResolveURI') xmlChar *
d catal value like(xmlCatalogPtr)
d URI * value options(*string) const xmlChar *
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlACatalogDump...
d pr extproc('xmlACatalogDump')
d catal value like(xmlCatalogPtr)
d out * value FILE *
/endif LIBXML_OUTPUT_ENABLD
d xmlFreeCatalog pr extproc('xmlFreeCatalog')
d catal value like(xmlCatalogPtr)
d xmlCatalogIsEmpty...
d pr extproc('xmlCatalogIsEmpty')
d like(xmlCint)
d catal value like(xmlCatalogPtr)
* Global operations.
d xmlInitializeCatalog...
d pr extproc('xmlInitializeCatalog')
d xmlLoadCatalog pr extproc('xmlLoadCatalog')
d like(xmlCint)
d filename * value options(*string) const char *
d xmlLoadCatalogs...
d pr extproc('xmlLoadCatalogs')
d paths * value options(*string) const char *
d xmlCatalogCleanup...
d pr extproc('xmlCatalogCleanup')
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlCatalogDump pr extproc('xmlCatalogDump')
d out * value FILE *
/endif LIBXML_OUTPUT_ENABLD
d xmlCatalogResolve...
d pr * extproc('xmlCatalogResolve') xmlChar *
d pubID * value options(*string) const xmlChar *
d sysID * value options(*string) const xmlChar *
d xmlCatalogResolveSystem...
d pr * extproc('xmlCatalogResolveSystem') xmlChar *
d sysID * value options(*string) const xmlChar *
d xmlCatalogResolvePublic...
d pr * extproc('xmlCatalogResolvePublic') xmlChar *
d pubID * value options(*string) const xmlChar *
d xmlCatalogResolveURI...
d pr * extproc('xmlCatalogResolveURI') xmlChar *
d URI * value options(*string) const xmlChar *
d xmlCatalogAdd pr extproc('xmlCatalogAdd')
d like(xmlCint)
d type * value options(*string) const xmlChar *
d orig * value options(*string) const xmlChar *
d replace * value options(*string) const xmlChar *
d xmlCatalogRemove...
d pr extproc('xmlCatalogRemove')
d like(xmlCint)
d value * value options(*string) const xmlChar *
d xmlParseCatalogFile...
d pr extproc('xmlParseCatalogFile')
d like(xmlDocPtr)
d filename * value options(*string) const char *
d xmlCatalogConvert...
d pr extproc('xmlCatalogConvert')
d like(xmlCint)
* Strictly minimal interfaces for per-document catalogs used
* by the parser.
d xmlCatalogFreeLocal...
d pr extproc('xmlCatalogFreeLocal')
d catalogs * value void *
d xmlCatalogAddLocal...
d pr * extproc('xmlCatalogAddLocal') void *
d catalogs * value void *
d URL * value options(*string) const xmlChar *
d xmlCatalogLocalResolve...
d pr * extproc('xmlCatalogLocalResolve') xmlChar *
d catalogs * value void *
d pubID * value options(*string) const xmlChar *
d sysID * value options(*string) const xmlChar *
d xmlCatalogLocalResolveURI...
d pr * extproc('xmlCatalogLocalResolveURI') xmlChar *
d catalogs * value void *
d URI * value options(*string) const xmlChar *
* Preference settings.
d xmlCatalogSetDebug...
d pr extproc('xmlCatalogSetDebug')
d like(xmlCint)
d level value like(xmlCint)
d xmlCatalogSetDefaultPrefer...
d pr extproc('xmlCatalogSetDefaultPrefer')
d like(xmlCatalogPrefer)
d prefer value like(xmlCatalogPrefer)
d xmlCatalogSetDefaults...
d pr extproc('xmlCatalogSetDefaults')
d allow value like(xmlCatalogAllow)
d xmlCatalogGetDefaults...
d pr extproc('xmlCatalogGetDefaults')
d like(xmlCatalogAllow)
* DEPRECATED interfaces
d xmlCatalogGetSystem...
d pr * extproc('xmlCatalogGetSystem') const xmlChar *
d sysID * value options(*string) const xmlChar *
d xmlCatalogGetPublic...
d pr * extproc('xmlCatalogGetPublic') const xmlChar *
d pubID * value options(*string) const xmlChar *
/endif LIBXML_CATALOG_ENBLD
/endif XML_CATALOG_H__

107
os400/libxmlrpg/chvalid.rpgle
View File

@ -1,107 +0,0 @@
* Summary: Unicode character range checking
* Description: this module exports interfaces for the character
* range validation APIs
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_CHVALID_H__)
/define XML_CHVALID_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlstring"
* Define our typedefs and structures
d xmlChSRangePtr s * based(######typedef######)
d xmlChSRange ds based(xmlChSRangePtr)
d align qualified
d low like(xmlCushort)
d high like(xmlCushort)
d xmlChLRangePtr s * based(######typedef######)
d xmlChLRange ds based(xmlChLRangePtr)
d align qualified
d low like(xmlCuint)
d high like(xmlCuint)
d xmlChRangeGroupPtr...
d s * based(######typedef######)
d xmlChRangeGroup...
d ds based(xmlChRangeGroupPtr)
d align qualified
d nbShortRange like(xmlCint)
d nbLongRange like(xmlCint)
d shortRange like(xmlChSRangePtr)
d longRange like(xmlChLRangePtr)
* Range checking routine
d xmlCharInRange pr extproc('xmlCharInRange')
d like(xmlCint)
d val value like(xmlCuint)
d group like(xmlChRangeGroupPtr) const
d xmlIsBaseCharGroup...
d ds import('xmlIsBaseCharGroup')
d likeds(xmlChRangeGroup) const
d xmlIsCharGroup...
d ds import('xmlIsCharGroup')
d likeds(xmlChRangeGroup) const
d xmlIsCombiningGroup...
d ds import('xmlIsCombiningGroup')
d likeds(xmlChRangeGroup) const
d xmlIsDigitGroup...
d ds import('xmlIsDigitGroup')
d likeds(xmlChRangeGroup) const
d xmlIsExtenderGroup...
d ds import('xmlIsExtenderGroup')
d likeds(xmlChRangeGroup) const
d xmlIsIdeographicGroup...
d ds import('xmlIsIdeographicGroup')
d likeds(xmlChRangeGroup) const
d xmlIsBaseChar pr extproc('xmlIsBaseChar')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsBlank pr extproc('xmlIsBlank')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsChar pr extproc('xmlIsChar')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsCombining pr extproc('xmlIsCombining')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsDigit pr extproc('xmlIsDigit')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsExtender pr extproc('xmlIsExtender')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsIdeographic...
d pr extproc('xmlIsIdeographic')
d like(xmlCint)
d ch value like(xmlCuint)
d xmlIsPubidChar pr extproc('xmlIsPubidChar')
d like(xmlCint)
d ch value like(xmlCuint)
/endif XML_CHVALID_H__

254
os400/libxmlrpg/debugXML.rpgle
View File

@ -1,254 +0,0 @@
* Summary: Tree debugging APIs
* Description: Interfaces to a set of routines used for debugging the tree
* produced by the XML parser.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(DEBUG_XML__)
/define DEBUG_XML__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_DEBUG_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/xpath"
* The standard Dump routines.
d xmlDebugDumpString...
d pr extproc('xmlDebugDumpString')
d output * value FILE *
d str * value options(*string) const xmlChar *
d xmlDebugDumpAttr...
d pr extproc('xmlDebugDumpAttr')
d output * value FILE *
d attr value like(xmlAttrPtr)
d depth value like(xmlCint)
d xmlDebugDumpAttrList...
d pr extproc('xmlDebugDumpAttrList')
d output * value FILE *
d attr value like(xmlAttrPtr)
d depth value like(xmlCint)
d xmlDebugDumpOneNode...
d pr extproc('xmlDebugDumpOneNode')
d output * value FILE *
d node value like(xmlNodePtr)
d depth value like(xmlCint)
d xmlDebugDumpNode...
d pr extproc('xmlDebugDumpNode')
d output * value FILE *
d node value like(xmlNodePtr)
d depth value like(xmlCint)
d xmlDebugDumpNodeList...
d pr extproc('xmlDebugDumpNodeList')
d output * value FILE *
d node value like(xmlNodePtr)
d depth value like(xmlCint)
d xmlDebugDumpDocumentHead...
d pr extproc('xmlDebugDumpDocumentHead')
d output * value FILE *
d doc value like(xmlDocPtr)
d xmlDebugDumpDocument...
d pr extproc('xmlDebugDumpDocument')
d output * value FILE *
d doc value like(xmlDocPtr)
d xmlDebugDumpDTD...
d pr extproc('xmlDebugDumpDTD')
d output * value FILE *
d dtd value like(xmlDtdPtr)
d xmlDebugDumpEntities...
d pr extproc('xmlDebugDumpEntities')
d output * value FILE *
d doc value like(xmlDocPtr)
****************************************************************
* *
* Checking routines *
* *
****************************************************************
d xmlDebugCheckDocument...
d pr extproc('xmlDebugCheckDocument')
d like(xmlCint)
d output * value FILE *
d doc value like(xmlDocPtr)
****************************************************************
* *
* XML shell helpers *
* *
****************************************************************
d xmlLsOneNode pr extproc('xmlLsOneNode')
d output * value FILE *
d node value like(xmlNodePtr)
d xmlLsCountNode pr extproc('xmlLsCountNode')
d like(xmlCint)
d node value like(xmlNodePtr)
d xmlBoolToText pr * extproc('xmlBoolToText') const char *
d boolval value like(xmlCint)
****************************************************************
* *
* The XML shell related structures and functions *
* *
****************************************************************
/if defined(LIBXML_XPATH_ENABLED)
* xmlShellReadlineFunc:
* @prompt: a string prompt
*
* This is a generic signature for the XML shell input function.
*
* Returns a string which will be freed by the Shell.
d xmlShellReadlineFunc...
d s * based(######typedef######)
d procptr
* xmlShellCtxt:
*
* A debugging shell context.
* TODO: add the defined function tables.
d xmlShellCtxtPtr...
d s * based(######typedef######)
d xmlSchellCtxt ds based(xmlShellCtxtPtr)
d align qualified
d filename * char *
d doc like(xmlDocPtr)
d node like(xmlNodePtr)
d pctxt like(xmlXPathContextPtr)
d loaded like(xmlCint)
d output * FILE *
d input like(xmlShellReadlineFunc)
* xmlShellCmd:
* @ctxt: a shell context
* @arg: a string argument
* @node: a first node
* @node2: a second node
*
* This is a generic signature for the XML shell functions.
*
* Returns an int, negative returns indicating errors.
d xmlShellCmd s * based(######typedef######)
d procptr
d xmlShellPrintXPathError...
d pr extproc('xmlShellPrintXPathError')
d errorType value like(xmlCint)
d arg * value options(*string) const char *
d xmlShellPrintXPathResult...
d pr extproc('xmlShellPrintXPathResult')
d list value like(xmlXPathObjectPtr)
d xmlShellList pr extproc('xmlShellList')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d arg * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellBase pr extproc('xmlShellBase')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d arg * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellDir pr extproc('xmlShellDir')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d arg * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellLoad pr extproc('xmlShellLoad')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d filename * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlShellPrintNode...
d pr extproc('xmlShellPrintNode')
d node value like(xmlNodePtr)
d xmlShellCat pr extproc('xmlShellCat')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d arg * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellWrite pr extproc('xmlShellWrite')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d filename * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellSave pr extproc('xmlShellSave')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d filename * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
/endif LIBXML_OUTPUT_ENABLD
/if defined(LIBXML_VALID_ENABLED)
d xmlShellValidate...
d pr extproc('xmlShellValidate')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d dtd * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
/endif LIBXML_VALID_ENABLED
d xmlShellDu pr extproc('xmlShellDu')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d arg * value options(*string) char *
d tree value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
d xmlShellPwd pr extproc('xmlShellPwd')
d like(xmlCint)
d ctxt value like(xmlShellCtxtPtr)
d buffer * value options(*string) char *
d node value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
* The Shell interface.
d xmlShell pr extproc('xmlShell')
d doc value like(xmlDocPtr)
d filename * value options(*string) char *
d input value like(xmlShellReadlineFunc)
d output * value FILE *
/endif LIBXML_XPATH_ENABLED
/endif LIBXML_DEBUG_ENABLED
/endif DEBUG_XML__

85
os400/libxmlrpg/dict.rpgle
View File

@ -1,85 +0,0 @@
* Summary: string dictionary
* Description: dictionary of reusable strings, just used to avoid
* allocation and freeing operations.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_DICT_H__)
/define XML_DICT_H__
* The dictionary.
d xmlDictPtr s * based(######typedef######)
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
* Initializer
d xmlInitializeDict...
d pr extproc('xmlInitializeDict')
d like(xmlCint)
* Constructor and destructor.
d xmlDictCreate pr extproc('xmlDictCreate')
d like(xmlDictPtr)
d xmlDictSetLimit...
d pr extproc('xmlDictSetLimit')
d like(xmlCsize_t)
d dict value like(xmlDictPtr)
d limit value like(xmlCsize_t)
d xmlDictGetUsage...
d pr extproc('xmlDictGetUsage')
d like(xmlCsize_t)
d dict value like(xmlDictPtr)
d xmlDictCreateSub...
d pr extproc('xmlDictCreateSub')
d like(xmlDictPtr)
d sub value like(xmlDictPtr)
d xmlDictReference...
d pr extproc('xmlDictGetReference')
d like(xmlCint)
d dict value like(xmlDictPtr)
d xmlDictFree pr extproc('xmlDictFree')
d dict value like(xmlDictPtr)
* Lookup of entry in the dictionary.
d xmlDictLookup pr * extproc('xmlDictLookup') const xmlChar *
d dict value like(xmlDictPtr)
d name * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlDictExists pr * extproc('xmlDictExists') const xmlChar *
d dict value like(xmlDictPtr)
d name * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlDictQLookup pr * extproc('xmlDictQLookup') const xmlChar *
d dict value like(xmlDictPtr)
d name * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d xmlDictOwns pr extproc('xmlDictOwns')
d like(xmlCint)
d dict value like(xmlDictPtr)
d str * value options(*string) const xmlChar *
d xmlDictSize pr extproc('xmlDictSize')
d like(xmlCint)
d dict value like(xmlDictPtr)
* Cleanup function
d xmlDictCleanup pr extproc('xmlDictCleanup')
/endif ! XML_DICT_H__

284
os400/libxmlrpg/encoding.rpgle
View File

@ -1,284 +0,0 @@
* Summary: interface for the encoding conversion functions
* Description: interface for the encoding conversion functions needed for
* XML basic encoding and iconv() support.
*
* Related specs are
* rfc2044 (UTF-8 and UTF-16) F. Yergeau Alis Technologies
* [ISO-10646] UTF-8 and UTF-16 in Annexes
* [ISO-8859-1] ISO Latin-1 characters codes.
* [UNICODE] The Unicode Consortium, "The Unicode Standard --
* Worldwide Character Encoding -- Version 1.0", Addison-
* Wesley, Volume 1, 1991, Volume 2, 1992. UTF-8 is
* described in Unicode Technical Report #4.
* [US-ASCII] Coded Character Set--7-bit American Standard Code for
* Information Interchange, ANSI X3.4-1986.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_CHAR_ENCODING_H__)
/define XML_CHAR_ENCODING_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
* xmlCharEncoding:
*
* Predefined values for some standard encodings.
* Libxml does not do beforehand translation on UTF8 and ISOLatinX.
* It also supports ASCII, ISO-8859-1, and UTF16 (LE and BE) by default.
*
* Anything else would have to be translated to UTF8 before being
* given to the parser itself. The BOM for UTF16 and the encoding
* declaration are looked at and a converter is looked for at that
* point. If not found the parser stops here as asked by the XML REC. A
* converter can be registered by the user
* xmlRegisterCharEncodingHandler but the current form doesn't allow
* stateful transcoding (a serious problem agreed !). If iconv has been
* found it will be used automatically and allow stateful transcoding,
* the simplest is then to be sure to enable iconv and to provide iconv
* libs for the encoding support needed.
*
* Note that the generic "UTF-16" is not a predefined value. Instead, only
* the specific UTF-16LE and UTF-16BE are present.
d xmlCharEncoding...
d s based(######typedef######)
d like(xmlCenum)
d XML_CHAR_ENCODING_ERROR... No encoding detected
d c -1
d XML_CHAR_ENCODING_NONE... No encoding detected
d c 0
d XML_CHAR_ENCODING_UTF8... UTF-8
d c 1
d XML_CHAR_ENCODING_UTF16LE... UTF-16 little endian
d c 2
d XML_CHAR_ENCODING_UTF16BE... UTF-16 big endian
d c 3
d XML_CHAR_ENCODING_UCS4LE... UCS-4 little endian
d c 4
d XML_CHAR_ENCODING_UCS4BE... UCS-4 big endian
d c 5
d XML_CHAR_ENCODING_EBCDIC... EBCDIC uh!
d c 6
d XML_CHAR_ENCODING_UCS4_2143... UCS-4 unusual order
d c 7
d XML_CHAR_ENCODING_UCS4_3412... UCS-4 unusual order
d c 8
d XML_CHAR_ENCODING_UCS2... UCS-2
d c 9
d XML_CHAR_ENCODING_8859_1... ISO-8859-1 ISOLatin1
d c 10
d XML_CHAR_ENCODING_8859_2... ISO-8859-2 ISOLatin2
d c 11
d XML_CHAR_ENCODING_8859_3... ISO-8859-3
d c 12
d XML_CHAR_ENCODING_8859_4... ISO-8859-4
d c 13
d XML_CHAR_ENCODING_8859_5... ISO-8859-5
d c 14
d XML_CHAR_ENCODING_8859_6... ISO-8859-6
d c 15
d XML_CHAR_ENCODING_8859_7... ISO-8859-7
d c 16
d XML_CHAR_ENCODING_8859_8... ISO-8859-8
d c 17
d XML_CHAR_ENCODING_8859_9... ISO-8859-9
d c 18
d XML_CHAR_ENCODING_2022_JP... ISO-2022-JP
d c 19
d XML_CHAR_ENCODING_SHIFT_JIS... Shift_JIS
d c 20
d XML_CHAR_ENCODING_EUC_JP... EUC-JP
d c 21
d XML_CHAR_ENCODING_ASCII... Pure ASCII
d c 22
* xmlCharEncodingInputFunc:
* @out: a pointer to an array of bytes to store the UTF-8 result
* @outlen: the length of @out
* @in: a pointer to an array of chars in the original encoding
* @inlen: the length of @in
*
* Take a block of chars in the original encoding and try to convert
* it to an UTF-8 block of chars out.
*
* Returns the number of bytes written, -1 if lack of space, or -2
* if the transcoding failed.
* The value of @inlen after return is the number of octets consumed
* if the return value is positive, else unpredictiable.
* The value of @outlen after return is the number of octets consumed.
d xmlCharEncodingInputFunc...
d s * based(######typedef######)
d procptr
* xmlCharEncodingOutputFunc:
* @out: a pointer to an array of bytes to store the result
* @outlen: the length of @out
* @in: a pointer to an array of UTF-8 chars
* @inlen: the length of @in
*
* Take a block of UTF-8 chars in and try to convert it to another
* encoding.
* Note: a first call designed to produce heading info is called with
* in = NULL. If stateful this should also initialize the encoder state.
*
* Returns the number of bytes written, -1 if lack of space, or -2
* if the transcoding failed.
* The value of @inlen after return is the number of octets consumed
* if the return value is positive, else unpredictiable.
* The value of @outlen after return is the number of octets produced.
d xmlCharEncodingOutputFunc...
d s * based(######typedef######)
d procptr
* Block defining the handlers for non UTF-8 encodings.
* If iconv is supported, there are two extra fields.
/if defined(LIBXML_ICU_ENABLED)
d uconv_t ds based(######typedef######)
d align qualified
d uconv * UConverter *
d utf8 * UConverter *
/endif
d xmlCharEncodingHandlerPtr...
d s * based(######typedef######)
d xmlCharEncodingHandler...
d ds based(xmlCharEncodingHandlerPtr)
d align qualified
d name * char *
d input like(xmlCharEncodingInputFunc)
d output like(xmlCharEncodingOutputFunc)
*
/if defined(LIBXML_ICONV_ENABLED)
d iconv_in * iconv_t
d iconv_out * iconv_t
/endif LIBXML_ICONV_ENABLED
*
/if defined(LIBXML_ICU_ENABLED)
d uconv_in * uconv_t *
d uconv_out * uconv_t *
/endif LIBXML_ICU_ENABLED
/include "libxmlrpg/tree"
* Interfaces for encoding handlers.
d xmlInitCharEncodingHandlers...
d pr extproc(
d 'xmlInitCharEncodingHandlers')
d xmlCleanupCharEncodingHandlers...
d pr extproc(
d 'xmlCleanupCharEncodingHandlers')
d xmlRegisterCharEncodingHandler...
d pr extproc(
d 'xmlRegisterCharEncodingHandler')
d handler value like(xmlCharEncodingHandlerPtr)
d xmlGetCharEncodingHandler...
d pr extproc('xmlGetCharEncodingHandler')
d like(xmlCharEncodingHandlerPtr)
d enc value like(xmlCharEncoding)
d xmlFindCharEncodingHandler...
d pr extproc('xmlFindCharEncodingHandler')
d like(xmlCharEncodingHandlerPtr)
d name * value options(*string) const char *
d xmlNewCharEncodingHandler...
d pr extproc('xmlNewCharEncodingHandler')
d like(xmlCharEncodingHandlerPtr)
d name * value options(*string) const char *
d input value like(xmlCharEncodingInputFunc)
d output value like(xmlCharEncodingOutputFunc)
* Interfaces for encoding names and aliases.
d xmlAddEncodingAlias...
d pr extproc('xmlAddEncodingAlias')
d like(xmlCint)
d name * value options(*string) const char *
d alias * value options(*string) const char *
d xmlDelEncodingAlias...
d pr extproc('xmlDelEncodingAlias')
d like(xmlCint)
d alias * value options(*string) const char *
d xmlGetEncodingAlias...
d pr * extproc('xmlGetEncodingAlias') const char *
d alias * value options(*string) const char *
d xmlCleanupEncodingAliases...
d pr extproc('xmlCleanupEncodingAliases')
d xmlParseCharEncoding...
d pr extproc('xmlParseCharEncoding')
d like(xmlCharEncoding)
d name * value options(*string) const char *
d xmlGetCharEncodingName...
d pr * extproc('xmlGetCharEncodingName') const char *
d enc value like(xmlCharEncoding)
* Interfaces directly used by the parsers.
d xmlDetectCharEncoding...
d pr extproc('xmlDetectCharEncoding')
d like(xmlCharEncoding)
d in * value options(*string) const unsigned char*
d len value like(xmlCint)
d xmlCharEncOutFunc...
d pr extproc('xmlCharEncOutFunc')
d like(xmlCint)
d handler likeds(xmlCharEncodingHandler)
d out value like(xmlBufferPtr)
d in value like(xmlBufferPtr)
d xmlCharEncInFunc...
d pr extproc('xmlCharEncInFunc')
d like(xmlCint)
d handler likeds(xmlCharEncodingHandler)
d out value like(xmlBufferPtr)
d in value like(xmlBufferPtr)
d xmlCharEncFirstLine...
d pr extproc('xmlCharEncFirstLine')
d like(xmlCint)
d handler likeds(xmlCharEncodingHandler)
d out value like(xmlBufferPtr)
d in value like(xmlBufferPtr)
d xmlCharEncCloseFunc...
d pr extproc('xmlCharEncCloseFunc')
d like(xmlCint)
d handler likeds(xmlCharEncodingHandler)
* Export a few useful functions
/if defined(LIBXML_OUTPUT_ENABLED)
d UTF8Toisolat1 pr extproc('UTF8Toisolat1')
d like(xmlCint)
d out 65535 options(*varsize) unsigned char (*)
d outlen like(xmlCint)
d in * value options(*string) const unsigned char*
d inlen like(xmlCint)
/endif LIBXML_OUTPUT_ENABLD
d isolat1ToUTF8 pr extproc('isolat1ToUTF8')
d like(xmlCint)
d out 65535 options(*varsize) unsigned char (*)
d outlen like(xmlCint)
d in * value options(*string) const unsigned char*
d inlen like(xmlCint)
/endif XML_CHAR_ENCODING_H

176
os400/libxmlrpg/entities.rpgle
View File

@ -1,176 +0,0 @@
* Summary: interface for the XML entities handling
* Description: this module provides some of the entity API needed
* for the parser and applications.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_ENTITIES_H__)
/define XML_ENTITIES_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
* The different valid entity types.
d xmlEntityType s based(######typedef######)
d like(xmlCenum)
d XML_INTERNAL_GENERAL_ENTITY...
d c 1
d XML_EXTERNAL_GENERAL_PARSED_ENTITY...
d c 2
d XML_EXTERNAL_GENERAL_UNPARSED_ENTITY...
d c 3
d XML_INTERNAL_PARAMETER_ENTITY...
d c 4
d XML_EXTERNAL_PARAMETER_ENTITY...
d c 5
d XML_INTERNAL_PREDEFINED_ENTITY...
d c 6
* An unit of storage for an entity, contains the string, the value
* and the linkind data needed for the linking in the hash table.
d xmlEntity ds based(xmlEntityPtr)
d align qualified
d #private * void *
d type like(xmlElementType) XML_ENTITY_DECL
d name * const xmlChar *
d children like(xmlNodePtr) First child link
d last like(xmlNodePtr) Last child link
d parent like(xmlDtdPtr) -> DTD
d next like(xmlNodePtr) next sibling link
d prev like(xmlNodePtr) prev sibling link
d doc like(xmlDocPtr) containing document
d orig * xmlChar *
d content * xmlChar *
d length like(xmlCint) content length
d etype like(xmlEntityType) The entity type
d ExternalID * const xmlChar *
d SystemlID * const xmlChar *
d nexte like(xmlEntityPtr) unused
d URI * const xmlChar *
d owner like(xmlCint) Owns children ?
d checked like(xmlCint) Content checked ?
* All entities are stored in an hash table.
* There is 2 separate hash tables for global and parameter entities.
d xmlEntitiesTablePtr...
d s * based(######typedef######)
* External functions:
/if defined(LIBXML_LEGACY_ENABLED)
d xmlInitializePredefinedEntities...
d pr extproc(
d 'xmlInitializePredefinedEntities')
/endif LIBXML_LEGACY_ENABLD
d xmlNewEntity pr extproc('xmlNewEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlAddDocEntity...
d pr extproc('xmlAddDocEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlAddDtdEntity...
d pr extproc('xmlAddDtdEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d type value like(xmlCint)
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlGetPredefinedEntity...
d pr extproc('xmlGetPredefinedEntity')
d like(xmlEntityPtr)
d name * value options(*string) const xmlChar *
d xmlGetDocEntity...
d pr extproc('xmlGetDocEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d xmlGetDtdEntity...
d pr extproc('xmlGetDtdEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d xmlGetParameterEntity...
d pr extproc('xmlGetParameterEntity')
d like(xmlEntityPtr)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
/if defined(LIBXML_LEGACY_ENABLED)
d xmlEncodeEntities...
d pr * extproc('xmlEncodeEntities') xmlChar *
d doc value like(xmlDocPtr)
d input * value options(*string) const xmlChar *
/endif LIBXML_LEGACY_ENABLD
d xmlEncodeEntitiesReentrant...
d pr * extproc( xmlChar *
d 'xmlEncodeEntitiesReentrant')
d doc value like(xmlDocPtr)
d input * value options(*string) const xmlChar *
XMLPU
d xmlEncodeSpecialChars...
d pr * extproc('xmlSpecialChars') xmlChar *
d doc value like(xmlDocPtr)
d input * value options(*string) const xmlChar *
XMLPU
d xmlCreateEntitiesTable...
d pr extproc('xmlCreateEntitiesTable')
d like(xmlEntitiesTablePtr)
/if defined(LIBXML_TREE_ENABLED)
d xmlCopyEntitiesTable...
d pr extproc('xmlCopyEntitiesTable')
d like(xmlEntitiesTablePtr)
d table value like(xmlEntitiesTablePtr)
/endif LIBXML_TREE_ENABLED
d xmlFreeEntitiesTable...
d pr extproc('xmlFreeEntitiesTable')
d table value like(xmlEntitiesTablePtr)
XMLPU
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlDumpEntitiesTable...
d pr extproc('xmlDumpEntitiesTable')
d buf value like(xmlBufferPtr)
d table value like(xmlEntitiesTablePtr)
XMLPU
d xmlDumpEntityDecl...
d pr extproc('xmlDumpEntityDecl')
d buf value like(xmlBufferPtr)
d ent value like(xmlEntityPtr)
/endif LIBXML_OUTPUT_ENABLD
/if defined(LIBXML_LEGACY_ENABLED)
d xmlCleanupPredefinedEntities...
d pr extproc(
XMLPUd 'xmlCleanupPredefinedEntities')
/endif LIBXML_LEGACY_ENABLD
/endif XML_ENTITIES_H__

581
os400/libxmlrpg/globals.rpgle
View File

@ -1,581 +0,0 @@
* Summary: interface for all global variables of the library
* Description: all the global variables and thread handling for
* those variables is handled by this module.
*
* The bottom of this file is automatically generated by build_glob.py
* based on the description file global.data
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_GLOBALS_H)
/define XML_GLOBALS_H
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/parser"
/include "libxmlrpg/xmlerror"
/include "libxmlrpg/SAX"
/include "libxmlrpg/SAX2"
/include "libxmlrpg/xmlmemory"
d xmlInitGlobals pr extproc('xmlInitGlobals')
d xmlCleanupGlobals...
d pr extproc('xmlCleanupGlobals')
* xmlParserInputBufferCreateFilenameFunc:
* @URI: the URI to read from
* @enc: the requested source encoding
*
* Signature for the function doing the lookup for a suitable input method
* corresponding to an URI.
*
* Returns the new xmlParserInputBufferPtr in case of success or NULL if no
* method was found.
d xmlParserInputBufferCreateFilenameFunc...
d s * based(######typedef######)
d procptr
* xmlOutputBufferCreateFilenameFunc:
* @URI: the URI to write to
* @enc: the requested target encoding
*
* Signature for the function doing the lookup for a suitable output method
* corresponding to an URI.
*
* Returns the new xmlOutputBufferPtr in case of success or NULL if no
* method was found.
d xmlOutputBufferCreateFilenameFunc...
d s * based(######typedef######)
d procptr
d xmlParserInputBufferCreateFilenameDefault...
d pr extproc('xmlParserInputBufferCreate+
d FilenameDefault')
d like(xmlParserInputBuffer...
d CreateFilenameFunc)
d func value like(xmlParserInputBuffer...
d CreateFilenameFunc)
d xmlOutputBufferCreateFilenameDefault...
d pr extproc('xmlOutputBufferCreate+
d FilenameDefault')
d like(xmlOutputBuffer...
d CreateFilenameFunc)
d func value like(xmlOutputBuffer...
d CreateFilenameFunc)
* xmlRegisterNodeFunc:
* @node: the current node
*
* Signature for the registration callback of a created node
d xmlRegisterNodeFunc...
d s * based(######typedef######)
d procptr
* xmlDeregisterNodeFunc:
* @node: the current node
*
* Signature for the deregistration callback of a discarded node
d xmlDeregisterNodeFunc...
d s * based(######typedef######)
d procptr
d xmlGlobalStatePtr...
d s * based(######typedef######)
d xmlGlobalState ds based(xmlGlobalStatePtr)
d align qualified
d xmlParserVersion...
d * const char *
d xmlDefaultSAXLocator...
d likeds(xmlSAXLocator)
d xmlDefaultSAXHandler...
d likeds(xmlSAXHandlerV1)
d docbDefaultSAXHandler...
d likeds(xmlSAXHandlerV1)
d htmlDefaultSAXHandler...
d likeds(xmlSAXHandlerV1)
d xmlFree like(xmlFreeFunc)
d xmlMalloc like(xmlMallocFunc)
d xmlMemStrdup like(xmlStrdupFunc)
d xmlRealloc like(xmlReallocFunc)
d xmlGenericError...
d like(xmlGenericErrorFunc)
d xmlStructuredError...
d like(xmlStructuredErrorFunc)
d xmlGenericErrorContext...
d * void *
d oldXMLWDcompatibility...
d like(xmlCint)
d xmlBufferAllocScheme...
d like(xmlBufferAllocationScheme)
d xmlDefaultBufferSize...
d like(xmlCint)
d xmlSubstituteEntitiesDefaultValue...
d like(xmlCint)
d xmlDoValidityCheckingDefaultValue...
d like(xmlCint)
d xmlGetWarningsDefaultValue...
d like(xmlCint)
d xmlKeepBlanksDefaultValue...
d like(xmlCint)
d xmlLineNumbersDefaultValue...
d like(xmlCint)
d xmlLoadExtDtdDefaultValue...
d like(xmlCint)
d xmlParserDebugEntities...
d like(xmlCint)
d xmlPedanticParserDefaultValue...
d like(xmlCint)
d xmlSaveNoEmptyTags...
d like(xmlCint)
d xmlIndentTreeOutput...
d like(xmlCint)
d xmlTreeIndentString...
d * const char *
d xmlRegisterNodeDefaultValue...
d like(xmlRegisterNodeFunc)
d xmlDeregisterNodeDefaultValue...
d like(xmlDeregisterNodeFunc)
d xmlMallocAtomic...
d like(xmlMallocFunc)
d xmlLastError likeds(xmlError)
d xmlParserInputBufferCreateFilenameValue...
d like(xmlParserInputBuffer...
d CreateFilenameFunc)
d xmlOutputBufferCreateFilenameValue...
d like(xmlOutputBuffer...
d CreateFilenameFunc)
d xmlStructuredErrorContext...
d * void *
/include "libxmlrpg/threads"
d xmlInitializeGlobalState...
d pr extproc('xmlInitializeGlobalState')
d qs value like(xmlGlobalStatePtr)
d xmlThrDefSetGenericErrorFunc...
d pr extproc(
d 'xmlThrDefSetGenericErrorFunc')
d ctx * value void *
d handler value like(xmlGenericErrorFunc)
d xmlThrDefSetStructuredErrorFunc...
d pr extproc(
d 'xmlThrDefSetStructuredErrorFunc')
d ctx * value void *
d handler value like(xmlStructuredErrorFunc)
d xmlRegisterNodeDefault...
d pr extproc('xmlRegisterNodeDefault')
d like(xmlRegisterNodeFunc)
d func value like(xmlRegisterNodeFunc)
d xmlThrDefRegisterNodeDefault...
d pr extproc(
d 'xmlThrDefRegisterNodeDefault')
d like(xmlRegisterNodeFunc)
d func value like(xmlRegisterNodeFunc)
d xmlDeregisterNodeDefault...
d pr extproc('xmlDeregisterNodeDefault')
d like(xmlDeregisterNodeFunc)
d func value like(xmlDeregisterNodeFunc)
d xmlThrDefDeregisterNodeDefault...
d pr extproc(
d 'xmlThrDefDeregisterNodeDefault')
d like(xmlDeregisterNodeFunc)
d func value like(xmlDeregisterNodeFunc)
d xmlThrDefOutputBufferCreateFilenameDefault...
d pr extproc('xmlThrDefOutputBuffer+
d CreateFilenameDefault')
d like(xmlOutputBuffer...
d CreateFilenameFunc)
d func value like(xmlOutputBuffer...
d CreateFilenameFunc)
d xmlThrDefParserInputBufferCreateFilenameDefault...
d pr extproc('xmlThrDefParserInputBuffer+
d CreateFilenameDefault')
d like(xmlParserInputBuffer...
d CreateFilenameFunc)
d func value like(xmlParserInputBuffer...
d CreateFilenameFunc)
/if defined(LIBXML_DOCB_ENABLED)
d get_docbDefaultSAXHandler...
d pr extproc(
d '__get_docbDefaultSAXHandler')
d likeds(xmlSAXHandlerV1)
d set_docbDefaultSAXHandler...
d pr extproc(
d '__set_docbDefaultSAXHandler')
d value value likeds(xmlSAXHandlerV1)
/endif
/if defined(LIBXML_HTML_ENABLED)
d get_htmlDefaultSAXHandler...
d pr extproc(
d '__get_htmlDefaultSAXHandler')
d likeds(xmlSAXHandlerV1)
d set_htmlDefaultSAXHandler...
d pr extproc(
d '__set_htmlDefaultSAXHandler')
d value value likeds(xmlSAXHandlerV1)
/endif
d get_xmlLastError...
d pr extproc('__get_xmlLastError')
d likeds(xmlError)
d set_xmlLastError...
d pr extproc('__set_xmlLastError')
d value value likeds(xmlError)
d get_oldXMLWDcompatibility...
d pr extproc(
d '__get_oldXMLWDcompatibility')
d like(xmlCint)
d set_oldXMLWDcompatibility...
d pr extproc(
d '__set_oldXMLWDcompatibility')
d value value like(xmlCint)
d get_xmlBufferAllocScheme...
d pr extproc('__get_xmlBufferAllocScheme')
d like(xmlBufferAllocationScheme)
d set_xmlBufferAllocScheme...
d pr extproc('__set_xmlBufferAllocScheme')
d value value like(xmlBufferAllocationScheme)
d xmlThrDefBufferAllocScheme...
d pr extproc('xmlThrDefBufferAllocScheme')
d like(xmlBufferAllocationScheme)
d v value like(xmlBufferAllocationScheme)
d get_xmlDefaultBufferSize...
d pr extproc('__get_xmlDefaultBufferSize')
d like(xmlCint)
d set_xmlDefaultBufferSize...
d pr extproc('__set_xmlDefaultBufferSize')
d value value like(xmlCint)
d xmlThrDefDefaultBufferSize...
d pr extproc('xmlThrDefDefaultBufferSize')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlDefaultSAXHandler...
d pr extproc('__get_xmlDefaultSAXHandler')
d likeds(xmlSAXHandlerV1)
d set_xmlDefaultSAXHandler...
d pr extproc('__set_xmlDefaultSAXHandler')
d value value likeds(xmlSAXHandlerV1)
d get_xmlDefaultSAXLocator...
d pr extproc('__get_xmlDefaultSAXLocator')
d likeds(xmlSAXLocator)
d set_xmlDefaultSAXLocator...
d pr extproc('__set_xmlDefaultSAXLocator')
d value value likeds(xmlSAXLocator)
d get_xmlDoValidityCheckingDefaultValue...
d pr extproc('__get_xmlDoValidity+
d CheckingDefaultValue')
d like(xmlCint)
d set_xmlDoValidityCheckingDefaultValue...
d pr extproc('__set_xmlDoValidity+
d CheckingDefaultValue')
d value value like(xmlCint)
d xmlThrDefDoValidityCheckingDefaultValue...
d pr extproc('xmlThrDefDoValidity+
d CheckingDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlGenericError...
d pr extproc('__get_xmlGenericError')
d like(xmlGenericErrorFunc)
d set_xmlGenericError...
d pr extproc('__set_xmlGenericError')
d func value like(xmlGenericErrorFunc)
d get_xmlStructuredError...
d pr extproc('__get_xmlStructuredError')
d like(xmlStructuredErrorFunc)
d set_xmlStructuredError...
d pr extproc('__set_xmlStructuredError')
d func value like(xmlStructuredErrorFunc)
d xmlStructuredError...
d pr extproc('__call_xmlStructuredError')
d userData * value options(*string) void *
d error value like(xmlErrorPtr)
d get_xmlGenericErrorContext...
d pr extproc(
d '__get_xmlGenericErrorContext')
d * void *
d set_xmlGenericErrorContext...
d pr extproc(
d '__set_xmlGenericErrorContext')
d value * value options(*string) void *
d get_xmlStructuredErrorContext...
d pr extproc(
d '__get_xmlStructuredErrorContext')
d * void *
d set_xmlStructuredErrorContext...
d pr extproc(
d '__set_xmlStructuredErrorContext')
d value * value options(*string) void *
d get_xmlGetWarningsDefaultValue...
d pr extproc(
d '__get_xmlGetWarningsDefaultValue')
d like(xmlCint)
d set_xmlGetWarningsDefaultValue...
d pr extproc(
d '__set_xmlGetWarningsDefaultValue')
d value value like(xmlCint)
d xmlThrDefGetWarningsDefaultValue...
d pr extproc(
d 'xmlThrDefGetWarningsDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlIndentTreeOutput...
d pr extproc('__get_xmlIndentTreeOutput')
d like(xmlCint)
d set_xmlIndentTreeOutput...
d pr extproc('__set_xmlIndentTreeOutput')
d value value like(xmlCint)
d xmlThrDefIndentTreeOutput...
d pr extproc('xmlThrDefIndentTreeOutput')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlTreeIndentString...
d pr * extproc('__get_xmlTreeIndentString') const char *
d set_xmlTreeIndentString...
d pr extproc('__set_xmlTreeIndentString')
d value * value options(*string) const char *
d xmlThrDefTreeIndentString...
d pr * extproc('xmlThrDefTreeIndentString') const char *
d v * value options(*string) const char *
d get_xmlKeepBlanksDefaultValue...
d pr extproc(
d '__get_xmlKeepBlanksDefaultValue')
d like(xmlCint)
d set_xmlKeepBlanksDefaultValue...
d pr extproc(
d '__set_xmlKeepBlanksDefaultValue')
d value value like(xmlCint)
d xmlThrDefKeepBlanksDefaultValue...
d pr extproc(
d 'xmlThrDefKeepBlanksDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlLineNumbersDefaultValue...
d pr extproc(
d '__get_xmlLineNumbersDefaultValue')
d like(xmlCint)
d set_xmlLineNumbersDefaultValue...
d pr extproc(
d '__set_xmlLineNumbersDefaultValue')
d value value like(xmlCint)
d xmlThrDefLineNumbersDefaultValue...
d pr extproc(
d 'xmlThrDefLineNumbersDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlLoadExtDtdDefaultValue...
d pr extproc(
d '__get_xmlLoadExtDtdDefaultValue')
d like(xmlCint)
d set_xmlLoadExtDtdDefaultValue...
d pr extproc(
d '__set_xmlLoadExtDtdDefaultValue')
d value value like(xmlCint)
d xmlThrDefLoadExtDtdDefaultValue...
d pr extproc(
d 'xmlThrDefLoadExtDtdDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlParserDebugEntities...
d pr extproc(
d '__get_xmlParserDebugEntities')
d like(xmlCint)
d set_xmlParserDebugEntities...
d pr extproc(
d '__set_xmlParserDebugEntities')
d value value like(xmlCint)
d xmlThrDefParserDebugEntities...
d pr extproc(
d 'xmlThrDefParserDebugEntities')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlParserVersion...
d pr * extproc('__get_xmlParserVersion') const char *
d set_xmlParserVersion...
d pr extproc('__set_xmlParserVersion')
d value * value options(*string) const char *
d get_xmlPedanticParserDefaultValue...
d pr extproc('__get_xmlPedantic+
d ParserDefaultValue')
d like(xmlCint)
d set_xmlPedanticParserDefaultValue...
d pr extproc('__set_xmlPedantic+
d ParserDefaultValue')
d value value like(xmlCint)
d xmlThrDefPedanticParserDefaultValue...
d pr extproc('xmlThrDefPedantic+
d ParserDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlSaveNoEmptyTags...
d pr extproc('__get_xmlSaveNoEmptyTags')
d like(xmlCint)
d set_xmlSaveNoEmptyTags...
d pr extproc('__set_xmlSaveNoEmptyTags')
d value value like(xmlCint)
d xmlThrDefSaveNoEmptyTags...
d pr extproc('xmlThrDefSaveNoEmptyTags')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlSubstituteEntitiesDefaultValue...
d pr extproc('__get_xmlSubstitute+
d EntitiesDefaultValue')
d like(xmlCint)
d set_xmlSubstituteEntitiesDefaultValue...
d pr extproc('__set_xmlSubstitute+
d EntitiesDefaultValue')
d value value like(xmlCint)
d xmlThrDefSubstituteEntitiesDefaultValue...
d pr extproc('xmlThrDefSubstitute+
d EntitiesDefaultValue')
d like(xmlCint)
d v value like(xmlCint)
d get_xmlRegisterNodeDefaultValue...
d pr extproc('__get_xmlRegisterNode+
d DefaultValue')
d like(xmlRegisterNodeFunc)
d set_xmlRegisterNodeDefaultValue...
d pr extproc('__set_xmlRegisterNode+
d DefaultValue')
d value value like(xmlRegisterNodeFunc)
d xmlRegisterNodeDefaultValue...
d pr extproc('__call_xmlRegisterNode+
d DefaultValue')
d node value like(xmlNodePtr)
d get_xmlDeregisterNodeDefaultValue...
d pr extproc('__get_xmlDeregisterNode+
d DefaultValue')
d like(xmlDeregisterNodeFunc)
d set_xmlDeregisterNodeDefaultValue...
d pr extproc('__set_xmlDeregisterNode+
d DefaultValue')
d value value like(xmlDeregisterNodeFunc)
d xmlDeregisterNodeDefaultValue...
d pr extproc('__call_xmlDeregisterNode+
d DefaultValue')
d node value like(xmlNodePtr)
d get_xmlParserInputBufferCreateFilenameValue...
d pr extproc('__get_xmlParserInputBuffer+
d CreateFilenameValue')
d like(xmlParserInputBuffer...
d CreateFilenameFunc)
d set_xmlParserInputBufferCreateFilenameValue...
d pr extproc('__set_xmlParserInputBuffer+
d CreateFilenameValue')
d value value like(xmlParserInputBuffer...
d CreateFilenameFunc)
d xmlParserInputBufferCreateFilenameValue...
d pr extproc('__call_xmlParserInputBuffer+
d CreateFilenameValue')
d like(xmlParserInputBufferPtr)
d URI * value options(*string) const char *
d enc value like(xmlCharEncoding)
d get_xmlOutputBufferCreateFilenameValue...
d pr extproc('__get_xmlOutputBuffer+
d CreateFilenameValue')
d like(
d xmlOutputBufferCreateFilenameFunc)
d set_xmlOutputBufferCreateFilenameValue...
d pr extproc('__set_xmlOutputBuffer+
d CreateFilenameValue')
d value value like(
d xmlOutputBufferCreateFilenameFunc)
d xmlOutputBufferCreateFilenameValue...
d pr extproc('__call_xmlOutputBuffer+
d CreateFilenameValue')
d like(xmlOutputBufferPtr)
d URI * value options(*string) const char *
d encoder value like(xmlCharEncodingHandlerPtr)
d compression value like(xmlCint)
/endif XML_GLOBALS_H

243
os400/libxmlrpg/hash.rpgle
View File

@ -1,243 +0,0 @@
* Summary: Chained hash tables
* Description: This module implements the hash table support used in
* various places in the library.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_HASH_H__)
/define XML_HASH_H__
/include "libxmlrpg/xmlTypesC"
* The hash table.
d xmlHashTablePtr...
d s * based(######typedef######)
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/parser"
/include "libxmlrpg/dict"
* function types:
* xmlHashDeallocator:
* @payload: the data in the hash
* @name: the name associated
*
* Callback to free data from a hash.
d xmlHashDeallocator...
d s * based(######typedef######)
d procptr
* xmlHashCopier:
* @payload: the data in the hash
* @name: the name associated
*
* Callback to copy data from a hash.
*
* Returns a copy of the data or NULL in case of error.
d xmlHashCopier s * based(######typedef######)
d procptr
* xmlHashScanner:
* @payload: the data in the hash
* @data: extra scannner data
* @name: the name associated
*
* Callback when scanning data in a hash with the simple scanner.
d xmlHashScanner s * based(######typedef######)
d procptr
* xmlHashScannerFull:
* @payload: the data in the hash
* @data: extra scannner data
* @name: the name associated
* @name2: the second name associated
* @name3: the third name associated
*
* Callback when scanning data in a hash with the full scanner.
d xmlHashScannerFull...
d s * based(######typedef######)
d procptr
* Constructor and destructor.
d xmlHashCreate pr extproc('xmlHashCreate')
d like(xmlHashTablePtr)
d size value like(xmlCint)
d xmlHashCreateDict...
d pr extproc('xmlHashCreateDict')
d like(xmlHashTablePtr)
d size value like(xmlCint)
d dict value like(xmlDictPtr)
d xmlHashFree pr extproc('xmlHashFree')
d table value like(xmlHashTablePtr)
d f value like(xmlHashDeallocator)
* Add a new entry to the hash table.
d xmlHashAddEntry...
d pr extproc('xmlHashAddEntry')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d xmlHashUpdateEntry...
d pr extproc('xmlHashUpdateEntry')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d f value like(xmlHashDeallocator)
d xmlHashAddEntry2...
d pr extproc('xmlHashAddEntry2')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d xmlHashUpdateEntry2...
d pr extproc('xmlHashUpdateEntry2')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d f value like(xmlHashDeallocator)
d xmlHashAddEntry3...
d pr extproc('xmlHashAddEntry3')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d xmlHashUpdateEntry3...
d pr extproc('xmlHashUpdateEntry3')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d userdata * value options(*string) void *
d f value like(xmlHashDeallocator)
* Remove an entry from the hash table.
d xmlHashRemoveEntry...
d pr extproc('xmlHashRemoveEntry')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d f value like(xmlHashDeallocator)
d xmlHashRemoveEntry2...
d pr extproc('xmlHashRemoveEntry2')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d f value like(xmlHashDeallocator)
d xmlHashRemoveEntry3...
d pr extproc('xmlHashRemoveEntry3')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d f value like(xmlHashDeallocator)
* Retrieve the userdata.
d xmlHashLookup pr * extproc('xmlHashLookup') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d xmlHashLookup2 pr * extproc('xmlHashLookup2') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d xmlHashLookup3 pr * extproc('xmlHashLookup3') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d xmlHashQLookup pr * extproc('xmlHashQLookup') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d xmlHashQLookup2...
d pr * extproc('xmlHashQLookup2') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d prefix2 * value options(*string) const xmlChar *
d xmlHashQLookup3...
d pr * extproc('xmlHashQLookup3') void *
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d prefix2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d prefix3 * value options(*string) const xmlChar *
* Helpers.
d xmlHashCopy pr extproc('xmlHashCopy')
d like(xmlHashTablePtr)
d table value like(xmlHashTablePtr)
d f value like(xmlHashCopier)
d xmlHashSize pr extproc('xmlHashSize')
d like(xmlCint)
d table value like(xmlHashTablePtr)
d xmlHashScan pr extproc('xmlHashScan')
d table value like(xmlHashTablePtr)
d f value like(xmlHashScanner)
d data * value options(*string) void *
d xmlHashScan3 pr extproc('xmlHashScan3')
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d f value like(xmlHashScanner)
d data * value options(*string) void *
d xmlHashScanFull...
d pr extproc('xmlHashScanFull')
d table value like(xmlHashTablePtr)
d f value like(xmlHashScannerFull)
d data * value options(*string) void *
d xmlHashScanFull3...
d pr extproc('xmlHashScanFull3')
d table value like(xmlHashTablePtr)
d name * value options(*string) const xmlChar *
d name2 * value options(*string) const xmlChar *
d name3 * value options(*string) const xmlChar *
d f value like(xmlHashScannerFull)
d data * value options(*string) void *
/endif XML_HASH_H__

179
os400/libxmlrpg/list.rpgle
View File

@ -1,179 +0,0 @@
* Summary: lists interfaces
* Description: this module implement the list support used in
* various place in the library.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_LINK_INCLUDE__)
/define XML_LINK_INCLUDE__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
d xmlLinkPtr s * based(######typedef######)
d xmlListPtr s * based(######typedef######)
* xmlListDeallocator:
* @lk: the data to deallocate
*
* Callback function used to free data from a list.
d xmlListDeallocator...
d s * based(######typedef######)
d procptr
* xmlListDataCompare:
* @data0: the first data
* @data1: the second data
*
* Callback function used to compare 2 data.
*
* Returns 0 is equality, -1 or 1 otherwise depending on the ordering.
d xmlListDataCompare...
d s * based(######typedef######)
d procptr
* xmlListWalker:
* @data: the data found in the list
* @user: extra user provided data to the walker
*
* Callback function used when walking a list with xmlListWalk().
*
* Returns 0 to stop walking the list, 1 otherwise.
d xmlListWalker s * based(######typedef######)
d procptr
* Creation/Deletion
d xmlListCreate pr extproc('xmlListCreate')
d like(xmlListPtr)
d deallocator value like(xmlListDeallocator)
d compare value like(xmlListDataCompare)
d xmlListDelete pr extproc('xmlListDelete')
d l value like(xmlListPtr)
* Basic Operators
d xmlListSearch pr * extproc('xmlListSearch') void *
d l value like(xmlListPtr)
d data * value void *
d xmlListReverseSearch...
d pr * extproc('xmlListReverseSearch') void *
d l value like(xmlListPtr)
d data * value void *
d xmlListInsert pr extproc('xmlListInsert')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListAppend pr extproc('xmlListAppend')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListRemoveFirst...
d pr extproc('xmlListRemoveFirst')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListRemoveLast...
d pr extproc('xmlListRemoveLast')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListRemoveAll...
d pr extproc('xmlListRemoveAll')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListClear pr extproc('xmlListClear')
d l value like(xmlListPtr)
d xmlListEmpty pr extproc('xmlListEmpty')
d like(xmlCint)
d l value like(xmlListPtr)
d xmlListFront pr extproc('xmlListFront')
d like(xmlLinkPtr)
d l value like(xmlListPtr)
d xmlListEnd pr extproc('xmlListEnd')
d like(xmlLinkPtr)
d l value like(xmlListPtr)
d xmlListSize pr extproc('xmlListSize')
d like(xmlCint)
d l value like(xmlListPtr)
d xmlListPopFront...
d pr extproc('xmlListPopFront')
d l value like(xmlListPtr)
d xmlListPopBack...
d pr extproc('xmlListPopBack')
d l value like(xmlListPtr)
d xmlListPushFront...
d pr extproc('xmlListPushFront')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
d xmlListPushBack...
d pr extproc('xmlListPushBack')
d like(xmlCint)
d l value like(xmlListPtr)
d data * value void *
* Advanced Operators
d xmlListReverse pr extproc('xmlListReverse')
d l value like(xmlListPtr)
d xmlListSort pr extproc('xmlListSort')
d l value like(xmlListPtr)
d xmlListWalk pr extproc('xmlListWalk')
d l value like(xmlListPtr)
d walker value like(xmlListWalker)
d user * value const void *
d xmlListReverseWalk...
d pr extproc('xmlListReverseWalk')
d l value like(xmlListPtr)
d walker value like(xmlListWalker)
d user * value const void *
d xmlListMerge pr extproc('xmlListMerge')
d l1 value like(xmlListPtr)
d l2 value like(xmlListPtr)
d xmlListDup pr extproc('xmlListDup')
d like(xmlListPtr)
d old value like(xmlListPtr)
d xmlListCopy pr extproc('xmlListCopy')
d like(xmlCint)
d cur value like(xmlListPtr)
d old value like(xmlListPtr) const
* Link operators
d xmlListGetData pr * extproc('xmlListGetData') void *
d lk value like(xmlLinkPtr)
* xmlListUnique()
* xmlListSwap
/endif XML_LINK_INCLUDE__

172
os400/libxmlrpg/nanoftp.rpgle
View File

@ -1,172 +0,0 @@
* Summary: minimal FTP implementation
* Description: minimal FTP implementation allowing to fetch resources
* like external subset.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(NANO_FTP_H__)
/define NANO_FTP_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_FTP_ENABLED)
/include "libxmlrpg/xmlTypesC"
d INVALID_SOCKET c -1
* ftpListCallback:
* @userData: user provided data for the callback
* @filename: the file name (including "->" when links are shown)
* @attrib: the attribute string
* @owner: the owner string
* @group: the group string
* @size: the file size
* @links: the link count
* @year: the year
* @month: the month
* @day: the day
* @hour: the hour
* @minute: the minute
*
* A callback for the xmlNanoFTPList command.
* Note that only one of year and day:minute are specified.
d ftpListCallback...
d s * based(######typedef######)
d procptr
* ftpDataCallback:
* @userData: the user provided context
* @data: the data received
* @len: its size in bytes
*
* A callback for the xmlNanoFTPGet command.
d ftpDataCallback...
d s * based(######typedef######)
d procptr
* Init
d xmlNanoFTPInit pr extproc('xmlNanoFTPInit')
d xmlNanoFTPCleanup...
d pr extproc('xmlNanoFTPCleanup')
* Creating/freeing contexts.
d xmlNanoFTPNewCtxt...
d pr * extproc('xmlNanoFTPNewCtxt') void *
d URL * value options(*string) const char *
d xmlNanoFTPFreeCtxt...
d pr extproc('xmlNanoFTPFreeCtxt')
d ctx * value void *
d xmlNanoFTPConnectTo...
d pr * extproc('xmlNanoFTPConnectTo') void *
d server * value options(*string) const char *
d port value like(xmlCint)
* Opening/closing session connections.
d xmlNanoFTPOpen pr * extproc('xmlNanoFTPOpen') void *
d URL * value options(*string) const char *
d xmlNanoFTPConnect...
d pr extproc('xmlNanoFTPConnect')
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPClose...
d pr extproc('xmlNanoFTPClose')
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPQuit pr extproc('xmlNanoFTPQuit')
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPScanProxy...
d pr extproc('xmlNanoFTPScanProxy')
d URL * value options(*string) const char *
d xmlNanoFTPProxy...
d pr extproc('xmlNanoFTPProxy')
d host * value options(*string) const char *
d port value like(xmlCint)
d user * value options(*string) const char *
d passwd * value options(*string) const char *
d type value like(xmlCint)
d xmlNanoFTPUpdateURL...
d pr extproc('xmlNanoFTPUpdateURL')
d like(xmlCint)
d ctx * value void *
d URL * value options(*string) const char *
* Rather internal commands.
d xmlNanoFTPGetResponse...
d pr extproc('xmlNanoFTPGetResponse')
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPCheckResponse...
d pr extproc('xmlNanoFTPCheckResponse')
d like(xmlCint)
d ctx * value void *
* CD/DIR/GET handlers.
d xmlNanoFTPCwd pr extproc('xmlNanoFTPCwd')
d like(xmlCint)
d ctx * value void *
d directory * value options(*string) const char *
d xmlNanoFTPDele pr extproc('xmlNanoFTPDele')
d like(xmlCint)
d ctx * value void *
d file * value options(*string) const char *
d xmlNanoFTPGetConnection...
d pr extproc('xmlNanoFTPGetConnection') Socket descriptor
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPCloseConnection...
d pr extproc('xmlNanoFTPCloseConnection')
d like(xmlCint)
d ctx * value void *
d xmlNanoFTPList pr extproc('xmlNanoFTPList')
d like(xmlCint)
d ctx * value void *
d callback value like(ftpListCallback)
d userData * value void *
d filename * value options(*string) const char *
d xmlNanoFTPGetSocket...
d pr extproc('xmlNanoFTPGetSocket') Socket descriptor
d like(xmlCint)
d ctx * value void *
d filename * value options(*string) const char *
d xmlNanoFTPGet pr extproc('xmlNanoFTPGet')
d like(xmlCint)
d ctx * value void *
d callback value like(ftpDataCallback)
d userData * value void *
d filename * value options(*string) const char *
d xmlNanoFTPRead pr extproc('xmlNanoFTPRead')
d like(xmlCint)
d ctx * value void *
d dest * value void *
d len value like(xmlCint)
/endif LIBXML_FTP_ENABLED
/endif NANO_FTP_H__

110
os400/libxmlrpg/nanohttp.rpgle
View File

@ -1,110 +0,0 @@
* Summary: minimal HTTP implementation
* Description: minimal HTTP implementation allowing to fetch resources
* like external subset.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(NANO_HTTP_H__)
/define NANO_HTTP_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_HTTP_ENABLED)
/include "libxmlrpg/xmlTypesC"
d xmlNanoHTTPInit...
d pr extproc('xmlNanoHTTPInit')
d xmlNanoHTTPCleanup...
d pr extproc('xmlNanoHTTPCleanup')
d xmlNanoHTTPScanProxy...
d pr extproc('xmlNanoHTTPScanProxy')
d URL * value options(*string) const char *
d xmlNanoHTTPFetch...
d pr extproc('xmlNanoHTTPFetch')
d like(xmlCint)
d URL * value options(*string) const char *
d filename * value options(*string) const char *
d xmlNanoHTTPMethod...
d pr * extproc('xmlNanoHTTPMethod') void *
d URL * value options(*string) const char *
d method * value options(*string) const char *
d input * value options(*string) const char *
d contentType * value char * *
d headers * value options(*string) const char *
d ilen value like(xmlCint)
d xmlNanoHTTPMethodRedir...
d pr * extproc('xmlNanoHTTPMethodRedir') void *
d URL * value options(*string) const char *
d method * value options(*string) const char *
d input * value options(*string) const char *
d contentType * value char * *
d redir * value char * *
d headers * value options(*string) const char *
d ilen value like(xmlCint)
d xmlNanoHTTPOpen...
d pr * extproc('xmlNanoHTTPOpen') void *
d URL * value options(*string) const char *
d contentType * char *(*)
d xmlNanoHTTPOpenRedir...
d pr * extproc('xmlNanoHTTPOpenRedir') void *
d URL * value options(*string) const char *
d contentType * value char * *
d redir * value char * *
d xmlNanoHTTPReturnCode...
d pr extproc('xmlNanoHTTPReturnCode')
d like(xmlCint)
d ctx * value void *
d xmlNanoHTTPAuthHeader...
d pr * extproc('xmlNanoHTTPAuthHeader') const char *
d ctx * value void *
d xmlNanoHTTPRedir...
d pr * extproc('xmlNanoHTTPRedir') const char *
d ctx * value void *
d xmlNanoHTTPContentLength...
d pr extproc('xmlNanoHTTPContentLength')
d like(xmlCint)
d ctx * value void *
d xmlNanoHTTPEncoding...
d pr * extproc('xmlNanoHTTPEncoding') const char *
d ctx * value void *
d xmlNanoHTTPMimeType...
d pr * extproc('xmlNanoHTTPMimeType') const char *
d ctx * value void *
d xmlNanoHTTPRead...
d pr extproc('xmlNanoHTTPRead')
d like(xmlCint)
d ctx * value void *
d dest * value void *
d len value like(xmlCint)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlNanoHTTPSave...
d pr extproc('xmlNanoHTTPSave')
d like(xmlCint)
d ctxt * value void *
d filename * value options(*string) const char *
/endif LIBXML_OUTPUT_ENABLD
d xmlNanoHTTPClose...
d pr extproc('xmlNanoHTTPClose')
d ctx * value void *
/endif LIBXML_HTTP_ENABLED
/endif NANO_HTTP_H__

1436
os400/libxmlrpg/parser.rpgle
View File

File diff suppressed because it is too large Load Diff

598
os400/libxmlrpg/parserInternals.rpgle
View File

@ -1,598 +0,0 @@
* Summary: internals routines and limits exported by the parser.
* Description: this module exports a number of internal parsing routines
* they are not really all intended for applications but
* can prove useful doing low level processing.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_PARSER_INTERNALS_H__)
/define XML_PARSER_INTERNALS_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/parser"
/include "libxmlrpg/HTMLparser"
/include "libxmlrpg/chvalid"
* xmlParserMaxDepth:
*
* arbitrary depth limit for the XML documents that we allow to
* process. This is not a limitation of the parser but a safety
* boundary feature, use XML_PARSE_HUGE option to override it.
d xmlParserMaxDepth...
d s import('xmlParserMaxDepth')
d like(xmlCuint)
* XML_MAX_TEXT_LENGTH:
*
* Maximum size allowed for a single text node when building a tree.
* This is not a limitation of the parser but a safety boundary feature,
* use XML_PARSE_HUGE option to override it.
* Introduced in 2.9.0
d XML_MAX_TEXT_LENGTH...
d c 10000000
* XML_MAX_NAME_LENGTH:
*
* Maximum size allowed for a markup identitier
* This is not a limitation of the parser but a safety boundary feature,
* use XML_PARSE_HUGE option to override it.
* Note that with the use of parsing dictionaries overriding the limit
* may result in more runtime memory usage in face of "unfriendly' content
* Introduced in 2.9.0
d XML_MAX_NAME_LENGTH...
d c 50000
* XML_MAX_DICTIONARY_LIMIT:
*
* Maximum size allowed by the parser for a dictionary by default
* This is not a limitation of the parser but a safety boundary feature,
* use XML_PARSE_HUGE option to override it.
* Introduced in 2.9.0
d XML_MAX_DICTIONARY_LIMIT...
d c 10000000
* XML_MAX_LOOKUP_LIMIT:
*
* Maximum size allowed by the parser for ahead lookup
* This is an upper boundary enforced by the parser to avoid bad
* behaviour on "unfriendly' content
* Introduced in 2.9.0
d XML_MAX_LOOKUP_LIMIT...
d c 10000000
* XML_MAX_NAMELEN:
*
* Identifiers can be longer, but this will be more costly
* at runtime.
d XML_MAX_NAMELEN...
d c 100
* INPUT_CHUNK:
*
* The parser tries to always have that amount of input ready.
* One of the point is providing context when reporting errors.
d INPUT_CHUNK c 250
* Global variables used for predefined strings.
d xmlStringText s 4 import('xmlStringText') \0 in 5th byte
d xmlStringTextNoenc...
d s 9 import('xmlStringTextNoenc') \0 in 10th byte
d xmlStringComment...
d s 7 import('xmlStringComment') \0 in 8th byte
* Function to finish the work of the macros where needed.
d xmlIsLetter pr extproc('xmlIsLetter')
d like(xmlCint)
d c value like(xmlCint)
* Parser context.
d xmlCreateFileParserCtxt...
d pr extproc('xmlCreateFileParserCtxt')
d like(xmlParserCtxtPtr)
d filename * value options(*string) const char *
d xmlCreateURLParserCtxt...
d pr extproc('xmlCreateURLParserCtxt')
d like(xmlParserCtxtPtr)
d filename * value options(*string) const char *
d options value like(xmlCint)
d xmlCreateMemoryParserCtxt...
d pr extproc('xmlCreateMemoryParserCtxt')
d like(xmlParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d xmlCreateEntityParserCtxt...
d pr extproc('xmlCreateEntityParserCtxt')
d like(xmlParserCtxtPtr)
d URL * value options(*string) const xmlChar *
d ID * value options(*string) const xmlChar *
d base * value options(*string) const xmlChar *
d xmlSwitchEncoding...
d pr extproc('xmlSwitchEncoding')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d enc value like(xmlCharEncoding)
d xmlSwitchToEncoding...
d pr extproc('xmlSwitchToEncoding')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d handler value like(xmlCharEncodingHandlerPtr)
d xmlSwitchInputEncoding...
d pr extproc('xmlSwitchInputEncoding')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d input value like(xmlParserInputPtr)
d handler value like(xmlCharEncodingHandlerPtr)
* Input Streams.
d xmlNewStringInputStream...
d pr extproc('xmlNewStringInputStream')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
d buffer * value options(*string) const xmlChar *
d xmlNewEntityInputStream...
d pr extproc('xmlNewEntityInputStream')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
d entity value like(xmlEntityPtr)
d xmlPushInput pr extproc('xmlPushInput')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d input value like(xmlParserInputPtr)
d xmlPopInput pr extproc('xmlPopInput')
d like(xmlChar)
d ctxt value like(xmlParserCtxtPtr)
d xmlFreeInputStream...
d pr extproc('xmlFreeInputStream')
d input value like(xmlParserInputPtr)
d xmlNewInputFromFile...
d pr extproc('xmlNewInputFromFile')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
d filename * value options(*string) const char *
d xmlNewInputStream...
d pr extproc('xmlNewInputStream')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
* Namespaces.
d xmlSplitQName pr * extproc('xmlSplitQName') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d name * value options(*string) const xmlChar *
d prefix * xmlChar *(*)
* Generic production rules.
d xmlParseName pr * extproc('xmlParseName') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseNmtoken...
d pr * extproc('xmlParseNmtoken') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEntityValue...
d pr * extproc('xmlParseEntityValue') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d orig * xmlChar *(*)
d xmlParseAttValue...
d pr * extproc('xmlParseAttValue') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseSystemLiteral...
d pr * extproc('xmlParseSystemLiteral') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParsePubidLiteral...
d pr * extproc('xmlParsePubidLiteral') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseCharData...
d pr extproc('xmlParseCharData')
d ctxt value like(xmlParserCtxtPtr)
d cdata value like(xmlCint)
d xmlParseExternalID...
d pr * extproc('xmlParseExternalID') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d publicID * xmlChar *(*)
d strict value like(xmlCint)
d xmlParseComment...
d pr extproc('xmlParseComment')
d ctxt value like(xmlParserCtxtPtr)
d xmlParsePITarget...
d pr * extproc('xmlParsePITarget') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParsePI pr extproc('xmlParsePI')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseNotationDecl...
d pr extproc('xmlParseNotationDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEntityDecl...
d pr extproc('xmlParseEntityDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseDefaultDecl...
d pr extproc('xmlParseDefaultDecl')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d value * xmlChar *(*)
d xmlParseNotationType...
d pr extproc('xmlParseNotationType')
d like(xmlEnumerationPtr)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEnumerationType...
d pr extproc('xmlParseEnumerationType')
d like(xmlEnumerationPtr)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEnumeratedType...
d pr extproc('xmlParseEnumeratedType')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d tree * value xmlEnumerationPtr *
d xmlParseAttributeType...
d pr extproc('xmlParseAttributeType')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d tree * value xmlEnumerationPtr *
d xmlParseAttributeListDecl...
d pr extproc('xmlParseAttributeListDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseElementMixedContentDecl...
d pr extproc(
d 'xmlParseElementMixedContentDecl')
d like(xmlElementContentPtr)
d ctxt value like(xmlParserCtxtPtr)
d inputchk value like(xmlCint)
d xmlParseElementChildrenContentDecl...
d pr extproc(
d 'xmlParseElementChildrenContentDecl')
d like(xmlElementContentPtr)
d ctxt value like(xmlParserCtxtPtr)
d inputchk value like(xmlCint)
d xmlParseElementContentDecl...
d pr extproc('xmlParseElementContentDecl')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d name * value options(*string) const xmlChar *
d result * value xmlElementContentPtr
d *
d xmlParseElementDecl...
d pr extproc('xmlParseElementDecl')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseMarkupDecl...
d pr extproc('xmlParseMarkupDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseCharRef...
d pr extproc('xmlParseCharRef')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEntityRef...
d pr extproc('xmlParseEntityRef')
d like(xmlEntityPtr)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseReference...
d pr extproc('xmlParseReference')
d ctxt value like(xmlParserCtxtPtr)
d xmlParsePEReference...
d pr extproc('xmlParsePEReference')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseDocTypeDecl...
d pr extproc('xmlParseDocTypeDecl')
d ctxt value like(xmlParserCtxtPtr)
/if defined(LIBXML_SAX1_ENABLED)
d xmlParseAttribute...
d pr * extproc('xmlParseAttribute') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d value * xmlChar *(*)
d xmlParseStartTag...
d pr * extproc('xmlParseStartTag') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEndTag pr extproc('xmlParseEndTag')
d ctxt value like(xmlParserCtxtPtr)
/endif LIBXML_SAX1_ENABLED
d xmlParseCDSect pr extproc('xmlParseCDSect')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseContent...
d pr extproc('xmlParseContent')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseElement...
d pr extproc('xmlParseElement')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseVersionNum...
d pr * extproc('xmlParseVersionNum') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseVersionInfo...
d pr * extproc('xmlParseVersionInfo') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEncName...
d pr * extproc('xmlParseEncName') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseEncodingDecl...
d pr * extproc('xmlParseEncodingDecl') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseSDDecl pr extproc('xmlParseSDDecl')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d xmlParseXMLDecl...
d pr extproc('xmlParseXMLDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseTextDecl...
d pr extproc('xmlParseTextDecl')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseMisc pr extproc('xmlParseMisc')
d ctxt value like(xmlParserCtxtPtr)
d xmlParseExternalSubset...
d pr extproc('xmlParseExternalSubset')
d ctxt value like(xmlParserCtxtPtr)
d ExternalID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
* XML_SUBSTITUTE_NONE:
*
* If no entities need to be substituted.
d XML_SUBSTITUTE_NONE...
d c 0
* XML_SUBSTITUTE_REF:
*
* Whether general entities need to be substituted.
d XML_SUBSTITUTE_REF...
d c 1
* XML_SUBSTITUTE_PEREF:
*
* Whether parameter entities need to be substituted.
d XML_SUBSTITUTE_PEREF...
d c 2
* XML_SUBSTITUTE_BOTH:
*
* Both general and parameter entities need to be substituted.
d XML_SUBSTITUTE_BOTH...
d c 3
d xmlStringDecodeEntities...
d pr * extproc('xmlStringDecodeEntities') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d str * value options(*string) const xmlChar *
d what value like(xmlCint)
d end value like(xmlChar)
d end2 value like(xmlChar)
d end3 value like(xmlChar)
d xmlStringLenDecodeEntities...
d pr * extproc('xmlStringLenDecodeEntities')xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d str * value options(*string) const xmlChar *
d len value like(xmlCint)
d what value like(xmlCint)
d end value like(xmlChar)
d end2 value like(xmlChar)
d end3 value like(xmlChar)
* Generated by MACROS on top of parser.c c.f. PUSH_AND_POP.
d nodePush pr extproc('nodePush')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d value value like(xmlNodePtr)
d nodePop pr extproc('nodePop')
d like(xmlNodePtr)
d ctxt value like(xmlParserCtxtPtr)
d inputPush pr extproc('inputPush')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d value value like(xmlParserInputPtr)
d inputPop pr extproc('inputPop')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
d namePop pr * extproc('namePop') const xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d namePush pr extproc('namePush')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d value * value options(*string) const xmlChar *
* other commodities shared between parser.c and parserInternals.
d xmlSkipBlankChars...
d pr extproc('xmlSkipBlankChars')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d xmlStringCurrentChar...
d pr extproc('xmlStringCurrentChar')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d cur * value options(*string) const xmlChar *
d len * value int *
d xmlParserHandlePEReference...
d pr extproc('xmlParserHandlePEReference')
d ctxt value like(xmlParserCtxtPtr)
d xmlCheckLanguageID...
d pr extproc('xmlCheckLanguageID')
d like(xmlCint)
d lang * value options(*string) const xmlChar *
* Really core function shared with HTML parser.
d xmlCurrentChar pr extproc('xmlCurrentChar')
d like(xmlCint)
d ctxt value like(xmlParserCtxtPtr)
d len * value int *
d xmlCopyCharMultiByte...
d pr extproc('xmlCopyCharMultiByte')
d like(xmlCint)
d out * value options(*string) xmlChar *
d val value like(xmlCint)
d xmlCopyChar pr extproc('xmlCopyChar')
d like(xmlCint)
d len value like(xmlCint)
d out * value options(*string) xmlChar *
d val value like(xmlCint)
d xmlNextChar pr extproc('xmlNextChar')
d ctxt value like(xmlParserCtxtPtr)
d xmlParserInputShrink...
d pr extproc('xmlParserInputShrink')
d in value like(xmlParserInputPtr)
/if defined(LIBXML_HTML_ENABLED)
* Actually comes from the HTML parser but launched from the init stuff.
d htmlInitAutoClose...
d pr extproc('htmlInitAutoClose')
d htmlCreateFileParserCtxt...
d pr extproc('htmlCreateFileParserCtxt')
d like(htmlParserCtxtPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
/endif
* Specific function to keep track of entities references
* and used by the XSLT debugger.
/if defined(LIBXML_LEGACY_ENABLED)
* xmlEntityReferenceFunc:
* @ent: the entity
* @firstNode: the fist node in the chunk
* @lastNode: the last nod in the chunk
*
* Callback function used when one needs to be able to track back the
* provenance of a chunk of nodes inherited from an entity replacement.
d xmlEntityReferenceFunc...
d s * based(######typedef######)
d procptr
d xmlSetEntityReferenceFunc...
d pr extproc('xmlSetEntityReferenceFunc')
d func value like(xmlEntityReferenceFunc)
d xmlParseQuotedString...
d pr * extproc('xmlParseQuotedString') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParseNamespace...
d pr extproc('xmlParseNamespace')
d ctxt value like(xmlParserCtxtPtr)
d xmlNamespaceParseNSDef...
d pr * extproc('xmlNamespaceParseNSDef') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlScanName pr * extproc('xmlScanName') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlNamespaceParseNCName...
d pr * extproc('xmlNamespaceParseNCName') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d xmlParserHandleReference...
d pr extproc('xmlParserHandleReference')
d ctxt value like(xmlParserCtxtPtr)
d xmlNamespaceParseQName...
d pr * extproc('xmlNamespaceParseQName') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d prefix * xmlChar *(*)
* Entities
d xmlDecodeEntities...
d pr * extproc('xmlDecodeEntities') xmlChar *
d ctxt value like(xmlParserCtxtPtr)
d len value like(xmlCint)
d what value like(xmlCint)
d end value like(xmlChar)
d end2 value like(xmlChar)
d end3 value like(xmlChar)
d xmlHandleEntity...
d pr extproc('xmlHandleEntity')
d ctxt value like(xmlParserCtxtPtr)
d entity value like(xmlEntityPtr)
/endif LIBXML_LEGACY_ENABLD
/endif

130
os400/libxmlrpg/pattern.rpgle
View File

@ -1,130 +0,0 @@
* Summary: pattern expression handling
* Description: allows to compile and test pattern expressions for nodes
* either in a tree or based on a parser state.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_PATTERN_H__)
/define XML_PATTERN_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_PATTERN_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/dict"
* xmlPattern:
*
* A compiled (XPath based) pattern to select nodes
d xmlPatternPtr...
d s * based(######typedef######)
* xmlPatternFlags:
*
* This is the set of options affecting the behaviour of pattern
* matching with this module
d xmlPatternFlags...
d s based(######typedef######)
d like(xmlCenum)
d XML_PATTERN_DEFAULT... Simple pattern match
d c X'0000'
d XML_PATTERN_XPATH... Std XPath pattern
d c X'0001'
d XML_PATTERN_XSSEL... Schm sel XPth subset
d c X'0002'
d XML_PATTERN_XSFIELD... Schm fld XPth subset
d c X'0004'
d xmlFreePattern pr extproc('xmlFreePattern')
d comp value like(xmlPatternPtr)
d xmlFreePatternList...
d pr extproc('xmlFreePatternList')
d comp value like(xmlPatternPtr)
d xmlPatterncompile...
d pr extproc('xmlPatterncompile')
d like(xmlPatternPtr)
d pattern * value options(*string) const xmlChar *
d dict * value xmlDict *
d flags value like(xmlCint)
d namespaces * const xmlChar *(*)
d xmlPatternMatch...
d pr extproc('xmlPatternMatch')
d like(xmlCint)
d comp value like(xmlPatternPtr)
d node value like(xmlNodePtr)
* streaming interfaces
d xmlStreamCtxtPtr...
d s * based(######typedef######)
d xmlPatternStreamable...
d pr extproc('xmlPatternStreamable')
d like(xmlCint)
d comp value like(xmlPatternPtr)
d xmlPatternMaxDepth...
d pr extproc('xmlPatternMaxDepth')
d like(xmlCint)
d comp value like(xmlPatternPtr)
d xmlPatternMinDepth...
d pr extproc('xmlPatternMinDepth')
d like(xmlCint)
d comp value like(xmlPatternPtr)
d xmlPatternFromRoot...
d pr extproc('xmlPatternFromRoot')
d like(xmlCint)
d comp value like(xmlPatternPtr)
d xmlPatternGetStreamCtxt...
d pr extproc('xmlPatternGetStreamCtxt')
d like(xmlStreamCtxtPtr)
d comp value like(xmlPatternPtr)
d xmlFreeStreamCtxt...
d pr extproc('xmlFreeStreamCtxt')
d stream value like(xmlStreamCtxtPtr)
d xmlStreamPushNode...
d pr extproc('xmlStreamPushNode')
d like(xmlCint)
d stream value like(xmlStreamCtxtPtr)
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d nodeType value like(xmlCint)
d xmlStreamPush pr extproc('xmlStreamPush')
d like(xmlCint)
d stream value like(xmlStreamCtxtPtr)
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d xmlStreamPushAttr...
d pr extproc('xmlStreamPushAttr')
d like(xmlCint)
d stream value like(xmlStreamCtxtPtr)
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d xmlStreamPop pr extproc('xmlStreamPop')
d like(xmlCint)
d stream value like(xmlStreamCtxtPtr)
d xmlStreamWantsAnyNode...
d pr extproc('xmlStreamWantsAnyNode')
d like(xmlCint)
d stream value like(xmlStreamCtxtPtr)
/endif LIBXML_PATTERN_ENBLD
/endif XML_PATTERN_H__

310
os400/libxmlrpg/relaxng.rpgle
View File

@ -1,310 +0,0 @@
* Summary: implementation of the Relax-NG validation
* Description: implementation of the Relax-NG validation
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_RELAX_NG__)
/define XML_RELAX_NG__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_SCHEMAS_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/hash"
/include "libxmlrpg/xmlstring"
d xmlRelaxNGPtr s * based(######typedef######)
* xmlRelaxNGValidityErrorFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of an error callback from a Relax-NG validation
d xmlRelaxNGValidityErrorFunc...
d s * based(######typedef######)
d procptr
* xmlRelaxNGValidityWarningFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of a warning callback from a Relax-NG validation
d xmlRelaxNGValidityWarningFunc...
d s * based(######typedef######)
d procptr
* A schemas validation context
d xmlRelaxNGParserCtxtPtr...
d s * based(######typedef######)
d xmlRelaxNGValidCtxtPtr...
d s * based(######typedef######)
* xmlRelaxNGValidErr:
*
* List of possible Relax NG validation errors
d xmlRelaxNGValidErr...
d s based(######typedef######)
d like(xmlCenum)
d XML_RELAXNG_OK...
d c 0
d XML_RELAXNG_ERR_MEMORY...
d c 1
d XML_RELAXNG_ERR_TYPE...
d c 2
d XML_RELAXNG_ERR_TYPEVAL...
d c 3
d XML_RELAXNG_ERR_DUPID...
d c 4
d XML_RELAXNG_ERR_TYPECMP...
d c 5
d XML_RELAXNG_ERR_NOSTATE...
d c 6
d XML_RELAXNG_ERR_NODEFINE...
d c 7
d XML_RELAXNG_ERR_LISTEXTRA...
d c 8
d XML_RELAXNG_ERR_LISTEMPTY...
d c 9
d XML_RELAXNG_ERR_INTERNODATA...
d c 10
d XML_RELAXNG_ERR_INTERSEQ...
d c 11
d XML_RELAXNG_ERR_INTEREXTRA...
d c 12
d XML_RELAXNG_ERR_ELEMNAME...
d c 13
d XML_RELAXNG_ERR_ATTRNAME...
d c 14
d XML_RELAXNG_ERR_ELEMNONS...
d c 15
d XML_RELAXNG_ERR_ATTRNONS...
d c 16
d XML_RELAXNG_ERR_ELEMWRONGNS...
d c 17
d XML_RELAXNG_ERR_ATTRWRONGNS...
d c 18
d XML_RELAXNG_ERR_ELEMEXTRANS...
d c 19
d XML_RELAXNG_ERR_ATTREXTRANS...
d c 20
d XML_RELAXNG_ERR_ELEMNOTEMPTY...
d c 21
d XML_RELAXNG_ERR_NOELEM...
d c 22
d XML_RELAXNG_ERR_NOTELEM...
d c 23
d XML_RELAXNG_ERR_ATTRVALID...
d c 24
d XML_RELAXNG_ERR_CONTENTVALID...
d c 25
d XML_RELAXNG_ERR_EXTRACONTENT...
d c 26
d XML_RELAXNG_ERR_INVALIDATTR...
d c 27
d XML_RELAXNG_ERR_DATAELEM...
d c 28
d XML_RELAXNG_ERR_VALELEM...
d c 29
d XML_RELAXNG_ERR_LISTELEM...
d c 30
d XML_RELAXNG_ERR_DATATYPE...
d c 31
d XML_RELAXNG_ERR_VALUE...
d c 32
d XML_RELAXNG_ERR_LIST...
d c 33
d XML_RELAXNG_ERR_NOGRAMMAR...
d c 34
d XML_RELAXNG_ERR_EXTRADATA...
d c 35
d XML_RELAXNG_ERR_LACKDATA...
d c 36
d XML_RELAXNG_ERR_INTERNAL...
d c 37
d XML_RELAXNG_ERR_ELEMWRONG...
d c 38
d XML_RELAXNG_ERR_TEXTWRONG...
d c 39
* xmlRelaxNGParserFlags:
*
* List of possible Relax NG Parser flags
d xmlRelaxNGParserFlag...
d s based(######typedef######)
d like(xmlCenum)
d XML_RELAXNGP_NONE...
d c 0
d XML_RELAXNGP_FREE_DOC...
d c 1
d XML_RELAXNGP_CRNG...
d c 2
d xmlRelaxNGInitTypes...
d pr extproc('xmlRelaxNGInitTypes')
d like(xmlCint)
d xmlRelaxNGCleanupTypes...
d pr extproc('xmlRelaxNGCleanupTypes')
* Interfaces for parsing.
d xmlRelaxNGNewParserCtxt...
d pr extproc('xmlRelaxNGNewParserCtxt')
d like(xmlRelaxNGParserCtxtPtr)
d URL * value options(*string) const char *
d xmlRelaxNGNewMemParserCtxt...
d pr extproc('xmlRelaxNGNewMemParserCtxt')
d like(xmlRelaxNGParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d xmlRelaxNGNewDocParserCtxt...
d pr extproc('xmlRelaxNGNewDocParserCtxt')
d like(xmlRelaxNGParserCtxtPtr)
d doc value like(xmlDocPtr)
d xmlRelaxParserSetFlag...
d pr extproc('xmlRelaxParserSetFlag')
d like(xmlCint)
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d flag value like(xmlCint)
d xmlRelaxNGFreeParserCtxt...
d pr extproc('xmlRelaxNGFreeParserCtxt')
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d xmlRelaxNGSetParserErrors...
d pr extproc('xmlRelaxNGSetParserErrors')
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d err value
d like(xmlRelaxNGValidityErrorFunc)
d warn value
d like(xmlRelaxNGValidityWarningFunc)
d ctx * value void *
d xmlRelaxNGGetParserErrors...
d pr extproc('xmlRelaxNGGetParserErrors')
d like(xmlCint)
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d err like(xmlRelaxNGValidityErrorFunc)
d warn like(xmlRelaxNGValidityWarningFunc)
d ctx * void *(*)
d xmlRelaxNGSetParserStructuredErrors...
d pr extproc(
d 'xmlRelaxNGSetParserStructuredErrors'
d )
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d serror value like(xmlStructuredErrorFunc)
d ctx * value void *
d xmlRelaxNGParse...
d pr extproc('xmlRelaxNGParse')
d like(xmlRelaxNGPtr)
d ctxt value like(xmlRelaxNGParserCtxtPtr)
d xmlRelaxNGFree pr extproc('xmlRelaxNGFree')
d schema value like(xmlRelaxNGPtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlRelaxNGDump pr extproc('xmlRelaxNGDump')
d output * value FILE *
d schema value like(xmlRelaxNGPtr)
d xmlRelaxNGDumpTree...
d pr extproc('xmlRelaxNGDumpTree')
d output * value FILE *
d schema value like(xmlRelaxNGPtr)
/endif LIBXML_OUTPUT_ENABLD
* Interfaces for validating
d xmlRelaxNGSetValidErrors...
d pr extproc('xmlRelaxNGSetValidErrors')
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d err value
d like(xmlRelaxNGValidityErrorFunc)
d warn value
d like(xmlRelaxNGValidityWarningFunc)
d ctx * value void *
d xmlRelaxNGGetValidErrors...
d pr extproc('xmlRelaxNGGetValidErrors')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d err like(xmlRelaxNGValidityErrorFunc)
d warn like(xmlRelaxNGValidityWarningFunc)
d ctx * value void * *
d xmlRelaxNGSetValidStructuredErrors...
d pr extproc(
d 'xmlRelaxNGSetValidStructuredErrors')
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d serror value like(xmlStructuredErrorFunc)
d ctx * value void *
d xmlRelaxNGNewValidCtxt...
d pr extproc('xmlRelaxNGNewValidCtxt')
d like(xmlRelaxNGValidCtxtPtr)
d schema value like(xmlRelaxNGPtr)
d xmlRelaxNGFreeValidCtxt...
d pr extproc('xmlRelaxNGFreeValidCtxt')
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d xmlRelaxNGValidateDoc...
d pr extproc('xmlRelaxNGValidateDoc')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d doc value like(xmlDocPtr)
* Interfaces for progressive validation when possible
d xmlRelaxNGValidatePushElement...
d pr extproc(
d 'xmlRelaxNGValidatePushElement')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d xmlRelaxNGValidatePushCData...
d pr extproc(
d 'xmlRelaxNGValidatePushCData')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d data * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlRelaxNGValidatePopElement...
d pr extproc(
d 'xmlRelaxNGValidatePopElement')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d xmlRelaxNGValidateFullElement...
d pr extproc(
d 'xmlRelaxNGValidateFullElement')
d like(xmlCint)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
/endif LIBXML_SCHEMAS_ENBLD
/endif XML_RELAX_NG__

1142
os400/libxmlrpg/schemasInternals.rpgle
View File

File diff suppressed because it is too large Load Diff

204
os400/libxmlrpg/schematron.rpgle
View File

@ -1,204 +0,0 @@
* Summary: XML Schematron implementation
* Description: interface to the XML Schematron validity checking.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_SCHEMATRON_H__)
/define XML_SCHEMATRON_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_SCHEMATRON_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
d xmlSchematronValidOptions...
d s based(######typedef######)
d like(xmlCenum)
d XML_SCHEMATRON_OUT_QUIET... Quiet no report
d c X'0001'
d XML_SCHEMATRON_OUT_TEXT... Build textual report
d c X'0002'
d XML_SCHEMATRON_OUT_XML... Output SVRL
d c X'0004'
d XML_SCHEMATRON_OUT_ERROR... Output to error func
d c X'0008'
d XML_SCHEMATRON_OUT_FILE... Output to file descr
d c X'0100'
d XML_SCHEMATRON_OUT_BUFFER... Output to a buffer
d c X'0200'
d XML_SCHEMATRON_OUT_IO... Output to I/O mech
d c X'0400'
* The schemas related types are kept internal
d xmlSchematronPtr...
d s * based(######typedef######)
* xmlSchematronValidityErrorFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of an error callback from a Schematron validation
d xmlSchematronValidityErrorFunc...
d s * based(######typedef######)
d procptr
* xmlSchematronValidityWarningFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of a warning callback from a Schematron validation
d xmlSchematronValidityWarningFunc...
d s * based(######typedef######)
d procptr
* A schemas validation context
d xmlSchematronParserCtxtPtr...
d s * based(######typedef######)
d xmlSchematronValidCtxtPtr...
d s * based(######typedef######)
* Interfaces for parsing.
d xmlSchematronNewParserCtxt...
d pr extproc('xmlSchematronNewParserCtxt')
d like(xmlSchematronParserCtxtPtr)
d URL * value options(*string) const char *
d xmlSchematronNewMemParserCtxt...
d pr extproc(
d 'xmlSchematronNewMemParserCtxt')
d like(xmlSchematronParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d xmlSchematronNewDocParserCtxt...
d pr extproc(
d 'xmlSchematronNewDocParserCtxt')
d like(xmlSchematronParserCtxtPtr)
d doc value like(xmlDocPtr)
d xmlSchematronFreeParserCtxt...
d pr extproc(
d 'xmlSchematronFreeParserCtxt')
d ctxt value
d like(xmlSchematronParserCtxtPtr)
/if defined(DISABLED)
d xmlSchematronSetParserErrors...
d pr extproc(
d 'xmlSchematronSetParserErrors')
d ctxt value
d like(xmlSchematronParserCtxtPtr)
d err value
d like(xmlSchematronValidityErrorFunc)
d warn value like(
d xmlSchematronValidityWarningFunc)
d ctx * value void *
d xmlSchematronGetParserErrors...
d pr extproc(
d 'xmlSchematronGetParserErrors')
d like(xmlCint)
d ctxt value
d like(xmlSchematronParserCtxtPtr)
d err like(xmlSchematronValidityErrorFunc)
d warn like(
d xmlSchematronValidityWarningFunc)
d ctx * void *(*)
d xmlSchematronIsValid...
d pr extproc('xmlSchematronIsValid')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
/endif
d xmlSchematronParse...
d pr extproc('xmlSchematronParse')
d like(xmlSchematronPtr)
d ctxt value
d like(xmlSchematronParserCtxtPtr)
d xmlSchematronFree...
d pr extproc('xmlSchematronFree')
d schema value like(xmlSchematronPtr)
* Interfaces for validating
d xmlSchematronSetValidStructuredErrors...
d pr extproc('xmlSchematronSetValidStruct-
d uredErrors')
d ctxt value like(xmlSchematronValidCtxtPtr)
d serror value like(xmlStructuredErrorFunc)
d ctx * value void *
/if defined(DISABLED)
d xmlSchematronSetValidErrors...
d pr extproc(
d 'xmlSchematronSetValidErrors')
d ctxt value like(xmlSchematronValidCtxtPtr)
d err value
d like(xmlSchematronValidityErrorFunc)
d warn value like(
d xmlSchematronValidityWarningFunc)
d ctx * value void *
d xmlSchematronGetValidErrors...
d pr extproc(
d 'xmlSchematronGetValidErrors')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
d err like(xmlSchematronValidityErrorFunc)
d warn like(
d xmlSchematronValidityWarningFunc)
d ctx * void *(*)
d xmlSchematronSetValidOptions...
d pr extproc(
d 'xmlSchematronSetValidOptions')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
d options value like(xmlCint)
d xmlSchematronValidCtxtGetOptions...
d pr extproc(
d 'xmlSchematronValidCtxtGetOptions')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
d xmlSchematronValidateOneElement...
d pr extproc(
d 'xmlSchematronValidateOneElement')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
d elem value like(xmlNodePtr)
/endif
d xmlSchematronNewValidCtxt...
d pr extproc('xmlSchematronNewValidCtxt')
d like(xmlSchematronValidCtxtPtr)
d schema value like(xmlSchematronPtr)
d options value like(xmlCint)
d xmlSchematronFreeValidCtxt...
d pr extproc('xmlSchematronFreeValidCtxt')
d ctxt value like(xmlSchematronValidCtxtPtr)
d xmlSchematronValidateDoc...
d pr extproc('xmlSchematronValidateDoc')
d like(xmlCint)
d ctxt value like(xmlSchematronValidCtxtPtr)
d instance value like(xmlDocPtr)
/endif _SCHEMATRON_ENABLED
/endif XML_SCHEMATRON_H__

73
os400/libxmlrpg/threads.rpgle
View File

@ -1,73 +0,0 @@
* Summary: interfaces for thread handling
* Description: set of generic threading related routines
* should work with pthreads, Windows native or TLS threads
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_THREADS_H__)
/define XML_THREADS_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
* xmlMutex are a simple mutual exception locks.
d xmlMutexPtr s * based(######typedef######)
* xmlRMutex are reentrant mutual exception locks.
d xmlRMutexPtr s * based(######typedef######)
/include "libxmlrpg/globals"
d xmlNewMutex pr extproc('xmlNewMutex')
d like(xmlMutexPtr)
d xmlMutexLock pr extproc('xmlMutexLock')
d tok value like(xmlMutexPtr)
d xmlMutexUnlock pr extproc('xmlMutexUnlock')
d tok value like(xmlMutexPtr)
d xmlFreeMutex pr extproc('xmlFreeMutex')
d tok value like(xmlMutexPtr)
d xmlNewRMutex pr extproc('xmlNewRMutex')
d like(xmlRMutexPtr)
d xmlRMutexLock pr extproc('xmlRMutexLock')
d tok value like(xmlRMutexPtr)
d xmlRMutexUnlock...
d pr extproc('xmlRMutexUnlock')
d tok value like(xmlRMutexPtr)
d xmlFreeRMutex pr extproc('xmlFreeRMutex')
d tok value like(xmlRMutexPtr)
* Library wide APIs.
d xmlInitThreads pr extproc('xmlInitThreads')
d xmlLockLibrary pr extproc('xmlLockLibrary')
d xmlUnlockLibrary...
d pr extproc('xmlUnlockLibrary')
d xmlGetThreadId pr extproc('xmlGetThreadId')
d like(xmlCint)
d xmlIsMainThread...
d pr extproc('xmlIsMainThread')
d like(xmlCint)
d xmlCleanupThreads...
d pr extproc('xmlCleanupThreads')
d xmlGetGlobalState...
d pr extproc('xmlGetGlobalState')
d like(xmlGlobalStatePtr)
/endif XML_THREADS_H__

71
os400/libxmlrpg/transcode.rpgle
View File

@ -1,71 +0,0 @@
* 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

1681
os400/libxmlrpg/tree.rpgle
View File

File diff suppressed because it is too large Load Diff

103
os400/libxmlrpg/uri.rpgle
View File

@ -1,103 +0,0 @@
* Summary: library of generic URI related routines
* Description: library of generic URI related routines
* Implements RFC 2396
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_URI_H__)
/define XML_URI_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
* xmlURI:
*
* A parsed URI reference. This is a struct containing the various fields
* as described in RFC 2396 but separated for further processing.
*
* Note: query is a deprecated field which is incorrectly unescaped.
* query_raw takes precedence over query if the former is set.
* See: http://mail.gnome.org/archives/xml/2007-April/thread.html#00127
d xmlURIPtr s * based(######typedef######)
d xmlURI ds based(xmlURIPtr)
d align qualified
d scheme * char *
d opaque * char *
d authority * char *
d server * char *
d user * char *
d port like(xmlCint)
d path * char *
d query * char *
d fragment * char *
d cleanup like(xmlCint)
d query_raw * char *
d xmlCreateURI pr extproc('xmlCreateURI')
d like(xmlURIPtr)
d xmlBuildURI pr * extproc('xmlBuildURI') xmlChar *
d URI * value options(*string) const xmlChar *
d base * value options(*string) const xmlChar *
d xmlBuildRelativeURI...
d pr * extproc('xmlBuildRelativeURI') xmlChar *
d URI * value options(*string) const xmlChar *
d base * value options(*string) const xmlChar *
d xmlParseURI pr extproc('xmlParseURI')
d like(xmlURIPtr)
d str * value options(*string) const char *
d xmlParseURIRaw pr extproc('xmlParseURIRaw')
d like(xmlURIPtr)
d str * value options(*string) const char *
d raw value like(xmlCint)
d xmlParseURIReference...
d pr extproc('xmlParseURIReference')
d like(xmlCint)
d uri value like(xmlURIPtr)
d str * value options(*string) const char *
d xmlSaveUri pr * extproc('xmlSaveUri') xmlChar *
d uri value like(xmlURIPtr)
d xmlPrintURI pr extproc('xmlPrintURI')
d stream * value FILE *
d uri value like(xmlURIPtr)
d xmlURIEscapeStr...
d pr * extproc('xmlURIEscapeStr') xmlChar *
d str * value options(*string) const xmlChar *
d list * value options(*string) const xmlChar *
d xmlURIUnescapeString...
d pr * extproc('xmlURIUnescapeString') char *
d str * value options(*string) const char *
d len value like(xmlCint)
d target * value options(*string) char *
d xmlNormalizeURIPath...
d pr extproc('xmlNormalizeURIPath')
d like(xmlCint)
d path * value options(*string) char *
d xmlURIEscape pr * extproc('xmlURIEscape') xmlChar *
d str * value options(*string) const xmlChar *
d xmlFreeURI pr extproc('xmlFreeURI')
d uri value like(xmlURIPtr)
d xmlCanonicPath pr * extproc('xmlCanonicPath') xmlChar *
d path * value options(*string) const xmlChar *
d xmlPathToURI pr * extproc('xmlPathToURI') xmlChar *
d path * value options(*string) const xmlChar *
/endif XML_URI_H__

605
os400/libxmlrpg/valid.rpgle
View File

@ -1,605 +0,0 @@
* Summary: The DTD validation
* Description: API for the DTD handling and the validity checking
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_VALID_H__)
/define XML_VALID_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlerror"
/include "libxmlrpg/tree"
/include "libxmlrpg/list"
/include "libxmlrpg/xmlautomata"
/include "libxmlrpg/xmlregexp"
* Validation state added for non-determinist content model.
d xmlValidStatePtr...
d s * based(######typedef######)
* xmlValidityErrorFunc:
* @ctx: usually an xmlValidCtxtPtr to a validity error context,
* but comes from ctxt->userData (which normally contains such
* a pointer); ctxt->userData can be changed by the user.
* @msg: the string to format *printf like vararg
* @...: remaining arguments to the format
*
* Callback called when a validity error is found. This is a message
* oriented function similar to an *printf function.
d xmlValidityErrorFunc...
d s * based(######typedef######)
d procptr
* xmlValidityWarningFunc:
* @ctx: usually an xmlValidCtxtPtr to a validity error context,
* but comes from ctxt->userData (which normally contains such
* a pointer); ctxt->userData can be changed by the user.
* @msg: the string to format *printf like vararg
* @...: remaining arguments to the format
*
* Callback called when a validity warning is found. This is a message
* oriented function similar to an *printf function.
d xmlValidityWarningFunc...
d s * based(######typedef######)
d procptr
* xmlValidCtxt:
* An xmlValidCtxt is used for error reporting when validating.
d xmlValidCtxtPtr...
d s * based(######typedef######)
d xmlValidCtxt ds based(xmlValidCtxtPtr)
d align qualified
d userdata * void *
d error like(xmlValidityErrorFunc) Error callback
d warning like(xmlValidityWarningFunc) Warning callback
*
* Node analysis stack used when validating within entities
*
d node like(xmlNodePtr) Current parsed Node
d nodeNr like(xmlCint) Parsing stack depth
d nodeMax like(xmlCint) Max stack depth
d nodeTab * xmlNodePtr *
*
d finishDtd like(xmlCuint)
d doc like(xmlDocPtr) The document
d valid like(xmlCint) Temp check result
*
* state state used for non-determinist content validation
*
d vstate * xmlValidState *
d vstateNr like(xmlCint) Validat. stack depth
d vstateMax like(xmlCint) Max stack depth
d vstateTab * xmlValidState *
*
/if defined(LIBXML_REGEXP_ENABLED)
d am like(xmlAutomataPtr) The automata
d state like(xmlAutomataStatePtr) Automata build state
/else
d am *
d state *
/endif
* ALL notation declarations are stored in a table.
* There is one table per DTD.
d xmlNotationTablePtr...
d s * based(######typedef######)
* ALL element declarations are stored in a table.
* There is one table per DTD.
d xmlElementTablePtr...
d s * based(######typedef######)
* ALL attribute declarations are stored in a table.
* There is one table per DTD.
d xmlAttributeTablePtr...
d s * based(######typedef######)
* ALL IDs attributes are stored in a table.
* There is one table per document.
d xmlIDTablePtr s * based(######typedef######)
* ALL Refs attributes are stored in a table.
* There is one table per document.
d xmlRefTablePtr s * based(######typedef######)
* Notation
d xmlAddNotationDecl...
d pr extproc('xmlAddNotationDecl')
d like(xmlNotationPtr)
d ctxt value like(xmlValidCtxtPtr)
d dtd value like(xmlDtdPtr)
d name * value options(*string) const xmlChar *
d PublicID * value options(*string) const xmlChar *
d SystemID * value options(*string) const xmlChar *
/if defined(LIBXML_TREE_ENABLED)
d xmlCopyNotationTable...
d pr extproc('xmlCopyNotationTable')
d like(xmlNotationPtr)
d table value like(xmlNotationTablePtr)
/endif LIBXML_TREE_ENABLED
d xmlFreeNotationTable...
d pr extproc('xmlFreeNotationTable')
d table value like(xmlNotationTablePtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlDumpNotationDecl...
d pr extproc('xmlDumpNotationDecl')
d buf value like(xmlBufferPtr)
d nota value like(xmlNotationPtr)
d xmlDumpNotationTable...
d pr extproc('xmlDumpNotationTable')
d buf value like(xmlBufferPtr)
d table value like(xmlNotationTablePtr)
/endif LIBXML_OUTPUT_ENABLD
* Element Content
* the non Doc version are being deprecated
d xmlNewElementContent...
d pr extproc('xmlNewElementContent')
d like(xmlElementContentPtr)
d name * value const xmlChar *
d type value like(xmlElementContentType)
d xmlCopyElementContent...
d pr extproc('xmlCopyElementContent')
d like(xmlElementContentPtr)
d content value like(xmlElementContentPtr)
d xmlFreeElementContent...
d pr extproc('xmlFreeElementContent')
d cur value like(xmlElementContentPtr)
* the new versions with doc argument
d xmlNewDocElementContent...
d pr extproc('xmlNewDocElementContent')
d like(xmlElementContentPtr)
d doc value like(xmlDocPtr)
d name * value const xmlChar *
d type value like(xmlElementContentType)
d xmlCopyDocElementContent...
d pr extproc('xmlCopyDocElementContent')
d like(xmlElementContentPtr)
d doc value like(xmlDocPtr)
d content value like(xmlElementContentPtr)
d xmlFreeDocElementContent...
d pr extproc('xmlFreeDocElementContent')
d doc value like(xmlDocPtr)
d cur value like(xmlElementContentPtr)
d xmlSnprintfElementContent...
d pr extproc('xmlSnprintfElementContent')
d buf 65535 options(*varsize)
d size value like(xmlCint)
d content value like(xmlElementContentPtr)
d englob value like(xmlCint)
/if defined(LIBXML_OUTPUT_ENABLED)
* DEPRECATED
d xmlSprintfElementContent...
d pr extproc('xmlSprintfElementContent')
d buf 65535 options(*varsize)
d content value like(xmlElementContentPtr)
d englob value like(xmlCint)
/endif LIBXML_OUTPUT_ENABLD
* DEPRECATED
* Element
d xmlAddElementDecl...
d pr extproc('xmlAddElementDecl')
d like(xmlElementPtr)
d ctxt value like(xmlValidCtxtPtr)
d dtd value like(xmlDtdPtr)
d name * value options(*string) const xmlChar *
d type value like(xmlElementTypeVal)
d content value like(xmlElementContentPtr)
/if defined(LIBXML_TREE_ENABLED)
d xmlCopyElementTable...
d pr extproc('xmlCopyElementTable')
d like(xmlElementTablePtr)
d table value like(xmlElementTablePtr)
/endif LIBXML_TREE_ENABLED
d xmlFreeElementTable...
d pr extproc('xmlFreeElementTable')
d table value like(xmlElementTablePtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlDumpElementTable...
d pr extproc('xmlDumpElementTable')
d buf value like(xmlBufferPtr)
d table value like(xmlElementTablePtr)
d xmlDumpElementDecl...
d pr extproc('xmlDumpElementDecl')
d buf value like(xmlBufferPtr)
d elem value like(xmlElementPtr)
/endif LIBXML_OUTPUT_ENABLD
* Enumeration
d xmlCreateEnumeration...
d pr extproc('xmlCreateEnumeration')
d like(xmlEnumerationPtr)
d name * value options(*string) const xmlChar *
d xmlFreeEnumeration...
d pr extproc('xmlFreeEnumeration')
d cur value like(xmlEnumerationPtr)
/if defined(LIBXML_TREE_ENABLED)
d xmlCopyEnumeration...
d pr extproc('xmlCopyEnumeration')
d like(xmlEnumerationPtr)
d cur value like(xmlEnumerationPtr)
/endif LIBXML_TREE_ENABLED
* Attribute
d xmlAddAttributeDecl...
d pr extproc('xmlAddAttributeDecl')
d like(xmlAttributePtr)
d ctxt value like(xmlValidCtxtPtr)
d dtd value like(xmlDtdPtr)
d elem * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d type value like(xmlAttributeType)
d def value like(xmlAttributeDefault)
d defaultValue * value options(*string) const xmlChar *
d tree value like(xmlEnumerationPtr)
/if defined(LIBXML_TREE_ENABLED)
d xmlCopyAttributeTable...
d pr extproc('xmlCopyAttributeTable')
d like(xmlAttributeTablePtr)
d table value like(xmlAttributeTablePtr)
/endif LIBXML_TREE_ENABLED
d xmlFreeAttributeTable...
d pr extproc('xmlFreeAttributeTable')
d table value like(xmlAttributeTablePtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlDumpAttributeTable...
d pr extproc('xmlDumpAttributeTable')
d buf value like(xmlBufferPtr)
d table value like(xmlAttributeTablePtr)
d xmlDumpAttributeDecl...
d pr extproc('xmlDumpAttributeDecl')
d buf value like(xmlBufferPtr)
d attr value like(xmlAttributePtr)
/endif LIBXML_OUTPUT_ENABLD
* IDs
d xmlAddID pr extproc('xmlAddID')
d like(xmlIDPtr)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d value * value options(*string) const xmlChar *
d attr value like(xmlAttrPtr)
d xmlFreeIdTable pr extproc('xmlFreeIDTable')
d table value like(xmlIDTablePtr)
d xmlGetID pr extproc('xmlGetID')
d like(xmlAttrPtr)
d doc value like(xmlDocPtr)
d ID * value options(*string) const xmlChar *
d xmlIsID pr extproc('xmlIsID')
d like(xmlCint)
d doc value like(xmlDocPtr)
d node value like(xmlNodePtr)
d attr value like(xmlAttrPtr)
d xmlRemoveID pr extproc('xmlRemoveID')
d like(xmlCint)
d doc value like(xmlDocPtr)
d attr value like(xmlAttrPtr)
* IDREFs
d xmlAddRef pr extproc('xmlAddRef')
d like(xmlRefPtr)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d value * value options(*string) const xmlChar *
d attr value like(xmlAttrPtr)
d xmlFreeRefTable...
d pr extproc('xmlFreeRefTable')
d table value like(xmlRefTablePtr)
d xmlIsRef pr extproc('xmlIsRef')
d like(xmlCint)
d doc value like(xmlDocPtr)
d node value like(xmlNodePtr)
d attr value like(xmlAttrPtr)
d xmlRemoveRef pr extproc('xmlRemoveRef')
d like(xmlCint)
d doc value like(xmlDocPtr)
d attr value like(xmlAttrPtr)
d xmlGetRefs pr extproc('xmlGetRefs')
d like(xmlListPtr)
d doc value like(xmlDocPtr)
d ID * value options(*string) const xmlChar *
* The public function calls related to validity checking.
/if defined(LIBXML_VALID_ENABLED)
* Allocate/Release Validation Contexts
d xmlNewValidCtxt...
d pr extproc('xmlNewValidCtxt')
d like(xmlValidCtxtPtr)
d xmlFreeValidCtxt...
d pr extproc('xmlFreeValidCtxt')
d ctxt value like(xmlValidCtxtPtr)
d xmlValidateRoot...
d pr extproc('xmlValidateRoot')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d xmlValidateElementDecl...
d pr extproc('xmlValidateElementDecl')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlElementPtr)
d xmlValidNormalizeAttributeValue...
d pr * extproc( xmlChar *
d 'xmlValidNormalizeAttributeValue')
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d name * value options(*string) const xmlChar *
d value * value options(*string) const xmlChar *
d xmlValidCtxtNormalizeAttributeValue...
d pr * extproc('xmlValidCtxt+ xmlChar *
d NormalizeAttributeValue')
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d name * value options(*string) const xmlChar *
d value * value options(*string) const xmlChar *
d xmlValidateAttributeDecl...
d pr extproc('xmlValidateAttributeDecl')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d attr value like(xmlAttributePtr)
d xmlValidateAttributeValue...
d pr extproc('xmlValidateAttributeValue')
d like(xmlCint)
d type value like(xmlAttributeType)
d value * value options(*string) const xmlChar *
d xmlValidateNotationDecl...
d pr extproc('xmlValidateNotationDecl')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d nota value like(xmlNotationPtr)
d xmlValidateDtd pr extproc('xmlValidateDtd')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d dtd value like(xmlDtdPtr)
d xmlValidateDtdFinal...
d pr extproc('xmlValidateDtdFinal')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d xmlValidateDocument...
d pr extproc('xmlValidateDocument')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d xmlValidateElement...
d pr extproc('xmlValidateElement')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d xmlValidateOneElement...
d pr extproc('xmlValidateOneElement')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d xmlValidateOneAttribute...
d pr extproc('xmlValidateOneAttribute')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d attr value like(xmlAttrPtr)
d value * value options(*string) const xmlChar *
d xmlValidateOneNamespace...
d pr extproc('xmlValidateOneNamespace')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d prefix * value options(*string) const xmlChar *
d ns value like(xmlNsPtr)
d value * value options(*string) const xmlChar *
d xmlValidateDocumentFinal...
d pr extproc('xmlValidateDocumentFinal')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
/endif LIBXML_VALID_ENABLED
/undefine XML_TESTVAL
/if defined(LIBXML_VALID_ENABLED)
/define XML_TESTVAL
/elseif defined(LIBXML_SCHEMAS_ENABLED)
/define XML_TESTVAL
/endif
/if defined(XML_TESTVAL)
d xmlValidateNotationUse...
d pr extproc('xmlValidateNotationUse')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d notationName * value options(*string) const xmlChar *
/undefine XML_TESTVAL
/endif
d xmlIsMixedElement...
d pr extproc('xmlIsMixedElement')
d like(xmlCint)
d doc value like(xmlDocPtr)
d name * value options(*string) const xmlChar *
d xmlGetDtdAttrDesc...
d pr extproc('xmlGetDtdAttrDesc')
d like(xmlAttributePtr)
d dtd value like(xmlDtdPtr)
d elem * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d xmlGetDtdQAttrDesc...
d pr extproc('xmlGetDtdQAttrDesc')
d like(xmlAttributePtr)
d dtd value like(xmlDtdPtr)
d elem * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d xmlGetDtdNotationDesc...
d pr extproc('xmlGetDtdNotationDesc')
d like(xmlNotationPtr)
d dtd value like(xmlDtdPtr)
d name * value options(*string) const xmlChar *
d xmlGetDtdQElementDesc...
d pr extproc('xmlGetDtdQElementDesc')
d like(xmlElementPtr)
d dtd value like(xmlDtdPtr)
d name * value options(*string) const xmlChar *
d prefix * value options(*string) const xmlChar *
d xmlGetDtdElementDesc...
d pr extproc('xmlGetDtdElementDesc')
d like(xmlElementPtr)
d dtd value like(xmlDtdPtr)
d name * value options(*string) const xmlChar *
/if defined(LIBXML_VALID_ENABLED)
d xmlValidGetPotentialChildren...
d pr extproc(
d 'xmlValidGetPotentialChildren')
d like(xmlCint)
d ctree * value xmlElementContent *
d names * const xmlChar *(*)
d len like(xmlCint)
d max value like(xmlCint)
d xmlValidGetValidElements...
d pr extproc('xmlValidGetValidElements')
d like(xmlCint)
d prev like(xmlNodePtr)
d next like(xmlNodePtr)
d names * const xmlChar *(*)
d max value like(xmlCint)
d xmlValidateNameValue...
d pr extproc('xmlValidateNameValue')
d like(xmlCint)
d value * value options(*string) const xmlChar *
d xmlValidateNamesValue...
d pr extproc('xmlValidateNamesValue')
d like(xmlCint)
d value * value options(*string) const xmlChar *
d xmlValidateNmtokenValue...
d pr extproc('xmlValidateNmtokenValue')
d like(xmlCint)
d value * value options(*string) const xmlChar *
d xmlValidateNmtokensValue...
d pr extproc('xmlValidateNmtokensValue')
d like(xmlCint)
d value * value options(*string) const xmlChar *
/if defined(LIBXML_REGEXP_ENABLED)
* Validation based on the regexp support
d xmlValidBuildContentModel...
d pr extproc('xmlValidBuildContentModel')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d elem value like(xmlElementPtr)
d xmlValidatePushElement...
d pr extproc('xmlValidatePushElement')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d qname * value options(*string) const xmlChar *
d xmlValidatePushCData...
d pr extproc('xmlValidatePushCData')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d data * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlValidatePopElement...
d pr extproc('xmlValidatePopElement')
d like(xmlCint)
d ctxt value like(xmlValidCtxtPtr)
d doc value like(xmlDocPtr)
d elem value like(xmlNodePtr)
d qname * value options(*string) const xmlChar *
/endif LIBXML_REGEXP_ENABLD
/endif LIBXML_VALID_ENABLED
/endif XML_VALID_H__

156
os400/libxmlrpg/xinclude.rpgle
View File

@ -1,156 +0,0 @@
* Summary: implementation of XInclude
* Description: API to handle XInclude processing,
* implements the
* World Wide Web Consortium Last Call Working Draft 10 November 2003
* http://www.w3.org/TR/2003/WD-xinclude-20031110
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XINCLUDE_H__)
/define XML_XINCLUDE_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/if defined(LIBXML_XINCLUDE_ENABLED)
* XINCLUDE_NS:
*
* Macro defining the Xinclude namespace: http://www.w3.org/2003/XInclude
d XINCLUDE_NS c 'http://www.w3.org/2003/XInclude'
* XINCLUDE_OLD_NS:
*
* Define the draft Xinclude namespace: http://www.w3.org/2001/XInclude
d XINCLUDE_OLD_NS...
d c 'http://www.w3.org/2001/XInclude'
* XINCLUDE_NODE:
*
* Macro defining "include"
d XINCLUDE_NODE c 'include'
* XINCLUDE_FALLBACK:
*
* Macro defining "fallback"
d XINCLUDE_FALLBACK...
d c 'fallback'
* XINCLUDE_HREF:
*
* Macro defining "href"
d XINCLUDE_HREF c 'href'
* XINCLUDE_PARSE:
*
* Macro defining "parse"
d XINCLUDE_PARSE c 'parse'
* XINCLUDE_PARSE_XML:
*
* Macro defining "xml"
d XINCLUDE_PARSE_XML...
d c 'xml'
* XINCLUDE_PARSE_TEXT:
*
* Macro defining "text"
d XINCLUDE_PARSE_TEXT...
d c 'text'
* XINCLUDE_PARSE_ENCODING:
*
* Macro defining "encoding"
d XINCLUDE_PARSE_ENCODING...
d c 'encoding'
* XINCLUDE_PARSE_XPOINTER:
*
* Macro defining "xpointer"
d XINCLUDE_PARSE_XPOINTER...
d c 'xpointer'
d xmlXIncludeCtxtPtr...
d s * based(######typedef######)
* standalone processing
d xmlXIncludeProcess...
d pr extproc('xmlXIncludeProcess')
d like(xmlCint)
d doc value like(xmlDocPtr)
d xmlXIncludeProcessFlags...
d pr extproc('xmlXIncludeProcessFlags')
d like(xmlCint)
d doc value like(xmlDocPtr)
d flags value like(xmlCint)
d xmlXIncludeProcessFlagsData...
d pr extproc(
d 'xmlXIncludeProcessFlagsData')
d like(xmlCint)
d doc value like(xmlDocPtr)
d flags value like(xmlCint)
d data * value void *
d xmlXIncludeProcessTreeFlagsData...
d pr extproc(
d 'xmlXIncludeProcessTreeFlagsData')
d like(xmlCint)
d tree value like(xmlNodePtr)
d flags value like(xmlCint)
d data * value void *
d xmlXIncludeProcessTree...
d pr extproc('xmlXIncludeProcessTree')
d like(xmlCint)
d tree value like(xmlNodePtr)
d xmlXIncludeProcessTreeFlags...
d pr extproc(
d 'xmlXIncludeProcessTreeFlags')
d like(xmlCint)
d tree value like(xmlNodePtr)
d flags value like(xmlCint)
* contextual processing
d xmlXIncludeNewContext...
d pr extproc('xmlXIncludeNewContext')
d like(xmlXIncludeCtxtPtr)
d doc value like(xmlDocPtr)
d xmlXIncludeSetFlags...
d pr extproc('xmlXIncludeSetFlags')
d like(xmlCint)
d ctxt value like(xmlXIncludeCtxtPtr)
d flags value like(xmlCint)
d xmlXIncludeFreeContext...
d pr extproc('xmlXIncludeFreeContext')
d ctxt value like(xmlXIncludeCtxtPtr)
d xmlXIncludeProcessNode...
d pr extproc('xmlXIncludeProcessNode')
d like(xmlCint)
d ctxt value like(xmlXIncludeCtxtPtr)
d tree value like(xmlNodePtr)
/endif XINCLUDE_ENABLED
/endif XML_XINCLUDE_H__

169
os400/libxmlrpg/xlink.rpgle
View File

@ -1,169 +0,0 @@
* Summary: unfinished XLink detection module
* Description: unfinished XLink detection module
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XLINK_H__)
/define XML_XLINK_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_XPTR_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
* Various defines for the various Link properties.
*
* NOTE: the link detection layer will try to resolve QName expansion
* of namespaces. If "foo" is the prefix for "http://foo.com/"
* then the link detection layer will expand role="foo:myrole"
* to "http://foo.com/:myrole".
* NOTE: the link detection layer will expand URI-Refences found on
* href attributes by using the base mechanism if found.
d xlinkRef s * based(######typedef######) xmlChar *
d xlinkRole s * based(######typedef######) xmlChar *
d xlinkTitle s * based(######typedef######) xmlChar *
d xlinkType s based(######typedef######)
d like(xmlCenum)
d XLINK_TYPE_NONE...
d c 0
d XLINK_TYPE_SIMPLE...
d c 1
d XLINK_TYPE_EXTENDED...
d c 2
d XLINK_TYPE_EXTENDED_SET...
d c 3
d xlinkShow s based(######typedef######)
d like(xmlCenum)
d XLINK_SHOW_NONE...
d c 0
d XLINK_SHOW_NEW...
d c 1
d XLINK_SHOW_EMBED...
d c 2
d XLINK_SHOW_REPLACE...
d c 3
d xlinkActuate s based(######typedef######)
d like(xmlCenum)
d XLINK_ACTUATE_NONE...
d c 0
d XLINK_ACTUATE_AUTO...
d c 1
d XLINK_ACTUATE_ONREQUEST...
d c 2
* xlinkNodeDetectFunc:
* @ctx: user data pointer
* @node: the node to check
*
* This is the prototype for the link detection routine.
* It calls the default link detection callbacks upon link detection.
d xlinkNodeDetectFunc...
d s * based(######typedef######)
d procptr
* The link detection module interact with the upper layers using
* a set of callback registered at parsing time.
* xlinkSimpleLinkFunk:
* @ctx: user data pointer
* @node: the node carrying the link
* @href: the target of the link
* @role: the role string
* @title: the link title
*
* This is the prototype for a simple link detection callback.
d xlinkSimpleLinkFunk...
d s * based(######typedef######)
d procptr
* xlinkExtendedLinkFunk:
* @ctx: user data pointer
* @node: the node carrying the link
* @nbLocators: the number of locators detected on the link
* @hrefs: pointer to the array of locator hrefs
* @roles: pointer to the array of locator roles
* @nbArcs: the number of arcs detected on the link
* @from: pointer to the array of source roles found on the arcs
* @to: pointer to the array of target roles found on the arcs
* @show: array of values for the show attributes found on the arcs
* @actuate: array of values for the actuate attributes found on the arcs
* @nbTitles: the number of titles detected on the link
* @title: array of titles detected on the link
* @langs: array of xml:lang values for the titles
*
* This is the prototype for a extended link detection callback.
d xlinkExtendedLinkFunk...
d s * based(######typedef######)
d procptr
* xlinkExtendedLinkSetFunk:
* @ctx: user data pointer
* @node: the node carrying the link
* @nbLocators: the number of locators detected on the link
* @hrefs: pointer to the array of locator hrefs
* @roles: pointer to the array of locator roles
* @nbTitles: the number of titles detected on the link
* @title: array of titles detected on the link
* @langs: array of xml:lang values for the titles
*
* This is the prototype for a extended link set detection callback.
d xlinkExtendedLinkSetFunk...
d s * based(######typedef######)
d procptr
* This is the structure containing a set of Links detection callbacks.
*
* There is no default xlink callbacks, if one want to get link
* recognition activated, those call backs must be provided before parsing.
d xlinkHandlerPtr...
d s * based(######typedef######) xmlChar *
d xlinkHandler ds based(xlinkHandlerPtr)
d align qualified
d simple like(xlinkSimpleLinkFunk)
d extended like(xlinkExtendedLinkFunk)
d set like(xlinkExtendedLinkSetFunk)
* The default detection routine, can be overridden, they call the default
* detection callbacks.
d xlinkGetDefaultDetect...
d pr extproc('xlinkGetDefaultDetect')
d like(xlinkNodeDetectFunc)
d xlinkSetDefaultDetect...
d pr extproc('xlinkSetDefaultDetect')
d func value like(xlinkNodeDetectFunc)
* Routines to set/get the default handlers.
d xlinkGetDefaultHandler...
d pr extproc('xlinkGetDefaultHandler')
d like(xlinkHandlerPtr)
d xlinkSetDefaultHandler...
d pr extproc('xlinkSetDefaultHandler')
d handler value like(xlinkHandlerPtr)
* Link detection module itself.
d xlinkIsLink pr extproc('xlinkIsLink')
d like(xlinkType)
d doc value like(xmlDocPtr)
d node value like(xmlNodePtr)
/endif LIBXML_XPTR_ENABLED
/endif XML_XLINK_H__

464
os400/libxmlrpg/xmlIO.rpgle
View File

@ -1,464 +0,0 @@
* Summary: interface for the I/O interfaces used by the parser
* Description: interface for the I/O interfaces used by the parser
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_IO_H__)
/define XML_IO_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
* Those are the functions and datatypes for the parser input
* I/O structures.
* xmlInputMatchCallback:
* @filename: the filename or URI
*
* Callback used in the I/O Input API to detect if the current handler
* can provide input functionalities for this resource.
*
* Returns 1 if yes and 0 if another Input module should be used
d xmlInputMatchCallback...
d s * based(######typedef######)
d procptr
* xmlInputOpenCallback:
* @filename: the filename or URI
*
* Callback used in the I/O Input API to open the resource
*
* Returns an Input context or NULL in case or error
d xmlInputOpenCallback...
d s * based(######typedef######)
d procptr
* xmlInputReadCallback:
* @context: an Input context
* @buffer: the buffer to store data read
* @len: the length of the buffer in bytes
*
* Callback used in the I/O Input API to read the resource
*
* Returns the number of bytes read or -1 in case of error
d xmlInputReadCallback...
d s * based(######typedef######)
d procptr
* xmlInputCloseCallback:
* @context: an Input context
*
* Callback used in the I/O Input API to close the resource
*
* Returns 0 or -1 in case of error
d xmlInputCloseCallback...
d s * based(######typedef######)
d procptr
/if defined(LIBXML_OUTPUT_ENABLED)
* Those are the functions and datatypes for the library output
* I/O structures.
* xmlOutputMatchCallback:
* @filename: the filename or URI
*
* Callback used in the I/O Output API to detect if the current handler
* can provide output functionalities for this resource.
*
* Returns 1 if yes and 0 if another Output module should be used
d xmlOutputMatchCallback...
d s * based(######typedef######)
d procptr
* xmlOutputOpenCallback:
* @filename: the filename or URI
*
* Callback used in the I/O Output API to open the resource
*
* Returns an Output context or NULL in case or error
d xmlOutputOpenCallback...
d s * based(######typedef######)
d procptr
* xmlOutputWriteCallback:
* @context: an Output context
* @buffer: the buffer of data to write
* @len: the length of the buffer in bytes
*
* Callback used in the I/O Output API to write to the resource
*
* Returns the number of bytes written or -1 in case of error
d xmlOutputWriteCallback...
d s * based(######typedef######)
d procptr
* xmlOutputCloseCallback:
* @context: an Output context
*
* Callback used in the I/O Output API to close the resource
*
* Returns 0 or -1 in case of error
d xmlOutputCloseCallback...
d s * based(######typedef######)
d procptr
/endif LIBXML_OUTPUT_ENABLD
/include "libxmlrpg/globals"
/include "libxmlrpg/tree"
/include "libxmlrpg/parser"
/include "libxmlrpg/encoding"
d xmlParserInputBuffer...
d ds based(xmlParserInputBufferPtr)
d align qualified
d context * void *
d readcallback like(xmlInputReadCallback)
d closecallback like(xmlInputCloseCallback)
*
d encoder like(xmlCharEncodingHandlerPtr) Conversions --> UTF8
*
d buffer like(xmlBufPtr) UTF-8 local buffer
d raw like(xmlBufPtr) Raw input buffer
d compressed like(xmlCint)
d error like(xmlCint)
d rawconsumed like(xmlCulong)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlOutputBuffer...
d ds based(xmlOutputBufferPtr)
d align qualified
d context * void *
d writecallback like(xmlOutputWriteCallback)
d closecallback like(xmlOutputCloseCallback)
*
d encoder like(xmlCharEncodingHandlerPtr) Conversions --> UTF8
*
d buffer like(xmlBufPtr) UTF-8/ISOLatin local
d conv like(xmlBufPtr) Buffer for output
d written like(xmlCint) Total # byte written
d error like(xmlCint)
/endif LIBXML_OUTPUT_ENABLD
* Interfaces for input
d xmlCleanupInputCallbacks...
d pr extproc('xmlCleanupInputCallbacks')
d xmlPopInputCallbacks...
d pr extproc('xmlPopInputCallbacks')
d like(xmlCint)
d xmlRegisterDefaultInputCallbacks...
d pr extproc(
d 'xmlRegisterDefaultInputCallbacks')
d xmlAllocParserInputBuffer...
d pr extproc('xmlAllocParserInputBuffer')
d like(xmlParserInputBufferPtr)
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateFilename...
d pr extproc(
d 'xmlParserInputBufferCreateFilename')
d like(xmlParserInputBufferPtr)
d URI * value options(*string) const char *
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateFile...
d pr extproc(
d 'xmlParserInputBufferCreateFile')
d like(xmlParserInputBufferPtr)
d file * value FILE *
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateFd...
d pr extproc(
d 'xmlParserInputBufferCreateFd')
d like(xmlParserInputBufferPtr)
d fd value like(xmlCint)
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateMem...
d pr extproc(
d 'xmlParserInputBufferCreateMem')
d like(xmlParserInputBufferPtr)
d mem * value options(*string) const char *
d size value like(xmlCint)
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateStatic...
d pr extproc(
d 'xmlParserInputBufferCreateStatic')
d like(xmlParserInputBufferPtr)
d mem * value options(*string) const char *
d size value like(xmlCint)
d enc value like(xmlCharEncoding)
d xmlParserInputBufferCreateIO...
d pr extproc(
d 'xmlParserInputBufferCreateIO')
d like(xmlParserInputBufferPtr)
d ioread value like(xmlInputReadCallback)
d ioclose value like(xmlInputCloseCallback)
d ioctx * value void *
d enc value like(xmlCharEncoding)
d xmlParserInputBufferRead...
d pr extproc('xmlParserInputBufferRead')
d like(xmlCint)
d in value like(xmlParserInputBufferPtr)
d len value like(xmlCint)
d xmlParserInputBufferGrow...
d pr extproc('xmlParserInputBufferGrow')
d like(xmlCint)
d in value like(xmlParserInputBufferPtr)
d len value like(xmlCint)
d xmlParserInputBufferPush...
d pr extproc('xmlParserInputBufferPush')
d like(xmlCint)
d in value like(xmlParserInputBufferPtr)
d len value like(xmlCint)
d buf * value options(*string) const char *
d xmlFreeParserInputBuffer...
d pr extproc('xmlFreeParserInputBuffer')
d in value like(xmlParserInputBufferPtr)
d xmlParserGetDirectory...
d pr * extproc('xmlParserGetDirectory') char *
d filename * value options(*string) const char *
d xmlRegisterInputCallbacks...
d pr extproc('xmlRegisterInputCallbacks')
d like(xmlCint)
d matchFunc value like(xmlInputMatchCallback)
d openFunc value like(xmlInputOpenCallback)
d readFunc value like(xmlInputReadCallback)
d closeFunc value like(xmlInputCloseCallback)
/if defined(LIBXML_OUTPUT_ENABLED)
* Interfaces for output
d xmlCleanupOutputCallbacks...
d pr extproc('xmlCleanupOutputCallbacks')
d xmlRegisterDefaultOutputCallbacks...
d pr extproc(
d 'xmlRegisterDefaultOuputCallbacks')
d xmlAllocOutputBuffer...
d pr extproc('xmlAllocOutputBuffer')
d like(xmlOutputBufferPtr)
d encoder value
d like(xmlCharEncodingHandlerPtr)
d xmlOutputBufferCreateFilename...
d pr extproc(
d 'xmlOutputBufferCreateFilename')
d like(xmlOutputBufferPtr)
d URI * value options(*string) const char *
d encoder value
d like(xmlCharEncodingHandlerPtr)
d compression value like(xmlCint)
d xmlOutputBufferCreateFile...
d pr extproc('xmlOutputBufferCreateFile')
d like(xmlOutputBufferPtr)
d file * value FILE *
d encoder value
d like(xmlCharEncodingHandlerPtr)
d xmlOutputBufferCreateBuffer...
d pr extproc(
d 'xmlOutputBufferCreateBuffer')
d like(xmlOutputBufferPtr)
d buffer value like(xmlBufferPtr)
d encoder value
d like(xmlCharEncodingHandlerPtr)
d xmlOutputBufferCreateFd...
d pr extproc('xmlOutputBufferCreateFd')
d like(xmlOutputBufferPtr)
d fd value like(xmlCint)
d encoder value
d like(xmlCharEncodingHandlerPtr)
d xmlOutputBufferCreateIO...
d pr extproc('xmlOutputBufferCreateIO')
d like(xmlOutputBufferPtr)
d iowrite value like(xmlOutputWriteCallback)
d ioclose value like(xmlOutputCloseCallback)
d ioctx * value void *
d encoder value
d like(xmlCharEncodingHandlerPtr)
* Couple of APIs to get the output without digging into the buffers
d xmlOutputBufferGetContent...
d pr * extproc('xmlOutputBufferGetContent') const xmlChar *
d out value like(xmlOutputBufferPtr)
d xmlOutputBufferGetSize...
d pr extproc('xmlOutputBufferGetSize')
d like(xmlCsize_t)
d out value like(xmlOutputBufferPtr)
d xmlOutputBufferWrite...
d pr extproc('xmlOutputBufferWrite')
d like(xmlCint)
d out value like(xmlOutputBufferPtr)
d len value like(xmlCint)
d buf * value options(*string) const char *
d xmlOutputBufferWriteString...
d pr extproc('xmlOutputBufferWriteString')
d like(xmlCint)
d out value like(xmlOutputBufferPtr)
d str * value options(*string) const char *
d xmlOutputBufferWriteEscape...
d pr extproc('xmlOutputBufferWriteEscape')
d like(xmlCint)
d out value like(xmlOutputBufferPtr)
d str * value options(*string) const xmlChar *
d escaping value like(xmlCharEncodingOutputFunc)
d xmlOutputBufferFlush...
d pr extproc('xmlOutputBufferFlush')
d like(xmlCint)
d out value like(xmlOutputBufferPtr)
d xmlOutputBufferClose...
d pr extproc('xmlOutputBufferClose')
d like(xmlCint)
d out value like(xmlOutputBufferPtr)
d xmlRegisterOutputCallbacks...
d pr extproc('xmlRegisterOutputCallbacks')
d like(xmlCint)
d matchFunc value like(xmlOutputMatchCallback)
d openFunc value like(xmlOutputOpenCallback)
d writeFunc value like(xmlOutputWriteCallback)
d closeFunc value like(xmlOutputCloseCallback)
/if defined(LIBXML_HTTP_ENABLED)
* This function only exists if HTTP support built into the library
d xmlRegisterHTTPPostCallbacks...
d pr extproc(
d 'xmlRegisterHTTPPostCallbacks')
/endif LIBXML_HTTP_ENABLED
/endif LIBXML_OUTPUT_ENABLD
d xmlCheckHTTPInput...
d pr extproc('xmlCheckHTTPInput')
d like(xmlParserInputPtr)
d ctxt value like(xmlParserCtxtPtr)
d ret value like(xmlParserInputPtr)
* A predefined entity loader disabling network accesses
d xmlNoNetExternalEntityLoader...
d pr extproc(
d 'xmlNoNetExternalEntityLoader')
d like(xmlParserInputPtr)
d URL * value options(*string) const char *
d ID * value options(*string) const char *
d ctxt value like(xmlParserCtxtPtr)
* xmlNormalizeWindowsPath is obsolete, don't use it.
* Check xmlCanonicPath in uri.h for a better alternative.
d xmlNormalizeWindowsPath...
d pr * extproc('xmlNormalizeWindowsPath') xmlChar *
d path * value options(*string) const xmlChar *
d xmlCheckFilename...
d pr extproc('xmlCheckFilename')
d like(xmlCint)
d path * value options(*string) const char *
* Default 'file://' protocol callbacks
d xmlFileMatch pr extproc('xmlFileMatch')
d like(xmlCint)
d filename * value options(*string) const char *
d xmlFileOpen pr * extproc('xmlFileOpen') void *
d filename * value options(*string) const char *
d xmlFileRead pr extproc('xmlFileRead')
d like(xmlCint)
d context * value void *
d buffer 65535 options(*varsize)
d len value like(xmlCint)
d xmlFileClose pr extproc('xmlFileClose')
d like(xmlCint)
d context * value void *
* Default 'http://' protocol callbacks
/if defined(LIBXML_HTTP_ENABLED)
d xmlIOHTTPMatch pr extproc('xmlIOHTTPMatch')
d like(xmlCint)
d filename * value options(*string) const char *
d xmlIOHTTPOpen pr * extproc('xmlIOHTTPOpen') void *
d filename * value options(*string) const char *
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlIOHTTPOpenW pr * extproc('xmlIOHTTPOpenW') void *
d post_uri * value options(*string) const char *
d compression value like(xmlCint)
/endif LIBXML_OUTPUT_ENABLD
d xmlIOHTTPRead pr extproc('xmlIOHTTPRead')
d like(xmlCint)
d context * value void *
d buffer 65535 options(*varsize)
d len value like(xmlCint)
d xmlIOHTTPClose pr extproc('xmlIOHTTPClose')
d like(xmlCint)
d context * value void *
/endif LIBXML_HTTP_ENABLED
* Default 'ftp://' protocol callbacks
/if defined(LIBXML_FTP_ENABLED)
d xmlIOFTPMatch pr extproc('xmlIOFTPMatch')
d like(xmlCint)
d filename * value options(*string) const char *
d xmlIOFTPOpen pr * extproc('xmlIOFTPOpen') void *
d filename * value options(*string) const char *
d xmlIOFTPRead pr extproc('xmlIOFTPRead')
d like(xmlCint)
d context * value void *
d buffer 65535 options(*varsize)
d len value like(xmlCint)
d xmlIOFTPClose pr extproc('xmlIOFTPClose')
d like(xmlCint)
d context * value void *
/endif LIBXML_FTP_ENABLED
/endif XML_IO_H__

26
os400/libxmlrpg/xmlTypesC.rpgle
View File

@ -1,26 +0,0 @@
* Equivalent of C data types.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XMLTYPESC_H__)
/define XMLTYPESC_H__
d xmlCchar s 3i 0 based(######typedef######)
d xmlCuchar s 3u 0 based(######typedef######)
d xmlCshort s 5i 0 based(######typedef######)
d xmlCushort s 5u 0 based(######typedef######)
d xmlCint s 10i 0 based(######typedef######)
d xmlCuInt s 10u 0 based(######typedef######)
d xmlClong s 10i 0 based(######typedef######)
d xmlCulong s 10u 0 based(######typedef######)
d xmlClonglong s 20i 0 based(######typedef######)
d xmlCulonglong s 20u 0 based(######typedef######)
d xmlCenum s 10i 0 based(######typedef######)
d xmlCssize_t s 10i 0 based(######typedef######)
d xmlCsize_t s 10u 0 based(######typedef######)
d xmlCfloat s 4f based(######typedef######)
d xmlCdouble s 8f based(######typedef######)
/endif

183
os400/libxmlrpg/xmlautomata.rpgle
View File

@ -1,183 +0,0 @@
* Summary: API to build regexp automata
* Description: the API to build regexp automata
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_AUTOMATA_H__)
/define XML_AUTOMATA_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_REGEXP_ENABLED)
/if defined(LIBXML_AUTOMATA_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/xmlregexp"
* xmlAutomataPtr:
*
* A libxml automata description, It can be compiled into a regexp
d xmlAutomataPtr s * based(######typedef######)
* xmlAutomataStatePtr:
*
* A state int the automata description,
d xmlAutomataStatePtr...
d s * based(######typedef######)
* Building API
d xmlNewAutomata pr extproc('xmlNewAutomata')
d like(xmlAutomataPtr)
d xmlFreeAutomata...
d pr extproc('xmlFreeAutomata')
d am value like(xmlAutomataPtr)
d xmlAutomataGetInitState...
d pr extproc('xmlAutomataGetInitState')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d xmlAutomataSetFinalState...
d pr extproc('xmlAutomataSetFinalState')
d like(xmlCint)
d am value like(xmlAutomataPtr)
d state value like(xmlAutomataStatePtr)
d xmlAutomataNewState...
d pr extproc('xmlAutomataNewState')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d xmlAutomataNewTransition...
d pr extproc('xmlAutomataNewTransition')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d data * value options(*string) void *
d xmlAutomataNewTransition2...
d pr extproc('xmlAutomataNewTransition2')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d token2 * value options(*string) const xmlChar *
d data * value options(*string) void *
d xmlAutomataNewNegTrans...
d pr extproc('xmlAutomataNewNegTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d token2 * value options(*string) const xmlChar *
d data * value options(*string) void *
d xmlAutomataNewCountTrans...
d pr extproc('xmlAutomataNewCountTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d min value like(xmlCint)
d max value like(xmlCint)
d data * value options(*string) void *
d xmlAutomataNewCountTrans2...
d pr extproc('xmlAutomataNewCountTrans2')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d token2 * value options(*string) const xmlChar *
d min value like(xmlCint)
d max value like(xmlCint)
d data * value options(*string) void *
d xmlAutomataNewOnceTrans...
d pr extproc('xmlAutomataNewOnceTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d min value like(xmlCint)
d max value like(xmlCint)
d data * value options(*string) void *
d xmlAutomataNewOnceTrans2...
d pr extproc('xmlAutomataNewOnceTrans2')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d token * value options(*string) const xmlChar *
d token2 * value options(*string) const xmlChar *
d min value like(xmlCint)
d max value like(xmlCint)
d data * value options(*string) void *
d xmlAutomataNewAllTrans...
d pr extproc('xmlAutomataNewAllTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d lax value like(xmlCint)
d xmlAutomataNewEpsilon...
d pr extproc('xmlAutomataNewEpsilon')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d xmlAutomataNewCountedTrans...
d pr extproc('xmlAutomataNewCountedTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d counter value like(xmlCint)
d xmlAutomataNewCounterTrans...
d pr extproc('xmlAutomataNewCounterTrans')
d like(xmlAutomataStatePtr)
d am value like(xmlAutomataPtr)
d from value like(xmlAutomataStatePtr)
d to value like(xmlAutomataStatePtr)
d counter value like(xmlCint)
d xmlAutomataNewCounter...
d pr extproc('xmlAutomataNewCounter')
d like(xmlCint)
d am value like(xmlAutomataPtr)
d min value like(xmlCint)
d max value like(xmlCint)
d xmlAutomataCompile...
d pr extproc('xmlAutomataCompile')
d like(xmlRegexpPtr)
d am value like(xmlAutomataPtr)
d xmlAutomataIsDeterminist...
d pr extproc('xmlAutomataIsDeterminist')
d like(xmlCint)
d am value like(xmlAutomataPtr)
/endif AUTOMATA_ENABLED
/endif LIBXML_REGEXP_ENABLD
/endif XML_AUTOMATA_H__

1686
os400/libxmlrpg/xmlerror.rpgle
View File

File diff suppressed because it is too large Load Diff

15
os400/libxmlrpg/xmlexports.rpgle
View File

@ -1,15 +0,0 @@
* Summary: macros for marking symbols as exportable/importable.
* Description: macros for marking symbols as exportable/importable.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_EXPORTS_H__)
/define XML_EXPORTS_H__
* The definition in the original C header file are not applicable to
* ILE/RPG.
* Therefore this file is intentionally empty.
/endif XML_EXPORTS_H__

247
os400/libxmlrpg/xmlmemory.rpgle
View File

@ -1,247 +0,0 @@
* Summary: interface for the memory allocator
* Description: provides interfaces for the memory allocator,
* including debugging capabilities.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(DEBUG_MEMORY_ALLOC__)
/define DEBUG_MEMORY_ALLOC__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
* DEBUG_MEMORY:
*
* DEBUG_MEMORY replaces the allocator with a collect and debug
* shell to the libc allocator.
* DEBUG_MEMORY should only be activated when debugging
* libxml i.e. if libxml has been configured with --with-debug-mem too.
* /define DEBUG_MEMORY_FREED
* /define DEBUG_MEMORY_LOCATION
/if defined(DEBUG)
/if not defined(DEBUG_MEMORY)
/define DEBUG_MEMORY
/endif
/endif
* DEBUG_MEMORY_LOCATION:
*
* DEBUG_MEMORY_LOCATION should be activated only when debugging
* libxml i.e. if libxml has been configured with --with-debug-mem too.
/if defined(DEBUG_MEMORY_LOCATION)
/endif
* The XML memory wrapper support 4 basic overloadable functions.
* xmlFreeFunc:
* @mem: an already allocated block of memory
*
* Signature for a free() implementation.
d xmlFreeFunc s * based(######typedef######)
d procptr
* xmlMallocFunc:
* @size: the size requested in bytes
*
* Signature for a malloc() implementation.
*
* Returns a pointer to the newly allocated block or NULL in case of error.
d xmlMallocFunc s * based(######typedef######)
d procptr
* xmlReallocFunc:
* @mem: an already allocated block of memory
* @size: the new size requested in bytes
*
* Signature for a realloc() implementation.
*
* Returns a pointer to the newly reallocated block or NULL in case of error.
d xmlReallocFunc s * based(######typedef######)
d procptr
* xmlStrdupFunc:
* @str: a zero terminated string
*
* Signature for an strdup() implementation.
*
* Returns the copy of the string or NULL in case of error.
d xmlStrdupFunc s * based(######typedef######)
d procptr
* The 5 interfaces used for all memory handling within libxml.
* Since indirect calls are only supported via a based prototype,
* storage is accessed via functions.
d get_xmlFree pr extproc('__get_xmlFree')
d like(xmlFreeFunc)
d set_xmlFree pr extproc('__set_xmlFree')
d func value like(xmlFreeFunc)
d xmlFree pr extproc('__call_xmlFree')
d mem * value void *
d get_xmlMalloc pr extproc('__get_xmlMalloc')
d like(xmlMallocFunc)
d set_xmlMalloc pr extproc('__set_xmlMalloc')
d func value like(xmlMallocFunc)
d xmlMalloc pr * extproc('__call_xmlMalloc') void *
d size value like(xmlCsize_t)
d get_xmlMallocAtomic...
d pr extproc('__get_xmlMallocAtomic')
d like(xmlMallocFunc)
d set_xmlMallocAtomic...
d pr extproc('__set_xmlMallocAtomic')
d func value like(xmlMallocFunc)
d xmlMallocAtomic...
d pr * extproc('__call_xmlMallocAtomic') void *
d size value like(xmlCsize_t)
d get_xmlRealloc pr extproc('__get_xmlRealloc')
d like(xmlReallocFunc)
d set_xmlRealloc pr extproc('__set_xmlRealloc')
d func value like(xmlReallocFunc)
d xmlRealloc pr * extproc('__call_xmlRealloc') void *
d mem * value void *
d size value like(xmlCsize_t)
d get_xmlMemStrdup...
d pr extproc('__get_xmlMemStrdup')
d like(xmlStrdupFunc)
d set_xmlMemStrdup...
d pr extproc('__set_xmlMemstrdup')
d func value like(xmlStrdupFunc)
d xmlMemStrdup pr * extproc('__call_xmlMemStrdup') void *
d str * value options(*string) const char *
* The way to overload the existing functions.
* The xmlGc function have an extra entry for atomic block
* allocations useful for garbage collected memory allocators
d xmlMemSetup pr extproc('xmlMemSetup')
d like(xmlCint)
d freeFunc value like(xmlFreeFunc)
d mallocFunc value like(xmlMallocFunc)
d reallocFunc value like(xmlReallocFunc)
d strdupFunc value like(xmlStrdupFunc)
d xmlMemGet pr extproc('xmlMemGet')
d like(xmlCint)
d freeFunc like(xmlFreeFunc)
d mallocFunc like(xmlMallocFunc)
d reallocFunc like(xmlReallocFunc)
d strdupFunc like(xmlStrdupFunc)
d xmlGcMemSetup pr extproc('xmlGcMemSetup')
d like(xmlCint)
d freeFunc value like(xmlFreeFunc)
d mallocFunc value like(xmlMallocFunc)
d mallocAtomicFunc...
d value like(xmlMallocFunc)
d reallocFunc value like(xmlReallocFunc)
d strdupFunc value like(xmlStrdupFunc)
d xmlGcMemGet pr extproc('xmlGcMemGet')
d like(xmlCint)
d freeFunc like(xmlFreeFunc)
d mallocFunc like(xmlMallocFunc)
d mallocAtomicFunc...
d like(xmlMallocFunc)
d reallocFunc like(xmlReallocFunc)
d strdupFunc like(xmlStrdupFunc)
* Initialization of the memory layer.
d xmlInitMemory pr extproc('xmlInitMemory')
d like(xmlCint)
* Cleanup of the memory layer.
d xmlCleanupMemory...
d pr extproc('xmlCleanupMemory')
* These are specific to the XML debug memory wrapper.
d xmlMemUsed pr extproc('xmlMemUsed')
d like(xmlCint)
d xmlMemBlocks pr extproc('xmlMemBlocks')
d like(xmlCint)
d xmlMemDisplay pr extproc('xmlMemDisplay')
d fp * value FILE *
d xmlMmDisplayLast...
d pr extproc('xmlMemDisplayLast')
d fp * value FILE *
d nbBytes value like(xmlClong)
d xmlMemShow pr extproc('xmlMemShow')
d fp * value FILE *
d nr value like(xmlCint)
d xmlMemoryDump pr extproc('xmlMemoryDump')
d xmlMemMalloc pr * extproc('xmlMemMalloc') void *
d size value like(xmlCsize_t)
d xmlMemRealloc pr * extproc('xmlMemRealloc') void *
d ptr * value void *
d size value like(xmlCsize_t)
d xmlMemFree pr extproc('xmlMemFree')
d ptr * value void *
d xmlMemoryStrdup...
d pr * extproc('xmlMemoryStrdup') char *
d str * value options(*string) const char *
d xmlMallocLoc pr * extproc('xmlMallocLoc') void *
d size value like(xmlCsize_t)
d file * value options(*string) const char *
d line value like(xmlCint)
d xmlReallocLoc pr * extproc('xmlReallocLoc') void *
d ptr * value void *
d size value like(xmlCsize_t)
d file * value options(*string) const char *
d line value like(xmlCint)
d xmlMallocAtomicLoc...
d pr * extproc('xmlMallocAtomicLoc') void *
d size value like(xmlCsize_t)
d file * value options(*string) const char *
d line value like(xmlCint)
d xmlMemStrdupLoc...
d pr * extproc('xmlMemStrdupLoc') char *
d str * value options(*string) const char *
d file * value options(*string) const char *
d line value like(xmlCint)
/if not defined(XML_GLOBALS_H)
/if not defined(XML_THREADS_H__)
/include "libxmlrpg/threads"
/include "libxmlrpg/globals"
/endif
/endif
/endif DEBUG_MEMORY_ALLOC__

57
os400/libxmlrpg/xmlmodule.rpgle
View File

@ -1,57 +0,0 @@
* Summary: dynamic module loading
* Description: basic API for dynamic module loading, used by
* libexslt added in 2.6.17
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_MODULE_H__)
/define XML_MODULE_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_MODULES_ENABLED)
/include "libxmlrpg/xmlTypesC"
* xmlModulePtr:
*
* A handle to a dynamically loaded module
d xmlModulePtr s * based(######typedef######)
* xmlModuleOption:
*
* enumeration of options that can be passed down to xmlModuleOpen()
d xmlModuleOption...
d s based(######typedef######)
d like(xmlCenum)
d XML_MODULE_LAZY... Lazy binding
d c 1
d XML_MODULE_LOCAL... Local binding
d c 2
d xmlModuleOpen pr extproc('xmlModuleOpen')
d like(xmlModulePtr)
d filename * value options(*string) const char *
d options value like(xmlCint)
d xmlModuleSymbol...
d pr extproc('xmlModuleSymbol')
d like(xmlCint)
d module value like(xmlModulePtr)
d name * value options(*string) const char *
d result * void *(*)
d xmlModuleClose pr extproc('xmlModuleClose')
d like(xmlCint)
d module value like(xmlModulePtr)
d xmlModuleFree pr extproc('xmlModuleFree')
d like(xmlCint)
d module value like(xmlModulePtr)
/endif LIBXML_MODULES_ENBLD
/endif XML_MODULE_H__

668
os400/libxmlrpg/xmlreader.rpgle
View File

@ -1,668 +0,0 @@
* Summary: the XMLReader implementation
* Description: API of the XML streaming API based on C# interfaces.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XMLREADER_H__)
/define XML_XMLREADER_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/xmlIO"
/if defined(LIBXML_SCHEMAS_ENABLED)
/include "libxmlrpg/relaxng"
/include "libxmlrpg/xmlschemas"
/endif
* xmlParserSeverities:
*
* How severe an error callback is when the per-reader error callback API
* is used.
d xmlParserSeverities...
d s based(######typedef######)
d like(xmlCenum)
d XML_PARSER_SEVERITY_VALIDITY_WARNING...
d c 1
d XML_PARSER_SEVERITY_VALIDITY_ERROR...
d c 2
d XML_PARSER_SEVERITY_WARNING...
d c 3
d XML_PARSER_SEVERITY_ERROR...
d c 4
/if defined(LIBXML_READER_ENABLED)
* xmlTextReaderMode:
*
* Internal state values for the reader.
d xmlTextReaderMode...
d s based(######typedef######)
d like(xmlCenum)
d XML_TEXTREADER_MODE_INITIAL...
d c 0
d XML_TEXTREADER_MODE_INTERACTIVE...
d c 1
d XML_TEXTREADER_MODE_ERROR...
d c 2
d XML_TEXTREADER_MODE_EOF...
d c 3
d XML_TEXTREADER_MODE_CLOSED...
d c 4
d XML_TEXTREADER_MODE_READING...
d c 5
* xmlParserProperties:
*
* Some common options to use with xmlTextReaderSetParserProp, but it
* is better to use xmlParserOption and the xmlReaderNewxxx and
* xmlReaderForxxx APIs now.
d xmlParserProperties...
d s based(######typedef######)
d like(xmlCenum)
d XML_PARSER_LOADDTD...
d c 1
d XML_PARSER_DEFAULTATTRS...
d c 2
d XML_PARSER_VALIDATE...
d c 3
d XML_PARSER_SUBST_ENTITIES...
d c 4
* xmlReaderTypes:
*
* Predefined constants for the different types of nodes.
d xmlReaderTypes s based(######typedef######)
d like(xmlCenum)
d XML_READER_TYPE_NONE...
d c 0
d XML_READER_TYPE_ELEMENT...
d c 1
d XML_READER_TYPE_ATTRIBUTE...
d c 2
d XML_READER_TYPE_TEXT...
d c 3
d XML_READER_TYPE_CDATA...
d c 4
d XML_READER_TYPE_ENTITY_REFERENCE...
d c 5
d XML_READER_TYPE_ENTITY...
d c 6
d XML_READER_TYPE_PROCESSING_INSTRUCTION...
d c 7
d XML_READER_TYPE_COMMENT...
d c 8
d XML_READER_TYPE_DOCUMENT...
d c 9
d XML_READER_TYPE_DOCUMENT_TYPE...
d c 10
d XML_READER_TYPE_DOCUMENT_FRAGMENT...
d c 11
d XML_READER_TYPE_NOTATION...
d c 12
d XML_READER_TYPE_WHITESPACE...
d c 13
d XML_READER_TYPE_SIGNIFICANT_WHITESPACE...
d c 14
d XML_READER_TYPE_END_ELEMENT...
d c 15
d XML_READER_TYPE_END_ENTITY...
d c 16
d XML_READER_TYPE_XML_DECLARATION...
d c 17
* xmlTextReaderPtr:
*
* Pointer to an xmlReader context.
d xmlTextReaderPtr...
d s * based(######typedef######)
* Constructors & Destructor
d xmlNewTextReader...
d pr extproc('xmlNewTextReader')
d like(xmlTextReaderPtr)
d input value like(xmlParserInputBufferPtr)
d URI * value options(*string) const char *
d xmlNewTextReaderFilename...
d pr extproc('xmlNewTextReaderFilename')
d like(xmlTextReaderPtr)
d URI * value options(*string) const char *
d xmlFreeTextReader...
d pr extproc('xmlFreeTextReader')
d reader value like(xmlTextReaderPtr)
d xmlTextReaderSetup...
d pr extproc('xmlTextReaderSetup')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d input value like(xmlParserInputBufferPtr)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
* Iterators
d xmlTextReaderRead...
d pr extproc('xmlTextReaderRead')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
/if defined(LIBXML_WRITER_ENABLED)
d xmlTextReaderReadInnerXml...
d pr * extproc('xmlTextReaderReadInnerXml') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderReadOuterXml...
d pr * extproc('xmlTextReaderReadOuterXml') xmlChar *
d reader value like(xmlTextReaderPtr)
/endif
d xmlTextReaderReadString...
d pr * extproc('xmlTextReaderReadString') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderReadAttributeValue...
d pr extproc(
d 'xmlTextReaderReadAttributeValue')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
* Attributes of the node
d xmlTextReaderAttributeCount...
d pr extproc(
d 'xmlTextReaderAttributeCount')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderDepth...
d pr extproc('xmlTextReaderDepth')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderHasAttributes...
d pr extproc('xmlTextReaderHasAttributes')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderHasValue...
d pr extproc('xmlTextReaderHasValue')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderIsDefault...
d pr extproc('xmlTextReaderIsDefault')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderIsEmptyElement...
d pr extproc(
d 'xmlTextReaderIsEmptyElement')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderNodeType...
d pr extproc('xmlTextReaderNodeType')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderQuoteChar...
d pr extproc('xmlTextReaderQuoteChar')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderReadState...
d pr extproc('xmlTextReaderReadState')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderIsNamespaceDecl...
d pr extproc(
d 'xmlTextReaderIsNamespaceDecl')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstBaseUri...
d pr * extproc('xmlTextReaderConstBaseUri') const xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstLocalName...
d pr * extproc( const xmlChar *
d 'xmlTextReaderConstLocalName')
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstName...
d pr * extproc('xmlTextReaderConstName') const xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstNamespaceUri...
d pr * extproc( const xmlChar *
d 'xmlTextReaderConstNamespaceUri')
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstPrefix...
d pr * extproc('xmlTextReaderConstPrefix') const xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstXmlLang...
d pr * extproc('xmlTextReaderConstXmlLang') const xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstString...
d pr * extproc('xmlTextReaderConstString') const xmlChar *
d reader value like(xmlTextReaderPtr)
d str * value options(*string) const xmlChar *
d xmlTextReaderConstValue...
d pr * extproc('xmlTextReaderConstValue') const xmlChar *
d reader value like(xmlTextReaderPtr)
* use the Const version of the routine for
* better performance and simpler code
d xmlTextReaderBaseUri...
d pr * extproc('xmlTextReaderBaseUri') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderLocalName...
d pr * extproc('xmlTextReaderLocalName') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderName...
d pr * extproc('xmlTextReaderName') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderNamespaceUri...
d pr * extproc('xmlTextReaderNamespaceUri') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderPrefix...
d pr * extproc('xmlTextReaderPrefix') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderXmlLang...
d pr * extproc('xmlTextReaderXmlLang') xmlChar *
d reader value like(xmlTextReaderPtr)
d xmlTextReaderValue...
d pr * extproc('xmlTextReaderValue') xmlChar *
d reader value like(xmlTextReaderPtr)
* Methods of the XmlTextReader
d xmlTextReaderClose...
d pr extproc('xmlTextReaderClose')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderGetAttributeNo...
d pr * extproc( xmlChar *
d 'xmlTextReaderGetAttributeNo')
d reader value like(xmlTextReaderPtr)
d no value like(xmlCint)
d xmlTextReaderGetAttribute...
d pr * extproc('xmlTextReaderGetAttribute') xmlChar *
d reader value like(xmlTextReaderPtr)
d name * value options(*string) const xmlChar *
d xmlTextReaderGetAttributeNs...
d pr * extproc( xmlChar *
d 'xmlTextReaderGetAttributeNs')
d reader value like(xmlTextReaderPtr)
d localName * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d xmlTextReaderGetRemainder...
d pr extproc('xmlTextReaderGetRemainder')
d like(xmlParserInputBufferPtr)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderLookupNamespace...
d pr * extproc( xmlChar *
d 'xmlTextReaderLookupNamespace')
d reader value like(xmlTextReaderPtr)
d prefix * value options(*string) const xmlChar *
d xmlTextReaderMoveToAttributeNo...
d pr extproc(
d 'xmlTextReaderMoveToAttributeNo')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d no value like(xmlCint)
d xmlTextReaderMoveToAttribute...
d pr extproc(
d 'xmlTextReaderMoveToAttribute')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d name * value options(*string) const xmlChar *
d xmlTextReaderMoveToAttributeNs...
d pr extproc(
d 'xmlTextReaderMoveToAttributeNs')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d localName * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d xmlTextReaderMoveToFirstAttribute...
d pr extproc(
d 'xmlTextReaderMoveToFirstAttribute')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderMoveToNextAttribute...
d pr extproc(
d 'xmlTextReaderMoveToNextAttribute')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderMoveToElement...
d pr extproc('xmlTextReaderMoveToElement')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderNormalization...
d pr extproc('xmlTextReaderNormalization')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderConstEncoding...
d pr * extproc('xmlTextReaderConstEncoding')const xmlChar *
d reader value like(xmlTextReaderPtr)
* Extensions
d xmlTextReaderSetParserProp...
d pr extproc('xmlTextReaderSetParserProp')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d prop value like(xmlCint)
d value value like(xmlCint)
d xmlTextReaderGetParserProp...
d pr extproc('xmlTextReaderGetParserProp')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d prop value like(xmlCint)
d xmlTextReaderCurrentNode...
d pr extproc('xmlTextReaderCurrentNode')
d like(xmlNodePtr)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderGetParserLineNumber...
d pr extproc(
d 'xmlTextReaderGetParserLineNumber')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderGetParserColumnNumber...
d pr extproc(
d 'xmlTextReaderGetParserColumnNumber')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderPreserve...
d pr extproc('xmlTextReaderPreserve')
d like(xmlNodePtr)
d reader value like(xmlTextReaderPtr)
/if defined(LIBXML_PATTERN_ENABLED)
d xmlTextReaderPreservePattern...
d pr extproc(
d 'xmlTextReaderPreservePattern')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d pattern * value options(*string) const xmlChar *
d namespaces * const xmlChar *(*)
/endif LIBXML_PATTERN_ENBLD
d xmlTextReaderCurrentDoc...
d pr extproc('xmlTextReaderCurrentDoc')
d like(xmlDocPtr)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderExpand...
d pr extproc('xmlTextReaderExpand')
d like(xmlNodePtr)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderNext...
d pr extproc('xmlTextReaderNext')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderNextSibling...
d pr extproc('xmlTextReaderNextSibling')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xmlTextReaderIsValid...
d pr extproc('xmlTextReaderIsValid')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
/if defined(LIBXML_SCHEMAS_ENABLED)
d xmlTextReaderRelaxNGValidate...
d pr extproc(
d 'xmlTextReaderRelaxNGValidate')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d rng * value options(*string) const char *
d xmlTextReaderRelaxNGValidateCtxt...
d pr extproc(
d 'xmlTextReaderRelaxNGValidateCtxt')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d ctxt value like(xmlRelaxNGValidCtxtPtr)
d options value like(xmlCint)
d xmlTextReaderRelaxNGSetSchema...
d pr extproc(
d 'xmlTextReaderRelaxNGSetSchema')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d schema value like(xmlRelaxNGPtr)
d xmlTextReaderSchemaValidate...
d pr extproc(
d 'xmlTextReaderSchemaValidate')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d xsd * value options(*string) const char *
d xmlTextReaderSchemaValidateCtxt...
d pr extproc(
d 'xmlTextReaderSchemaValidateCtxt')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d ctxt value like(xmlSchemaValidCtxtPtr)
d options value like(xmlCint)
d xmlTextReaderSetSchema...
d pr extproc('xmlTextReaderSetSchema')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d schema value like(xmlSchemaPtr)
/endif
d xmlTextReaderConstXmlVersion...
d pr * extproc( const xmlChar *
d 'xmlTextReaderConstXmlVersion')
d reader value like(xmlTextReaderPtr)
d xmlTextReaderStandalone...
d pr extproc('xmlTextReaderStandalone')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
* Index lookup
d xmlTextReaderByteConsumed...
d pr extproc('xmlTextReaderByteConsumed')
d like(xmlClong)
d reader value like(xmlTextReaderPtr)
* New more complete APIs for simpler creation and reuse of readers
d xmlReaderWalker...
d pr extproc('xmlReaderWalker')
d like(xmlTextReaderPtr)
d doc value like(xmlDocPtr)
d xmlReaderForDoc...
d pr extproc('xmlReaderForDoc')
d like(xmlTextReaderPtr)
d cur * value options(*string) const xmlChar *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderForFile...
d pr extproc('xmlReaderForFile')
d like(xmlTextReaderPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderForMemory...
d pr extproc('xmlReaderForMemory')
d like(xmlTextReaderPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderForFd pr extproc('xmlReaderForFd')
d like(xmlTextReaderPtr)
d fd value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderForIO pr extproc('xmlReaderForIO')
d like(xmlTextReaderPtr)
d ioread value like(xmlInputReadCallback)
d ioclose value like(xmlInputCloseCallback)
d ioctx * value void *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderNewWalker...
d pr extproc('xmlReaderNewWalker')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d doc value like(xmlDocPtr)
d xmlReaderNewDoc...
d pr extproc('xmlReaderNewDoc')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d cur * value options(*string) const xmlChar *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderNewFile...
d pr extproc('xmlReaderNewFile')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderNewMemory...
d pr extproc('xmlReaderNewMemory')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderNewFd pr extproc('xmlReaderNewFd')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d fd value like(xmlCint)
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlReaderNewIO pr extproc('xmlReaderNewIO')
d like(xmlCint)
d reader value like(xmlTextReaderPtr)
d ioread value like(xmlInputReadCallback)
d ioclose value like(xmlInputCloseCallback)
d ioctx * value void *
d URL * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
* Error handling extensions
d xmlTextReaderLocatorPtr...
d s * based(######typedef######) void *
* xmlTextReaderErrorFunc:
* @arg: the user argument
* @msg: the message
* @severity: the severity of the error
* @locator: a locator indicating where the error occurred
*
* Signature of an error callback from a reader parser
d xmlTextReaderErrorFunc...
d s * based(######typedef######)
d procptr
d xmlTextReaderLocatorLineNumber...
d pr extproc(
d 'xmlTextReaderLocatorLineNumber')
d like(xmlCint)
d locator value like(xmlTextReaderLocatorPtr)
d xmlTextReaderLocatorBaseURI...
d pr * extproc( xmlChar *
d 'xmlTextReaderLocatorBaseURI')
d locator value like(xmlTextReaderLocatorPtr)
d xmlTextReaderSetErrorHandler...
d pr extproc(
d 'xmlTextReaderSetErrorHandler')
d reader value like(xmlTextReaderPtr)
d f value like(xmlTextReaderErrorFunc)
d arg * value void *
d xmlTextReaderSetStructuredErrorHandler...
d pr extproc('xmlTextReaderSetStructuredE-
d rrorHandler')
d reader value like(xmlTextReaderPtr)
d f value like(xmlStructuredErrorFunc)
d arg * value void *
d xmlTextReaderGetErrorHandler...
d pr extproc(
d 'xmlTextReaderGetErrorHandler')
d reader value like(xmlTextReaderPtr)
d f like(xmlTextReaderErrorFunc)
d arg * void *(*)
/endif LIBXML_READER_ENABLD
/endif XML_XMLREADER_H__

262
os400/libxmlrpg/xmlregexp.rpgle
View File

@ -1,262 +0,0 @@
* Summary: regular expressions handling
* Description: basic API for libxml regular expressions handling used
* for XML Schemas and validation.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_REGEXP_H__)
/define XML_REGEXP_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_REGEXP_ENABLED)
/include "libxmlrpg/xmlTypesC"
* xmlRegexpPtr:
*
* A libxml regular expression, they can actually be far more complex
* thank the POSIX regex expressions.
d xmlRegexpPtr s * based(######typedef######)
* xmlRegExecCtxtPtr:
*
* A libxml progressive regular expression evaluation context
d xmlRegExecCtxtPtr...
d s * based(######typedef######)
/include "libxmlrpg/tree"
/include "libxmlrpg/dict"
* The POSIX like API
d xmlRegexpCompile...
d pr extproc('xmlRegexpCompile')
d like(xmlRegexpPtr)
d regexp * value options(*string) const xmlChar *
d xmlRegFreeRegexp...
d pr extproc('xmlRegFreeRegexp')
d regexp value like(xmlRegexpPtr)
d xmlRegexpExec pr extproc('xmlRegexpExec')
d like(xmlCint)
d comp value like(xmlRegexpPtr)
d value * value options(*string) const xmlChar *
d xmlRegexpPrint pr extproc('xmlRegexpPrint')
d output * value FILE *
d regexp value like(xmlRegexpPtr)
d xmlRegexpIsDeterminist...
d pr extproc('xmlRegexpIsDeterminist')
d like(xmlCint)
d comp value like(xmlRegexpPtr)
* xmlRegExecCallbacks:
* @exec: the regular expression context
* @token: the current token string
* @transdata: transition data
* @inputdata: input data
*
* Callback function when doing a transition in the automata
d xmlRegExecCallbacks...
d s * based(######typedef######)
d procptr
* The progressive API
d xmlRegNewExecCtxt...
d pr extproc('xmlRegNewExecCtxt')
d like(xmlRegExecCtxtPtr)
d comp value like(xmlRegexpPtr)
d callback value like(xmlRegExecCallbacks)
d data * value void *
d xmlRegFreeExecCtxt...
d pr extproc('xmlRegFreeExecCtxt')
d exec value like(xmlRegExecCtxtPtr)
d xmlRegExecPushString...
d pr extproc('xmlRegExecPushString')
d like(xmlCint)
d exec value like(xmlRegExecCtxtPtr)
d value * value options(*string) const xmlChar *
d data * value void *
d xmlRegExecPushString2...
d pr extproc('xmlRegExecPushString2')
d like(xmlCint)
d exec value like(xmlRegExecCtxtPtr)
d value * value options(*string) const xmlChar *
d value2 * value options(*string) const xmlChar *
d data * value void *
d xmlRegExecNextValues...
d pr extproc('xmlRegExecNextValues')
d like(xmlCint)
d exec value like(xmlRegExecCtxtPtr)
d nbval like(xmlCint)
d nbneg like(xmlCint)
d values * xmlChar * (*)
d terminal like(xmlCint)
d xmlRegExecErrInfo...
d pr extproc('xmlRegExecErrInfo')
d like(xmlCint)
d exec value like(xmlRegExecCtxtPtr)
d string * const xmlChar * (*)
d nbval like(xmlCint)
d nbneg like(xmlCint)
d values * xmlChar * (*)
d terminal like(xmlCint)
/if defined(LIBXML_EXPR_ENABLED)
* Formal regular expression handling
* Its goal is to do some formal work on content models
* expressions are used within a context
d xmlExpCtxtPtr s * based(######typedef######)
d xmlExpFreeCtxt pr extproc('xmlExpFreeCtxt')
d ctxt value like(xmlExpCtxtPtr)
d xmlExpNewCtxt pr extproc('xmlExpNewCtxt')
d like(xmlExpCtxtPtr)
d maxNodes value like(xmlCint)
d dict value like(xmlDictPtr)
d xmlExpCtxtNbNodes...
d pr extproc('xmlExpCtxtNbNodes')
d like(xmlCint)
d ctxt value like(xmlExpCtxtPtr)
d xmlExpCtxtNbCons...
d pr extproc('xmlExpCtxtNbCons')
d like(xmlCint)
d ctxt value like(xmlExpCtxtPtr)
* Expressions are trees but the tree is opaque
d xmlExpNodePtr s * based(######typedef######)
d xmlExpNodeType s based(######typedef######)
d like(xmlCenum)
d XML_EXP_EMPTY c 0
d XML_EXP_FORBID...
d c 1
d XML_EXP_ATOM c 2
d XML_EXP_SEQ c 3
d XML_EXP_OR c 4
d XML_EXP_COUNT c 5
* 2 core expressions shared by all for the empty language set
* and for the set with just the empty token
d forbiddenExp s import('forbiddenExp')
d like(xmlExpNodePtr)
d emptyExp s import('emptyExp')
d like(xmlExpNodePtr)
* Expressions are reference counted internally
d xmlExpFree pr extproc('xmlExpFree')
d expr value like(xmlExpNodePtr)
d xmlExpRef pr extproc('xmlExpRef')
d expr value like(xmlExpNodePtr)
* constructors can be either manual or from a string
d xmlExpParse pr extproc('xmlExpParse')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d expr * value options(*string) const char *
d xmlExpNewAtom pr extproc('xmlExpNewAtom')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d name * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlExpNewOr pr extproc('xmlExpNewOr')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d left value like(xmlExpNodePtr)
d right value like(xmlExpNodePtr)
d xmlExpNewSeq pr extproc('xmlExpNewSeq')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d left value like(xmlExpNodePtr)
d right value like(xmlExpNodePtr)
d xmlExpNewRange pr extproc('xmlExpNewRange')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d subset value like(xmlExpNodePtr)
d min value like(xmlCint)
d max value like(xmlCint)
* The really interesting APIs
d xmlExpIsNillable...
d pr extproc('xmlExpIsNillable')
d like(xmlCint)
d expr value like(xmlExpNodePtr)
d xmlExpMaxToken pr extproc('xmlExpMaxToken')
d like(xmlCint)
d expr value like(xmlExpNodePtr)
d xmlExpGetLanguage...
d pr extproc('xmlExpGetLanguage')
d like(xmlCint)
d ctxt value like(xmlExpCtxtPtr)
d expr value like(xmlExpNodePtr)
d langList * const xmlChar *(*)
d len value like(xmlCint)
d xmlExpGetStart pr extproc('xmlExpGetStart')
d like(xmlCint)
d ctxt value like(xmlExpCtxtPtr)
d expr value like(xmlExpNodePtr)
d tokList * const xmlChar *(*)
d len value like(xmlCint)
d xmlExpStringDerive...
d pr extproc('xmlExpStringDerive')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d expr value like(xmlExpNodePtr)
d str * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlExpExpDerive...
d pr extproc('xmlExpExpDerive')
d like(xmlExpNodePtr)
d ctxt value like(xmlExpCtxtPtr)
d expr value like(xmlExpNodePtr)
d sub value like(xmlExpNodePtr)
d xmlExpSubsume pr extproc('xmlExpSubsume')
d like(xmlCint)
d ctxt value like(xmlExpCtxtPtr)
d expr value like(xmlExpNodePtr)
d sub value like(xmlExpNodePtr)
d xmlExpDump pr extproc('xmlExpDump')
d buf value like(xmlBufferPtr)
d expr value like(xmlExpNodePtr)
/endif LIBXML_EXPR_ENABLED
/endif LIBXML_REGEXP_ENABLD
/endif XML_REGEXP_H__

105
os400/libxmlrpg/xmlsave.rpgle
View File

@ -1,105 +0,0 @@
* Summary: the XML document serializer
* Description: API to save document or subtree of document
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XMLSAVE_H__)
/define XML_XMLSAVE_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_OUTPUT_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/encoding"
/include "libxmlrpg/xmlIO"
* xmlSaveOption:
*
* This is the set of XML save options that can be passed down
* to the xmlSaveToFd() and similar calls.
d xmlSaveOption s based(######typedef######)
d like(xmlCenum)
d XML_SAVE_FORMAT... Format save output
d c X'0001'
d XML_SAVE_NO_DECL... Drop xml declaration
d c X'0002'
d XML_SAVE_NO_EMPTY... No empty tags
d c X'0004'
d XML_SAVE_NO_XHTML... No XHTML1 specific
d c X'0008'
d XML_SAVE_XHTML... Frce XHTML1 specific
d c X'0010'
d XML_SAVE_AS_XML... Frce XML on HTML doc
d c X'0020'
d XML_SAVE_AS_HTML... Frce HTML on XML doc
d c X'0040'
d XML_SAVE_WSNONSIG... Fmt w/ non-sig space
d c X'0080'
d xmlSaveCtxtPtr s * based(######typedef######)
d xmlSaveToFd pr extproc('xmlSaveToFd')
d like(xmlSaveCtxtPtr)
d fd value like(xmlCint)
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlSaveToFilename...
d pr extproc('xmlSaveToFilename')
d like(xmlSaveCtxtPtr)
d filename * value options(*string) const char *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlSaveToBuffer...
d pr extproc('xmlSaveToBuffer')
d like(xmlSaveCtxtPtr)
d buffer value like(xmlBufferPtr)
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlSaveToIO pr extproc('xmlSaveToIO')
d like(xmlSaveCtxtPtr)
d iowrite value like(xmlOutputWriteCallback)
d ioclose value like(xmlOutputCloseCallback)
d ioctx * value void *
d encoding * value options(*string) const char *
d options value like(xmlCint)
d xmlSaveDoc pr extproc('xmlSaveDoc')
d like(xmlClong)
d ctxt value like(xmlSaveCtxtPtr)
d doc value like(xmlDocPtr)
d xmlSaveTree pr extproc('xmlSaveTree')
d like(xmlClong)
d ctxt value like(xmlSaveCtxtPtr)
d node value like(xmlNodePtr)
d xmlSaveFlush pr extproc('xmlSaveFlush')
d like(xmlCint)
d ctxt value like(xmlSaveCtxtPtr)
d xmlSaveClose pr extproc('xmlSaveClose')
d like(xmlCint)
d ctxt value like(xmlSaveCtxtPtr)
d xmlSaveSetEscape...
d pr extproc('xmlSaveSetEscape')
d like(xmlCint)
d ctxt value like(xmlSaveCtxtPtr)
d escape value like(xmlCharEncodingOutputFunc)
d xmlSaveSetAttrEscape...
d pr extproc('xmlSaveSetAttrEscape')
d like(xmlCint)
d ctxt value like(xmlSaveCtxtPtr)
d escape value like(xmlCharEncodingOutputFunc)
/endif LIBXML_OUTPUT_ENABLD
/endif XML_XMLSAVE_H__

331
os400/libxmlrpg/xmlschemas.rpgle
View File

@ -1,331 +0,0 @@
* Summary: incomplete XML Schemas structure implementation
* Description: interface to the XML Schemas handling and schema validity
* checking, it is incomplete right now.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_SCHEMA_H__)
/define XML_SCHEMA_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_SCHEMAS_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
* This error codes are obsolete; not used any more.
d xmlSchemaValidError...
d s based(######typedef######)
d like(xmlCenum)
d XML_SCHEMAS_ERR_OK...
d c 0
d XML_SCHEMAS_ERR_NOROOT...
d c 1
d XML_SCHEMAS_ERR_UNDECLAREDELEM...
d c 2
d XML_SCHEMAS_ERR_NOTTOPLEVEL...
d c 3
d XML_SCHEMAS_ERR_MISSING...
d c 4
d XML_SCHEMAS_ERR_WRONGELEM...
d c 5
d XML_SCHEMAS_ERR_NOTYPE...
d c 6
d XML_SCHEMAS_ERR_NOROLLBACK...
d c 7
d XML_SCHEMAS_ERR_ISABSTRACT...
d c 8
d XML_SCHEMAS_ERR_NOTEMPTY...
d c 9
d XML_SCHEMAS_ERR_ELEMCONT...
d c 10
d XML_SCHEMAS_ERR_HAVEDEFAULT...
d c 11
d XML_SCHEMAS_ERR_NOTNILLABLE...
d c 12
d XML_SCHEMAS_ERR_EXTRACONTENT...
d c 13
d XML_SCHEMAS_ERR_INVALIDATTR...
d c 14
d XML_SCHEMAS_ERR_INVALIDELEM...
d c 15
d XML_SCHEMAS_ERR_NOTDETERMINIST...
d c 16
d XML_SCHEMAS_ERR_CONSTRUCT...
d c 17
d XML_SCHEMAS_ERR_INTERNAL...
d c 18
d XML_SCHEMAS_ERR_NOTSIMPLE...
d c 19
d XML_SCHEMAS_ERR_ATTRUNKNOWN...
d c 20
d XML_SCHEMAS_ERR_ATTRINVALID...
d c 21
d XML_SCHEMAS_ERR_VALUE...
d c 22
d XML_SCHEMAS_ERR_FACET...
d c 23
d XML_SCHEMAS_ERR_...
d c 24
d XML_SCHEMAS_ERR_XXX...
d c 25
* ATTENTION: Change xmlSchemaSetValidOptions's check
* for invalid values, if adding to the validation
* options below.
* xmlSchemaValidOption:
*
* This is the set of XML Schema validation options.
d xmlSchemaValidOption...
d s based(######typedef######)
d like(xmlCenum)
*
* Default/fixed: create an attribute node
* or an element's text node on the instance.
*
d XML_SCHEMA_VAL_VC_I_CREATE...
d c X'0001'
/if defined(DISABLED)
*
* assemble schemata using
* xsi:schemaLocation and
* xsi:noNamespaceSchemaLocation
*
d XML_SCHEMA_VAL_XSI_ASSEMBLE...
d c X'0002'
/endif
* The schemas related types are kept internal
d xmlSchemaPtr s * based(######typedef######)
* xmlSchemaValidityErrorFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of an error callback from an XSD validation
d xmlSchemaValidityErrorFunc...
d s * based(######typedef######)
d procptr
* xmlSchemaValidityWarningFunc:
* @ctx: the validation context
* @msg: the message
* @...: extra arguments
*
* Signature of a warning callback from an XSD validation
d xmlSchemaValidityWarningFunc...
d s * based(######typedef######)
d procptr
* A schemas validation context
d xmlSchemaParserCtxtPtr...
d s * based(######typedef######)
d xmlSchemaValidCtxtPtr...
d s * based(######typedef######)
* xmlSchemaValidityLocatorFunc:
* @ctx: user provided context
* @file: returned file information
* @line: returned line information
*
* A schemas validation locator, a callback called by the validator.
* This is used when file or node information are not available
* to find out what file and line number are affected
*
* Returns: 0 in case of success and -1 in case of error
d xmlSchemaValidityLocatorFunc...
d s * based(######typedef######)
d procptr
* Interfaces for parsing.
d xmlSchemaNewParserCtxt...
d pr extproc('xmlSchemaNewParserCtxt')
d like(xmlSchemaParserCtxtPtr)
d URL * value options(*string) const char *
d xmlSchemaNewMemParserCtxt...
d pr extproc('xmlSchemaNewMemParserCtxt')
d like(xmlSchemaParserCtxtPtr)
d buffer * value options(*string) const char *
d size value like(xmlCint)
d xmlSchemaNewDocParserCtxt...
d pr extproc('xmlSchemaNewDocParserCtxt')
d like(xmlSchemaParserCtxtPtr)
d doc value like(xmlDocPtr)
d xmlSchemaFreeParserCtxt...
d pr extproc('xmlSchemaFreeParserCtxt')
d ctxt value like(xmlSchemaParserCtxtPtr)
d xmlSchemaSetParserErrors...
d pr extproc('xmlSchemaSetParserErrors')
d ctxt value like(xmlSchemaParserCtxtPtr)
d err value
d like(xmlSchemaValidityErrorFunc)
d warn value
d like(xmlSchemaValidityWarningFunc)
d ctx * value void *
d xmlSchemaSetParserStructuredErrors...
d pr extproc(
d 'xmlSchemaSetParserStructuredErrors')
d ctxt value like(xmlSchemaParserCtxtPtr)
d serror value like(xmlStructuredErrorFunc)
d ctx * value void *
d xmlSchemaGetParserErrors...
d pr extproc('xmlSchemaGetParserErrors')
d like(xmlCint)
d ctxt value like(xmlSchemaParserCtxtPtr)
d err like(xmlSchemaValidityErrorFunc)
d warn like(xmlSchemaValidityWarningFunc)
d ctx * void *(*)
d xmlSchemaIsValid...
d pr extproc('xmlSchemaIsValid')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d xmlSchemaParse pr extproc('xmlSchemaParse')
d like(xmlSchemaPtr)
d ctxt value like(xmlSchemaParserCtxtPtr)
d xmlSchemaFree pr extproc('xmlSchemaFree')
d schema value like(xmlSchemaPtr)
/if defined(LIBXML_OUTPUT_ENABLED)
d xmlSchemaDump pr extproc('xmlSchemaDump')
d output * value FILE *
d schema value like(xmlSchemaPtr)
/endif LIBXML_OUTPUT_ENABLD
* Interfaces for validating
d xmlSchemaSetValidErrors...
d pr extproc('xmlSchemaSetValidErrors')
d ctxt value like(xmlSchemaValidCtxtPtr)
d err value
d like(xmlSchemaValidityErrorFunc)
d warn value
d like(xmlSchemaValidityWarningFunc)
d ctx * value void *
d xmlSchemaSetValidStructuredErrors...
d pr extproc(
d 'xmlSchemaSetValidStructuredErrors')
d ctxt value like(xmlSchemaValidCtxtPtr)
d serror value like(xmlStructuredErrorFunc)
d ctx * value void *
d xmlSchemaGetValidErrors...
d pr extproc('xmlSchemaGetValidErrors')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d err like(xmlSchemaValidityErrorFunc)
d warn like(xmlSchemaValidityWarningFunc)
d ctx * void *(*)
d xmlSchemaSetValidOptions...
d pr extproc('xmlSchemaSetValidOptions')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d options value like(xmlCint)
d xmlSchemaValidateSetFilename...
d pr extproc(
d 'xmlSchemaValidateSetFilename')
d vctxt value like(xmlSchemaValidCtxtPtr)
d filename * value options(*string) const char *
d xmlSchemaValidCtxtGetOptions...
d pr extproc(
d 'xmlSchemaValidCtxtGetOptions')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d xmlSchemaNewValidCtxt...
d pr extproc('xmlSchemaNewValidCtxt')
d like(xmlSchemaValidCtxtPtr)
d schema value like(xmlSchemaPtr)
d xmlSchemaFreeValidCtxt...
d pr extproc('xmlSchemaFreeValidCtxt')
d ctxt value like(xmlSchemaValidCtxtPtr)
d xmlSchemaValidateDoc...
d pr extproc('xmlSchemaValidateDoc')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d instance value like(xmlDocPtr)
d xmlSchemaValidateOneElement...
d pr extproc(
d 'xmlSchemaValidateOneElement')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d elem value like(xmlNodePtr)
d xmlSchemaValidateStream...
d pr extproc('xmlSchemaValidateStream')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d input value like(xmlParserInputBufferPtr)
d enc value like(xmlCharEncoding)
d sax value like(xmlSAXHandlerPtr)
d user_data * value void *
d xmlSchemaValidateFile...
d pr extproc('xmlSchemaValidateFile')
d like(xmlCint)
d ctxt value like(xmlSchemaValidCtxtPtr)
d filename * value options(*string) const char *
d options value like(xmlCint)
d xmlSchemaValidCtxtGetParserCtxt...
d pr extproc(
d 'xmlSchemaValidCtxtGetParserCtxt')
d like(xmlParserCtxtPtr)
d ctxt value like(xmlSchemaValidCtxtPtr)
* Interface to insert Schemas SAX validation in a SAX stream
d xmlSchemaSAXPlugPtr...
d s * based(######typedef######)
d xmlSchemaSAXPlug...
d pr extproc('xmlSchemaSAXPlug')
d like(xmlSchemaSAXPlugPtr)
d ctxt value like(xmlSchemaValidCtxtPtr)
d sax like(xmlSAXHandlerPtr)
d user_data * void *(*)
d xmlSchemaSAXUnplug...
d pr extproc('xmlSchemaSAXUnplug')
d like(xmlCint)
d plug value like(xmlSchemaSAXPlugPtr)
d xmlSchemaValidateSetLocator...
d pr extproc(
d 'xmlSchemaValidateSetLocator')
d vctxt value like(xmlSchemaValidCtxtPtr)
d f value
d like(xmlSchemaValidityLocatorFunc)
d ctxt * value void *
/endif LIBXML_SCHEMAS_ENBLD
/endif XML_SCHEMA_H__

254
os400/libxmlrpg/xmlschemastypes.rpgle
View File

@ -1,254 +0,0 @@
* Summary: implementation of XML Schema Datatypes
* Description: module providing the XML Schema Datatypes implementation
* both definition and validity checking
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_SCHEMA_TYPES_H__)
/define XML_SCHEMA_TYPES_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_SCHEMAS_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/schemasInternals"
/include "libxmlrpg/xmlschemas"
d xmlSchemaWhitespaceValueType...
d s based(######typedef######)
d like(xmlCenum)
d XML_SCHEMA_WHITESPACE_UNKNOWN...
d c 0
d XML_SCHEMA_WHITESPACE_PRESERVE...
d c 1
d XML_SCHEMA_WHITESPACE_REPLACE...
d c 2
d XML_SCHEMA_WHITESPACE_COLLAPSE...
d c 3
d xmlSchemaInitTypes...
d pr extproc('xmlSchemaInitTypes')
d xmlSchemaCleanupTypes...
d pr extproc('xmlSchemaCleanupTypes')
d xmlSchemaGetPredefinedType...
d pr extproc('xmlSchemaGetPredefinedType')
d like(xmlSchemaTypePtr)
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d xmlSchemaValidatePredefinedType...
d pr extproc(
d 'xmlSchemaValidatePredefinedType')
d like(xmlCint)
d type value like(xmlSchemaTypePtr)
d value * value options(*string) const xmlChar *
d val * value xmlSchemaValPtr *
d xmlSchemaValPredefTypeNode...
d pr extproc('xmlSchemaValPredefTypeNode')
d like(xmlCint)
d type value like(xmlSchemaTypePtr)
d value * value options(*string) const xmlChar *
d val * value xmlSchemaValPtr *
d node value like(xmlNodePtr)
d xmlSchemaValidateFacet...
d pr extproc('xmlSchemaValidateFacet')
d like(xmlCint)
d base value like(xmlSchemaTypePtr)
d facet value like(xmlSchemaFacetPtr)
d value * value options(*string) const xmlChar *
d val value like(xmlSchemaValPtr)
d xmlSchemaValidateFacetWhtsp...
d pr extproc(
d 'xmlSchemaValidateFacetWhtsp')
d like(xmlCint)
d facet value like(xmlSchemaFacetPtr)
d fws value
d like(xmlSchemaWhitespaceValueType)
d valType value like(xmlSchemaValType)
d value * value options(*string) const xmlChar *
d val value like(xmlSchemaValPtr)
d ws value
d like(xmlSchemaWhitespaceValueType)
d xmlSchemaFreeValue...
d pr extproc('xmlSchemaFreeValue')
d val value like(xmlSchemaValPtr)
d xmlSchemaNewFacet...
d pr extproc('xmlSchemaNewFacet')
d like(xmlSchemaFacetPtr)
d xmlSchemaCheckFacet...
d pr extproc('xmlSchemaCheckFacet')
d like(xmlCint)
d facet value like(xmlSchemaFacetPtr)
d typeDecl value like(xmlSchemaTypePtr)
d ctxt value like(xmlSchemaParserCtxtPtr)
d name * value options(*string) const xmlChar *
d xmlSchemaFreeFacet...
d pr extproc('xmlSchemaFreeFacet')
d facet value like(xmlSchemaFacetPtr)
d xmlSchemaCompareValues...
d pr extproc('xmlSchemaCompareValues')
d like(xmlCint)
d x value like(xmlSchemaValPtr)
d y value like(xmlSchemaValPtr)
d xmlSchemaGetBuiltInListSimpleTypeItemType...
d pr extproc('xmlSchemaGetBuiltInListSimp-
d leTypeItemType')
d like(xmlSchemaTypePtr)
d type value like(xmlSchemaTypePtr)
d xmlSchemaValidateListSimpleTypeFacet...
d pr extproc('xmlSchemaValidateListSimple-
d TypeFacet')
d like(xmlCint)
d facet value like(xmlSchemaFacetPtr)
d value * value options(*string) const xmlChar *
d actualLen value like(xmlCulong)
d expectedLen * value unsigned long *
d xmlSchemaGetBuiltInType...
d pr extproc('xmlSchemaGetBuiltInType')
d like(xmlSchemaTypePtr)
d type value like(xmlSchemaValType)
d xmlSchemaIsBuiltInTypeFacet...
d pr extproc(
d 'xmlSchemaIsBuiltInTypeFacet')
d like(xmlCint)
d type value like(xmlSchemaTypePtr)
d facetType value like(xmlCint)
d xmlSchemaCollapseString...
d pr * extproc('xmlSchemaCollapseString') xmlChar *
d value * value options(*string) const xmlChar *
d xmlSchemaWhiteSpaceReplace...
d pr * extproc('xmlSchemaWhiteSpaceReplace')xmlChar *
d value * value options(*string) const xmlChar *
d xmlSchemaGetFacetValueAsULong...
d pr extproc(
d 'xmlSchemaGetFacetValueAsULong')
d like(xmlCulong)
d facet value like(xmlSchemaFacetPtr)
d xmlSchemaValidateLengthFacet...
d pr extproc(
d 'xmlSchemaValidateLengthFacet')
d like(xmlCint)
d type value like(xmlSchemaTypePtr)
d facet value like(xmlSchemaFacetPtr)
d value * value options(*string) const xmlChar *
d val value like(xmlSchemaValPtr)
d length like(xmlCulong)
d xmlSchemaValidateLengthFacetWhtsp...
d pr extproc(
d 'xmlSchemaValidateLengthFacetWhtsp')
d like(xmlCint)
d facet value like(xmlSchemaFacetPtr)
d valType value like(xmlSchemaValType)
d value * value options(*string) const xmlChar *
d val value like(xmlSchemaValPtr)
d length like(xmlCulong)
d ws value
d like(xmlSchemaWhitespaceValueType)
d xmlSchemaValPredefTypeNodeNoNorm...
d pr extproc(
d 'xmlSchemaValPredefTypeNodeNoNorm')
d like(xmlCint)
d type value like(xmlSchemaTypePtr)
d value * value options(*string) const xmlChar *
d val like(xmlSchemaValPtr)
d node value like(xmlNodePtr)
d xmlSchemaGetCanonValue...
d pr extproc('xmlSchemaGetCanonValue')
d like(xmlCint)
d val value like(xmlSchemaValPtr)
d retValue * value const xmlChar * *
d xmlSchemaGetCanonValueWhtsp...
d pr extproc(
d 'xmlSchemaGetCanonValueWhtsp')
d like(xmlCint)
d val value like(xmlSchemaValPtr)
d retValue * value const xmlChar * *
d ws value
d like(xmlSchemaWhitespaceValueType)
d xmlSchemaValueAppend...
d pr extproc('xmlSchemaValueAppend')
d like(xmlCint)
d prev value like(xmlSchemaValPtr)
d cur value like(xmlSchemaValPtr)
d xmlSchemaValueGetNext...
d pr extproc('xmlSchemaValueGetNext')
d like(xmlSchemaValPtr)
d cur value like(xmlSchemaValPtr)
d xmlSchemaValueGetAsString...
d pr * extproc('xmlSchemaValueGetAsString') const xmlChar *
d val value like(xmlSchemaValPtr)
d xmlSchemaValueGetAsBoolean...
d pr extproc('xmlSchemaValueGetAsBoolean')
d like(xmlCint)
d val value like(xmlSchemaValPtr)
d xmlSchemaNewStringValue...
d pr extproc('xmlSchemaNewStringValue')
d like(xmlSchemaValPtr)
d type value like(xmlSchemaValType)
d value * value options(*string) const xmlChar *
d xmlSchemaNewNOTATIONValue...
d pr extproc('xmlSchemaNewNOTATIONValue')
d like(xmlSchemaValPtr)
d name * value options(*string) const xmlChar *
d ns * value options(*string) const xmlChar *
d xmlSchemaNewQNameValue...
d pr extproc('xmlSchemaNewQNameValue')
d like(xmlSchemaValPtr)
d namespaceName * value options(*string) const xmlChar *
d localName * value options(*string) const xmlChar *
d xmlSchemaCompareValuesWhtsp...
d pr extproc(
d 'xmlSchemaCompareValuesWhtsp')
d like(xmlCint)
d x value like(xmlSchemaValPtr)
d xws value
d like(xmlSchemaWhitespaceValueType)
d y value like(xmlSchemaValPtr)
d yws value
d like(xmlSchemaWhitespaceValueType)
d xmlSchemaCopyValue...
d pr extproc('xmlSchemaCopyValue')
d like(xmlSchemaValPtr)
d val value like(xmlSchemaValPtr)
d xmlSchemaGetValType...
d pr extproc('xmlSchemaGetValType')
d like(xmlSchemaValType)
d val value like(xmlSchemaValPtr)
/endif LIBXML_SCHEMAS_ENBLD
/endif XML_SCHEMA_TYPES_H__

35
os400/libxmlrpg/xmlstdarg.rpgle
View File

@ -1,35 +0,0 @@
* Summary: va_list support for ILE/RPG.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_STDARG_H__)
/define XML_STDARG_H__
/include "libxmlrpg/xmlversion"
/include "libxmlrpg/xmlTypesC"
* The va_list object.
d xmlVaList ds based(######typedef######)
d align qualified
d current *
d next *
* Procedures.
d xmlVaStart pr extproc('__xmlVaStart')
d list likeds(xmlVaList)
d lastargaddr * value
d lastargsize value like(xmlCsize_t)
d xmlVaArg pr * extproc('__xmlVaArg')
d list likeds(xmlVaList)
d dest * value
d argsize value like(xmlCsize_t)
d xmlVaEnd pr extproc('__xmlVaEnd')
d list likeds(xmlVaList)
/endif XML_STDARG_H__

180
os400/libxmlrpg/xmlstring.rpgle
View File

@ -1,180 +0,0 @@
* 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 <pm@datasphere.ch>, 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__

836
os400/libxmlrpg/xmlunicode.rpgle
View File

@ -1,836 +0,0 @@
* Summary: Unicode character APIs
* Description: API for the Unicode character APIs
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_UNICODE_H__)
/define XML_UNICODE_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_UNICODE_ENABLED)
/include "libxmlrpg/xmlTypesC"
d xmlUCSIsAegeanNumbers...
d pr extproc('xmlUCSIsAegeanNumbers')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsAlphabeticPresentationForms...
d pr extproc(
d 'xmlUCSIsAlphabeticPresentationForms'
d )
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsArabic pr extproc('xmlUCSIsArabic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsArabicPresentationFormsA...
d pr extproc(
d 'xmlUCSIsArabicPresentationFormsA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsArabicPresentationFormsB...
d pr extproc(
d 'xmlUCSIsArabicPresentationFormsB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsArmenian...
d pr extproc('xmlUCSIsArmenian')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsArrows pr extproc('xmlUCSIsArrows')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBasicLatin...
d pr extproc('xmlUCSIsBasicLatin')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBengali...
d pr extproc('xmlUCSIsBengali')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBlockElements...
d pr extproc('xmlUCSIsBlockElements')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBopomofo...
d pr extproc('xmlUCSIsBopomofo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBopomofoExtended...
d pr extproc('xmlUCSIsBopomofoExtended')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBoxDrawing...
d pr extproc('xmlUCSIsBoxDrawing')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBraillePatterns...
d pr extproc('xmlUCSIsBraillePatterns')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBuhid pr extproc('xmlUCSIsBuhid')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsByzantineMusicalSymbols...
d pr extproc(
d 'xmlUCSIsByzantineMusicalSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKCompatibility...
d pr extproc('xmlUCSIsCJKCompatibility')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKCompatibilityForms...
d pr extproc(
d 'xmlUCSIsCJKCompatibilityForms')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKCompatibilityIdeographs...
d pr extproc(
d 'xmlUCSIsCJKCompatibilityIdeographs')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKCompatibilityIdeographsSupplement...
d pr extproc('xmlUCSIsCJKCompatibilityIde-
d ographsSupplement')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKRadicalsSupplement...
d pr extproc(
d 'xmlUCSIsCJKRadicalsSupplement')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKSymbolsandPunctuation...
d pr extproc(
d 'xmlUCSIsCJKSymbolsandPunctuation')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKUnifiedIdeographs...
d pr extproc(
d 'xmlUCSIsCJKUnifiedIdeographs')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKUnifiedIdeographsExtensionA...
d pr extproc('xmlUCSIsCJKUnifiedIdeograph-
d sExtensionA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCJKUnifiedIdeographsExtensionB...
d pr extproc('xmlUCSIsCJKUnifiedIdeograph-
d sExtensionB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCherokee...
d pr extproc('xmlUCSIsCherokee')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCombiningDiacriticalMarks...
d pr extproc(
d 'xmlUCSIsCombiningDiacriticalMarks')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCombiningDiacriticalMarksforSymbols...
d pr extproc('xmlUCSIsCombiningDiacritica-
d lMarksforSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCombiningHalfMarks...
d pr extproc('xmlUCSIsCombiningHalfMarks')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCombiningMarksforSymbols...
d pr extproc(
d 'xmlUCSIsCombiningMarksforSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsControlPictures...
d pr extproc('xmlUCSIsControlPictures')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCurrencySymbols...
d pr extproc('xmlUCSIsCurrencySymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCypriotSyllabary...
d pr extproc('xmlUCSIsCypriotSyllabary')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCyrillic...
d pr extproc('xmlUCSIsCyrillic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCyrillicSupplement...
d pr extproc('xmlUCSIsCyrillicSupplement')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsDeseret...
d pr extproc('xmlUCSIsDeseret')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsDevanagari...
d pr extproc('xmlUCSIsDevanagari')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsDingbats...
d pr extproc('xmlUCSIsDingbats')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsEnclosedAlphanumerics...
d pr extproc(
d 'xmlUCSIsEnclosedAlphanumerics')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsEnclosedCJKLettersandMonths...
d pr extproc(
d 'xmlUCSIsEnclosedCJKLettersandMonths'
d )
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsEthiopic...
d pr extproc('xmlUCSIsEthiopic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGeneralPunctuation...
d pr extproc('xmlUCSIsGeneralPunctuation')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGeometricShapes...
d pr extproc('xmlUCSIsGeometricShapes')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGeorgian...
d pr extproc('xmlUCSIsGeorgian')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGothic pr extproc('xmlUCSIsGothic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGreek pr extproc('xmlUCSIsGreek')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGreekExtended...
d pr extproc('xmlUCSIsGreekExtended')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGreekandCoptic...
d pr extproc('xmlUCSIsGreekandCoptic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGujarati...
d pr extproc('xmlUCSIsGujarati')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsGurmukhi...
d pr extproc('xmlUCSIsGurmukhi')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHalfwidthandFullwidthForms...
d pr extproc(
d 'xmlUCSIsHalfwidthandFullwidthForms')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHangulCompatibilityJamo...
d pr extproc(
d 'xmlUCSIsHangulCompatibilityJamo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHangulJamo...
d pr extproc('xmlUCSIsHangulJamo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHangulSyllables...
d pr extproc('xmlUCSIsHangulSyllables')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHanunoo...
d pr extproc('xmlUCSIsHanunoo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHebrew pr extproc('xmlUCSIsHebrew')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHighPrivateUseSurrogates...
d pr extproc(
d 'xmlUCSIsHighPrivateUseSurrogates')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHighSurrogates...
d pr extproc('xmlUCSIsHighSurrogates')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsHiragana...
d pr extproc('xmlUCSIsHiragana')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsIPAExtensions...
d pr extproc('xmlUCSIsIPAExtensions')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsIdeographicDescriptionCharacters...
d pr extproc('xmlUCSIsIdeographicDescript-
d ionCharacters')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKanbun pr extproc('xmlUCSIsKanbun')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKangxiRadicals...
d pr extproc('xmlUCSIsKangxiRadicals')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKannada...
d pr extproc('xmlUCSIsKannada')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKatakana...
d pr extproc('xmlUCSIsKatakana')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKatakanaPhoneticExtensions...
d pr extproc(
d 'xmlUCSIsKatakanaPhoneticExtensions')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKhmer pr extproc('xmlUCSIsKhmer')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsKhmerSymbols...
d pr extproc('xmlUCSIsKhmerSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLao pr extproc('xmlUCSIsLao')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLatin1Supplement...
d pr extproc('xmlUCSIsLatin1Supplement')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLatinExtendedA...
d pr extproc('xmlUCSIsLatinExtendedA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLatinExtendedB...
d pr extproc('xmlUCSIsLatinExtendedB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLatinExtendedAdditional...
d pr extproc(
d 'xmlUCSIsLatinExtendedAdditional')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLetterlikeSymbols...
d pr extproc('xmlUCSIsLetterlikeSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLimbu pr extproc('xmlUCSIsLimbu')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLinearBIdeograms...
d pr extproc('xmlUCSIsLinearBIdeograms')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLinearBSyllabary...
d pr extproc('xmlUCSIsLinearBSyllabary')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsLowSurrogates...
d pr extproc('xmlUCSIsLowSurrogates')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMalayalam...
d pr extproc('xmlUCSIsMalayalam')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMathematicalAlphanumericSymbols...
d pr extproc('xmlUCSIsMathematicalAlphanu-
d mericSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMathematicalOperators...
d pr extproc(
d 'xmlUCSIsMathematicalOperators')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMiscellaneousMathematicalSymbolsA...
d pr extproc('xmlUCSIsMiscellaneousMathem-
d aticalSymbolsA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMiscellaneousMathematicalSymbolsB...
d pr extproc('xmlUCSIsMiscellaneousMathem-
d aticalSymbolsB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMiscellaneousSymbols...
d pr extproc(
d 'xmlUCSIsMiscellaneousSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMiscellaneousSymbolsandArrows...
d pr extproc('xmlUCSIsMiscellaneousSymbol-
d sandArrows')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMiscellaneousTechnical...
d pr extproc(
d 'xmlUCSIsMiscellaneousTechnical')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMongolian...
d pr extproc('xmlUCSIsMongolian')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMusicalSymbols...
d pr extproc('xmlUCSIsMusicalSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsMyanmar...
d pr extproc('xmlUCSIsMyanmar')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsNumberForms...
d pr extproc('xmlUCSIsNumberForms')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsOgham pr extproc('xmlUCSIsOgham')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsOldItalic...
d pr extproc('xmlUCSIsOldItalic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsOpticalCharacterRecognition...
d pr extproc(
d 'xmlUCSIsOpticalCharacterRecognition'
d )
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsOriya pr extproc('xmlUCSIsOriya')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsOsmanya...
d pr extproc('xmlUCSIsOsmanya')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsPhoneticExtensions...
d pr extproc('xmlUCSIsPhoneticExtensions')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsPrivateUse...
d pr extproc('xmlUCSIsPrivateUse')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsPrivateUseArea...
d pr extproc('xmlUCSIsPrivateUseArea')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsRunic pr extproc('xmlUCSIsRunic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsShavian...
d pr extproc('xmlUCSIsShavian')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSinhala...
d pr extproc('xmlUCSIsSinhala')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSmallFormVariants...
d pr extproc('xmlUCSIsSmallFormVariants')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSpacingModifierLetters...
d pr extproc(
d 'xmlUCSIsSpacingModifierLetters')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSpecials...
d pr extproc('xmlUCSIsSpecials')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSuperscriptsandSubscripts...
d pr extproc(
d 'xmlUCSIsSuperscriptsandSubscripts')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSupplementalArrowsA...
d pr extproc(
d 'xmlUCSIsSupplementalArrowsA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSupplementalArrowsB...
d pr extproc(
d 'xmlUCSIsSupplementalArrowsB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSupplementalMathematicalOperators...
d pr extproc('xmlUCSIsSupplementalMathema-
d ticalOperators')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSupplementaryPrivateUseAreaA...
d pr extproc('xmlUCSIsSupplementaryPrivat-
d eUseAreaA')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSupplementaryPrivateUseAreaB...
d pr extproc('xmlUCSIsSupplementaryPrivat-
d eUseAreaB')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsSyriac pr extproc('xmlUCSIsSyriac')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTagalog...
d pr extproc('xmlUCSIsTagalog')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTagbanwa...
d pr extproc('xmlUCSIsTagbanwa')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTags pr extproc('xmlUCSIsTags')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTaiLe pr extproc('xmlUCSIsTaiLe')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTaiXuanJingSymbols...
d pr extproc('xmlUCSIsTaiXuanJingSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTamil pr extproc('xmlUCSIsTamil')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTelugu pr extproc('xmlUCSIsTelugu')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsThaana pr extproc('xmlUCSIsThaana')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsThai pr extproc('xmlUCSIsThai')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsTibetan...
d pr extproc('xmlUCSIsTibetan')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsUgaritic...
d pr extproc('xmlUCSIsUgaritic')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsUnifiedCanadianAboriginalSyllabics...
d pr extproc('xmlUCSIsUnifiedCanadianAbor-
d iginalSyllabics')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsVariationSelectors...
d pr extproc('xmlUCSIsVariationSelectors')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsVariationSelectorsSupplement...
d pr extproc('xmlUCSIsVariationSelectorsS-
d upplement')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsYiRadicals...
d pr extproc('xmlUCSIsYiRadicals')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsYiSyllables...
d pr extproc('xmlUCSIsYiSyllables')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsYijingHexagramSymbols...
d pr extproc(
d 'xmlUCSIsYijingHexagramSymbols')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsBlock pr extproc('xmlUCSIsBlock')
d like(xmlCint)
d code value like(xmlCint)
d block * value options(*string) const char *
d xmlUCSIsCatC pr extproc('xmlUCSIsCatC')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatCc pr extproc('xmlUCSIsCatCc')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatCf pr extproc('xmlUCSIsCatCf')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatCo pr extproc('xmlUCSIsCatCo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatCs pr extproc('xmlUCSIsCatCs')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatL pr extproc('xmlUCSIsCatL')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatLl pr extproc('xmlUCSIsCatLl')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatLm pr extproc('xmlUCSIsCatLm')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatLo pr extproc('xmlUCSIsCatLo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatLt pr extproc('xmlUCSIsCatLt')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatLu pr extproc('xmlUCSIsCatLu')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatM pr extproc('xmlUCSIsCatM')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatMc pr extproc('xmlUCSIsCatMc')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatMe pr extproc('xmlUCSIsCatMe')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatMn pr extproc('xmlUCSIsCatMn')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatN pr extproc('xmlUCSIsCatN')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatNd pr extproc('xmlUCSIsCatNd')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatNl pr extproc('xmlUCSIsCatNl')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatNo pr extproc('xmlUCSIsCatNo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatP pr extproc('xmlUCSIsCatP')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPc pr extproc('xmlUCSIsCatPc')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPd pr extproc('xmlUCSIsCatPd')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPe pr extproc('xmlUCSIsCatPe')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPf pr extproc('xmlUCSIsCatPf')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPi pr extproc('xmlUCSIsCatPi')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPo pr extproc('xmlUCSIsCatPo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatPs pr extproc('xmlUCSIsCatPs')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatS pr extproc('xmlUCSIsCatS')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatSc pr extproc('xmlUCSIsCatSc')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatSk pr extproc('xmlUCSIsCatSk')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatSm pr extproc('xmlUCSIsCatSm')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatSo pr extproc('xmlUCSIsCatSo')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatZ pr extproc('xmlUCSIsCatZ')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatZl pr extproc('xmlUCSIsCatZl')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatZp pr extproc('xmlUCSIsCatZp')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCatZs pr extproc('xmlUCSIsCatZs')
d like(xmlCint)
d code value like(xmlCint)
d xmlUCSIsCat pr extproc('xmlUCSIsCat')
d like(xmlCint)
d code value like(xmlCint)
d cat * value options(*string) const char *
/endif LIBXML_UNICODE_ENBLD
/endif XML_UNICODE_H__

353
os400/libxmlrpg/xmlversion.rpgle.in
View File

@ -1,353 +0,0 @@
* Summary: compile-time version information
* Description: compile-time version information for the XML library
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_VERSION_H__)
/define XML_VERSION_H__
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlexports"
* use those to be sure nothing nasty will happen if
* your library and includes mismatch
d xmlCheckVersion...
d pr extproc('xmlCheckVersion')
d version value like(xmlCint)
* LIBXML_DOTTED_VERSION:
*
* the version string like "1.2.3"
d LIBXML_DOTTED_VERSION...
d c '@VERSION@'
* LIBXML_VERSION:
*
* the version number: 1.2.3 value is 10203
d LIBXML_VERSION c @LIBXML_VERSION_NUMBER@
* LIBXML_VERSION_STRING:
*
* the version number string, 1.2.3 value is "10203"
d LIBXML_VERSION_STRING...
d c '@LIBXML_VERSION_NUMBER@'
* LIBXML_VERSION_EXTRA:
*
* extra version information, used to show a CVS compilation
d LIBXML_VERSION_EXTRA...
d c '@LIBXML_VERSION_EXTRA@'
* For conditional compilation
/define DEFINED_1
/undefine DEFINED_0
/if defined(DEFINED_@WITH_TRIO@)
* WITH_TRIO:
*
* defined if the trio support need to be configured in
/define WITH_TRIO
/else
* WITHOUT_TRIO:
*
* defined if the trio support should not be configured in
/define WITHOUT_TRIO
/endif
* LIBXML_THREAD_ENABLED:
*
* Whether the thread support is configured in
/if defined(DEFINED_@WITH_THREADS@)
/define LIBXML_THREAD_ENABLED
/endif
* LIBXML_THREAD_ALLOC_ENABLED:
*
* Whether the allocation hooks are per-thread
/if defined(DEFINED_@WITH_THREAD_ALLOC@)
/define LIBXML_THREAD_ALLOC_ENABLED
/endif
* LIBXML_TREE_ENABLED:
*
* Whether the DOM like tree manipulation API support is configured in
/if defined(DEFINED_@WITH_TREE@)
/define LIBXML_TREE_ENABLED
/endif
* LIBXML_OUTPUT_ENABLED:
*
* Whether the serialization/saving support is configured in
/if defined(DEFINED_@WITH_OUTPUT@)
/define LIBXML_OUTPUT_ENABLED
/endif
* LIBXML_PUSH_ENABLED:
*
* Whether the push parsing interfaces are configured in
/if defined(DEFINED_@WITH_PUSH@)
/define LIBXML_PUSH_ENABLED
/endif
* LIBXML_READER_ENABLED:
*
* Whether the xmlReader parsing interface is configured in
/if defined(DEFINED_@WITH_READER@)
/define LIBXML_READER_ENABLED
/endif
* LIBXML_PATTERN_ENABLED:
*
* Whether the xmlPattern node selection interface is configured in
/if defined(DEFINED_@WITH_PATTERN@)
/define LIBXML_PATTERN_ENABLED
/endif
* LIBXML_WRITER_ENABLED:
*
* Whether the xmlWriter saving interface is configured in
/if defined(DEFINED_@WITH_WRITER@)
/define LIBXML_WRITER_ENABLED
/endif
* LIBXML_SAX1_ENABLED:
*
* Whether the older SAX1 interface is configured in
/if defined(DEFINED_@WITH_SAX1@)
/define LIBXML_SAX1_ENABLED
/endif
* LIBXML_FTP_ENABLED:
*
* Whether the FTP support is configured in
/if defined(DEFINED_@WITH_FTP@)
/define LIBXML_FTP_ENABLED
/endif
* LIBXML_HTTP_ENABLED:
*
* Whether the HTTP support is configured in
/if defined(DEFINED_@WITH_HTTP@)
/define LIBXML_HTTP_ENABLED
/endif
* LIBXML_VALID_ENABLED:
*
* Whether the DTD validation support is configured in
/if defined(DEFINED_@WITH_VALID@)
/define LIBXML_VALID_ENABLED
/endif
* LIBXML_HTML_ENABLED:
*
* Whether the HTML support is configured in
/if defined(DEFINED_@WITH_HTML@)
/define LIBXML_HTML_ENABLED
/endif
* LIBXML_LEGACY_ENABLED:
*
* Whether the deprecated APIs are compiled in for compatibility
/if defined(DEFINED_@WITH_LEGACY@)
/define LIBXML_LEGACY_ENABLED
/endif
* LIBXML_C14N_ENABLED:
*
* Whether the Canonicalization support is configured in
/if defined(DEFINED_@WITH_C14N@)
/define LIBXML_C14N_ENABLED
/endif
* LIBXML_CATALOG_ENABLED:
*
* Whether the Catalog support is configured in
/if defined(DEFINED_@WITH_CATALOG@)
/define LIBXML_CATALOG_ENABLED
/endif
* LIBXML_DOCB_ENABLED:
*
* Whether the SGML Docbook support is configured in
/if defined(DEFINED_@WITH_DOCB@)
/define LIBXML_DOCB_ENABLED
/endif
* LIBXML_XPATH_ENABLED:
*
* Whether XPath is configured in
/if defined(DEFINED_@WITH_XPATH@)
/define LIBXML_XPATH_ENABLED
/endif
* LIBXML_XPTR_ENABLED:
*
* Whether XPointer is configured in
/if defined(DEFINED_@WITH_XPTR@)
/define LIBXML_XPTR_ENABLED
/endif
* LIBXML_XINCLUDE_ENABLED:
*
* Whether XInclude is configured in
/if defined(DEFINED_@WITH_XINCLUDE@)
/define LIBXML_XINCLUDE_ENABLED
/endif
* LIBXML_ICONV_ENABLED:
*
* Whether iconv support is available
/if defined(DEFINED_@WITH_ICONV@)
/define LIBXML_ICONV_ENABLED
/endif
* LIBXML_ICU_ENABLED:
*
* Whether icu support is available
/if defined(DEFINED_@WITH_ICU@)
/define LIBXML_ICU_ENABLED
/endif
* LIBXML_ISO8859X_ENABLED:
*
* Whether ISO-8859-* support is made available in case iconv is not
/if defined(DEFINED_@WITH_ISO8859X@)
/define LIBXML_ISO8859X_ENABLED
/endif
* LIBXML_DEBUG_ENABLED:
*
* Whether Debugging module is configured in
/if defined(DEFINED_@WITH_DEBUG@)
/define LIBXML_DEBUG_ENABLED
/endif
* DEBUG_MEMORY_LOCATION:
*
* Whether the memory debugging is configured in
/if defined(DEFINED_@WITH_MEM_DEBUG@)
/define DEBUG_MEMORY_LOCATION
/endif
* LIBXML_DEBUG_RUNTIME:
*
* Whether the runtime debugging is configured in
/if defined(DEFINED_@WITH_RUN_DEBUG@)
/define LIBXML_DEBUG_RUNTIME
/endif
* LIBXML_UNICODE_ENABLED:
*
* Whether the Unicode related interfaces are compiled in
/if defined(DEFINED_@WITH_REGEXPS@)
/define LIBXML_UNICODE_ENABLED
/endif
* LIBXML_REGEXP_ENABLED:
*
* Whether the regular expressions interfaces are compiled in
/if defined(DEFINED_@WITH_REGEXPS@)
/define LIBXML_REGEXP_ENABLED
/endif
* LIBXML_AUTOMATA_ENABLED:
*
* Whether the automata interfaces are compiled in
/if defined(DEFINED_@WITH_REGEXPS@)
/define LIBXML_AUTOMATA_ENABLED
/endif
* LIBXML_EXPR_ENABLED:
*
* Whether the formal expressions interfaces are compiled in
/if defined(DEFINED_@WITH_SCHEMAS@)
/define LIBXML_EXPR_ENABLED
/endif
* LIBXML_SCHEMAS_ENABLED:
*
* Whether the Schemas validation interfaces are compiled in
/if defined(DEFINED_@WITH_SCHEMAS@)
/define LIBXML_SCHEMAS_ENABLED
/endif
* LIBXML_SCHEMATRON_ENABLED:
*
* Whether the Schematron validation interfaces are compiled in
/if defined(DEFINED_@WITH_SCHEMATRON@)
/define LIBXML_SCHEMATRON_ENABLED
/endif
* LIBXML_MODULES_ENABLED:
*
* Whether the module interfaces are compiled in
/if defined(DEFINED_@WITH_MODULES@)
/define LIBXML_MODULES_ENABLED
* LIBXML_MODULE_EXTENSION:
*
* the string suffix used by dynamic modules (usually shared libraries)
d LIBXML_MODULE_EXTENSION...
d c '.SRVPGM'
/endif
* LIBXML_ZLIB_ENABLED:
*
* Whether the Zlib support is compiled in
/if defined(DEFINED_@WITH_ZLIB@)
/define LIBXML_ZLIB_ENABLED
/endif
* LIBXML_LZMA_ENABLED:
*
* Whether the Lzma support is compiled in
/if defined(DEFINED_@WITH_LZMA@)
/define LIBXML_LZMA_ENABLED
/endif
/endif

801
os400/libxmlrpg/xmlwriter.rpgle
View File

@ -1,801 +0,0 @@
* Summary: text writing API for XML
* Description: text writing API for XML
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XMLWRITER_H__)
/define XML_XMLWRITER_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_WRITER_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlstdarg"
/include "libxmlrpg/xmlIO"
/include "libxmlrpg/list"
/include "libxmlrpg/xmlstring"
d xmlTextWriterPtr...
d s * based(######typedef######)
* Constructors & Destructor
d xmlNewTextWriter...
d pr extproc('xmlNewTextWriter')
d like(xmlTextWriterPtr)
d out value like(xmlOutputBufferPtr)
d xmlNewTextWriterFilename...
d pr extproc('xmlNewTextWriterFilename')
d like(xmlTextWriterPtr)
d uri * value options(*string) const char *
d compression value like(xmlCint)
d xmlNewTextWriterMemory...
d pr extproc('xmlNewTextWriterMemory')
d like(xmlTextWriterPtr)
d buf value like(xmlBufferPtr)
d compression value like(xmlCint)
d xmlNewTextWriterPushParser...
d pr extproc('xmlNewTextWriterPushParser')
d like(xmlTextWriterPtr)
d ctxt value like(xmlParserCtxtPtr)
d compression value like(xmlCint)
d xmlNewTextWriterDoc...
d pr extproc('xmlNewTextWriterDoc')
d like(xmlTextWriterPtr)
d doc like(xmlDocPtr)
d compression value like(xmlCint)
d xmlNewTextWriterTree...
d pr extproc('xmlNewTextWriterTree')
d like(xmlTextWriterPtr)
d doc value like(xmlDocPtr)
d node value like(xmlNodePtr)
d compression value like(xmlCint)
d xmlFreeTextWriter...
d pr extproc('xmlFreeTextWriter')
d writer value like(xmlTextWriterPtr)
* Functions
* Document
d xmlTextWriterStartDocument...
d pr extproc('xmlTextWriterStartDocument')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d version * value options(*string) const char *
d encoding * value options(*string) const char *
d standalone * value options(*string) const char *
d xmlTextWriterEndDocument...
d pr extproc('xmlTextWriterEndDocument')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* Comments
d xmlTextWriterStartComment...
d pr extproc('xmlTextWriterStartComment')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d xmlTextWriterEndComment...
d pr extproc('xmlTextWriterEndComment')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d xmlTextWriterWriteFormatComment...
d pr extproc(
d 'xmlTextWriterWriteFormatComment')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string: *nopass) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatComment...
d pr extproc(
d 'xmlTextWriterWriteVFormatComment')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteComment...
d pr extproc('xmlTextWriterWriteComment')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d content * value options(*string) const xmlChar *
* Elements
d xmlTextWriterStartElement...
d pr extproc('xmlTextWriterStartElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d xmlTextWriterStartElementNS...
d pr extproc(
d 'xmlTextWriterStartElementNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d xmlTextWriterEndElement...
d pr extproc('xmlTextWriterEndElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d xmlTextWriterFullEndElement...
d pr extproc(
d 'xmlTextWriterFullEndElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* Elements conveniency functions
d xmlTextWriterWriteFormatElement...
d pr extproc(
d 'xmlTextWriterWriteFormatElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatElement...
d pr extproc(
d 'xmlTextWriterWriteVFormatElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteElement...
d pr extproc('xmlTextWriterWriteElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlTextWriterWriteFormatElementNS...
d pr extproc(
d 'xmlTextWriterWriteFormatElementNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatElementNS...
d pr extproc(
d 'xmlTextWriterWriteVFormatElementNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteElementNS...
d pr extproc(
d 'xmlTextWriterWriteElementNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* Text
d xmlTextWriterWriteFormatRaw...
d pr extproc(
d 'xmlTextWriterWriteFormatRaw')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatRaw...
d pr extproc(
d 'xmlTextWriterWriteVFormatRaw')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteRawLen...
d pr extproc('xmlTextWriterWriteRawLen')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d content * value options(*string) const xmlChar *
d len value like(xmlCint)
d xmlTextWriterWriteRaw...
d pr extproc('xmlTextWriterWriteRaw')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d content * value options(*string) const xmlChar *
d xmlTextWriterWriteFormatString...
d pr extproc(
d 'xmlTextWriterWriteFormatString')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatString...
d pr extproc(
d 'xmlTextWriterWriteVFormatString')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteString...
d pr extproc('xmlTextWriterWriteString')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d content * value options(*string) const xmlChar *
d xmlTextWriterWriteBase64...
d pr extproc('xmlTextWriterWriteBase64')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d data * value options(*string) const char *
d start value like(xmlCint)
d len value like(xmlCint)
d xmlTextWriterWriteBinHex...
d pr extproc('xmlTextWriterWriteBinHex')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d data * value options(*string) const char *
d start value like(xmlCint)
d len value like(xmlCint)
* Attributes
d xmlTextWriterStartAttribute...
d pr extproc(
d 'xmlTextWriterStartAttribute')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d xmlTextWriterStartAttributeNS...
d pr extproc(
d 'xmlTextWriterStartAttributeNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d xmlTextWriterEndAttribute...
d pr extproc('xmlTextWriterEndAttribute')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* Attributes conveniency functions
d xmlTextWriterWriteFormatAttribute...
d pr extproc(
d 'xmlTextWriterWriteFormatAttribute')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatAttribute...
d pr extproc(
d 'xmlTextWriterWriteVFormatAttribute')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteAttribute...
d pr extproc(
d 'xmlTextWriterWriteAttribute')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlTextWriterWriteFormatAttributeNS...
d pr extproc(
d 'xmlTextWriterWriteFormatAttributeNS'
d )
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatAttributeNS...
d pr extproc('xmlTextWriterWriteVFormatAt-
d tributeNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteAttributeNS...
d pr extproc(
d 'xmlTextWriterWriteAttributeNS')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d prefix * value options(*string) const xmlChar *
d name * value options(*string) const xmlChar *
d namespaceURI * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* PI's
d xmlTextWriterStartPI...
d pr extproc('xmlTextWriterStartPI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d target * value options(*string) const xmlChar *
d xmlTextWriterEndPI...
d pr extproc('xmlTextWriterEndPI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* PI conveniency functions
d xmlTextWriterWriteFormatPI...
d pr extproc('xmlTextWriterWriteFormatPI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d target * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatPI...
d pr extproc(
d 'xmlTextWriterWriteVFormatPI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d target * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWritePI...
d pr extproc('xmlTextWriterWritePI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d target * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* xmlTextWriterWriteProcessingInstruction:
*
* This macro maps to xmlTextWriterWritePI
d xmlTextWriterWriteProcessingInstruction...
d pr extproc('xmlTextWriterWritePI')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d target * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* CDATA
d xmlTextWriterStartCDATA...
d pr extproc('xmlTextWriterStartCDATA')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d xmlTextWriterEndCDATA...
d pr extproc('xmlTextWriterEndCDATA')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* CDATA conveniency functions
d xmlTextWriterWriteFormatCDATA...
d pr extproc(
d 'xmlTextWriterWriteFormatCDATA')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatCDATA...
d pr extproc(
d 'xmlTextWriterWriteVFormatCDATA')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteCDATA...
d pr extproc('xmlTextWriterWriteCDATA')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d content * value options(*string) const xmlChar *
* DTD
d xmlTextWriterStartDTD...
d pr extproc('xmlTextWriterStartDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d xmlTextWriterEndDTD...
d pr extproc('xmlTextWriterEndDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* DTD conveniency functions
d xmlTextWriterWriteFormatDTD...
d pr extproc(
d 'xmlTextWriterWriteFormatDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatDTD...
d pr extproc(
d 'xmlTextWriterWriteVFormatDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteDTD...
d pr extproc('xmlTextWriterWriteDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d subset * value options(*string) const xmlChar *
* xmlTextWriterWriteDocType:
*
* this macro maps to xmlTextWriterWriteDTD
d xmlTextWriterWriteDocType...
d pr extproc('xmlTextWriterWriteDTD')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d subset * value options(*string) const xmlChar *
* DTD element definition
d xmlTextWriterStartDTDElement...
d pr extproc(
d 'xmlTextWriterStartDTDElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d xmlTextWriterEndDTDElement...
d pr extproc('xmlTextWriterEndDTDElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* DTD element definition conveniency functions
d xmlTextWriterWriteFormatDTDElement...
d pr extproc(
d 'xmlTextWriterWriteFormatDTDElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatDTDElement...
d pr extproc(
d 'xmlTextWriterWriteVFormatDTDElement'
d )
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteDTDElement...
d pr extproc(
d 'xmlTextWriterWriteDTDElement')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* DTD attribute list definition
d xmlTextWriterStartDTDAttlist...
d pr extproc(
d 'xmlTextWriterStartDTDAttlist')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d xmlTextWriterEndDTDAttlist...
d pr extproc('xmlTextWriterEndDTDAttlist')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* DTD attribute list definition conveniency functions
d xmlTextWriterWriteFormatDTDAttlist...
d pr extproc(
d 'xmlTextWriterWriteFormatDTDAttlist')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatDTDAttlist...
d pr extproc(
d 'xmlTextWriterWriteVFormatDTDAttlist'
d )
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteDTDAttlist...
d pr extproc(
d 'xmlTextWriterWriteDTDAttlist')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* DTD entity definition
d xmlTextWriterStartDTDEntity...
d pr extproc(
d 'xmlTextWriterStartDTDEntity')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d xmlTextWriterEndDTDEntity...
d pr extproc('xmlTextWriterEndDTDEntity')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
* DTD entity definition conveniency functions
d xmlTextWriterWriteFormatDTDInternalEntity...
d pr extproc('xmlTextWriterWriteFormatDTD-
d InternalEntity')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d #vararg1 * value options(*string: *nopass) void *
d #vararg2 * value options(*string: *nopass) void *
d #vararg3 * value options(*string: *nopass) void *
d #vararg4 * value options(*string: *nopass) void *
d #vararg5 * value options(*string: *nopass) void *
d #vararg6 * value options(*string: *nopass) void *
d #vararg7 * value options(*string: *nopass) void *
d #vararg8 * value options(*string: *nopass) void *
d xmlTextWriterWriteVFormatDTDInternalEntity...
d pr extproc('xmlTextWriterWriteVFormatDT-
d DInternalEntity')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d format * value options(*string) const char *
d argptr likeds(xmlVaList)
d xmlTextWriterWriteDTDInternalEntity...
d pr extproc(
d 'xmlTextWriterWriteDTDInternalEntity'
d )
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
d xmlTextWriterWriteDTDExternalEntity...
d pr extproc(
d 'xmlTextWriterWriteDTDExternalEntity'
d )
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d ndataid * value options(*string) const xmlChar *
d xmlTextWriterWriteDTDExternalEntityContents...
d pr extproc('xmlTextWriterWriteDTDExtern-
d alEntityContents')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d ndataid * value options(*string) const xmlChar *
d xmlTextWriterWriteDTDEntity...
d pr extproc(
d 'xmlTextWriterWriteDTDEntity')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d pe value like(xmlCint)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
d ndataid * value options(*string) const xmlChar *
d content * value options(*string) const xmlChar *
* DTD notation definition
d xmlTextWriterWriteDTDNotation...
d pr extproc(
d 'xmlTextWriterWriteDTDNotation')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d name * value options(*string) const xmlChar *
d pubid * value options(*string) const xmlChar *
d sysid * value options(*string) const xmlChar *
* Indentation
d xmlTextWriterSetIndent...
d pr extproc('xmlTextWriterSetIndent')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d indent value like(xmlCint)
d xmlTextWriterSetIndentString...
d pr extproc(
d 'xmlTextWriterSetIndentString')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d str * value options(*string) const xmlChar *
d xmlTextWriterSetQuoteChar...
d pr extproc('xmlTextWriterSetQuoteChar')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
d quotechar value like(xmlChar)
* misc
d xmlTextWriterFlush...
d pr extproc('xmlTextWriterFlush')
d like(xmlCint)
d writer value like(xmlTextWriterPtr)
/endif LIBXML_WRITER_ENABLD
/endif XML_XMLWRITER_H__

675
os400/libxmlrpg/xpath.rpgle
View File

@ -1,675 +0,0 @@
* Summary: XML Path Language implementation
* Description: API for the XML Path Language implementation
*
* XML Path Language implementation
* XPath is a language for addressing parts of an XML document,
* designed to be used by both XSLT and XPointer
* http://www.w3.org/TR/xpath
*
* Implements
* W3C Recommendation 16 November 1999
* http://www.w3.org/TR/1999/REC-xpath-19991116
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XPATH_H__)
/define XML_XPATH_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_XPATH_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xmlerror"
/include "libxmlrpg/tree"
/include "libxmlrpg/hash"
/endif LIBXML_XPATH_ENABLED
/if defined(LIBXML_XPATH_ENABLED)
d xmlXPathContextPtr...
d s * based(######typedef######)
d xmlXPathParserContextPtr...
d s * based(######typedef######)
* The set of XPath error codes.
d xmlXPathError s based(######typedef######)
d like(xmlCenum)
d XPATH_EXPRESSION_OK...
d c 0
d XPATH_NUMBER_ERROR...
d c 1
d XPATH_UNFINISHED_LITERAL_ERROR...
d c 2
d XPATH_START_LITERAL_ERROR...
d c 3
d XPATH_VARIABLE_REF_ERROR...
d c 4
d XPATH_UNDEF_VARIABLE_ERROR...
d c 5
d XPATH_INVALID_PREDICATE_ERROR...
d c 6
d XPATH_EXPR_ERROR...
d c 7
d XPATH_UNCLOSED_ERROR...
d c 8
d XPATH_UNKNOWN_FUNC_ERROR...
d c 9
d XPATH_INVALID_OPERAND...
d c 10
d XPATH_INVALID_TYPE...
d c 11
d XPATH_INVALID_ARITY...
d c 12
d XPATH_INVALID_CTXT_SIZE...
d c 13
d XPATH_INVALID_CTXT_POSITION...
d c 14
d XPATH_MEMORY_ERROR...
d c 15
d XPTR_SYNTAX_ERROR...
d c 16
d XPTR_RESOURCE_ERROR...
d c 17
d XPTR_SUB_RESOURCE_ERROR...
d c 18
d XPATH_UNDEF_PREFIX_ERROR...
d c 19
d XPATH_ENCODING_ERROR...
d c 20
d XPATH_INVALID_CHAR_ERROR...
d c 21
d XPATH_INVALID_CTXT...
d c 22
d XPATH_STACK_ERROR...
d c 23
d XPATH_FORBID_VARIABLE_ERROR...
d c 24
* A node-set (an unordered collection of nodes without duplicates).
d xmlNodeSetPtr s * based(######typedef######)
d xmlNodeSet ds based(xmlNodeSetPtr)
d align qualified
d nodeNr like(xmlCint) Set node count
d nodeMax like(xmlCint) Max # nodes in set
d nodeTab * xmlNodePtr *
* An expression is evaluated to yield an object, which
* has one of the following four basic types:
* - node-set
* - boolean
* - number
* - string
*
* @@ XPointer will add more types !
d xmlXPathObjectType...
d s based(######typedef######)
d like(xmlCenum)
d XPATH_UNDEFINED...
d c 0
d XPATH_NODESET c 1
d XPATH_BOOLEAN c 2
d XPATH_NUMBER c 3
d XPATH_STRING c 4
d XPATH_POINT c 5
d XPATH_RANGE c 6
d XPATH_LOCATIONSET...
d c 7
d XPATH_USERS c 8
d XPATH_XSLT_TREE... R/O XSLT value tree
d c 9
d xmlXPathObjectPtr...
d s * based(######typedef######)
d xmlXPathObject ds based(xmlXPathObjectPtr)
d align qualified
d type like(xmlXPathObjectType)
d nodesetval like(xmlNodeSetPtr)
d boolval like(xmlCint)
d floatval like(xmlCdouble)
d stringval * xmlChar *
d user * void *
d index like(xmlCint)
d user2 * void *
d index2 like(xmlCint)
* xmlXPathConvertFunc:
* @obj: an XPath object
* @type: the number of the target type
*
* A conversion function is associated to a type and used to cast
* the new type to primitive values.
*
* Returns -1 in case of error, 0 otherwise
d xmlXPathConvertFunc...
d s * based(######typedef######)
d procptr
* Extra type: a name and a conversion function.
d xmlXPathTypePtr...
d s * based(######typedef######)
d xmlXPathType ds based(xmlXPathTypePtr)
d align qualified
d name * The type name
d func like(xmlXPathConvertFunc) Conversion function
* Extra variable: a name and a value.
d xmlXPathVariablePtr...
d s * based(######typedef######)
d xmlXPathVariable...
d ds based(xmlXPathVariablePtr)
d align qualified
d name * The variable name
d value like(xmlXPathObjectPtr) The value
* xmlXPathEvalFunc:
* @ctxt: an XPath parser context
* @nargs: the number of arguments passed to the function
*
* An XPath evaluation function, the parameters are on the XPath
* context stack.
d xmlXPathEvalFunc...
d s * based(######typedef######)
d procptr
* Extra function: a name and an evaluation function.
d xmlXPathFuncPtr...
d s * based(######typedef######)
d xmlXPathFunct ds based(xmlXPathFuncPtr)
d align qualified
d name * The function name
d func like(xmlXPathEvalFunc) Evaluation function
* xmlXPathAxisFunc:
* @ctxt: the XPath interpreter context
* @cur: the previous node being explored on that axis
*
* An axis traversal function. To traverse an axis, the engine calls
* the first time with cur == NULL and repeat until the function returns
* NULL indicating the end of the axis traversal.
*
* Returns the next node in that axis or NULL if at the end of the axis.
d xmlXPathAxisFunc...
d s * based(######typedef######)
d procptr
* Extra axis: a name and an axis function.
d xmlXPathAxisPtr...
d s * based(######typedef######)
d xmlXPathAxis ds based(xmlXPathAxisPtr)
d align qualified
d name * The axis name
d func like(xmlXPathAxisFunc) The search function
* xmlXPathFunction:
* @ctxt: the XPath interprestation context
* @nargs: the number of arguments
*
* An XPath function.
* The arguments (if any) are popped out from the context stack
* and the result is pushed on the stack.
d xmlXPathFunction...
d s * based(######typedef######)
d procptr
* Function and Variable Lookup.
* xmlXPathVariableLookupFunc:
* @ctxt: an XPath context
* @name: name of the variable
* @ns_uri: the namespace name hosting this variable
*
* Prototype for callbacks used to plug variable lookup in the XPath
* engine.
*
* Returns the XPath object value or NULL if not found.
d xmlXPathVariableLookupFunc...
d s * based(######typedef######)
d procptr
* xmlXPathFuncLookupFunc:
* @ctxt: an XPath context
* @name: name of the function
* @ns_uri: the namespace name hosting this function
*
* Prototype for callbacks used to plug function lookup in the XPath
* engine.
*
* Returns the XPath function or NULL if not found.
d xmlXPathFuncLookupFunc...
d s * based(######typedef######)
d procptr
* xmlXPathFlags:
* Flags for XPath engine compilation and runtime
* XML_XPATH_CHECKNS:
*
* check namespaces at compilation
d XML_XPATH_CHECKNS...
d c X'0001'
* XML_XPATH_NOVAR:
*
* forbid variables in expression
d XML_XPATH_NOVAR...
d c X'0002'
* xmlXPathContext:
*
* Expression evaluation occurs with respect to a context.
* he context consists of:
* - a node (the context node)
* - a node list (the context node list)
* - a set of variable bindings
* - a function library
* - the set of namespace declarations in scope for the expression
* Following the switch to hash tables, this need to be trimmed up at
* the next binary incompatible release.
* The node may be modified when the context is passed to libxml2
* for an XPath evaluation so you may need to initialize it again
* before the next call.
d xmlXPathContext...
d ds based(xmlXPathContextPtr)
d align qualified
d doc like(xmlDocPtr) Current document
d node like(xmlNodePtr) Current node
*
d nb_variables_unused... Unused (hash table)
d like(xmlCint)
d max_variables_unused... Unused (hash table)
d like(xmlCint)
d varHash like(xmlHashTablePtr) Defined variables
*
d nb_types like(xmlCint) # of defined types
d max_types like(xmlCint) Max number of types
d types like(xmlXPathTypePtr) Defined types array
*
d nb_funcs_unused... Unused (hash table)
d like(xmlCint)
d max_funcs_unused... Unused (hash table)
d like(xmlCint)
d funcHash like(xmlHashTablePtr) Defined functions
*
d nb_axis like(xmlCint) # of defined axis
d max_axis like(xmlCint) Max number of axis
d axis like(xmlXPathAxisPtr) Defined axis array
*
* the namespace nodes of the context node
*
d namespaces * xmlNsPtr *
d nsNr like(xmlCint) # scope namespaces
d user * procptr Function to free
*
* extra variables
*
d contextSize like(xmlCint) The context size
d proximityPosition...
d like(xmlCint)
*
* extra stuff for XPointer
*
d xptr like(xmlCint) XPointer context ?
d here like(xmlNodePtr) For here()
d origin like(xmlNodePtr) For origin()
*
* the set of namespace declarations in scope for the expression
*
d nsHash like(xmlHashTablePtr) Namespace hashtable
d varLookupFunc like(xmlXPathVariableLookupFunc) Var lookup function
d varLookupData * void *
*
* Possibility to link in an extra item
*
d extra * void *
*
* The function name and URI when calling a function
*
d function * const xmlChar *
d functionURI * const xmlChar *
*
* function lookup function and data
*
d funcLookupFunc... Func lookup func
d like(xmlXPathVariableLookupFunc)
d funcLookupData... void *
d *
*
* temporary namespace lists kept for walking the namespace axis
*
d tmpNsList * xmlNsPtr *
d tmpNsNr like(xmlCint) # scope namespaces
*
* error reporting mechanism
*
d userData * void *
d error like(xmlStructuredErrorFunc) Error callback
d lastError likeds(xmlError) The last error
d debugNode like(xmlNodePtr) XSLT source node
*
* dictionary
*
d dict like(xmlDictPtr) Dictionary if any
*
d flags like(xmlCint) Compilation control
*
* Cache for reusal of XPath objects
*
d cache * void *
* The structure of a compiled expression form is not public.
d xmlXPathCompExprPtr...
d s * based(######typedef######)
* xmlXPathParserContext:
*
* An XPath parser context. It contains pure parsing information,
* an xmlXPathContext, and the stack of objects.
d xmlXPathParserContext...
d ds based(xmlXPathParserContextPtr)
d align qualified
d cur * const xmlChar *
d base * const xmlChar *
*
d error like(xmlCint) Error code
*
d context like(xmlXPathContextPtr) Evaluation context
d value like(xmlXPathObjectPtr) The current value
d valueNr like(xmlCint) Value stack depth
d valueMax like(xmlCint) Max stack depth
d valueTab * xmlXPathObjectPtr *
*
d comp like(xmlXPathCompExprPtr) Precompiled expr.
d xptr like(xmlCint) XPointer expression?
d ancestor like(xmlNodePtr) To walk prec. axis
*
d valueFrame like(xmlCint) Limit stack pop
**************************************************************************
* *
* Public API *
* *
**************************************************************************
* Objects and Nodesets handling
d xmlXPathNAN s import('xmlXPathNAN')
d like(xmlCdouble)
d xmlXPathPINF s import('xmlXPathPINF')
d like(xmlCdouble)
d xmlXPathNINF s import('xmlXPathNINF')
d like(xmlCdouble)
d xmlXPathFreeObject...
d pr extproc('xmlXPathFreeObject')
d obj value like(xmlXPathObjectPtr)
d xmlXPathNodeSetCreate...
d pr extproc('xmlXPathNodeSetCreate')
d like(xmlNodeSetPtr)
d val value like(xmlNodePtr)
d xmlXPathFreeNodeSetList...
d pr extproc('xmlXPathFreeNodeSetList')
d obj value like(xmlXPathObjectPtr)
d xmlXPathFreeNodeSet...
d pr extproc('xmlXPathFreeNodeSet')
d obj value like(xmlNodeSetPtr)
d xmlXPathObjectCopy...
d pr extproc('xmlXPathObjectCopy')
d like(xmlXPathObjectPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPathCmpNodes...
d pr extproc('xmlXPathCmpNodes')
d like(xmlCint)
d node1 value like(xmlNodePtr)
d node2 value like(xmlNodePtr)
* Conversion functions to basic types.
d xmlXPathCastNumberToBoolean...
d pr extproc(
d 'xmlXPathCastNumberToBoolean')
d like(xmlCint)
d val value like(xmlCdouble)
d xmlXPathCastStringToBoolean...
d pr extproc(
d 'xmlXPathCastStringToBoolean')
d like(xmlCint)
d val * value options(*string) const xmlChar *
d xmlXPathCastNodeSetToBoolean...
d pr extproc(
d 'xmlXPathCastNodeSetToBoolean')
d like(xmlCint)
d ns value like(xmlNodeSetPtr)
d xmlXPathCastToBoolean...
d pr extproc('xmlXPathCastToBoolean')
d like(xmlCint)
d val value like(xmlXPathObjectPtr)
d xmlXPathCastBooleanToNumber...
d pr extproc(
d 'xmlXPathCastBooleanToNumber')
d like(xmlCdouble)
d val value like(xmlCint)
d xmlXPathCastStringToNumber...
d pr extproc('xmlXPathCastStringToNumber')
d like(xmlCdouble)
d val * value options(*string) const xmlChar *
d xmlXPathCastNodeToNumber...
d pr extproc('xmlXPathCastNodeToNumber')
d like(xmlCdouble)
d node value like(xmlNodePtr)
d xmlXPathCastNodeSetToNumber...
d pr extproc(
d 'xmlXPathCastNodeSetToNumber')
d like(xmlCdouble)
d ns value like(xmlNodeSetPtr)
d xmlXPathCastToNumber...
d pr extproc('xmlXPathCastToNumber')
d like(xmlCdouble)
d val value like(xmlXPathObjectPtr)
d xmlXPathCastBooleanToString...
d pr * extproc( xmlChar *
d 'xmlXPathCastBooleanToString')
d val value like(xmlCint)
d xmlXPathCastNumberToString...
d pr * extproc('xmlXPathCastNumberToString')xmlChar *
d val value like(xmlCdouble)
d xmlXPathCastNodeToString...
d pr * extproc('xmlXPathCastNodeToString') xmlChar *
d node value like(xmlNodePtr)
d xmlXPathCastNodeSetToString...
d pr * extproc('xmlXPathCastNodeSetToString'xmlChar *
d )
d ns value like(xmlNodeSetPtr)
d xmlXPathCastToString...
d pr * extproc('xmlXPathCastToString') xmlChar *
d val value like(xmlXPathObjectPtr)
d xmlXPathConvertBoolean...
d pr extproc('xmlXPathConvertBoolean')
d like(xmlXPathObjectPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPathConvertNumber...
d pr extproc('xmlXPathConvertNumber')
d like(xmlXPathObjectPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPathConvertString...
d pr extproc('xmlXPathConvertString')
d like(xmlXPathObjectPtr)
d val value like(xmlXPathObjectPtr)
* Context handling.
d xmlXPathNewContext...
d pr extproc('xmlXPathNewContext')
d like(xmlXPathContextPtr)
d doc value like(xmlDocPtr)
d xmlXPathFreeContext...
d pr extproc('xmlXPathFreeContext')
d ctxt value like(xmlXPathContextPtr)
d xmlXPathContextSetCache...
d pr extproc('xmlXPathContextSetCache')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d active value like(xmlCint)
d value value like(xmlCint)
d options value like(xmlCint)
* Evaluation functions.
d xmlXPathOrderDocElems...
d pr extproc('xmlXPathOrderDocElems')
d like(xmlClong)
d doc value like(xmlDocPtr)
d xmlXPathSetContextNode...
d pr extproc('xmlXPathSetContextNode')
d like(xmlCint)
d node value like(xmlNodePtr)
d ctx value like(xmlXPathContextPtr)
d xmlXPathNodeEval...
d pr extproc('xmlXPathNodeEval')
d like(xmlXPathObjectPtr)
d node value like(xmlNodePtr)
d str * value options(*string) const xmlChar *
d ctx value like(xmlXPathContextPtr)
d xmlXPathEval pr extproc('xmlXPathEval')
d like(xmlXPathObjectPtr)
d str * value options(*string) const xmlChar *
d ctx value like(xmlXPathContextPtr)
d xmlXPathEvalExpression...
d pr extproc('xmlXPathEvalExpression')
d like(xmlXPathObjectPtr)
d str * value options(*string) const xmlChar *
d ctxt value like(xmlXPathContextPtr)
d xmlXPathEvalPredicate...
d pr extproc('xmlXPathEvalPredicate')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d res value like(xmlXPathObjectPtr)
* Separate compilation/evaluation entry points.
d xmlXPathCompile...
d pr extproc('xmlXPathCompile')
d like(xmlXPathCompExprPtr)
d str * value options(*string) const xmlChar *
d xmlXPathCtxtCompile...
d pr extproc('xmlXPathCtxtCompile')
d like(xmlXPathCompExprPtr)
d ctxt value like(xmlXPathContextPtr)
d str * value options(*string) const xmlChar *
d xmlXPathCompiledEval...
d pr extproc('xmlXPathCompiledEval')
d like(xmlXPathObjectPtr)
d comp value like(xmlXPathCompExprPtr)
d ctx value like(xmlXPathContextPtr)
d xmlXPathCompiledEvalToBoolean...
d pr extproc(
d 'xmlXPathCompiledEvalToBoolean')
d like(xmlCint)
d comp value like(xmlXPathCompExprPtr)
d ctxt value like(xmlXPathContextPtr)
d xmlXPathFreeCompExpr...
d pr extproc('xmlXPathFreeCompExpr')
d comp value like(xmlXPathCompExprPtr)
/endif LIBXML_XPATH_ENABLED
/undefine XML_TESTVAL
/if defined(LIBXML_XPATH_ENABLED)
/define XML_TESTVAL
/elseif defined(LIBXML_SCHEMAS_ENABLED)
/define XML_TESTVAL
/endif
/if defined(XML_TESTVAL)
d xmlXPathInit pr extproc('xmlXPathInit')
d xmlXPathIsNaN pr extproc('xmlXPathIsNaN')
d like(xmlCint)
d val value like(xmlCdouble)
d xmlXPathIsInf pr extproc('xmlXPathIsInf')
d like(xmlCint)
d val value like(xmlCdouble)
/undefine XML_TESTVAL
/endif
* C macros implemented as procedures for ILE/RPG support.
/if defined(LIBXML_XPATH_ENABLED)
d xmlXPathNodeSetGetLength...
d pr extproc('__xmlXPathNodeSetGetLength')
d like(xmlCint)
d ns value like(xmlNodeSetPtr)
d xmlXPathNodeSetItem...
d pr extproc('__xmlXPathNodeSetItem')
d like(xmlNodePtr)
d ns value like(xmlNodeSetPtr)
d index value like(xmlCint)
d xmlXPathNodeSetIsEmpty...
d pr extproc('__xmlXPathNodeSetIsEmpty')
d like(xmlCint)
d ns value like(xmlNodeSetPtr)
/endif LIBXML_XPATH_ENABLED
/endif XML_XPATH_H__

693
os400/libxmlrpg/xpathInternals.rpgle
View File

@ -1,693 +0,0 @@
* Summary: internal interfaces for XML Path Language implementation
* Description: internal interfaces for XML Path Language implementation
* used to build new modules on top of XPath like XPointer and
* XSLT
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XPATH_INTERNALS_H__)
/define XML_XPATH_INTERNALS_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_XPATH_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/xpath"
************************************************************************
* *
* Helpers *
* *
************************************************************************
* Many of these macros may later turn into functions. They
* shouldn't be used in #ifdef's preprocessor instructions.
d xmlXPathPopBoolean...
d pr extproc('xmlXPathPopBoolean')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathPopNumber...
d pr extproc('xmlXPathPopNumber')
d like(xmlCdouble)
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathPopString...
d pr * extproc('xmlXPathPopString') xmlChar *
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathPopNodeSet...
d pr extproc('xmlXPathPopNodeSet')
d like(xmlNodeSetPtr)
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathPopExternal...
d pr * extproc('xmlXPathPopExternal') void *
d ctxt value like(xmlXPathParserContextPtr)
* Variable Lookup forwarding.
d xmlXPathRegisterVariableLookup...
d pr extproc(
d 'xmlXPathRegisterVariableLookup')
d ctxt value like(xmlXPathContextPtr)
d f value
d like(xmlXPathVariableLookupFunc)
d data * value void *
* Function Lookup forwarding.
d xmlXPathRegisterFuncLookup...
d pr extproc('xmlXPathRegisterFuncLookup')
d ctxt value like(xmlXPathContextPtr)
d f value like(xmlXPathFuncLookupFunc)
d funcCtxt * value void *
* Error reporting.
* Note this procedure is renamed in RPG to avoid character case clash with
* data type xmlXPathError.
d xmlXPathReportError...
d pr extproc('xmlXPatherror')
d ctxt value like(xmlXPathParserContextPtr)
d file * value options(*string) const char *
d line value like(xmlCint)
d no value like(xmlCint)
d xmlXPathErr pr extproc('xmlXPathErr')
d ctxt value like(xmlXPathParserContextPtr)
d error value like(xmlCint)
/if defined(LIBXML_DEBUG_ENABLED)
d xmlXPathDebugDumpObject...
d pr extproc('xmlXPathDebugDumpObject')
d output * value FILE *
d cur value like(xmlXPathObjectPtr)
d depth value like(xmlCint)
d xmlXPathDebugDumpCompExpr...
d pr extproc('xmlXPathDebugDumpCompExpr')
d output * value FILE *
d comp value like(xmlXPathCompExprPtr)
d depth value like(xmlCint)
/endif
* NodeSet handling.
d xmlXPathNodeSetContains...
d pr extproc('xmlXPathNodeSetContains')
d like(xmlCint)
d cur value like(xmlNodeSetPtr)
d val value like(xmlNodePtr)
d xmlXPathDifference...
d pr extproc('xmlXPathDifference')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathIntersection...
d pr extproc('xmlXPathIntersection')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathDistinctSorted...
d pr extproc('xmlXPathDistinctSorted')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d xmlXPathDistinct...
d pr extproc('xmlXPathDistinct')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d xmlXPathHasSameNodes...
d pr extproc('xmlXPathHasSameNodes')
d like(xmlCint)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathNodeLeadingSorted...
d pr extproc('xmlXPathNodeLeadingSorted')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d node value like(xmlNodePtr)
d xmlXPathLeadingSorted...
d pr extproc('xmlXPathLeadingSorted')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathNodeLeading...
d pr extproc('xmlXPathNodeLeading')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d node value like(xmlNodePtr)
d xmlXPathLeading...
d pr extproc('xmlXPathLeading')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathNodeTrailingSorted...
d pr extproc('xmlXPathNodeTrailingSorted')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d node value like(xmlNodePtr)
d xmlXPathTrailingSorted...
d pr extproc('xmlXPathTrailingSorted')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
d xmlXPathNodeTrailing...
d pr extproc('xmlXPathNodeTrailing')
d like(xmlNodeSetPtr)
d nodes value like(xmlNodeSetPtr)
d node value like(xmlNodePtr)
d xmlXPathTrailing...
d pr extproc('xmlXPathTrailing')
d like(xmlNodeSetPtr)
d nodes1 value like(xmlNodeSetPtr)
d nodes2 value like(xmlNodeSetPtr)
* Extending a context.
d xmlXPathRegisterNs...
d pr extproc('xmlXPathRegisterNs')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d prefix * value options(*string) const xmlChar *
d ns_uri * value options(*string) const xmlChar *
d xmlXPathNsLookup...
d pr * extproc('xmlXPathNsLookup') const xmlChar *
d ctxt value like(xmlXPathContextPtr)
d prefix * value options(*string) const xmlChar *
d xmlXPathRegisteredNsCleanup...
d pr extproc(
d 'xmlXPathRegisteredNsCleanup')
d ctxt value like(xmlXPathContextPtr)
d xmlXPathRegisterFunc...
d pr extproc('xmlXPathRegisterFunc')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d f value like(xmlXPathFunction)
d xmlXPathRegisterFuncNS...
d pr extproc('xmlXPathRegisterFuncNS')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d ns_uri * value options(*string) const xmlChar *
d f value like(xmlXPathFunction)
d xmlXPathRegisterVariable...
d pr extproc('xmlXPathRegisterVariable')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d value value like(xmlXPathObjectPtr)
d xmlXPathRegisterVariableNS...
d pr extproc('xmlXPathRegisterVariableNS')
d like(xmlCint)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d ns_uri * value options(*string) const xmlChar *
d value value like(xmlXPathObjectPtr)
d xmlXPathFunctionLookup...
d pr extproc('xmlXPathFunctionLookup')
d like(xmlXPathFunction)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d xmlXPathFunctionLookupNS...
d pr extproc('xmlXPathFunctionLookupNS')
d like(xmlXPathFunction)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d ns_uri * value options(*string) const xmlChar *
d xmlXPathRegisteredFuncsCleanup...
d pr extproc(
d 'xmlXPathRegisteredFuncsCleanup')
d ctxt value like(xmlXPathContextPtr)
d xmlXPathVariableLookup...
d pr extproc('xmlXPathVariableLookup')
d like(xmlXPathObjectPtr)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d xmlXPathVariableLookupNS...
d pr extproc('xmlXPathVariableLookupNS')
d like(xmlXPathObjectPtr)
d ctxt value like(xmlXPathContextPtr)
d name * value options(*string) const xmlChar *
d ns_uri * value options(*string) const xmlChar *
d xmlXPathRegisteredVariablesCleanup...
d pr extproc(
d 'xmlXPathRegisteredVariablesCleanup')
d ctxt value like(xmlXPathContextPtr)
* Utilities to extend XPath.
d xmlXPathNewParserContext...
d pr extproc('xmlXPathNewParserContext')
d like(xmlXPathParserContextPtr)
d str * value options(*string) const xmlChar *
d ctxt value like(xmlXPathContextPtr)
d xmlXPathFreeParserContext...
d pr extproc('xmlXPathFreeParserContext')
d ctxt value like(xmlXPathParserContextPtr)
* TODO: remap to xmlXPathValuePop and Push.
d valuePop pr extproc('valuePop')
d like(xmlXPathObjectPtr)
d ctxt value like(xmlXPathParserContextPtr)
d valuePush pr extproc('valuePush')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d value value like(xmlXPathObjectPtr)
d xmlXPathNewString...
d pr extproc('xmlXPathNewString')
d like(xmlXPathObjectPtr)
d val * value options(*string) const xmlChar *
d xmlXPathNewCString...
d pr extproc('xmlXPathNewCString')
d like(xmlXPathObjectPtr)
d val * value options(*string) const char *
d xmlXPathWrapString...
d pr extproc('xmlXPathWrapString')
d like(xmlXPathObjectPtr)
d val * value options(*string) xmlChar *
d xmlXPathWrapCString...
d pr extproc('xmlXPathWrapCString')
d like(xmlXPathObjectPtr)
d val * value options(*string) char *
d xmlXPathNewFloat...
d pr extproc('xmlXPathNewFloat')
d like(xmlXPathObjectPtr)
d val value like(xmlCdouble)
d xmlXPathNewBoolean...
d pr extproc('xmlXPathNewBoolean')
d like(xmlXPathObjectPtr)
d val value like(xmlCint)
d xmlXPathNewNodeSet...
d pr extproc('xmlXPathNewNodeSet')
d like(xmlXPathObjectPtr)
d val value like(xmlNodePtr)
d xmlXPathNewValueTree...
d pr extproc('xmlXPathNewValueTree')
d like(xmlXPathObjectPtr)
d val value like(xmlNodePtr)
d xmlXPathNodeSetAdd...
d pr extproc('xmlXPathNodeSetAdd')
d like(xmlCint)
d cur value like(xmlNodeSetPtr)
d val value like(xmlNodePtr)
d xmlXPathNodeSetAddUnique...
d pr extproc('xmlXPathNodeSetAddUnique')
d like(xmlCint)
d cur value like(xmlNodeSetPtr)
d val value like(xmlNodePtr)
d xmlXPathNodeSetAddNs...
d pr extproc('xmlXPathNodeSetAddNs')
d like(xmlCint)
d cur value like(xmlNodeSetPtr)
d node value like(xmlNodePtr)
d ns value like(xmlNsPtr)
d xmlXPathNodeSetSort...
d pr extproc('xmlXPathNodeSetSort')
d set value like(xmlNodeSetPtr)
d xmlXPathRoot pr extproc('xmlXPathRoot')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathEvalExpr...
d pr extproc('xmlXPathEvalExpr')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathParseName...
d pr * extproc('xmlXPathParseName') xmlChar *
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathParseNCName...
d pr * extproc('xmlXPathParseNCName') xmlChar *
d ctxt value like(xmlXPathParserContextPtr)
* Existing functions.
d xmlXPathStringEvalNumber...
d pr extproc('xmlXPathStringEvalNumber')
d like(xmlCdouble)
d str * value options(*string) const xmlChar *
d xmlXPathEvaluatePredicateResult...
d pr extproc(
d 'xmlXPathEvaluatePredicateResult')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d res value like(xmlXPathObjectPtr)
d xmlXPathRegisterAllFunctions...
d pr extproc(
d 'xmlXPathRegisterAllFunctions')
d ctxt value like(xmlXPathContextPtr)
d xmlXPathNodeSetMerge...
d pr extproc('xmlXPathNodeSetMerge')
d like(xmlNodeSetPtr)
d val1 value like(xmlNodeSetPtr)
d val2 value like(xmlNodeSetPtr)
d xmlXPathNodeSetDel...
d pr extproc('xmlXPathNodeSetDel')
d cur value like(xmlNodeSetPtr)
d val value like(xmlNodePtr)
d xmlXPathNodeSetRemove...
d pr extproc('xmlXPathNodeSetRemove')
d cur value like(xmlNodeSetPtr)
d val value like(xmlCint)
d xmlXPathNewNodeSetList...
d pr extproc('xmlXPathNewNodeSetList')
d like(xmlXPathObjectPtr)
d val value like(xmlNodeSetPtr)
d xmlXPathWrapNodeSet...
d pr extproc('xmlXPathWrapNodeSet')
d like(xmlXPathObjectPtr)
d val value like(xmlNodeSetPtr)
d xmlXPathWrapExternal...
d pr extproc('xmlXPathWrapExternal')
d like(xmlXPathObjectPtr)
d val * value void *
d xmlXPathEqualValues...
d pr extproc('xmlXPathEqualValues')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathNotEqualValues...
d pr extproc('xmlXPathNotEqualValues')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathCompareValues...
d pr extproc('xmlXPathCompareValues')
d like(xmlCint)
d ctxt value like(xmlXPathParserContextPtr)
d inf value like(xmlCint)
d strict value like(xmlCint)
d xmlXPathValueFlipSign...
d pr extproc('xmlXPathValueFlipSign')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathAddValues...
d pr extproc('xmlXPathAddValues')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathSubValues...
d pr extproc('xmlXPathSubValues')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathMultValues...
d pr extproc('xmlXPathMultValues')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathDivValues...
d pr extproc('xmlXPathDivValues')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathModValues...
d pr extproc('xmlXPathModValues')
d ctxt value like(xmlXPathParserContextPtr)
d xmlXPathIsNodeType...
d pr extproc('xmlXPathIsNodeType')
d like(xmlCint)
d name * value options(*string) const xmlChar *
* Some of the axis navigation routines.
d xmlXPathNextSelf...
d pr extproc('xmlXPathNextSelf')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextChild...
d pr extproc('xmlXPathNextChild')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextDescendant...
d pr extproc('xmlXPathNextDescendant')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextDescendantOrSelf...
d pr extproc(
d 'xmlXPathNextDescendantOrSelf')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextParent...
d pr extproc('xmlXPathNextParent')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextAncestorOrSelf...
d pr extproc('xmlXPathNextAncestorOrSelf')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextFollowingSibling...
d pr extproc(
d 'xmlXPathNextFollowingSibling')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextFollowing...
d pr extproc('xmlXPathNextFollowing')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextNamespace...
d pr extproc('xmlXPathNextNamespace')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextAttribute...
d pr extproc('xmlXPathNextAttribute')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextPreceding...
d pr extproc('xmlXPathNextPreceding')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextAncestor...
d pr extproc('xmlXPathNextAncestor')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
d xmlXPathNextPrecedingSibling...
d pr extproc(
d 'xmlXPathNextPrecedingSibling')
d like(xmlNodePtr)
d ctxt value like(xmlXPathParserContextPtr)
d cur value like(xmlNodePtr)
* The official core of XPath functions.
d xmlXPathLastFunction...
d pr extproc('xmlXPathLastFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathPositionFunction...
d pr extproc('xmlXPathPositionFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathCountFunction...
d pr extproc('xmlXPathCountFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathIdFunction...
d pr extproc('xmlXPathIdFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathLocalNameFunction...
d pr extproc('xmlXPathLocalNameFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathNamespaceURIFunction...
d pr extproc(
d 'xmlXPathNamespaceURIFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathStringFunction...
d pr extproc('xmlXPathStringFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathStringLengthFunction...
d pr extproc(
d 'xmlXPathStringLengthFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathConcatFunction...
d pr extproc('xmlXPathConcatFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathContainsFunction...
d pr extproc('xmlXPathContainsFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathStartsWithFunction...
d pr extproc('xmlXPathStartsWithFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathSubstringFunction...
d pr extproc('xmlXPathSubstringFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathSubstringBeforeFunction...
d pr extproc(
d 'xmlXPathSubstringBeforeFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathSubstringAfterFunction...
d pr extproc(
d 'xmlXPathSubstringAfterFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathNormalizeFunction...
d pr extproc('xmlXPathNormalizeFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathTranslateFunction...
d pr extproc('xmlXPathTranslateFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathNotFunction...
d pr extproc('xmlXPathNotFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathTrueFunction...
d pr extproc('xmlXPathTrueFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathFalseFunction...
d pr extproc('xmlXPathFalseFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathLangFunction...
d pr extproc('xmlXPathLangFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathNumberFunction...
d pr extproc('xmlXPathNumberFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathSumFunction...
d pr extproc('xmlXPathSumFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathFloorFunction...
d pr extproc('xmlXPathFloorFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathCeilingFunction...
d pr extproc('xmlXPathCeilingFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathRoundFunction...
d pr extproc('xmlXPathRoundFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPathBooleanFunction...
d pr extproc('xmlXPathBooleanFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
* Really internal functions
d xmlXPathNodeSetFreeNs...
d pr extproc('xmlXPathNodeSetFreeNs')
d ns value like(xmlNsPtr)
/endif LIBXML_XPATH_ENABLED
/endif XPATH_INTERNALS_H__

158
os400/libxmlrpg/xpointer.rpgle
View File

@ -1,158 +0,0 @@
* Summary: API to handle XML Pointers
* Description: API to handle XML Pointers
* Base implementation was made accordingly to
* W3C Candidate Recommendation 7 June 2000
* http://www.w3.org/TR/2000/CR-xptr-20000607
*
* Added support for the element() scheme described in:
* W3C Proposed Recommendation 13 November 2002
* http://www.w3.org/TR/2002/PR-xptr-element-20021113/
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_XPTR_H__)
/define XML_XPTR_H__
/include "libxmlrpg/xmlversion"
/if defined(LIBXML_XPTR_ENABLED)
/include "libxmlrpg/xmlTypesC"
/include "libxmlrpg/tree"
/include "libxmlrpg/xpath"
* A Location Set
d xmlLocationSetPtr...
d s * based(######typedef######)
d xmlLocationSet ds based(xmlLocationSetPtr)
d align qualified
d locNr like(xmlCint) # locations in set
d locMax like(xmlCint) Max locations in set
d locTab * xmlXPathObjectPtr *
* Handling of location sets.
d xmlXPtrLocationSetCreate...
d pr extproc('xmlXPtrLocationSetCreate')
d like(xmlLocationSetPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPtrFreeLocationSet...
d pr extproc('xmlXPtrFreeLocationSet')
d obj value like(xmlLocationSetPtr)
d xmlXPtrLocationSetMerge...
d pr extproc('xmlXPtrLocationSetMerge')
d like(xmlLocationSetPtr)
d val1 value like(xmlLocationSetPtr)
d val2 value like(xmlLocationSetPtr)
d xmlXPtrNewRange...
d pr extproc('xmlXPtrNewRange')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d startindex value like(xmlCint)
d end value like(xmlNodePtr)
d endindex value like(xmlCint)
d xmlXPtrNewRangePoints...
d pr extproc('xmlXPtrNewRangePoints')
d like(xmlXPathObjectPtr)
d start value like(xmlXPathObjectPtr)
d end value like(xmlXPathObjectPtr)
d xmlXPtrNewRangeNodePoint...
d pr extproc('xmlXPtrNewRangeNodePoint')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d end value like(xmlXPathObjectPtr)
d xmlXPtrNewRangePointNode...
d pr extproc('xmlXPtrNewRangePointNode')
d like(xmlXPathObjectPtr)
d start value like(xmlXPathObjectPtr)
d end value like(xmlNodePtr)
d xmlXPtrNewRangeNodes...
d pr extproc('xmlXPtrNewRangeNodes')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d end value like(xmlNodePtr)
d xmlXPtrNewLocationSetNodes...
d pr extproc('xmlXPtrNewLocationSetNodes')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d end value like(xmlNodePtr)
d xmlXPtrNewLocationSetNodeSet...
d pr extproc(
d 'xmlXPtrNewLocationSetNodeSet')
d like(xmlXPathObjectPtr)
d set value like(xmlNodeSetPtr)
d xmlXPtrNewRangeNodeObject...
d pr extproc('xmlXPtrNewRangeNodeObject')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d end value like(xmlXPathObjectPtr)
d xmlXPtrNewCollapsedRange...
d pr extproc('xmlXPtrNewCollapsedRange')
d like(xmlXPathObjectPtr)
d start value like(xmlNodePtr)
d xmlXPtrLocationSetAdd...
d pr extproc('xmlXPtrLocationSetAdd')
d cur value like(xmlLocationSetPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPtrWrapLocationSet...
d pr extproc('xmlXPtrWrapLocationSet')
d like(xmlXPathObjectPtr)
d val value like(xmlLocationSetPtr)
d xmlXPtrLocationSetDel...
d pr extproc('xmlXPtrLocationSetDel')
d cur value like(xmlLocationSetPtr)
d val value like(xmlXPathObjectPtr)
d xmlXPtrLocationSetRemove...
d pr extproc('xmlXPtrLocationSetRemove')
d cur value like(xmlLocationSetPtr)
d val value like(xmlCint)
* Functions.
d xmlXPtrNewContext...
d pr extproc('xmlXPtrNewContext')
d like(xmlXPathContextPtr)
d doc value like(xmlDocPtr)
d here value like(xmlNodePtr)
d origin value like(xmlNodePtr)
d xmlXPtrEval pr extproc('xmlXPtrEval')
d like(xmlXPathObjectPtr)
d str * value options(*string) const xmlChar *
d ctx value like(xmlXPathContextPtr)
d xmlXPtrRangeToFunction...
d pr extproc('xmlXPtrRangeToFunction')
d ctxt value like(xmlXPathParserContextPtr)
d nargs value like(xmlCint)
d xmlXPtrBuildNodeList...
d pr extproc('xmlXPtrBuildNodeList')
d like(xmlNodePtr)
d obj value like(xmlXPathObjectPtr)
d xmlXPtrEvalRangePredicate...
d pr extproc('xmlXPtrEvalRangePredicate')
d ctxt value like(xmlXPathParserContextPtr)
/endif LIBXML_XPTR_ENABLED
/endif XML_XPTR_H__

43
os400/make-bldcsndfa.sh
View File

@ -1,43 +0,0 @@
#!/bin/sh
#
# Compilation script for the iconv names DFA builer.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
SCRIPTDIR=`dirname "${0}"`
. "${SCRIPTDIR}/initscript.sh"
cd "${TOPDIR}/os400/iconv/bldcsndfa"
# This is for old XML library (bootstrapping).
#rm -rf xml.h xml
#ln -s /QSYS.LIB/XML.LIB/H.FILE/XML.MBR xml.h
#mkdir xml
#mkdir xml/h
#ln -s /QSYS.LIB/XML.LIB/H.FILE/UTF8.MBR xml/h/utf8
# Compile.
CMD="CRTCMOD MODULE(${TARGETLIB}/BLDCSNDFA) SRCSTMF('bldcsndfa.c')"
CMD="${CMD} SYSIFCOPT(*IFS64IO) LANGLVL(*EXTENDED) LOCALETYPE(*LOCALE)"
CMD="${CMD} INCDIR("
CMD="${CMD} '${IFSDIR}/include' ${INCLUDES})"
CMD="${CMD} TGTCCSID(${TGTCCSID}) TGTRLS(${TGTRLS})"
CMD="${CMD} OUTPUT(${OUTPUT})"
CMD="${CMD} OPTIMIZE(10)"
CMD="${CMD} DBGVIEW(${DEBUG})"
#CMD="${CMD} DEFINE('OLDXML' 'xmlXPathSetContextNode=xmlXPathSetCurrentNode')"
system "${CMD}"
# Link
CMD="CRTPGM PGM(${TARGETLIB}/BLDCSNDFA) MODULE(${TARGETLIB}/BLDCSNDFA)"
CMD="${CMD} BNDDIR(${TARGETLIB}/${DYNBNDDIR})"
#CMD="${CMD} BNDDIR(XML/XML)"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"

78
os400/make-include.sh
View File

@ -1,78 +0,0 @@
#!/bin/sh
#
# Installation of the C header files in the OS/400 library.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
SCRIPTDIR=`dirname "${0}"`
. "${SCRIPTDIR}/initscript.sh"
cd "${TOPDIR}/include"
# Create the OS/400 source program file for the C header files.
SRCPF="${LIBIFSNAME}/LIBXML.FILE"
if action_needed "${SRCPF}"
then CMD="CRTSRCPF FILE(${TARGETLIB}/LIBXML) RCDLEN(112)"
CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: C/C++ header files')"
system "${CMD}"
fi
# Create the IFS directory for the C header files.
if action_needed "${IFSDIR}/include/libxml"
then mkdir -p "${IFSDIR}/include/libxml"
fi
# Enumeration values may be used as va_arg tagfields, so they MUST be
# integers.
copy_hfile()
{
sed -e '1i\
#pragma enum(int)\
' "${@}" -e '$a\
#pragma enum(pop)\
'
}
# Copy the header files to DB2 library. Link from IFS include directory.
for HFILE in "${TOPDIR}/os400/transcode.h" libxml/*.h libxml/*.h.in
do CMD="cat \"${HFILE}\""
DEST="${SRCPF}/`db2_name \"${HFILE}\" nomangle`.MBR"
case "`basename \"${HFILE}\"`" in
*.in) CMD="${CMD} | versioned_copy";;
xmlschemastypes.h) # Special case: rename colliding file.
DEST="${SRCPF}/SCHMTYPES.MBR";;
esac
if action_needed "${DEST}" "${HFILE}"
then eval "${CMD}" | copy_hfile > tmphdrfile
# Need to translate to target CCSID.
CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DEST}')"
CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
fi
IFSFILE="${IFSDIR}/include/libxml/`basename \"${HFILE}\" .in`"
if action_needed "${IFSFILE}" "${DEST}"
then rm -f "${IFSFILE}"
ln -s "${DEST}" "${IFSFILE}"
fi
done

100
os400/make-rpg.sh
View File

@ -1,100 +0,0 @@
#!/bin/sh
#
# Installation of the ILE/RPG header files in the OS/400 library.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
SCRIPTDIR=`dirname "${0}"`
. "${SCRIPTDIR}/initscript.sh"
cd "${TOPDIR}/os400/libxmlrpg"
# Create the OS/400 source program file for the ILE/RPG header files.
SRCPF="${LIBIFSNAME}/LIBXMLRPG.FILE"
if action_needed "${SRCPF}"
then CMD="CRTSRCPF FILE(${TARGETLIB}/LIBXMLRPG) RCDLEN(112)"
CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: ILE/RPG header files')"
system "${CMD}"
fi
# Map file names to DB2 name syntax.
for HFILE in *.rpgle *.rpgle.in
do NAME="`basename \"${HFILE}\" .in`"
VAR="`basename \"${NAME}\" .rpgle`"
VAL="`db2_name \"${NAME}\" nomangle`"
if [ "${VAR}" = 'xmlschemastypes' ]
then VAL=SCHMTYPES
fi
eval "VAR_${VAR}=\"${VAL}\""
echo "${VAR} s/${VAR}/${VAL}/g"
done > tmpsubstfile1
# Order substitution commands so that a prefix appears after all
# file names beginning with the prefix.
sort -r tmpsubstfile1 | sed 's/^[^ ]*[ ]*//' > tmpsubstfile2
change_include()
{
sed -e '\#^....../include *"libxmlrpg/#{' \
-e 's///' \
-e 's/".*//' \
-f tmpsubstfile2 \
-e 's#.*# /include libxmlrpg,&#' \
-e '}'
}
# Create the IFS directory for the ILE/RPG header files.
RPGIFSDIR="${IFSDIR}/include/libxmlrpg"
if action_needed "${RPGIFSDIR}"
then mkdir -p "${RPGIFSDIR}"
fi
# Copy the header files to IFS ILE/RPG include directory.
# Copy them with include path editing to the DB2 library.
for HFILE in *.rpgle *.rpgle.in
do IFSCMD="cat \"${HFILE}\""
DB2CMD="change_include < \"${HFILE}\""
IFSFILE="`basename \"${HFILE}\" .in`"
case "${HFILE}" in
*.in) IFSCMD="${IFSCMD} | versioned_copy"
DB2CMD="${DB2CMD} | versioned_copy"
;;
esac
IFSDEST="${RPGIFSDIR}/${IFSFILE}"
if action_needed "${IFSDEST}" "${HFILE}"
then eval "${IFSCMD}" > "${IFSDEST}"
fi
eval DB2MBR="\"\${VAR_`basename \"${IFSDEST}\" .rpgle`}\""
DB2DEST="${SRCPF}/${DB2MBR}.MBR"
if action_needed "${DB2DEST}" "${HFILE}"
then eval "${DB2CMD}" | change_include > tmphdrfile
# Need to translate to target CCSID.
CMD="CPY OBJ('`pwd`/tmphdrfile') TOOBJ('${DB2DEST}')"
CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
fi
done

355
os400/make-src.sh
View File

@ -1,355 +0,0 @@
#!/bin/sh
#
# libxml compilation script for the OS/400.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
SCRIPTDIR=`dirname "${0}"`
. "${SCRIPTDIR}/initscript.sh"
cd "${TOPDIR}"
# Create and compile the identification source file.
echo '#pragma comment(user, "libxml2 version '"${LIBXML_VERSION}"'")' > os400.c
echo '#pragma comment(user, __DATE__)' >> os400.c
echo '#pragma comment(user, __TIME__)' >> os400.c
echo '#pragma comment(copyright, "Copyright (C) 1998-2017 Daniel Veillard. OS/400 version by P. Monnerat.")' >> os400.c
make_module OS400 os400.c
LINK= # No need to rebuild service program yet.
MODULES=
# Get source list.
foldlines()
{
sed -e ':begin' \
-e '/\\$/{' \
-e 's/\\$/ /' \
-e 'N' \
-e 'bbegin' \
-e '}' \
-e 's/\n//g' \
-e 's/[[:space:]]*$//'
}
get_make_var()
{
foldlines < Makefile.am |
sed -e "/^${1}[[:space:]]*=[[:space:]]*/{" \
-e 's///' \
-e 'q' \
-e '}' \
-e 'd'
}
docb_sources=`get_make_var docb_sources`
trio_sources=`get_make_var trio_sources`
CSOURCES=`eval echo "\`get_make_var libxml2_la_SOURCES | tr '()' '{}'\`"`
# Compile the sources into modules.
INCLUDES="'`pwd`'"
# OS/400 specific modules first.
make_module --ebcdic DLFCN "${SCRIPTDIR}/dlfcn/dlfcn.c"
make_module --ebcdic ICONV "${SCRIPTDIR}/iconv/iconv.c"
make_module --ebcdic WRAPPERS "${SCRIPTDIR}/wrappers.c"
make_module TRANSCODE "${SCRIPTDIR}/transcode.c"
make_module RPGSUPPORT "${SCRIPTDIR}/rpgsupport.c"
# Regular libxml2 modules.
for SRC in ${CSOURCES}
do MODULE=`db2_name "${SRC}"`
make_module "${MODULE}" "${SRC}"
done
# If needed, (re)create the static binding directory.
if action_needed "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR"
then LINK=YES
fi
if [ "${LINK}" ]
then rm -rf "${LIBIFSNAME}/${STATBNDDIR}.BNDDIR"
CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${STATBNDDIR})"
CMD="${CMD} TEXT('libxml2 static binding directory')"
system "${CMD}"
for MODULE in ${MODULES}
do CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${STATBNDDIR})"
CMD="${CMD} OBJ((${TARGETLIB}/${MODULE} *MODULE))"
system "${CMD}"
done
fi
# The exportation file for service program creation must be in a DB2
# source file, so make sure it exists.
if action_needed "${LIBIFSNAME}/TOOLS.FILE"
then CMD="CRTSRCPF FILE(${TARGETLIB}/TOOLS) RCDLEN(112)"
CMD="${CMD} CCSID(${TGTCCSID}) TEXT('libxml2: build tools')"
system "${CMD}"
fi
# Generate all exported symbol table versions in a binding source file.
BSF="${LIBIFSNAME}/TOOLS.FILE/BNDSRC.MBR"
PGMEXPS=
OS400SYMS=`cat os400/transcode.h os400/rpgsupport.h |
sed -e 'H' \
-e 'g' \
-e 's/\n/ /' \
-e 's/\\$/ /' \
-e 's/.*/& /' \
-e 's/\/\*.*\*\// /g' \
-e 'h' \
-e ':loop' \
-e 'g' \
-e '/\/\*/d' \
-e '/;/!d' \
-e 's/[^;]*;//' \
-e 'x' \
-e 's/[[:space:]]*;.*$//' \
-e '/XMLPUBFUN/{' \
-e 's/[[:space:]]*(.*$//' \
-e 's/.*[[:space:]*]//' \
-e 'p' \
-e 'bloop' \
-e '}' \
-e '/XMLPUBVAR/!bloop' \
-e ':loop2' \
-e '/\[[^][]*\]/{' \
-e 's///' \
-e 'bloop2' \
-e '}' \
-e 's/[[:space:]]*,[[:space:]]*/,/g' \
-e 's/[^,]*[[:space:]*]//' \
-e 's/[^[:alnum:]_,]//g' \
-e 's/,/\n/g' \
-e 'p' \
-e 'bloop'`
sed -e 's/#.*//' \
-e 's/[[:space:]]*$//' \
-e 's/^[[:space:]]*//' \
-e '/^*global:$/d' \
-e '/^$/d' \
-e '/[[:space:]]*{$/{' \
-e 's///' \
-e 'h' \
-e 's/[^A-Za-z0-9]/_/g' \
-e 's/^[0-9]/_&/' \
-e 'x' \
-e 'G' \
-e 's/\(.*\)\n\(.*\)/\2_SIGNATURE="\1"/' \
-e 'p' \
-e 's/.*//' \
-e 'x' \
-e "s/.*/SONAME='&'/" \
-e 'b' \
-e '}' \
-e '/[[:space:]]*;$/!d' \
-e 's///' \
-e '/^xmlDllMain$/d' \
-e '/^}[[:space:]]*/!{' \
-e 'H' \
-e 'd' \
-e '}' \
-e 's///' \
-e '/^$/!{' \
-e 's/[^A-Za-z0-9]/_/g' \
-e 's/^[0-9]/_&/' \
-e 's/.*/${&}/' \
-e 'x' \
-e 'H' \
-e 's/.*//' \
-e '}' \
-e 'x' \
-e 's/\n/ /g' \
-e 's/^[[:space:]]*//' \
-e 's/.*/declare ${SONAME}="&"/' \
-e 's/.*/&; PGMEXPS="${SONAME} ${PGMEXPS}"/' \
< "${TOPDIR}/libxml2.syms" > bndvars
. ./bndvars
PGMLVL=CURRENT
for PGMEXP in ${PGMEXPS}
do SIGNATURE=`echo "${PGMEXP}" | sed 's/^LIBXML2_//'`
eval ENTRIES=\"\${${PGMEXP}}\"
echo " STRPGMEXP PGMLVL(*${PGMLVL}) SIGNATURE('${SIGNATURE}')"
for ENTRY in ${ENTRIES} ${OS400SYMS}
do echo " EXPORT SYMBOL('${ENTRY}')"
done
echo ' ENDPGMEXP'
PGMLVL=PRV
done > "${BSF}"
# Build the service program if needed.
if action_needed "${LIBIFSNAME}/${SRVPGM}.SRVPGM"
then LINK=YES
fi
if [ "${LINK}" ]
then CMD="CRTSRVPGM SRVPGM(${TARGETLIB}/${SRVPGM})"
CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(BNDSRC)"
CMD="${CMD} MODULE(${TARGETLIB}/OS400)"
CMD="${CMD} BNDDIR((${TARGETLIB}/${STATBNDDIR})"
if [ "${WITH_ZLIB}" -ne 0 ]
then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})"
fi
CMD="${CMD})"
CMD="${CMD} BNDSRVPGM(QADRTTS)"
CMD="${CMD} TEXT('libxml2 dynamic library')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
LINK=YES
fi
# If needed, (re)create the dynamic binding directory.
if action_needed "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR"
then LINK=YES
fi
if [ "${LINK}" ]
then rm -rf "${LIBIFSNAME}/${DYNBNDDIR}.BNDDIR"
CMD="CRTBNDDIR BNDDIR(${TARGETLIB}/${DYNBNDDIR})"
CMD="${CMD} TEXT('libxml2 dynamic binding directory')"
system "${CMD}"
CMD="ADDBNDDIRE BNDDIR(${TARGETLIB}/${DYNBNDDIR})"
CMD="${CMD} OBJ((*LIBL/${SRVPGM} *SRVPGM))"
system "${CMD}"
fi
# Compile the ASCII main() stub.
make_module --ebcdic --sysiconv LIBXMLMAIN "${SCRIPTDIR}/libxmlmain.c"
# Compile and link program xmllint.
if action_needed "${LIBIFSNAME}/XMLLINT.PGM" "xmllint.c" ||
action_needed "${LIBIFSNAME}/XMLLINT.PGM" "${LIBIFSNAME}/${SRVPGM}.SRVPGM" ||
action_needed "${LIBIFSNAME}/XMLLINT.PGM" "${LIBIFSNAME}/LIBXMLMAIN.MODULE"
then make_module XMLLINT xmllint.c
CMD="CRTPGM PGM(${TARGETLIB}/XMLLINT) MODULE(${TARGETLIB}/XMLLINT)"
CMD="${CMD} ENTMOD(${TARGETLIB}/LIBXMLMAIN)"
CMD="${CMD} BNDSRVPGM(QADRTTS) BNDDIR((${TARGETLIB}/${STATBNDDIR})"
if [ "${WITH_ZLIB}" -ne 0 ]
then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})"
fi
CMD="${CMD}) ACTGRP(*NEW) TEXT('XML tool')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
rm -f "${LIBIFSNAME}/XMLLINT.MODULE"
fi
# Install xmllint in IFS.
if [ ! -d "${IFSDIR}/bin" ]
then mkdir -p "${IFSDIR}/bin"
fi
rm -f "${IFSDIR}/bin/xmllint"
ln -s "${LIBIFSNAME}/XMLLINT.PGM" "${IFSDIR}/bin/xmllint"
# Prepare the XMLLINT command and its response program.
if action_needed "${LIBIFSNAME}/XMLLINTCL.PGM" "${SCRIPTDIR}/xmllintcl.c"
then make_module --ebcdic XMLLINTCL "${SCRIPTDIR}/xmllintcl.c"
CMD="CRTPGM PGM(${TARGETLIB}/XMLLINTCL) MODULE(${TARGETLIB}/XMLLINTCL)"
CMD="${CMD} ACTGRP(*NEW) TEXT('XMLLINT command response')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
rm -f "${LIBIFSNAME}/XMLLINTCL.MODULE"
fi
if action_needed "${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR" \
"${SCRIPTDIR}/xmllint.cmd"
then CMD="CPY OBJ('${SCRIPTDIR}/xmllint.cmd')"
CMD="${CMD} TOOBJ('${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR')"
CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
fi
if action_needed "${LIBIFSNAME}/XMLLINT.CMD" \
"${LIBIFSNAME}/TOOLS.FILE/XMLLINT.MBR"
then CMD="CRTCMD CMD(${TARGETLIB}/XMLLINT) PGM(${TARGETLIB}/XMLLINTCL)"
CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(XMLLINT) THDSAFE(*YES)"
CMD="${CMD} TEXT('XML tool') REPLACE(*YES)"
system "${CMD}"
fi
# Compile and link program xmlcatalog.
if action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" "xmlcatalog.c" ||
action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" \
"${LIBIFSNAME}/${SRVPGM}.SRVPGM" ||
action_needed "${LIBIFSNAME}/XMLCATALOG.PGM" \
"${LIBIFSNAME}/LIBXMLMAIN.MODULE"
then make_module XMLCATALOG xmlcatalog.c
CMD="CRTPGM PGM(${TARGETLIB}/XMLCATALOG)"
CMD="${CMD} MODULE(${TARGETLIB}/XMLCATALOG)"
CMD="${CMD} ENTMOD(${TARGETLIB}/LIBXMLMAIN)"
CMD="${CMD} BNDSRVPGM(QADRTTS) BNDDIR((${TARGETLIB}/${STATBNDDIR})"
if [ "${WITH_ZLIB}" -ne 0 ]
then CMD="${CMD} (${ZLIB_LIB}/${ZLIB_BNDDIR})"
fi
CMD="${CMD}) ACTGRP(*NEW) TEXT('XML/SGML catalog tool')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
rm -f "${LIBIFSNAME}/XMLCATALOG.MODULE"
fi
# Install xmlcatalog in IFS.
rm -f "${IFSDIR}/bin/xmlcatalog"
ln -s "${LIBIFSNAME}/XMLCATALOG.PGM" "${IFSDIR}/bin/xmlcatalog"
# Prepare the XMLCATALOG command and its response program.
if action_needed "${LIBIFSNAME}/XMLCATLGCL.PGM" "${SCRIPTDIR}/xmlcatlgcl.c"
then make_module --ebcdic XMLCATLGCL "${SCRIPTDIR}/xmlcatlgcl.c"
CMD="CRTPGM PGM(${TARGETLIB}/XMLCATLGCL)"
CMD="${CMD} MODULE(${TARGETLIB}/XMLCATLGCL)"
CMD="${CMD} ACTGRP(*NEW) TEXT('XMLCATALOG command response')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
rm -f "${LIBIFSNAME}/XMLCATLGCL.MODULE"
fi
if action_needed "${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR" \
"${SCRIPTDIR}/xmlcatalog.cmd"
then CMD="CPY OBJ('${SCRIPTDIR}/xmlcatalog.cmd')"
CMD="${CMD} TOOBJ('${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR')"
CMD="${CMD} TOCCSID(${TGTCCSID}) DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
fi
if action_needed "${LIBIFSNAME}/XMLCATALOG.CMD" \
"${LIBIFSNAME}/TOOLS.FILE/XMLCATALOG.MBR"
then CMD="CRTCMD CMD(${TARGETLIB}/XMLCATALOG) PGM(${TARGETLIB}/XMLCATLGCL)"
CMD="${CMD} SRCFILE(${TARGETLIB}/TOOLS) SRCMBR(XMLCATALOG)"
CMD="${CMD} THDSAFE(*YES) TEXT('XML/SGML catalog tool') REPLACE(*YES)"
system "${CMD}"
fi

84
os400/make.sh
View File

@ -1,84 +0,0 @@
#!/bin/sh
#
# libxml2 compilation script for the OS/400.
# This is a shell script since make is not a standard component of OS/400.
#
# See Copyright for the status of this software.
#
# Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
#
SCRIPTDIR=`dirname "${0}"`
. "${SCRIPTDIR}/initscript.sh"
cd "${TOPDIR}"
# Create the OS/400 library if it does not exist.
if action_needed "${LIBIFSNAME}"
then CMD="CRTLIB LIB(${TARGETLIB})"
CMD="${CMD} TEXT('libxml2: XML parser and toolkit API')"
system "${CMD}"
fi
# Create the DOCS source file if it does not exist.
if action_needed "${LIBIFSNAME}/DOCS.FILE"
then CMD="CRTSRCPF FILE(${TARGETLIB}/DOCS) RCDLEN(112)"
CMD="${CMD} CCSID(${TGTCCSID}) TEXT('Documentation texts')"
system "${CMD}"
fi
# Copy some documentation files if needed.
for TEXT in "${TOPDIR}/AUTHORS" "${TOPDIR}/ChangeLog" \
"${TOPDIR}/Copyright" "${TOPDIR}/CONTRIBUTING" "${TOPDIR}/README" \
"${TOPDIR}/MAINTAINERS" "${TOPDIR}/NEWS" "${TOPDIR}/TODO" \
"${TOPDIR}/TODO_SCHEMAS" "${TOPDIR}/os400/README400"
do if [ -f "${TEXT}" ]
then MEMBER="`basename \"${TEXT}\" .OS400`"
MEMBER="${LIBIFSNAME}/DOCS.FILE/`db2_name \"${MEMBER}\"`.MBR"
if action_needed "${MEMBER}" "${TEXT}"
then # Sources are in UTF-8.
rm -f "${TOPDIR}/tmpfile"[12]
CMD="CPY OBJ('${TEXT}') TOOBJ('${TOPDIR}/tmpfile1')"
CMD="${CMD} FROMCCSID(1208) TOCCSID(${TGTCCSID})"
CMD="${CMD} DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
# Make sure all lines are < 100 characters.
sed -e 's/.\{99\}/&\
/g' -e 's/\n$//' "${TOPDIR}/tmpfile1" > "${TOPDIR}/tmpfile2"
CMD="CPY OBJ('${TOPDIR}/tmpfile2') TOOBJ('${MEMBER}')"
CMD="${CMD} TOCCSID(${TGTCCSID})"
CMD="${CMD} DTAFMT(*TEXT) REPLACE(*YES)"
system "${CMD}"
fi
fi
done
# Build files from template.
configFile()
{
args=`set | sed -e '/^[A-Za-z_][A-Za-z0-9_]*=/!d' \
-e 's/[\/\\\\&]/\\\\&/g' \
-e "s/'/'\\\\\\''/g" \
-e 's/^\([^=]*\)=\(.*\)$/-e '\''s\/@\1@\/\2\/g'\'/`
eval sed ${args} < "${1}".in > "${1}"
}
configFile include/libxml/xmlversion.h
configFile os400/os400config.h
mv os400/os400config.h config.h
# Build in each directory.
for SUBDIR in include rpg src
do "${SCRIPTDIR}/make-${SUBDIR}.sh"
done

175
os400/os400config.h.in
View File

@ -1,175 +0,0 @@
/**
*** Configuration parameters for the OS/400 implementation.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
/* Define to 1 if you have the <arpa/inet.h> header file. */
#define HAVE_ARPA_INET_H 1
/* Define to 1 if you have the <arpa/nameser.h> header file. */
#define HAVE_ARPA_NAMESER_H 1
/* Whether struct sockaddr::__ss_family exists */
#undef HAVE_BROKEN_SS_FAMILY
/* Define to 1 if you have the <dlfcn.h> header file. */
#define HAVE_DLFCN_H 1 /* Locally emulated. */
/* Have dlopen based dso */
#define HAVE_DLOPEN 1 /* Locally emulated. */
/* Define to 1 if you have the <dl.h> header file. */
#undef HAVE_DL_H
/* Define to 1 if you have the <fcntl.h> header file. */
#define HAVE_FCNTL_H 1
/* Define to 1 if you have the `ftime' function. */
#undef HAVE_FTIME
/* Define if getaddrinfo is there */
#define HAVE_GETADDRINFO 1
/* Define to 1 if you have the `gettimeofday' function. */
#undef HAVE_GETTIMEOFDAY
/* Define to 1 if you have the <inttypes.h> header file. */
#define HAVE_INTTYPES_H 1
/* Define to 1 if you have the `isascii' function. */
#define HAVE_ISASCII 1
/* Define if history library is there (-lhistory) */
#undef HAVE_LIBHISTORY
/* Define if readline library is there (-lreadline) */
#undef HAVE_LIBREADLINE
/* Define to 1 if you have the `mmap' function. */
#undef HAVE_MMAP
/* Define to 1 if you have the `munmap' function. */
#undef HAVE_MUNMAP
/* mmap() is no good without munmap() */
#if defined(HAVE_MMAP) && !defined(HAVE_MUNMAP)
# undef /**/ HAVE_MMAP
#endif
/* Define to 1 if you have the <netdb.h> header file. */
#define HAVE_NETDB_H 1
/* Define to 1 if you have the <netinet/in.h> header file. */
#define HAVE_NETINET_IN_H 1
/* Define to 1 if you have the <poll.h> header file. */
#undef HAVE_POLL_H
/* Define if <pthread.h> is there */
#define HAVE_PTHREAD_H 1
/* Define to 1 if you have the `putenv' function. */
#define HAVE_PUTENV 1
/* Define to 1 if you have the `rand_r' function. */
#define HAVE_RAND_R 1
/* Define to 1 if you have the <resolv.h> header file. */
#define HAVE_RESOLV_H 1
/* Have shl_load based dso */
#undef HAVE_SHLLOAD
/* Define to 1 if you have the `stat' function. */
#define HAVE_STAT 1
/* Define to 1 if you have the <stdint.h> header file. */
#define HAVE_STDINT_H 1
/* Define to 1 if you have the <sys/mman.h> header file. */
#define HAVE_SYS_MMAN_H 1
/* Define to 1 if you have the <sys/select.h> header file. */
#undef HAVE_SYS_SELECT_H
/* Define to 1 if you have the <sys/socket.h> header file. */
#define HAVE_SYS_SOCKET_H 1
/* Define to 1 if you have the <sys/stat.h> header file. */
#define HAVE_SYS_STAT_H 1
/* Define to 1 if you have the <sys/timeb.h> header file. */
#define HAVE_SYS_TIMEB_H 1
/* Define to 1 if you have the <sys/time.h> header file. */
#define HAVE_SYS_TIME_H 1
/* Define to 1 if you have the <sys/types.h> header file. */
#define HAVE_SYS_TYPES_H 1
/* Define to 1 if you have the <unistd.h> header file. */
#define HAVE_UNISTD_H 1
/* Whether va_copy() is available */
#undef HAVE_VA_COPY
/* Whether __va_copy() is available */
#undef HAVE___VA_COPY
/* Define to the sub-directory in which libtool stores uninstalled libraries.
*/
#undef LT_OBJDIR
/* Name of package */
#define PACKAGE "libxml2"
/* Define to the address where bug reports for this package should be sent. */
#define PACKAGE_BUGREPORT ""
/* Define to the full name of this package. */
#define PACKAGE_NAME ""
/* Define to the full name and version of this package. */
#define PACKAGE_STRING ""
/* Define to the one symbol short name of this package. */
#define PACKAGE_TARNAME ""
/* Define to the home page for this package. */
#define PACKAGE_URL ""
/* Define to the version of this package. */
#define PACKAGE_VERSION ""
/* Support for IPv6 */
#define SUPPORT_IP6
/* Version number of package */
#define VERSION "@VERSION@"
/* Determine what socket length (socklen_t) data type is */
#define XML_SOCKLEN_T socklen_t
/* Define for Solaris 2.5.1 so the uint32_t typedef from <sys/synch.h>,
<pthread.h>, or <semaphore.h> is not used. If the typedef were allowed, the
#define below would cause a syntax error. */
#undef _UINT32_T
/* ss_family is not defined here, use __ss_family instead */
#undef ss_family
/* Define to the type of an unsigned integer type of width exactly 32 bits if
such a type exists and the standard includes do not define it. */
#undef uint32_t
/* Type cast for the send() function 2nd arg */
#define SEND_ARG2_CAST (char *)
/* Type cast for the gethostbyname() argument */
#define GETHOSTBYNAME_ARG_CAST (char *)
/* Define if va_list is an array type */
#define VA_LIST_IS_ARRAY 1

270
os400/rpgsupport.c
View File

@ -1,270 +0,0 @@
/**
*** Additional procedures for ILE/RPG support.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <sys/types.h>
#include <stdarg.h>
#include "libxml/xmlmemory.h"
#include "libxml/xpath.h"
#include "libxml/parser.h"
#include "libxml/HTMLparser.h"
#include "rpgsupport.h"
/**
*** ILE/RPG cannot directly dereference a pointer and has no macros.
*** The following additional procedures supply these functions.
*** In addition, the following code is adjusted for threads control at
*** compile time via the C macros.
**/
#define THREADED_VAR(name, type) \
type __get_##name(void) { return name; } \
void __set_##name(type arg) { name = arg; }
THREADED_VAR(xmlFree, xmlFreeFunc)
void
__call_xmlFree(void * mem)
{
xmlFree(mem);
}
THREADED_VAR(xmlMalloc, xmlMallocFunc)
void *
__call_xmlMalloc(size_t size)
{
return xmlMalloc(size);
}
THREADED_VAR(xmlMallocAtomic, xmlMallocFunc)
void *
__call_xmlMallocAtomic(size_t size)
{
return xmlMallocAtomic(size);
}
THREADED_VAR(xmlRealloc, xmlReallocFunc)
void *
__call_xmlRealloc(void * mem, size_t size)
{
return xmlRealloc(mem, size);
}
THREADED_VAR(xmlMemStrdup, xmlStrdupFunc)
char *
__call_xmlMemStrdup(const char * str)
{
return xmlMemStrdup(str);
}
#ifdef LIBXML_DOCB_ENABLED
THREADED_VAR(docbDefaultSAXHandler, xmlSAXHandlerV1)
#endif
#ifdef LIBXML_HTML_ENABLED
THREADED_VAR(htmlDefaultSAXHandler, xmlSAXHandlerV1)
#endif
THREADED_VAR(xmlLastError, xmlError)
THREADED_VAR(oldXMLWDcompatibility, int)
THREADED_VAR(xmlBufferAllocScheme, xmlBufferAllocationScheme)
THREADED_VAR(xmlDefaultBufferSize, int)
THREADED_VAR(xmlDefaultSAXHandler, xmlSAXHandlerV1)
THREADED_VAR(xmlDefaultSAXLocator, xmlSAXLocator)
THREADED_VAR(xmlDoValidityCheckingDefaultValue, int)
/* No caller to xmlGenericError() because the argument list is unknown. */
THREADED_VAR(xmlGenericError, xmlGenericErrorFunc)
THREADED_VAR(xmlStructuredError, xmlStructuredErrorFunc)
void
__call_xmlStructuredError(void * userData, xmlErrorPtr error)
{
xmlStructuredError(userData, error);
}
THREADED_VAR(xmlGenericErrorContext, void *)
THREADED_VAR(xmlStructuredErrorContext, void *)
THREADED_VAR(xmlGetWarningsDefaultValue, int)
THREADED_VAR(xmlIndentTreeOutput, int)
THREADED_VAR(xmlTreeIndentString, const char *)
THREADED_VAR(xmlKeepBlanksDefaultValue, int)
THREADED_VAR(xmlLineNumbersDefaultValue, int)
THREADED_VAR(xmlLoadExtDtdDefaultValue, int)
THREADED_VAR(xmlParserDebugEntities, int)
THREADED_VAR(xmlParserVersion, const char *)
THREADED_VAR(xmlPedanticParserDefaultValue, int)
THREADED_VAR(xmlSaveNoEmptyTags, int)
THREADED_VAR(xmlSubstituteEntitiesDefaultValue, int)
THREADED_VAR(xmlRegisterNodeDefaultValue, xmlRegisterNodeFunc)
void
__call_xmlRegisterNodeDefaultValue(xmlNodePtr node)
{
xmlRegisterNodeDefaultValue(node);
}
THREADED_VAR(xmlDeregisterNodeDefaultValue, xmlDeregisterNodeFunc)
void
__call_xmlDeregisterNodeDefaultValue(xmlNodePtr node)
{
xmlDeregisterNodeDefaultValue(node);
}
THREADED_VAR(xmlParserInputBufferCreateFilenameValue, xmlParserInputBufferCreateFilenameFunc)
xmlParserInputBufferPtr
__call_xmlParserInputBufferCreateFilenameValue(const char *URI,
xmlCharEncoding enc)
{
return xmlParserInputBufferCreateFilenameValue(URI, enc);
}
THREADED_VAR(xmlOutputBufferCreateFilenameValue, xmlOutputBufferCreateFilenameFunc)
xmlOutputBufferPtr
__call_xmlOutputBufferCreateFilenameValue(const char *URI,
xmlCharEncodingHandlerPtr encoder, int compression)
{
return xmlOutputBufferCreateFilenameValue(URI, encoder, compression);
}
/**
*** va_list support.
**/
void
__xmlVaStart(char * * list, char * lastargaddr, size_t lastargsize)
{
list[1] = lastargaddr + lastargsize;
}
void *
__xmlVaArg(char * * list, void * dest, size_t argsize)
{
size_t align;
if (!argsize)
return (void *) NULL;
for (align = 16; align > argsize; align >>= 1)
;
align--;
list[0] = list[1] + (align - (((size_t) list[0] - 1) & align));
list[1] = list[0] + argsize;
if (dest)
memcpy(dest, list[0], argsize);
return (void *) list[0];
}
void
__xmlVaEnd(char * * list)
{
/* Nothing to do. */
}
#ifdef LIBXML_XPATH_ENABLED
int
__xmlXPathNodeSetGetLength(const xmlNodeSet * ns)
{
return xmlXPathNodeSetGetLength(ns);
}
xmlNodePtr
__xmlXPathNodeSetItem(const xmlNodeSet * ns, int index)
{
return xmlXPathNodeSetItem(ns, index);
}
int
__xmlXPathNodeSetIsEmpty(const xmlNodeSet * ns)
{
return xmlXPathNodeSetIsEmpty(ns);
}
#endif
#ifdef LIBXML_HTML_ENABLED
const char *
__htmlDefaultSubelement(const htmlElemDesc * elt)
{
return htmlDefaultSubelement(elt);
}
int
__htmlElementAllowedHereDesc(const htmlElemDesc * parent,
const htmlElemDesc * elt)
{
return htmlElementAllowedHereDesc(parent, elt);
}
const char * *
__htmlRequiredAttrs(const htmlElemDesc * elt)
{
return htmlRequiredAttrs(elt);
}
#endif

157
os400/rpgsupport.h
View File

@ -1,157 +0,0 @@
/**
*** Additional declarations for ILE/RPG support.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#ifndef __RPGSUPPORT_H__
#define __RPGSUPPORT_H__
#include <sys/types.h>
#include <libxml/xmlmemory.h>
#include <libxml/xpath.h>
#include "libxml/HTMLparser.h"
XMLPUBFUN xmlFreeFunc __get_xmlFree(void);
XMLPUBFUN void __set_xmlFree(xmlFreeFunc freefunc);
XMLPUBFUN void __call_xmlFree(void * mem);
XMLPUBFUN xmlMallocFunc __get_xmlMalloc(void);
XMLPUBFUN void __set_xmlMalloc(xmlMallocFunc allocfunc);
XMLPUBFUN void * __call_xmlMalloc(size_t size);
XMLPUBFUN xmlMallocFunc __get_xmlMallocAtomic(void);
XMLPUBFUN void __set_xmlMallocAtomic(xmlMallocFunc allocfunc);
XMLPUBFUN void * __call_xmlMallocAtomic(size_t size);
XMLPUBFUN xmlReallocFunc __get_xmlRealloc(void);
XMLPUBFUN void __set_xmlRealloc(xmlReallocFunc reallocfunc);
XMLPUBFUN void * __call_xmlRealloc(void * mem, size_t size);
XMLPUBFUN xmlStrdupFunc __get_xmlMemStrdup(void);
XMLPUBFUN void __set_xmlMemStrdup(xmlStrdupFunc strdupfunc);
XMLPUBFUN char * __call_xmlMemStrdup(const char * str);
#ifdef LIBXML_DOCB_ENABLED
XMLPUBFUN xmlSAXHandlerV1 __get_docbDefaultSAXHandler(void);
XMLPUBFUN void __set_docbDefaultSAXHandler(xmlSAXHandlerV1 hdlr);
#endif
#ifdef LIBXML_HTML_ENABLED
XMLPUBFUN xmlSAXHandlerV1 __get_htmlDefaultSAXHandler(void);
XMLPUBFUN void __set_htmlDefaultSAXHandler(xmlSAXHandlerV1 hdlr);
#endif
XMLPUBFUN xmlError __get_xmlLastError(void);
XMLPUBFUN void __set_xmlLastError(xmlError err);
XMLPUBFUN int __get_oldXMLWDcompatibility(void);
XMLPUBFUN void __set_oldXMLWDcompatibility(int val);
XMLPUBFUN xmlBufferAllocationScheme __get_xmlBufferAllocScheme(void);
XMLPUBFUN void __set_xmlBufferAllocScheme(xmlBufferAllocationScheme val);
XMLPUBFUN int __get_xmlDefaultBufferSize(void);
XMLPUBFUN void __set_xmlDefaultBufferSize(int val);
XMLPUBFUN xmlSAXHandlerV1 __get_xmlDefaultSAXHandler(void);
XMLPUBFUN void __set_xmlDefaultSAXHandler(xmlSAXHandlerV1 val);
XMLPUBFUN xmlSAXLocator __get_xmlDefaultSAXLocator(void);
XMLPUBFUN void __set_xmlDefaultSAXLocator(xmlSAXLocator val);
XMLPUBFUN int __get_xmlDoValidityCheckingDefaultValue(void);
XMLPUBFUN void __set_xmlDoValidityCheckingDefaultValue(int val);
XMLPUBFUN xmlGenericErrorFunc __get_xmlGenericError(void);
XMLPUBFUN void __set_xmlGenericError(xmlGenericErrorFunc val);
XMLPUBFUN xmlStructuredErrorFunc __get_xmlStructuredError(void);
XMLPUBFUN void __set_xmlStructuredError(xmlStructuredErrorFunc val);
XMLPUBFUN void __call_xmlStructuredError(void *userData, xmlErrorPtr error);
XMLPUBFUN void * __get_xmlGenericErrorContext(void);
XMLPUBFUN void __set_xmlGenericErrorContext(void * val);
XMLPUBFUN void * __get_xmlStructuredErrorContext(void);
XMLPUBFUN void __set_xmlStructuredErrorContext(void * val);
XMLPUBFUN int __get_xmlGetWarningsDefaultValue(void);
XMLPUBFUN void __set_xmlGetWarningsDefaultValue(int val);
XMLPUBFUN int __get_xmlIndentTreeOutput(void);
XMLPUBFUN void __set_xmlIndentTreeOutput(int val);
XMLPUBFUN const char * __get_xmlTreeIndentString(void);
XMLPUBFUN void __set_xmlTreeIndentString(const char * val);
XMLPUBFUN int __get_xmlKeepBlanksDefaultValue(void);
XMLPUBFUN void __set_xmlKeepBlanksDefaultValue(int val);
XMLPUBFUN int __get_xmlLineNumbersDefaultValue(void);
XMLPUBFUN void __set_xmlLineNumbersDefaultValue(int val);
XMLPUBFUN int __get_xmlLoadExtDtdDefaultValue(void);
XMLPUBFUN void __set_xmlLoadExtDtdDefaultValue(int val);
XMLPUBFUN int __get_xmlParserDebugEntities(void);
XMLPUBFUN void __set_xmlParserDebugEntities(int val);
XMLPUBFUN const char * __get_xmlParserVersion(void);
XMLPUBFUN void __set_xmlParserVersion(const char * val);
XMLPUBFUN int __get_xmlPedanticParserDefaultValue(void);
XMLPUBFUN void __set_xmlPedanticParserDefaultValue(int val);
XMLPUBFUN int __get_xmlSaveNoEmptyTags(void);
XMLPUBFUN void __set_xmlSaveNoEmptyTags(int val);
XMLPUBFUN int __get_xmlSubstituteEntitiesDefaultValue(void);
XMLPUBFUN void __set_xmlSubstituteEntitiesDefaultValue(int val);
XMLPUBFUN xmlRegisterNodeFunc __get_xmlRegisterNodeDefaultValue(void);
XMLPUBFUN void __set_xmlRegisterNodeDefaultValue(xmlRegisterNodeFunc val);
XMLPUBFUN void __call_xmlRegisterNodeDefaultValue(xmlNodePtr node);
XMLPUBFUN xmlDeregisterNodeFunc __get_xmlDeregisterNodeDefaultValue(void);
XMLPUBFUN void __set_xmlDeregisterNodeDefaultValue(xmlDeregisterNodeFunc val);
XMLPUBFUN void __call_xmlDeregisterNodeDefaultValue(xmlNodePtr node);
XMLPUBFUN xmlParserInputBufferCreateFilenameFunc
__get_xmlParserInputBufferCreateFilenameValue(void);
XMLPUBFUN void __set_xmlParserInputBufferCreateFilenameValue(
xmlParserInputBufferCreateFilenameFunc val);
XMLPUBFUN xmlParserInputBufferPtr
__call_xmlParserInputBufferCreateFilenameValue(const char *URI,
xmlCharEncoding enc);
XMLPUBFUN xmlOutputBufferCreateFilenameFunc
__get_xmlOutputBufferCreateFilenameValue(void);
XMLPUBFUN void __set_xmlOutputBufferCreateFilenameValue(
xmlOutputBufferCreateFilenameFunc val);
XMLPUBFUN xmlOutputBufferPtr
__call_xmlOutputBufferCreateFilenameValue(const char *URI,
xmlCharEncodingHandlerPtr encoder,
int compression);
XMLPUBFUN void __xmlVaStart(char * * list,
char * lastargaddr, size_t lastargsize);
XMLPUBFUN void * __xmlVaArg(char * * list, void * dest, size_t argsize);
XMLPUBFUN void __xmlVaEnd(char * * list);
#ifdef LIBXML_XPATH_ENABLED
XMLPUBFUN int __xmlXPathNodeSetGetLength(xmlNodeSetPtr ns);
XMLPUBFUN xmlNodePtr __xmlXPathNodeSetItem(xmlNodeSetPtr ns, int index);
XMLPUBFUN int __xmlXPathNodeSetIsEmpty(xmlNodeSetPtr ns);
#endif
#ifdef LIBXML_HTML_ENABLED
XMLPUBFUN const char * __htmlDefaultSubelement(const htmlElemDesc * elt);
XMLPUBFUN int __htmlElementAllowedHereDesc(const htmlElemDesc * parent,
const htmlElemDesc * elt);
XMLPUBFUN const char * *
__htmlRequiredAttrs(const htmlElemDesc * elt);
#endif
#endif

268
os400/transcode.c
View File

@ -1,268 +0,0 @@
/**
*** Transcoding support and wrappers.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#define IN_LIBXML
#include "libxml.h"
#include <sys/types.h>
#include <iconv.h>
#include "libxml/xmlmemory.h"
#include "libxml/dict.h"
#include "transcode.h"
/**
*** Destroy a dictionary and mark as destroyed.
**/
void
xmlZapDict(xmlDictPtr * dict)
{
if (dict && *dict) {
xmlDictFree(*dict);
*dict = (xmlDictPtr) NULL;
}
}
/**
*** Support for inline conversion from/to UTF-8.
*** This is targeted to function parameter encoding conversion.
*** Method is:
*** - Convert string from/to UTF-8.
*** - Keep it in a dictionary.
*** - Free original string if a release procedure is provided.
*** Can also be called without dictionary to convert a string from/to UTF-8
*** into xmlMalloc'ed dynamic storage.
**/
const char *
xmlTranscodeResult(const xmlChar * s, const char * encoding,
xmlDictPtr * dict, void (*freeproc)(const void *))
{
size_t l;
iconv_t cd;
char * srcp;
char * dstp;
size_t srcc;
size_t dstc;
char * ts;
const char * ret;
int err;
static const int nullstring[] = { 0 };
/* Convert from UTF-8. */
if (!s)
return (const char *) NULL;
ret = (const char *) NULL;
ts = (char *) NULL;
err = 0;
l = xmlStrlen(s);
if (!l && dict)
ret = (const char *) nullstring;
else {
if (dict && !*dict)
err = !(*dict = xmlDictCreate());
if (!err)
err = !(ts = xmlMalloc(4 * l + 4));
dstp = ts;
dstc = 4 * l;
if (!err && l) {
if (!encoding)
encoding = "ibm-0"; /* Job's encoding. */
cd = iconv_open(encoding, "UTF-8");
if (cd == (iconv_t) -1)
err = 1;
else {
srcp = (char *) s;
srcc = l;
srcc = iconv(cd, &srcp, &srcc, &dstp, &dstc);
iconv_close(cd);
err = srcc == (size_t) -1;
}
}
if (!err) {
dstp[0] = dstp[1] = dstp[2] = dstp[3] = '\0';
if (!dict) {
if (dstc)
ts = xmlRealloc(ts, (dstp - ts) + 4);
ret = (const char *) ts;
ts = (char *) NULL;
}
else
ret = (char *) xmlDictLookup(*dict,
(xmlChar *) ts, dstp - ts + 1);
}
}
if (ts)
xmlFree(ts);
if (freeproc)
(*freeproc)(s);
return ret;
}
/**
*** Support for inline conversion to UTF-8.
*** Method is:
*** - Convert string to UTF-8.
*** - Keep it in a dictionary.
*** Can also be called without dictionary to convert a string to UTF-8 into
*** xmlMalloc'ed dynamic storage.
**/
static const xmlChar *
inTranscode(const char * s, size_t l, const char * encoding, xmlDictPtr * dict)
{
iconv_t cd;
char * srcp;
char * dstp;
size_t srcc;
size_t dstc;
xmlChar * ts;
const xmlChar * ret;
static const xmlChar nullstring[] = { 0 };
if (!l && dict)
return nullstring;
if (dict && !*dict)
if (!(*dict = xmlDictCreate()))
return (const xmlChar *) NULL;
ts = (xmlChar *) xmlMalloc(6 * l + 1);
if (!ts)
return (const xmlChar *) NULL;
dstp = (char *) ts;
dstc = 6 * l;
if (l) {
if (!encoding)
encoding = "ibm-0"; /* Use job's encoding. */
cd = iconv_open("UTF-8", encoding);
if (cd == (iconv_t) -1) {
xmlFree((char *) ts);
return (const xmlChar *) NULL;
}
srcp = (char *) s;
srcc = l;
srcc = iconv(cd, &srcp, &srcc, &dstp, &dstc);
iconv_close(cd);
if (srcc == (size_t) -1) {
xmlFree((char *) ts);
return (const xmlChar *) NULL;
}
}
*dstp = '\0';
if (!dict) {
if (dstc)
ts = xmlRealloc(ts, (dstp - ts) + 1);
return ts;
}
ret = xmlDictLookup(*dict, ts, dstp - ts + 1);
xmlFree((char *) ts);
return ret;
}
/**
*** Input 8-bit character string parameter.
**/
const xmlChar *
xmlTranscodeString(const char * s, const char * encoding, xmlDictPtr * dict)
{
if (!s)
return (const xmlChar *) NULL;
return inTranscode(s, xmlStrlen(s), encoding, dict);
}
/**
*** Input 16-bit character string parameter.
**/
const xmlChar *
xmlTranscodeWString(const char * s, const char * encoding, xmlDictPtr * dict)
{
size_t i;
if (!s)
return (const xmlChar *) NULL;
for (i = 0; s[i] && s[i + 1]; i += 2)
;
return inTranscode(s, i, encoding, dict);
}
/**
*** Input 32-bit character string parameter.
**/
const xmlChar *
xmlTranscodeHString(const char * s, const char * encoding, xmlDictPtr * dict)
{
size_t i;
if (!s)
return (const xmlChar *) NULL;
for (i = 0; s[i] && s[i + 1] && s[i + 2] && s[i + 3]; i += 4)
;
return inTranscode(s, i, encoding, dict);
}
/**
*** vasprintf() implementation with result transcoding.
**/
const char *
xmlVasprintf(xmlDictPtr * dict, const char * encoding,
const xmlChar * fmt, va_list args)
{
char * s = NULL;
vasprintf(&s, fmt, args);
return xmlTranscodeResult((const xmlChar *) s, encoding, dict, free);
}

43
os400/transcode.h
View File

@ -1,43 +0,0 @@
/**
*** Transcoding support declarations.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#ifndef _TRANSCODE_H_
#define _TRANSCODE_H_
#include <stdarg.h>
#include <libxml/dict.h>
XMLPUBFUN void xmlZapDict(xmlDictPtr * dict);
XMLPUBFUN const char * xmlTranscodeResult(const xmlChar * s,
const char * encoding, xmlDictPtr * dict,
void (*freeproc)(const void *));
XMLPUBFUN const xmlChar * xmlTranscodeString(const char * s,
const char * encoding, xmlDictPtr * dict);
XMLPUBFUN const xmlChar * xmlTranscodeWString(const char * s,
const char * encoding, xmlDictPtr * dict);
XMLPUBFUN const xmlChar * xmlTranscodeHString(const char * s,
const char * encoding, xmlDictPtr * dict);
#ifndef XML_NO_SHORT_NAMES
/**
*** Since the above functions are generally called "inline" (i.e.: several
*** times nested in a single expression), define shorthand names
*** to minimize calling statement length.
**/
#define xmlTR xmlTranscodeResult
#define xmlTS xmlTranscodeString
#define xmlTW xmlTranscodeWString
#define xmlTH xmlTranscodeHstring
#endif
XMLPUBFUN const char * xmlVasprintf(xmlDictPtr * dict, const char * encoding,
const xmlChar * fmt, va_list args);
#endif

170
os400/wrappers.c
View File

@ -1,170 +0,0 @@
/**
*** UTF-8/EBCDIC wrappers to system and C library procedures.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <sys/types.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <stdlib.h>
#include <dlfcn.h>
#include <netdb.h>
#include <errno.h>
#include "config.h"
#include "libxml/xmlmemory.h"
#include "transcode.h"
static const char * lxdles = NULL;
int
_lx_getaddrinfo(const char * node, const char * service,
const struct addrinfo * hints, struct addrinfo * * res)
{
xmlDictPtr d = NULL;
int i;
i = getaddrinfo(xmlTranscodeResult(node, NULL, &d, NULL),
xmlTranscodeResult(service, NULL, &d, NULL), hints, res);
xmlZapDict(&d);
return i;
}
const char *
_lx_inet_ntop(int af, const void * src, char * dst, socklen_t size)
{
const char * cp1 = inet_ntop(af, src, dst, size);
char const * cp2;
int i;
if (!cp1)
return cp1;
if (!(cp2 = xmlTranscodeString(cp1, NULL, NULL)))
return cp2;
i = strlen(cp2);
if (i >= size) {
xmlFree((char *) cp2);
errno = ENOSPC;
return (const char *) NULL;
}
memcpy(dst, cp2, i + 1);
xmlFree((char *) cp2);
return dst;
}
void *
_lx_dlopen(const char * filename, int flag)
{
xmlDictPtr d = NULL;
void * result;
result = dlopen(xmlTranscodeResult(filename, NULL, &d, NULL), flag);
xmlZapDict(&d);
return result;
}
void *
_lx_dlsym(void * handle, const char * symbol)
{
xmlDictPtr d = NULL;
void * result;
result = dlsym(handle, xmlTranscodeResult(symbol, NULL, &d, NULL));
xmlZapDict(&d);
return result;
}
char *
_lx_dlerror(void)
{
char * cp1 = (char *) dlerror();
if (!cp1)
return cp1;
if (lxdles)
xmlFree((char *) lxdles);
lxdles = (const char *) xmlTranscodeString(cp1, NULL, NULL);
return (char *) lxdles;
}
#ifdef LIBXML_ZLIB_ENABLED
#include <zlib.h>
gzFile
_lx_gzopen(const char * path, const char * mode)
{
xmlDictPtr d = NULL;
gzFile f;
f = gzopen(xmlTranscodeResult(path, NULL, &d, NULL),
xmlTranscodeResult(mode, NULL, &d, NULL));
xmlZapDict(&d);
return f;
}
gzFile
_lx_gzdopen(int fd, const char * mode)
{
xmlDictPtr d = NULL;
gzFile f;
f = gzdopen(fd, xmlTranscodeResult(mode, NULL, &d, NULL));
xmlZapDict(&d);
return f;
}
int
_lx_inflateInit2_(z_streamp strm, int windowBits,
const char * version, int stream_size)
{
xmlDictPtr d = NULL;
int r;
r = inflateInit2_(strm, windowBits,
xmlTranscodeResult(version, NULL, &d, NULL), stream_size);
xmlZapDict(&d);
return r;
}
int
_lx_deflateInit2_(z_streamp strm, int level, int method, int windowBits,
int memLevel, int strategy, const char * version, int stream_size)
{
xmlDictPtr d = NULL;
int r;
r = deflateInit2_(strm, level, method, windowBits, memLevel, strategy,
xmlTranscodeResult(version, NULL, &d, NULL), stream_size);
xmlZapDict(&d);
return r;
}
#endif

70
os400/wrappers.h
View File

@ -1,70 +0,0 @@
/**
*** Replace system/C library calls by EBCDIC wrappers.
*** This is a layer inserted between libxml2 itself and the EBCDIC
*** environment.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#ifndef __WRAPPERS_H_
#define __WRAPPERS_H_
/**
*** OS/400 specific defines.
**/
#define __cplusplus__strings__
/**
*** Force header inclusions before renaming procedures to UTF-8 wrappers.
**/
#include <sys/types.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <netdb.h>
#include "dlfcn.h"
/**
*** UTF-8 wrappers prototypes.
**/
extern int _lx_getaddrinfo(const char * node, const char * service,
const struct addrinfo * hints, struct addrinfo * * res);
extern const char *
_lx_inet_ntop(int af,
const void * src, char * dst, socklen_t size);
extern void * _lx_dlopen(const char * filename, int flag);
extern void * _lx_dlsym(void * handle, const char * symbol);
extern char * _lx_dlerror(void);
#ifdef LIBXML_ZLIB_ENABLED
#include <zlib.h>
extern gzFile _lx_gzopen(const char * path, const char * mode);
extern gzFile _lx_gzdopen(int fd, const char * mode);
#endif
/**
*** Rename data/procedures to UTF-8 wrappers.
**/
#define getaddrinfo _lx_getaddrinfo
#define inet_ntop _lx_inet_ntop
#define dlopen _lx_dlopen
#define dlsym _lx_dlsym
#define dlerror _lx_dlerror
#define gzopen _lx_gzopen
#define gzdopen _lx_gzdopen
#define inflateInit2_ _lx_inflateInit2_
#define deflateInit2_ _lx_deflateInit2_
#endif

112
os400/xmlcatalog.cmd
View File

@ -1,112 +0,0 @@
/* XMLCATALOG CL command. */
/* */
/* See Copyright for the status of this software. */
/* */
/* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A. */
/* Interface to program XMLCATLGCL */
CMD PROMPT('XML/SGML catalog tool')
/* Catalog file path. */
PARM KWD(INSTMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MIN(1) SPCVAL((*NEW '')) +
CHOICE('Stream file path') +
PROMPT('XML/SGML catalog file')
/* Catalog kind: XML/SGML. */
PARM KWD(KIND) TYPE(*CHAR) LEN(7) VARY(*YES *INT2) +
EXPR(*YES) RSTD(*YES) DFT(*XML) +
SPCVAL((*XML '') (*SGML '--sgml')) +
PROMPT('Catalog kind')
/* Output file. */
PARM KWD(OUTSTMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) DFT(*STDOUT) +
SPCVAL((*STDOUT '') (*INSTMF X'00')) +
CHOICE('*STDOUT, *INSTMF or file path') +
PROMPT('Output stream file path')
/* Convert SGML to XML catalog. */
PARM KWD(CONVERT) TYPE(*CHAR) LEN(10) VARY(*YES *INT2) +
RSTD(*YES) SPCVAL((*YES '--convert') (*NO '')) +
EXPR(*YES) DFT(*NO) PMTCTL(TYPEXML) +
PROMPT('Convert SGML to XML catalog')
/* SGML super catalog update. */
PARM KWD(SUPERUPD) TYPE(*CHAR) LEN(17) VARY(*YES *INT2) +
SPCVAL((*YES '') (*NO '--no-super-update')) +
EXPR(*YES) DFT(*YES) RSTD(*YES) PMTCTL(TYPESGML) +
PROMPT('Update the SGML super catalog')
/* Verbose/debug output. */
PARM KWD(VERBOSE) TYPE(*CHAR) LEN(4) VARY(*YES *INT2) +
RSTD(*YES) SPCVAL((*YES '-v') (*NO '')) +
EXPR(*YES) DFT(*NO) +
PROMPT('Output debugging information')
/* Interactive shell not supported. */
/* Values to delete. */
PARM KWD(DELETE) TYPE(*PNAME) LEN(256) VARY(*YES *INT2) +
CASE(*MIXED) MAX(64) EXPR(*YES) +
CHOICE('Identifier value') +
PROMPT('Delete System/URI identifier')
/* Values to add. */
PARM KWD(ADD) TYPE(XMLELEM) MAX(10) PMTCTL(TYPEXML) +
PROMPT('Add definition')
XMLELEM: ELEM TYPE(*CHAR) LEN(16) VARY(*YES *INT2) DFT(*PUBLIC) +
PROMPT('Entry type') +
EXPR(*YES) RSTD(*YES) SPCVAL( +
(*PUBLIC 'public') +
(*SYSTEM 'system') +
(*URI 'uri') +
(*REWRITESYSTEM 'rewriteSystem') +
(*REWRITEURI 'rewriteURI') +
(*DELEGATEPUBLIC 'delegatePublic') +
(*DELEGATESYSTEM 'delegateSystem') +
(*DELEGATEURI 'delegateURI') +
(*NEXTCATALOG 'nextCatalog') +
)
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('Original reference/file name')
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('Replacement entity URI')
PARM KWD(SGMLADD) TYPE(SGMLELEM) MAX(10) +
PMTCTL(TYPESGML) PROMPT('Add SGML definition')
SGMLELEM: ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('SGML catalog file name')
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('SGML definition')
/* Entities to resolve. */
PARM KWD(ENTITY) TYPE(*PNAME) LEN(256) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MAX(150) +
PROMPT('Resolve entity')
/* Additional catalog files. */
PARM KWD(CATALOG) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MAX(150) DFT(*DEFAULT) +
CHOICE('Catalog stream file path') +
PROMPT('Additional catalog file') SPCVAL( +
(*DEFAULT '/etc/xml/catalog') +
(*NONE '') +
)
/* Conditional prompting. */
TYPEXML: PMTCTL CTL(KIND) COND((*EQ ''))
TYPESGML: PMTCTL CTL(KIND) COND((*NE ''))

288
os400/xmlcatlgcl.c
View File

@ -1,288 +0,0 @@
/**
*** XMLCATALOG command response program.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <qshell.h>
/* Variable-length string, with 16-bit length. */
typedef struct {
short len;
char string[5000];
} vary2;
/* Variable-length string, with 32-bit length. */
typedef struct {
int len;
char string[5000];
} vary4;
/* Multiple occurrence parameter list. */
#define paramlist(itemsize, itemtype) \
_Packed struct { \
short len; \
_Packed union { \
char _pad[itemsize]; \
itemtype param; \
} item[1]; \
}
/* Add element list structure. */
typedef struct {
short elcount; /* Element count (=3). */
paramlist(16, char) type; /* vary2(16). */
paramlist(256, char) origin; /* vary2(256). */
paramlist(256, char) replace; /* vary2(256). */
} addelement;
/* SGML add element list structure. */
typedef struct {
short elcount; /* Element count (=3). */
paramlist(256, char) catalog; /* vary2(256). */
paramlist(256, char) ident; /* vary2(256). */
} sgmladdelement;
/* Arguments from CL command. */
typedef struct {
char * pgm; /* Program name. */
vary2 * instmf; /* Input catalog file name. */
vary2 * kind; /* Catalog kind. */
vary2 * outstmf; /* Output catalog file name. */
vary2 * convert; /* Convert SGML to XML. */
vary2 * superupd; /* --no-super-update. */
vary2 * verbose; /* Verbose output. */
paramlist(256 + 2, vary2) * delete; /* Identifiers to delete. */
paramlist(2, unsigned short) * add; /* Items to add. */
paramlist(2, unsigned short) * sgmladd; /* SGML items to add. */
paramlist(256 + 2, vary2) * resolve; /* Identifiers to resolve. */
paramlist(5000 + 2, vary2) * catalog; /* Additional catalog files. */
} arguments;
/* Definition of QSHELL program. */
extern void qshell(vary4 * cmd);
#pragma linkage(qshell, OS)
#pragma map(qshell, "QSHELL/QZSHQSHC")
/* Macro to handle displacements. */
#define OFFSETBY(t, p, n) ((t *) (((char *) (p)) + (n)))
static void
vary4nappend(vary4 * dst, const char * src, size_t len)
{
if (len > sizeof(dst->string) - dst->len)
len = sizeof(dst->string) - dst->len;
if (len) {
memcpy(dst->string + dst->len, src, len);
dst->len += len;
}
}
static void
vary4append(vary4 * dst, const char * src)
{
vary4nappend(dst, src, strlen(src));
}
static void
vary4arg(vary4 * dst, const char * arg)
{
vary4nappend(dst, " ", 1);
vary4append(dst, arg);
}
static void
vary4varg(vary4 * dst, vary2 * arg)
{
vary4nappend(dst, " ", 1);
vary4nappend(dst, arg->string, arg->len);
}
static void
vary4vescape(vary4 * dst, vary2 * arg)
{
int i;
for (i = 0; i < arg->len; i++)
if (arg->string[i] == '\'')
vary4nappend(dst, "'\"'\"'", 5);
else
vary4nappend(dst, arg->string + i, 1);
}
static void
vary4vargquote(vary4 * dst, vary2 * arg)
{
vary4nappend(dst, " '", 2);
vary4vescape(dst, arg);
vary4nappend(dst, "'", 1);
}
int
main(int argsc, arguments * args)
{
vary4 cmd;
int i;
char c;
addelement * aelp;
sgmladdelement * saelp;
/* Specify additional catalogs. */
cmd.len = 0;
if (args->catalog->len) {
for (i = 0; i < args->catalog->len &&
!args->catalog->item[i].param.len; i++)
;
vary4append(&cmd, "XML_CATALOG_FILES=");
if (i < args->catalog->len) {
c = '\'';
for (i = 0; i < args->catalog->len; i++) {
if (!args->catalog->item[i].param.len)
continue;
vary4nappend(&cmd, &c, 1);
c = ' ';
vary4vescape(&cmd,
&args->catalog->item[i].param);
}
vary4nappend(&cmd, "'", 1);
}
vary4nappend(&cmd, " ", 1);
}
/* find length of library name. */
for (i = 0; i < 10 && args->pgm[i] && args->pgm[i] != '/'; i++)
;
/* Store program name in command buffer. */
vary4append(&cmd, "/QSYS.LIB/");
vary4nappend(&cmd, args->pgm, i);
vary4append(&cmd, ".LIB/XMLCATALOG.PGM");
/* Map command arguments to standard xmlcatalog argument vector. */
if (args->kind && args->kind->len)
vary4varg(&cmd, args->kind);
if (args->verbose && args->verbose->len)
vary4varg(&cmd, args->verbose);
if (args->delete)
for (i = 0; i < args->delete->len; i++) {
vary4arg(&cmd, "--del");
vary4vargquote(&cmd, &args->delete->item[i].param);
}
if (args->kind && args->kind->len) {
/* Process SGML-specific parameters. */
if (args->superupd && args->superupd->len)
vary4varg(&cmd, args->superupd);
if (args->sgmladd)
for (i = 0; i < args->sgmladd->len; i++) {
saelp = OFFSETBY(sgmladdelement, args->sgmladd,
args->sgmladd->item[i].param);
if (!((vary2 *) &saelp->catalog)->len)
continue;
vary4arg(&cmd, "--add");
vary4vargquote(&cmd, (vary2 *) &saelp->catalog);
vary4vargquote(&cmd, (vary2 *) &saelp->ident);
}
}
else {
/* Process XML-specific parameters. */
if (args->convert && args->convert->len)
vary4varg(&cmd, args->convert);
if (args->add)
for (i = 0; i < args->add->len; i++) {
aelp = OFFSETBY(addelement, args->add,
args->add->item[i].param);
if (!((vary2 *) &aelp->origin)->len)
continue;
vary4arg(&cmd, "--add");
vary4varg(&cmd, (vary2 *) &aelp->type);
vary4vargquote(&cmd, (vary2 *) &aelp->origin);
vary4vargquote(&cmd, (vary2 *) &aelp->replace);
}
}
/* Avoid INSTMF(*NEW) and OUTSMTF(*INSTMF). */
if (args->outstmf && args->outstmf->len && !args->outstmf->string[0])
if (args->instmf && args->instmf->len)
args->outstmf = args->instmf;
else
args->outstmf = NULL;
/* If INSTMF(*NEW) and OUTSTMF(somepath), Use --create --noout and
somepath as (unexisting) input file. */
if (args->outstmf && args->outstmf->len)
if (!args->instmf || !args->instmf->len) {
vary4arg(&cmd, "--create");
vary4arg(&cmd, "--noout");
args->instmf = args->outstmf;
args->outstmf = NULL;
}
/* If output to input file, use --noout option. */
if (args->instmf && args->outstmf && args->instmf->len &&
args->instmf->len == args->outstmf->len &&
!strncmp(args->instmf->string, args->outstmf->string,
args->instmf->len)) {
vary4arg(&cmd, "--noout");
args->outstmf = NULL;
}
/* If no input file create catalog, else specify the input file name. */
/* Specify the input file name: my be a dummy one. */
if (!args->instmf || !args->instmf->len) {
vary4arg(&cmd, "--create -");
vary4arg(&cmd, ".dmyxmlcatalog");
}
else {
vary4arg(&cmd, "-");
vary4vargquote(&cmd, args->instmf);
}
/* Query entities. */
if (args->resolve)
for (i = 0; i < args->resolve->len; i++)
vary4vargquote(&cmd, &args->resolve->item[i].param);
/* Redirect output if requested. */
if (args->outstmf && args->outstmf->len) {
vary4arg(&cmd, ">");
vary4vargquote(&cmd, args->outstmf);
}
/* Execute the shell command. */
qshell(&cmd);
/* Terminate. */
exit(0);
}

146
os400/xmllint.cmd
View File

@ -1,146 +0,0 @@
/* XMLLINT CL command. */
/* */
/* See Copyright for the status of this software. */
/* */
/* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A. */
/* Interface to program XMLLINTCL */
CMD PROMPT('XML tool')
/* XML input file location. */
PARM KWD(STMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MIN(1) +
CHOICE('Stream file path') +
PROMPT('XML Stream file')
/* DTD location. */
PARM KWD(DTD) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
CHOICE('ID, URL or stream file path') +
PROMPT('DTD id, URL or file path')
PARM KWD(DTDLOCATOR) TYPE(*CHAR) LEN(8) DFT(*DTDURL) +
SPCVAL(*DTDURL *DTDFPI) EXPR(*YES) RSTD(*YES) +
PROMPT('DTD locator is URL/FPI')
/* Schema location. */
PARM KWD(SCHEMA) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
CHOICE('URL or stream file path') +
PROMPT('Schema URL or stream file path')
PARM KWD(SCHEMAKIND) TYPE(*CHAR) LEN(12) VARY(*YES *INT2) +
RSTD(*YES) DFT(*XSD) +
PROMPT('Validating schema kind') +
CHOICE('Keyword') SPCVAL( +
(*XSD '--schema') +
(*RELAXNG '--relaxng') +
(*SCHEMATRON '--schematron') +
)
/* Output location. */
PARM KWD(OUTSTMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
CHOICE('Stream file path') +
PROMPT('Output stream file path')
/* Other parameters with arguments. */
PARM KWD(XPATH) TYPE(*CHAR) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
CHOICE('XPath expression') +
PROMPT('XPath filter')
PARM KWD(PATTERN) TYPE(*CHAR) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
CHOICE('Reader pattern') +
PROMPT('Reader node filter')
/* Paths for resources. */
PARM KWD(PATH) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MAX(64) +
CHOICE('IFS directory path') +
PROMPT('Path for resources')
PARM KWD(PRETTY) TYPE(*CHAR) LEN(11) VARY(*YES *INT2) +
RSTD(*YES) DFT(*NONE) +
PROMPT('Pretty-print style') +
CHOICE('Keyword') SPCVAL( +
(*NONE '0') +
(*FORMAT '1') +
(*WHITESPACE '2') +
)
PARM KWD(MAXMEM) TYPE(*UINT4) EXPR(*YES) DFT(0) +
CHOICE('Number of bytes') +
PROMPT('Maximum dynamic memory')
PARM KWD(ENCODING) TYPE(*CHAR) LEN(32) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) PASSVAL(*NULL) +
PMTCTL(ENCODING) CHOICE('Encoding name') +
PROMPT('Output character encoding')
ENCODING: PMTCTL CTL(OUTSTMF) COND(*SPCFD)
/* Boolean options. */
/* --shell is not supported from command mode. */
PARM KWD(OPTIONS) TYPE(*CHAR) LEN(20) VARY(*YES *INT2) +
MAX(50) RSTD(*YES) PROMPT('Options') +
CHOICE('Keyword') SPCVAL( +
(*VERSION '--version') +
(*DEBUG '--debug') +
(*DEBUGENT '--debugent') +
(*COPY '--copy') +
(*RECOVER '--recover') +
(*HUGE '--huge') +
(*NOENT '--noent') +
(*NOENC '--noenc') +
(*NOOUT '--noout') +
(*LOADTRACE '--load-trace') +
(*NONET '--nonet') +
(*NOCOMPACT '--nocompact') +
(*HTMLOUT '--htmlout') +
(*NOWRAP '--nowrap') +
(*VALID '--valid') +
(*POSTVALID '--postvalid') +
(*TIMING '--timing') +
(*REPEAT '--repeat') +
(*INSERT '--insert') +
(*COMPRESS '--compress') +
(*HTML '--html') +
(*XMLOUT '--xmlout') +
(*NODEFDTD '--nodefdtd') +
(*PUSH '--push') +
(*PUSHSMALL '--pushsmall') +
(*MEMORY '--memory') +
(*NOWARNING '--nowarning') +
(*NOBLANKS '--noblanks') +
(*NOCDATA '--nocdata') +
(*FORMAT '--format') +
(*DROPDTD '--dropdtd') +
(*NSCLEAN '--nsclean') +
(*TESTIO '--testIO') +
(*CATALOGS '--catalogs') +
(*NOCATALOGS '--nocatalogs') +
(*AUTO '--auto') +
(*XINCLUDE '--xinclude') +
(*NOXINCLUDENODE '--noxincludenode') +
(*NOFIXUPBASEURIS '--nofixup-base-uris') +
(*LOADDTD '--loaddtd') +
(*DTDATTR '--dtdattr') +
(*STREAM '--stream') +
(*WALKER '--walker') +
(*CHKREGISTER '--chkregister') +
(*C14N '--c14n') +
(*C14N11 '--c14n11') +
(*EXCC14N '--exc-c14n') +
(*SAX1 '--sax1') +
(*SAX '--sax') +
(*OLDXML10 '--oldxml10') +
)

216
os400/xmllintcl.c
View File

@ -1,216 +0,0 @@
/**
*** XMLLINT command response program.
***
*** See Copyright for the status of this software.
***
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
**/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <qshell.h>
/* Variable-length string, with 16-bit length. */
typedef struct {
short len;
char string[5000];
} vary2;
/* Variable-length string, with 32-bit length. */
typedef struct {
int len;
char string[5000];
} vary4;
/* Multiple occurrence parameter list. */
#define paramlist(itemsize, itemtype) \
_Packed struct { \
short len; \
union { \
char _pad[itemsize]; \
itemtype param; \
} item[1]; \
}
/* Arguments from CL command. */
typedef struct {
char * pgm; /* Program name. */
vary2 * stmf; /* XML file name or URL. */
vary2 * dtd; /* DTD location or public identifier. */
char * dtdvalid; /* *DTDURL or *DTDFPI. */
vary2 * schema; /* Schema file name or URL. */
vary2 * schemakind; /* --schema/--relaxng/--schematron. */
vary2 * outstmf; /* Output stream file name. */
vary2 * xpath; /* XPath filter. */
vary2 * pattern; /* Reader filter pattern. */
paramlist(5000 + 2, vary2) * path; /* Path for resources. */
vary2 * pretty; /* Pretty-print style. */
unsigned long * maxmem; /* Maximum dynamic memory. */
vary2 * encoding; /* Output encoding. */
paramlist(20 + 2, vary2) * options; /* Other options. */
} arguments;
/* Definition of QSHELL program. */
extern void qshell(vary4 * cmd);
#pragma linkage(qshell, OS)
#pragma map(qshell, "QSHELL/QZSHQSHC")
static void
vary4nappend(vary4 * dst, const char * src, size_t len)
{
if (len > sizeof(dst->string) - dst->len)
len = sizeof(dst->string) - dst->len;
if (len) {
memcpy(dst->string + dst->len, src, len);
dst->len += len;
}
}
static void
vary4append(vary4 * dst, const char * src)
{
vary4nappend(dst, src, strlen(src));
}
static void
vary4arg(vary4 * dst, const char * arg)
{
vary4nappend(dst, " ", 1);
vary4append(dst, arg);
}
static void
vary4varg(vary4 * dst, vary2 * arg)
{
vary4nappend(dst, " ", 1);
vary4nappend(dst, arg->string, arg->len);
}
static void
vary4vescape(vary4 * dst, vary2 * arg)
{
int i;
for (i = 0; i < arg->len; i++)
if (arg->string[i] == '\'')
vary4nappend(dst, "'\"'\"'", 5);
else
vary4nappend(dst, arg->string + i, 1);
}
static void
vary4vargquote(vary4 * dst, vary2 * arg)
{
vary4nappend(dst, " '", 2);
vary4vescape(dst, arg);
vary4nappend(dst, "'", 1);
}
int
main(int argsc, arguments * args)
{
vary4 cmd;
int i;
char textbuf[20];
char * lang;
/* find length of library name. */
for (i = 0; i < 10 && args->pgm[i] && args->pgm[i] != '/'; i++)
;
/* Store program name in command buffer. */
cmd.len = 0;
vary4append(&cmd, "/QSYS.LIB/");
vary4nappend(&cmd, args->pgm, i);
vary4append(&cmd, ".LIB/XMLLINT.PGM");
/* Map command arguments to standard xmllint argument vector. */
if (args->dtd && args->dtd->len) {
if (args->dtdvalid && args->dtdvalid[4] == 'F')
vary4arg(&cmd, "--dtdvalidfpi");
else
vary4arg(&cmd, "--dtdvalid");
vary4vargquote(&cmd, args->dtd);
}
if (args->schema && args->schema->len) {
vary4varg(&cmd, args->schemakind);
vary4vargquote(&cmd, args->schema);
}
if (args->outstmf && args->outstmf->len) {
vary4arg(&cmd, "--output");
vary4vargquote(&cmd, args->outstmf);
if (args->encoding && args->encoding->len) {
vary4arg(&cmd, "--encoding");
vary4vargquote(&cmd, args->encoding);
}
}
if (args->xpath && args->xpath->len) {
vary4arg(&cmd, "--xpath");
vary4vargquote(&cmd, args->xpath);
}
if (args->pattern && args->pattern->len) {
vary4arg(&cmd, "--pattern");
vary4vargquote(&cmd, args->pattern);
}
if (args->path && args->path->len) {
vary4arg(&cmd, "--path '");
vary4vescape(&cmd, &args->path->item[0].param);
for (i = 1; i < args->path->len; i++) {
vary4nappend(&cmd, ":", 1);
vary4vescape(&cmd, &args->path->item[i].param);
}
vary4nappend(&cmd, "'", 1);
}
if (args->pretty && args->pretty->len &&
args->pretty->string[0] != '0') {
vary4arg(&cmd, "--pretty");
vary4varg(&cmd, args->pretty);
}
if (args->maxmem && *args->maxmem) {
snprintf(textbuf, sizeof textbuf, "%lu", *args->maxmem);
vary4arg(&cmd, "--maxmem");
vary4arg(&cmd, textbuf);
}
for (i = 0; i < args->options->len; i++)
vary4varg(&cmd, &args->options->item[i].param);
vary4vargquote(&cmd, args->stmf);
/* Execute the shell command. */
qshell(&cmd);
/* Terminate. */
exit(0);
}