| 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" |
| 11 | |
| 12 | * The va_list object. |
| 13 | |
| 14 | d xmlVaList ds based(######typedef######) |
| 15 | d align qualified |
| 16 | d current * |
| 17 | d next * |
| 18 | |
| 19 | * Procedures. |
| 20 | |
| 21 | d xmlVaStart pr extproc('__xmlVaStart') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame^] | 22 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 23 | d lastargaddr * value |
| 24 | d lastargsize 10u 0 value |
| 25 | |
| 26 | d xmlVaArg pr * extproc('__xmlVaArg') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame^] | 27 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 28 | d dest * value |
| 29 | d argsize 10i 0 value |
| 30 | |
| 31 | d xmlVaEnd pr extproc('__xmlVaEnd') |
| Patrick Monnerat | 22b0415 | 2015-04-16 16:04:06 +0800 | [diff] [blame^] | 32 | d list likeds(xmlVaList) |
| Patrick Monnerat | e083c30 | 2014-03-04 17:18:26 +0100 | [diff] [blame] | 33 | |
| 34 | /endif XML_STDARG_H__ |