gcc/m2/mc-boot/GmcQuiet.c

   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 along
  15 with gm2; see the file COPYING.  If not, write to the Free Software
  16 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  17
  18 #include "config.h"
  19 #include "system.h"
  20 #   if !defined (PROC_D)
  21 #      define PROC_D
  22        typedef void (*PROC_t) (void);
  23        typedef struct { PROC_t proc; } PROC;
  24 #   endif
  25
  26 #define _mcQuiet_H
  27 #define _mcQuiet_C
  28
  29 #   include "GmcOptions.h"
  30 #   include "GmcPrintf.h"
  31
  32 extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high);
  33 extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high);
  34 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);
  35 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);
  36 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);
  37
  38 extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high)
  39 {
  40   char a[_a_high+1];
  41
  42   /* make a local copy of each unbounded array.  */
  43   memcpy (a, a_, _a_high+1);
  44
  45   if (! (mcOptions_getQuiet ()))
  46     {
  47       mcPrintf_printf0 ((const char *) a, _a_high);
  48     }
  49 }
  50
  51 extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high)
  52 {
  53   char a[_a_high+1];
  54   unsigned char w[_w_high+1];
  55
  56   /* make a local copy of each unbounded array.  */
  57   memcpy (a, a_, _a_high+1);
  58   memcpy (w, w_, _w_high+1);
  59
  60   if (! (mcOptions_getQuiet ()))
  61     {
  62       mcPrintf_printf1 ((const char *) a, _a_high, (const unsigned char *) w, _w_high);
  63     }
  64 }
  65
  66 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)
  67 {
  68   char a[_a_high+1];
  69   unsigned char w1[_w1_high+1];
  70   unsigned char w2[_w2_high+1];
  71
  72   /* make a local copy of each unbounded array.  */
  73   memcpy (a, a_, _a_high+1);
  74   memcpy (w1, w1_, _w1_high+1);
  75   memcpy (w2, w2_, _w2_high+1);
  76
  77   if (! (mcOptions_getQuiet ()))
  78     {
  79       mcPrintf_printf2 ((const char *) a, _a_high, (const unsigned char *) w1, _w1_high, (const unsigned char *) w2, _w2_high);
  80     }
  81 }
  82
  83 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)
  84 {
  85   char a[_a_high+1];
  86   unsigned char w1[_w1_high+1];
  87   unsigned char w2[_w2_high+1];
  88   unsigned char w3[_w3_high+1];
  89
  90   /* make a local copy of each unbounded array.  */
  91   memcpy (a, a_, _a_high+1);
  92   memcpy (w1, w1_, _w1_high+1);
  93   memcpy (w2, w2_, _w2_high+1);
  94   memcpy (w3, w3_, _w3_high+1);
  95
  96   if (! (mcOptions_getQuiet ()))
  97     {
  98       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);
  99     }
 100 }
 101
 102 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)
 103 {
 104   char a[_a_high+1];
 105   unsigned char w1[_w1_high+1];
 106   unsigned char w2[_w2_high+1];
 107   unsigned char w3[_w3_high+1];
 108   unsigned char w4[_w4_high+1];
 109
 110   /* make a local copy of each unbounded array.  */
 111   memcpy (a, a_, _a_high+1);
 112   memcpy (w1, w1_, _w1_high+1);
 113   memcpy (w2, w2_, _w2_high+1);
 114   memcpy (w3, w3_, _w3_high+1);
 115   memcpy (w4, w4_, _w4_high+1);
 116
 117   if (! (mcOptions_getQuiet ()))
 118     {
 119       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);
 120     }
 121 }
 122
 123 extern "C" void _M2_mcQuiet_init (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 124 {
 125 }
 126
 127 extern "C" void _M2_mcQuiet_finish (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 128 {
 129 }