os400/libxmlrpg/xmlstdarg.rpgle

   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')
  22      d  list                               like(xmlVaList)
  23      d  lastargaddr                    *   value
  24      d  lastargsize                  10u 0 value
  25
  26      d xmlVaArg        pr              *   extproc('__xmlVaArg')
  27      d  list                               like(xmlVaList)
  28      d  dest                           *   value
  29      d  argsize                      10i 0 value
  30
  31      d xmlVaEnd        pr                  extproc('__xmlVaEnd')
  32      d  list                               like(xmlVaList)
  33
  34       /endif                                                                    XML_STDARG_H__