lang/fortran/comp/sysdep.h

   1 /****************************************************************
   2 Copyright 1990 by AT&T Bell Laboratories, Bellcore.
   3
   4 Permission to use, copy, modify, and distribute this software
   5 and its documentation for any purpose and without fee is hereby
   6 granted, provided that the above copyright notice appear in all
   7 copies and that both that the copyright notice and this
   8 permission notice and warranty disclaimer appear in supporting
   9 documentation, and that the names of AT&T Bell Laboratories or
  10 Bellcore or any of their entities not be used in advertising or
  11 publicity pertaining to distribution of the software without
  12 specific, written prior permission.
  13
  14 AT&T and Bellcore disclaim all warranties with regard to this
  15 software, including all implied warranties of merchantability
  16 and fitness.  In no event shall AT&T or Bellcore be liable for
  17 any special, indirect or consequential damages or any damages
  18 whatsoever resulting from loss of use, data or profits, whether
  19 in an action of contract, negligence or other tortious action,
  20 arising out of or in connection with the use or performance of
  21 this software.
  22 ****************************************************************/
  23
  24 /* This file is included at the start of defs.h; this file
  25  * is an initial attempt to gather in one place some declarations
  26  * that may need to be tweaked on some systems.
  27  */
  28
  29 #ifdef __STDC__
  30 #ifndef ANSI_Libraries
  31 #define ANSI_Libraries
  32 #endif
  33 #ifndef ANSI_Prototypes
  34 #define ANSI_Prototypes
  35 #endif
  36 #endif
  37
  38 #include <stdio.h>
  39
  40 #ifdef ANSI_Libraries
  41 #include <stddef.h>
  42 #include <stdlib.h>
  43 #else
  44 char *calloc(), *malloc(), *memcpy(), *memset(), *realloc();
  45 /* typedef int size_t; */
  46 #ifdef ANSI_Prototypes
  47 extern double atof(const char *);
  48 #else
  49 extern double atof();
  50 #endif
  51 #endif
  52
  53 #ifdef ANSI_Prototypes
  54 extern char *gmem(int, int);
  55 extern char *mem(int, int);
  56 extern char *Alloc(int);
  57 extern int* ckalloc(int);
  58 #else
  59 extern char *Alloc(), *gmem(), *mem();
  60 int *ckalloc();
  61 #endif
  62
  63 /* On systems like VMS where fopen might otherwise create
  64  * multiple versions of intermediate files, you may wish to
  65  * #define scrub(x) unlink(x)
  66  */
  67 #ifndef scrub
  68 #define scrub(x) /* do nothing */
  69 #endif
  70
  71 /* On systems that severely limit the total size of statically
  72  * allocated arrays, you may need to change the following to
  73  *      extern char **chr_fmt, *escapes, **str_fmt;
  74  * and to modify sysdep.c appropriately
  75  */
  76 extern char *chr_fmt[], escapes[], *str_fmt[];
  77
  78 #include "string.h"
  79
  80 #include "ctype.h"
  81
  82 #define Table_size 256
  83 /* Table_size should be 1 << (bits/byte) */