| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 1 | * Summary: va_list support for ILE/RPG. |
| 2 | * |
| 3 | * Copy: See Copyright for the status of this software. |
| 4 | * |
| 5 | * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A. |
| 6 | |
| 7 | /if not defined(XML_STDARG_H__) |
| 8 | /define XML_STDARG_H__ |
| 9 | |
| 10 | /include "libxmlrpg/xmlversion" |
| Patrick Monnerat | 26202cf | 2015-04-01 15:39:45 +0200 | [diff] [blame] | 11 | /include "libxmlrpg/xmlTypesC" |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 12 | |
| 13 | * The va_list object. |
| 14 | |
| 15 | d xmlVaList ds based(######typedef######) |
| 16 | d align qualified |
| 17 | d current * |
| 18 | d next * |
| 19 | |
| 20 | * Procedures. |
| 21 | |
| 22 | d xmlVaStart pr extproc('__xmlVaStart') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame] | 23 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 24 | d lastargaddr * value |
| Patrick Monnerat | 26202cf | 2015-04-01 15:39:45 +0200 | [diff] [blame] | 25 | d lastargsize value like(xmlCsize_t) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 26 | |
| 27 | d xmlVaArg pr * extproc('__xmlVaArg') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame] | 28 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 29 | d dest * value |
| Patrick Monnerat | 26202cf | 2015-04-01 15:39:45 +0200 | [diff] [blame] | 30 | d argsize value like(xmlCsize_t) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 31 | |
| 32 | d xmlVaEnd pr extproc('__xmlVaEnd') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame] | 33 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 34 | |
| 35 | /endif XML_STDARG_H__ |