From 35a201cc8ef0c3f5b2df88d2e528aabee1048348 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 30 Apr 2021 18:47:09 +0200 Subject: Initial/Final commit --- libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle | 35 ++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle (limited to 'libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle') diff --git a/libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle b/libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle new file mode 100644 index 0000000..3c8e200 --- /dev/null +++ b/libxml2-2.9.10/os400/libxmlrpg/xmlstdarg.rpgle @@ -0,0 +1,35 @@ + * Summary: va_list support for ILE/RPG. + * + * Copy: See Copyright for the status of this software. + * + * Author: Patrick Monnerat , 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__ -- cgit v1.2.3