regina/regina.c

   1 /*
   2  *  The Regina Rexx Interpreter
   3  *  Copyright (C) 1992-1994  Anders Christensen <anders@pvv.unit.no>
   4  *
   5  *  This library is free software; you can redistribute it and/or
   6  *  modify it under the terms of the GNU Library General Public
   7  *  License as published by the Free Software Foundation; either
   8  *  version 2 of the License, or (at your option) any later version.
   9  *
  10  *  This library is distributed in the hope that it will be useful,
  11  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  *  Library General Public License for more details.
  14  *
  15  *  You should have received a copy of the GNU Library General Public
  16  *  License along with this library; if not, write to the Free
  17  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  */
  19
  20 #include "regina_c.h"
  21
  22 #if defined(WIN32) && defined(__IBMC__)
  23 # include <windows.h>
  24 # pragma warning(default: 4115 4201 4214)
  25 #else
  26 # define APIENTRY
  27 # if defined(WIN32) && (defined(__WATCOMC__) || defined(__BORLANDC__))
  28 #  undef APIENTRY
  29 #  include <windows.h>
  30 # endif
  31 # if defined(_MSC_VER)
  32 #  undef APIENTRY
  33 #  if _MSC_VER >= 1100
  34 /* Stupid MSC can't compile own headers without warning at least in VC 5.0 */
  35 #    pragma warning(disable: 4115 4201 4214 4514)
  36 #  endif
  37 #  include <windows.h>
  38 #  if _MSC_VER >= 1100
  39 #    pragma warning(default: 4115 4201 4214)
  40 #  endif
  41 #endif
  42 #endif
  43
  44 #include "rexxsaa.h"
  45 #define DONT_TYPEDEF_PFN
  46 #ifndef RXLIB  /* need __regina_faked_main which is known with RXLIB only */
  47 # define RXLIB
  48 #endif
  49 #include "rexx.h"
  50
  51 int main(int argc, char *argv[])
  52 {
  53    int rc;
  54    rc = __regina_faked_main(argc,argv);
  55    return(rc);
  56 }