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-2024 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 #include <stdbool.h>
  33 #   if !defined (PROC_D)
  34 #      define PROC_D
  35        typedef void (*PROC_t) (void);
  36        typedef struct { PROC_t proc; } PROC;
  37 #   endif
  38
  39 #   include "GSYSTEM.h"
  40
  41 #   if defined (_varargs_C)
  42 #      define EXTERN
  43 #   else
  44 #      define EXTERN extern
  45 #   endif
  46
  47 #if !defined (varargs_vararg_D)
  48 #  define varargs_vararg_D
  49    typedef void *varargs_vararg;
  50 #endif
  51
  52
  53 /*
  54    nargs - returns the number of arguments wrapped in, v.
  55 */
  56
  57 EXTERN unsigned int varargs_nargs (varargs_vararg v);
  58
  59 /*
  60    arg - fills in, a, with the next argument.  The size of, a, must
  61          be an exact match with the original vararg parameter.
  62 */
  63
  64 EXTERN void varargs_arg (varargs_vararg v, unsigned char *a, unsigned int _a_high);
  65
  66 /*
  67    next - assigns the next arg to be collected as, i.
  68 */
  69
  70 EXTERN void varargs_next (varargs_vararg v, unsigned int i);
  71
  72 /*
  73    copy - returns a copy of, v.
  74 */
  75
  76 EXTERN varargs_vararg varargs_copy (varargs_vararg v);
  77
  78 /*
  79    replace - fills the next argument with, a.  The size of, a,
  80              must be an exact match with the original vararg
  81              parameter.
  82 */
  83
  84 EXTERN void varargs_replace (varargs_vararg v, unsigned char *a, unsigned int _a_high);
  85
  86 /*
  87    end - destructor for vararg, v.
  88 */
  89
  90 EXTERN void varargs_end (varargs_vararg *v);
  91
  92 /*
  93    start1 - wraps up argument, a, into a vararg.
  94 */
  95
  96 EXTERN varargs_vararg varargs_start1 (const unsigned char *a_, unsigned int _a_high);
  97
  98 /*
  99    start2 - wraps up arguments, a, b, into a vararg.
 100 */
 101
 102 EXTERN varargs_vararg varargs_start2 (const unsigned char *a_, unsigned int _a_high, const unsigned char *b_, unsigned int _b_high);
 103
 104 /*
 105    start3 - wraps up arguments, a, b, c, into a vararg.
 106 */
 107
 108 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);
 109
 110 /*
 111    start4 - wraps up arguments, a, b, c, d, into a vararg.
 112 */
 113
 114 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);
 115 #   ifdef __cplusplus
 116 }
 117 #   endif
 118
 119 #   undef EXTERN
 120 #endif