diff options
| author | Aron Xu <aron@debian.org> | 2015-09-21 22:58:06 +0800 |
|---|---|---|
| committer | Aron Xu <aron@debian.org> | 2015-09-21 22:58:06 +0800 |
| commit | 2ee13d9e464a1f5daccaff58f5d09d36b7c4f667 (patch) | |
| tree | b022967f880b7fb1e56c8cc4c3f200d6ffbc9efd /os400/libxmlrpg/xmlstdarg.rpgle | |
| parent | 7300193becde71a344c8ac0973dc290fa24d800d (diff) | |
| download | libxml2-upstream.tar.gz | |
Revert "Imported Upstream version 2.9.1+dfsg1"upstream
This reverts commit 7300193becde71a344c8ac0973dc290fa24d800d.
Diffstat (limited to 'os400/libxmlrpg/xmlstdarg.rpgle')
| -rw-r--r-- | os400/libxmlrpg/xmlstdarg.rpgle | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/os400/libxmlrpg/xmlstdarg.rpgle b/os400/libxmlrpg/xmlstdarg.rpgle new file mode 100644 index 0000000..4e6f121 --- /dev/null +++ b/os400/libxmlrpg/xmlstdarg.rpgle @@ -0,0 +1,34 @@ + * 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" + + * The va_list object. + + d xmlVaList ds based(######typedef######) + d align qualified + d current * + d next * + + * Procedures. + + d xmlVaStart pr extproc('__xmlVaStart') + d list like(xmlVaList) + d lastargaddr * value + d lastargsize 10u 0 value + + d xmlVaArg pr * extproc('__xmlVaArg') + d list like(xmlVaList) + d dest * value + d argsize 10i 0 value + + d xmlVaEnd pr extproc('__xmlVaEnd') + d list like(xmlVaList) + + /endif XML_STDARG_H__ |