gcc/m2/mc-boot/GFpuIO.c

   1 /* do not edit automatically generated by mc from FpuIO.  */
   2 /* FpuIO.mod implements a fixed format input/output for REAL/LONGREAL.
   3
   4 Copyright (C) 2001-2021 Free Software Foundation, Inc.
   5 Contributed by Gaius Mulley <gaius.mulley@southwales.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 Under Section 7 of GPL version 3, you are granted additional
  20 permissions described in the GCC Runtime Library Exception, version
  21 3.1, as published by the Free Software Foundation.
  22
  23 You should have received a copy of the GNU General Public License and
  24 a copy of the GCC Runtime Library Exception along with this program;
  25 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  26 <http://www.gnu.org/licenses/>.  */
  27
  28 #include "config.h"
  29 #include "system.h"
  30 #   if !defined (PROC_D)
  31 #      define PROC_D
  32        typedef void (*PROC_t) (void);
  33        typedef struct { PROC_t proc; } PROC;
  34 #   endif
  35
  36 #   if !defined (TRUE)
  37 #      define TRUE (1==1)
  38 #   endif
  39
  40 #   if !defined (FALSE)
  41 #      define FALSE (1==0)
  42 #   endif
  43
  44 #define _FpuIO_H
  45 #define _FpuIO_C
  46
  47 #   include "GStrIO.h"
  48 #   include "GStrLib.h"
  49 #   include "GASCII.h"
  50 #   include "GDynamicStrings.h"
  51 #   include "GStringConvert.h"
  52
  53 #   define MaxLineLength 100
  54 extern "C" void FpuIO_ReadReal (double *x);
  55
  56 /*
  57    WriteReal - converts a REAL number, x, which has a, TotalWidth, and
  58                FractionWidth into, string, a.
  59 */
  60
  61 extern "C" void FpuIO_WriteReal (double x, unsigned int TotalWidth, unsigned int FractionWidth);
  62
  63 /*
  64    WriteReal - converts a REAL number, x, which has a, TotalWidth, and
  65                FractionWidth into, string, a.
  66 */
  67
  68 extern "C" void FpuIO_StrToReal (const char *a_, unsigned int _a_high, double *x);
  69
  70 /*
  71    RealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
  72                FractionWidth into a string.
  73 */
  74
  75 extern "C" void FpuIO_RealToStr (double x, unsigned int TotalWidth, unsigned int FractionWidth, char *a, unsigned int _a_high);
  76 extern "C" void FpuIO_ReadLongReal (long double *x);
  77
  78 /*
  79    WriteLongReal - converts a LONGREAL number, x, which has a, TotalWidth, and
  80                    FractionWidth into a string.
  81 */
  82
  83 extern "C" void FpuIO_WriteLongReal (long double x, unsigned int TotalWidth, unsigned int FractionWidth);
  84
  85 /*
  86    WriteLongReal - converts a LONGREAL number, x, which has a, TotalWidth, and
  87                    FractionWidth into a string.
  88 */
  89
  90 extern "C" void FpuIO_StrToLongReal (const char *a_, unsigned int _a_high, long double *x);
  91
  92 /*
  93    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
  94                    FractionWidth into a string.
  95 */
  96
  97 extern "C" void FpuIO_LongRealToStr (long double x, unsigned int TotalWidth, unsigned int FractionWidth, char *a, unsigned int _a_high);
  98
  99 /*
 100    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 101                    FractionWidth into a string.
 102 */
 103
 104 extern "C" void FpuIO_ReadLongInt (long int *x);
 105
 106 /*
 107    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 108                    FractionWidth into a string.
 109 */
 110
 111 extern "C" void FpuIO_WriteLongInt (long int x, unsigned int n);
 112
 113 /*
 114    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 115                    FractionWidth into a string.
 116 */
 117
 118 extern "C" void FpuIO_StrToLongInt (const char *a_, unsigned int _a_high, long int *x);
 119
 120 /*
 121    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 122                    FractionWidth into a string.
 123 */
 124
 125 extern "C" void FpuIO_LongIntToStr (long int x, unsigned int n, char *a, unsigned int _a_high);
 126
 127 extern "C" void FpuIO_ReadReal (double *x)
 128 {
 129   typedef struct ReadReal__T1_a ReadReal__T1;
 130
 131   struct ReadReal__T1_a { char array[MaxLineLength+1]; };
 132   ReadReal__T1 a;
 133
 134   /*
 135 #undef GM2_DEBUG_FPUIO
 136 if defined(GM2_DEBUG_FPUIO)
 137 #  define InitString(X) InitStringDB(X, __FILE__, __LINE__)
 138 #  define InitStringCharStar(X) InitStringCharStarDB(X, __FILE__, __LINE__)
 139 #  define InitStringChar(X) InitStringCharDB(X, __FILE__, __LINE__)
 140 #  define Mult(X,Y) MultDB(X, Y, __FILE__, __LINE__)
 141 #  define Dup(X) DupDB(X, __FILE__, __LINE__)
 142 #  define Slice(X,Y,Z) SliceDB(X, Y, Z, __FILE__, __LINE__)
 143 #endif
 144   */
 145   StrIO_ReadString ((char *) &a.array[0], MaxLineLength);
 146   FpuIO_StrToReal ((const char *) &a.array[0], MaxLineLength, x);
 147 }
 148
 149
 150 /*
 151    WriteReal - converts a REAL number, x, which has a, TotalWidth, and
 152                FractionWidth into, string, a.
 153 */
 154
 155 extern "C" void FpuIO_WriteReal (double x, unsigned int TotalWidth, unsigned int FractionWidth)
 156 {
 157   typedef struct WriteReal__T2_a WriteReal__T2;
 158
 159   struct WriteReal__T2_a { char array[MaxLineLength+1]; };
 160   WriteReal__T2 a;
 161
 162   FpuIO_RealToStr (x, TotalWidth, FractionWidth, (char *) &a.array[0], MaxLineLength);
 163   StrIO_WriteString ((const char *) &a.array[0], MaxLineLength);
 164 }
 165
 166
 167 /*
 168    WriteReal - converts a REAL number, x, which has a, TotalWidth, and
 169                FractionWidth into, string, a.
 170 */
 171
 172 extern "C" void FpuIO_StrToReal (const char *a_, unsigned int _a_high, double *x)
 173 {
 174   long double lr;
 175   char a[_a_high+1];
 176
 177   /* make a local copy of each unbounded array.  */
 178   memcpy (a, a_, _a_high+1);
 179
 180   FpuIO_StrToLongReal ((const char *) a, _a_high, &lr);  /* let StrToLongReal do the work and we convert the result back to REAL  */
 181   (*x) = (double ) (lr);  /* let StrToLongReal do the work and we convert the result back to REAL  */
 182 }
 183
 184
 185 /*
 186    RealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 187                FractionWidth into a string.
 188 */
 189
 190 extern "C" void FpuIO_RealToStr (double x, unsigned int TotalWidth, unsigned int FractionWidth, char *a, unsigned int _a_high)
 191 {
 192   long double lr;
 193
 194   lr = (long double ) (x);
 195   FpuIO_LongRealToStr (lr, TotalWidth, FractionWidth, (char *) a, _a_high);
 196 }
 197
 198 extern "C" void FpuIO_ReadLongReal (long double *x)
 199 {
 200   typedef struct ReadLongReal__T3_a ReadLongReal__T3;
 201
 202   struct ReadLongReal__T3_a { char array[MaxLineLength+1]; };
 203   ReadLongReal__T3 a;
 204
 205   StrIO_ReadString ((char *) &a.array[0], MaxLineLength);
 206   FpuIO_StrToLongReal ((const char *) &a.array[0], MaxLineLength, x);
 207 }
 208
 209
 210 /*
 211    WriteLongReal - converts a LONGREAL number, x, which has a, TotalWidth, and
 212                    FractionWidth into a string.
 213 */
 214
 215 extern "C" void FpuIO_WriteLongReal (long double x, unsigned int TotalWidth, unsigned int FractionWidth)
 216 {
 217   typedef struct WriteLongReal__T4_a WriteLongReal__T4;
 218
 219   struct WriteLongReal__T4_a { char array[MaxLineLength+1]; };
 220   WriteLongReal__T4 a;
 221
 222   FpuIO_LongRealToStr (x, TotalWidth, FractionWidth, (char *) &a.array[0], MaxLineLength);
 223   StrIO_WriteString ((const char *) &a.array[0], MaxLineLength);
 224 }
 225
 226
 227 /*
 228    WriteLongReal - converts a LONGREAL number, x, which has a, TotalWidth, and
 229                    FractionWidth into a string.
 230 */
 231
 232 extern "C" void FpuIO_StrToLongReal (const char *a_, unsigned int _a_high, long double *x)
 233 {
 234   unsigned int found;
 235   DynamicStrings_String s;
 236   char a[_a_high+1];
 237
 238   /* make a local copy of each unbounded array.  */
 239   memcpy (a, a_, _a_high+1);
 240
 241   s = DynamicStrings_InitString ((const char *) a, _a_high);
 242   (*x) = StringConvert_StringToLongreal (s, &found);
 243   s = DynamicStrings_KillString (s);
 244 }
 245
 246
 247 /*
 248    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 249                    FractionWidth into a string.
 250 */
 251
 252 extern "C" void FpuIO_LongRealToStr (long double x, unsigned int TotalWidth, unsigned int FractionWidth, char *a, unsigned int _a_high)
 253 {
 254   DynamicStrings_String s;
 255
 256   s = StringConvert_LongrealToString (x, TotalWidth, FractionWidth);
 257   DynamicStrings_CopyOut ((char *) a, _a_high, s);
 258   s = DynamicStrings_KillString (s);
 259 }
 260
 261
 262 /*
 263    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 264                    FractionWidth into a string.
 265 */
 266
 267 extern "C" void FpuIO_ReadLongInt (long int *x)
 268 {
 269   typedef struct ReadLongInt__T5_a ReadLongInt__T5;
 270
 271   struct ReadLongInt__T5_a { char array[MaxLineLength+1]; };
 272   ReadLongInt__T5 a;
 273
 274   StrIO_ReadString ((char *) &a.array[0], MaxLineLength);
 275   FpuIO_StrToLongInt ((const char *) &a.array[0], MaxLineLength, x);
 276 }
 277
 278
 279 /*
 280    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 281                    FractionWidth into a string.
 282 */
 283
 284 extern "C" void FpuIO_WriteLongInt (long int x, unsigned int n)
 285 {
 286   typedef struct WriteLongInt__T6_a WriteLongInt__T6;
 287
 288   struct WriteLongInt__T6_a { char array[MaxLineLength+1]; };
 289   WriteLongInt__T6 a;
 290
 291   FpuIO_LongIntToStr (x, n, (char *) &a.array[0], MaxLineLength);
 292   StrIO_WriteString ((const char *) &a.array[0], MaxLineLength);
 293 }
 294
 295
 296 /*
 297    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 298                    FractionWidth into a string.
 299 */
 300
 301 extern "C" void FpuIO_StrToLongInt (const char *a_, unsigned int _a_high, long int *x)
 302 {
 303   DynamicStrings_String s;
 304   unsigned int found;
 305   char a[_a_high+1];
 306
 307   /* make a local copy of each unbounded array.  */
 308   memcpy (a, a_, _a_high+1);
 309
 310   s = DynamicStrings_InitString ((const char *) a, _a_high);
 311   (*x) = StringConvert_StringToLongInteger (s, 10, &found);
 312   s = DynamicStrings_KillString (s);
 313 }
 314
 315
 316 /*
 317    LongRealToStr - converts a LONGREAL number, Real, which has, TotalWidth, and
 318                    FractionWidth into a string.
 319 */
 320
 321 extern "C" void FpuIO_LongIntToStr (long int x, unsigned int n, char *a, unsigned int _a_high)
 322 {
 323   DynamicStrings_String s;
 324
 325   s = StringConvert_LongIntegerToString (x, n, ' ', FALSE, 10, TRUE);
 326   DynamicStrings_CopyOut ((char *) a, _a_high, s);
 327   s = DynamicStrings_KillString (s);
 328 }
 329
 330 extern "C" void _M2_FpuIO_init (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 331 {
 332 }
 333
 334 extern "C" void _M2_FpuIO_finish (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 335 {
 336 }