gcc/m2/mc-boot/Gvarargs.h

   1 /* do not edit automatically generated by mc from varargs.  */
   2 /* varargs.def provides a basic vararg facility for GNU Modula-2.
   3
   4 Copyright (C) 2015-2023 Free Software Foundation, Inc.
   5 Contributed by Gaius Mulley <gaius@glam.ac.uk>.
   6
   7 This file is part of GNU Modula-2.
   8
   9 GNU Modula-2 is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 3, or (at your option)
  12 any later version.
  13
  14 GNU Modula-2 is distributed in the hope that it will be useful, but
  15 WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with GNU Modula-2; see the file COPYING3.  If not see
  21 <http://www.gnu.org/licenses/>.  */
  22
  23
  24 #if !defined (_varargs_H)
  25 #   define _varargs_H
  26
  27 #include "config.h"
  28 #include "system.h"
  29 #   ifdef __cplusplus
  30 extern "C" {
  31 #   endif
  32 #   if !defined (PROC_D)
  33 #      define PROC_D
  34        typedef void (*PROC_t) (void);
  35        typedef struct { PROC_t proc; } PROC;
  36 #   endif
  37
  38 #   include "GSYSTEM.h"
  39
  40 #   if defined (_varargs_C)
  41 #      define EXTERN
  42 #   else
  43 #      define EXTERN extern
  44 #   endif
  45
  46 #if !defined (varargs_vararg_D)
  47 #  define varargs_vararg_D
  48    typedef void *varargs_vararg;
  49 #endif
  50
  51
  52 /*
  53    nargs - returns the number of arguments wrapped in, v.
  54 */
  55
  56 EXTERN unsigned int varargs_nargs (varargs_vararg v);
  57
  58 /*
  59    arg - fills in, a, with the next argument.  The size of, a, must
  60          be an exact match with the original vararg parameter.
  61 */
  62
  63 EXTERN void varargs_arg (varargs_vararg v, unsigned char *a, unsigned int _a_high);
  64
  65 /*
  66    next - assigns the next arg to be collected as, i.
  67 */
  68
  69 EXTERN void varargs_next (varargs_vararg v, unsigned int i);
  70
  71 /*
  72    copy - returns a copy of, v.
  73 */
  74
  75 EXTERN varargs_vararg varargs_copy (varargs_vararg v);
  76
  77 /*
  78    replace - fills the next argument with, a.  The size of, a,
  79              must be an exact match with the original vararg
  80              parameter.
  81 */
  82
  83 EXTERN void varargs_replace (varargs_vararg v, unsigned char *a, unsigned int _a_high);
  84
  85 /*
  86    end - destructor for vararg, v.
  87 */
  88
  89 EXTERN void varargs_end (varargs_vararg *v);
  90
  91 /*
  92    start1 - wraps up argument, a, into a vararg.
  93 */
  94
  95 EXTERN varargs_vararg varargs_start1 (const unsigned char *a_, unsigned int _a_high);
  96
  97 /*
  98    start2 - wraps up arguments, a, b, into a vararg.
  99 */
 100
 101 EXTERN varargs_vararg varargs_start2 (const unsigned char *a_, unsigned int _a_high, const unsigned char *b_, unsigned int _b_high);
 102
 103 /*
 104    start3 - wraps up arguments, a, b, c, into a vararg.
 105 */
 106
 107 EXTERN varargs_vararg varargs_start3 (const unsigned char *a_, unsigned int _a_high, const unsigned char *b_, unsigned int _b_high, const unsigned char *c_, unsigned int _c_high);
 108
 109 /*
 110    start4 - wraps up arguments, a, b, c, d, into a vararg.
 111 */
 112
 113 EXTERN varargs_vararg varargs_start4 (const unsigned char *a_, unsigned int _a_high, const unsigned char *b_, unsigned int _b_high, const unsigned char *c_, unsigned int _c_high, const unsigned char *d_, unsigned int _d_high);
 114 #   ifdef __cplusplus
 115 }
 116 #   endif
 117
 118 #   undef EXTERN
 119 #endif