| /* do not edit automatically generated by mc from mcQuiet. */ |
| /* This file is part of GNU Modula-2. |
| |
| GNU Modula-2 is free software; you can redistribute it and/or modify it under |
| the terms of the GNU General Public License as published by the Free |
| Software Foundation; either version 3, or (at your option) any later |
| version. |
| |
| GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY |
| WARRANTY; without even the implied warranty of MERCHANTABILITY or |
| FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
| for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GCC; see the file COPYING3. If not see |
| <http://www.gnu.org/licenses/>. */ |
| |
| #include "config.h" |
| #include "system.h" |
| #include <stdbool.h> |
| # if !defined (PROC_D) |
| # define PROC_D |
| typedef void (*PROC_t) (void); |
| typedef struct { PROC_t proc; } PROC; |
| # endif |
| |
| #define _mcQuiet_C |
| |
| #include "GmcQuiet.h" |
| # include "GmcOptions.h" |
| # include "GmcPrintf.h" |
| |
| extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high); |
| extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high); |
| 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); |
| 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); |
| 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); |
| |
| extern "C" void mcQuiet_qprintf0 (const char *a_, unsigned int _a_high) |
| { |
| char a[_a_high+1]; |
| |
| /* make a local copy of each unbounded array. */ |
| memcpy (a, a_, _a_high+1); |
| |
| if (! (mcOptions_getQuiet ())) |
| { |
| mcPrintf_printf0 ((const char *) a, _a_high); |
| } |
| } |
| |
| extern "C" void mcQuiet_qprintf1 (const char *a_, unsigned int _a_high, const unsigned char *w_, unsigned int _w_high) |
| { |
| char a[_a_high+1]; |
| unsigned char w[_w_high+1]; |
| |
| /* make a local copy of each unbounded array. */ |
| memcpy (a, a_, _a_high+1); |
| memcpy (w, w_, _w_high+1); |
| |
| if (! (mcOptions_getQuiet ())) |
| { |
| mcPrintf_printf1 ((const char *) a, _a_high, (const unsigned char *) w, _w_high); |
| } |
| } |
| |
| 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) |
| { |
| char a[_a_high+1]; |
| unsigned char w1[_w1_high+1]; |
| unsigned char w2[_w2_high+1]; |
| |
| /* make a local copy of each unbounded array. */ |
| memcpy (a, a_, _a_high+1); |
| memcpy (w1, w1_, _w1_high+1); |
| memcpy (w2, w2_, _w2_high+1); |
| |
| if (! (mcOptions_getQuiet ())) |
| { |
| mcPrintf_printf2 ((const char *) a, _a_high, (const unsigned char *) w1, _w1_high, (const unsigned char *) w2, _w2_high); |
| } |
| } |
| |
| 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) |
| { |
| char a[_a_high+1]; |
| unsigned char w1[_w1_high+1]; |
| unsigned char w2[_w2_high+1]; |
| unsigned char w3[_w3_high+1]; |
| |
| /* make a local copy of each unbounded array. */ |
| memcpy (a, a_, _a_high+1); |
| memcpy (w1, w1_, _w1_high+1); |
| memcpy (w2, w2_, _w2_high+1); |
| memcpy (w3, w3_, _w3_high+1); |
| |
| if (! (mcOptions_getQuiet ())) |
| { |
| 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); |
| } |
| } |
| |
| 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) |
| { |
| char a[_a_high+1]; |
| unsigned char w1[_w1_high+1]; |
| unsigned char w2[_w2_high+1]; |
| unsigned char w3[_w3_high+1]; |
| unsigned char w4[_w4_high+1]; |
| |
| /* make a local copy of each unbounded array. */ |
| memcpy (a, a_, _a_high+1); |
| memcpy (w1, w1_, _w1_high+1); |
| memcpy (w2, w2_, _w2_high+1); |
| memcpy (w3, w3_, _w3_high+1); |
| memcpy (w4, w4_, _w4_high+1); |
| |
| if (! (mcOptions_getQuiet ())) |
| { |
| 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); |
| } |
| } |
| |
| extern "C" void _M2_mcQuiet_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[]) |
| { |
| } |
| |
| extern "C" void _M2_mcQuiet_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[]) |
| { |
| } |