gcc/m2/mc-boot/GmcQuiet.cc

   1 /* do not edit automatically generated by mc from mcQuiet.  */
   2 /* This file is part of GNU Modula-2.
   3
   4 GNU Modula-2 is free software; you can redistribute it and/or modify it under
   5 the terms of the GNU General Public License as published by the Free
   6 Software Foundation; either version 3, or (at your option) any later
   7 version.
   8
   9 GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 for more details.
  13
  14 You should have received a copy of the GNU General Public License
  15 along with GCC; see the file COPYING3.  If not see
  16 <http://www.gnu.org/licenses/>.  */
  17
  18 #include "config.h"
  19 #include "system.h"
  20 #include <stdbool.h>
  21 #   if !defined (PROC_D)
  22 #      define PROC_D
  23        typedef void (*PROC_t) (void);
  24        typedef struct { PROC_t proc; } PROC;
  25 #   endif
  26
  27 #define _mcQuiet_C
  28
  29 #include "GmcQuiet.h"
  30 #   include "GmcOptions.h"
  31 #   include "GmcPrintf.h"
  32
  33 extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high);
  34 extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high);
  35 extern "C" void mcQuiet_qprintf2 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high);
  36 extern "C" void mcQuiet_qprintf3 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high, const unsigned char *w3_, unsigned int _w3_high);
  37 extern "C" void mcQuiet_qprintf4 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high, const unsigned char *w3_, unsigned int _w3_high, const unsigned char *w4_, unsigned int _w4_high);
  38
  39 extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high)
  40 {
  41   char a[_a_high+1];
  42
  43   /* make a local copy of each unbounded array.  */
  44   memcpy (a, a_, _a_high+1);
  45
  46   if (! (mcOptions_getQuiet ()))
  47     {
  48       mcPrintf_printf0 ((const char *) a, _a_high);
  49     }
  50 }
  51
  52 extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high)
  53 {
  54   char a[_a_high+1];
  55   unsigned char w[_w_high+1];
  56
  57   /* make a local copy of each unbounded array.  */
  58   memcpy (a, a_, _a_high+1);
  59   memcpy (w, w_, _w_high+1);
  60
  61   if (! (mcOptions_getQuiet ()))
  62     {
  63       mcPrintf_printf1 ((const char *) a, _a_high, (const unsigned char *) w, _w_high);
  64     }
  65 }
  66
  67 extern "C" void mcQuiet_qprintf2 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high)
  68 {
  69   char a[_a_high+1];
  70   unsigned char w1[_w1_high+1];
  71   unsigned char w2[_w2_high+1];
  72
  73   /* make a local copy of each unbounded array.  */
  74   memcpy (a, a_, _a_high+1);
  75   memcpy (w1, w1_, _w1_high+1);
  76   memcpy (w2, w2_, _w2_high+1);
  77
  78   if (! (mcOptions_getQuiet ()))
  79     {
  80       mcPrintf_printf2 ((const char *) a, _a_high, (const unsigned char *) w1, _w1_high, (const unsigned char *) w2, _w2_high);
  81     }
  82 }
  83
  84 extern "C" void mcQuiet_qprintf3 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high, const unsigned char *w3_, unsigned int _w3_high)
  85 {
  86   char a[_a_high+1];
  87   unsigned char w1[_w1_high+1];
  88   unsigned char w2[_w2_high+1];
  89   unsigned char w3[_w3_high+1];
  90
  91   /* make a local copy of each unbounded array.  */
  92   memcpy (a, a_, _a_high+1);
  93   memcpy (w1, w1_, _w1_high+1);
  94   memcpy (w2, w2_, _w2_high+1);
  95   memcpy (w3, w3_, _w3_high+1);
  96
  97   if (! (mcOptions_getQuiet ()))
  98     {
  99       mcPrintf_printf3 ((const char *) a, _a_high, (const unsigned char *) w1, _w1_high, (const unsigned char *) w2, _w2_high, (const unsigned char *) w3, _w3_high);
 100     }
 101 }
 102
 103 extern "C" void mcQuiet_qprintf4 (const char *a_, unsigned int _a_high, const unsigned char *w1_, unsigned int _w1_high, const unsigned char *w2_, unsigned int _w2_high, const unsigned char *w3_, unsigned int _w3_high, const unsigned char *w4_, unsigned int _w4_high)
 104 {
 105   char a[_a_high+1];
 106   unsigned char w1[_w1_high+1];
 107   unsigned char w2[_w2_high+1];
 108   unsigned char w3[_w3_high+1];
 109   unsigned char w4[_w4_high+1];
 110
 111   /* make a local copy of each unbounded array.  */
 112   memcpy (a, a_, _a_high+1);
 113   memcpy (w1, w1_, _w1_high+1);
 114   memcpy (w2, w2_, _w2_high+1);
 115   memcpy (w3, w3_, _w3_high+1);
 116   memcpy (w4, w4_, _w4_high+1);
 117
 118   if (! (mcOptions_getQuiet ()))
 119     {
 120       mcPrintf_printf4 ((const char *) a, _a_high, (const unsigned char *) w1, _w1_high, (const unsigned char *) w2, _w2_high, (const unsigned char *) w3, _w3_high, (const unsigned char *) w4, _w4_high);
 121     }
 122 }
 123
 124 extern "C" void _M2_mcQuiet_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
 125 {
 126 }
 127
 128 extern "C" void _M2_mcQuiet_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
 129 {
 130 }