ghc/compiler/yaccParser/hspincl.h

   1 #ifndef HSPINCL_H
   2 #define HSPINCL_H
   3
   4 #include "../../includes/config.h"
   5
   6 #if __STDC__
   7 #define PROTO(x)        x
   8 #define NO_ARGS         void
   9 #define CONST           const
  10 #define VOID            void
  11 #define VOID_STAR       void *
  12 #define VOLATILE        volatile
  13 #else
  14 #define PROTO(x)        ()
  15 #define NO_ARGS         /* no args */
  16 #define CONST           /* no const */
  17 #define VOID            void /* hope for the best... */
  18 #define VOID_STAR       long *
  19 #define VOLATILE        /* no volatile */
  20 #endif /* ! __STDC__ */
  21
  22 #if defined(STDC_HEADERS) || defined(HAVE_STRING_H)
  23 #include <string.h>
  24 /* An ANSI string.h and pre-ANSI memory.h might conflict.  */
  25 #if !defined(STDC_HEADERS) && defined(HAVE_MEMORY_H)
  26 #include <memory.h>
  27 #endif /* not STDC_HEADERS and HAVE_MEMORY_H */
  28 #define index strchr
  29 #define rindex strrchr
  30 #define bcopy(s, d, n) memcpy ((d), (s), (n))
  31 #define bcmp(s1, s2, n) memcmp ((s1), (s2), (n))
  32 #define bzero(s, n) memset ((s), 0, (n))
  33 #else /* not STDC_HEADERS and not HAVE_STRING_H */
  34 #include <strings.h>
  35 /* memory.h and strings.h conflict on some systems.  */
  36 #endif /* not STDC_HEADERS and not HAVE_STRING_H */
  37
  38 #ifdef HAVE_MALLOC_H
  39 #include <malloc.h>
  40 #endif
  41 #ifdef HAVE_STDLIB_H
  42 #include <stdlib.h>
  43 #endif
  44
  45 #include "id.h"
  46 #include "literal.h"
  47 #include "list.h"
  48 #ifdef DPH
  49 #include "ttype-DPH.h"
  50 #else
  51 #include "ttype.h"
  52 #endif
  53 #include "atype.h"
  54 #include "coresyn.h"
  55 #include "hpragma.h"
  56 #include "binding.h"
  57 #include "finfot.h"
  58 /*#include "impidt.h"*/
  59 #include "entidt.h"
  60 #ifdef DPH
  61 #include "tree-DPH.h"
  62 #else
  63 #define infixTree tree
  64 #include "tree.h"
  65 #endif
  66 #include "pbinding.h"
  67
  68 extern char *input_filename;
  69
  70 extern tree *Rginfun  PROTO((struct Sap *));
  71 extern tree *Rginarg1 PROTO((struct Sap *));
  72 extern tree *Rginarg2 PROTO((struct Sap *));
  73
  74 #endif /* HSPINCL_H */