source: git/Singular/tesths.cc @ 0e1846

/****************************************
*  Computer Algebra System SINGULAR     *
****************************************/
static char rcsid[] = "$Header: /exports/cvsroot-2/cvsroot/Singular/tesths.cc,v 1.1.1.1 1997-03-19 13:18:43 obachman Exp $";
/* $Log: not supported by cvs2svn $
*/

/*
* ABSTRACT - initialize SINGULARs components, run Script and start SHELL
*/

#define S_VERSION1 "version: 0.9.3"
#define S_VERSION2 "February  1997"

#ifndef macintosh
#include <unistd.h>
#endif
#include <string.h>
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <time.h>

#include "mod2.h"
#include "tok.h"
#include "ipshell.h"
#include "febase.h"
#include "cntrlc.h"
#include "mmemory.h"
#include "version.h"
#include "silink.h"

/*0 implementation*/

int sVERSION=VERSION;
int sS_SUBVERSION=S_SUBVERSION;
int main(          /* main entry to Singular */
    int argc,      /* number of parameter */
    char** argv)   /* parameter array */
{
  /*. initialize components */
  siRandomStart=inits();
#ifdef INIT_BUG
  jjInitTab1();
#endif
#ifdef GENTABLE
  extern ttGen1();
  extern ttGen2();
#ifdef HAVE_MPSR    
  extern mpsr_ttGen(); // For initialization of (CMD, MP_COP) tables
  mpsr_ttGen();
#endif  
  ttGen1();
  ttGen2();
#else
  int i;
  char * thisfile = argv[0];
  /*. process parameters */
  for (;(argc > 1) && (!feBatch); --argc, ++argv)
  {
    if ((argv[1][0] != '-') ||(argv[1][1] == '-'))
      break;
    for (i=1;argv[1][i]!='\0';i++)
    {
      switch (argv[1][i])
      {
        case 'V':
        case 'v':{
                  printf("Singular %s%c %s(%d) %s %s\n",
                          S_VERSION1,(VERSION%10)+'a',S_VERSION2,
                          S_SUBVERSION,__DATE__,__TIME__);
                  printf("with ");
#ifdef HAVE_LIBFACTORY
                  printf("factory,");
#endif
#ifdef HAVE_LIBFACTORY
                  printf("fac(p),");
#endif
#ifdef SRING
                  printf("super algebra,");
#endif
#ifdef DRING
                  printf("Weyl algebra,");
#endif
#ifdef HAVE_GMP
                  printf("GMP,");
#endif
#ifdef HAVE_DBM
                  printf("DBM,");
#endif
#ifdef HAVE_MPSR
                  printf("MP,");
#endif
#ifdef HAVE_READLINE
                  printf("RL,");
#endif
#ifdef HAVE_FEREAD
                  printf("SRL,");
#endif
#ifdef TEST
                  printf("TESTs,");
#endif
#if YYDEBUG
                  printf("YYDEBUG,");
#endif
#ifdef MDEBUG
                  printf("MDEBUG=%d,",MDEBUG);
#endif
#ifndef __OPTIMIZE__
                  printf("-g,");
#endif
                  printf("random=%d\n",siRandomStart);
#ifdef MSDOS
                  char *p=getenv("SPATH");
#else
                  char *p=getenv("SingularPath");
#endif
                  if (p!=NULL)
                    printf("search path:%s\n\n",p);
                  else
                    printf("standard search path:/usr/local/Singular\n\n");
                  break;
                 }
        case 'e': if ((argv[1][i+1]>'0') && (argv[1][i+1]<='9'))
                  {
                    i++;
                    si_echo = (int)(argv[1][i] - '0');
                  }
                  else si_echo = 2;
                  break;
        case 'r': siRandomStart = 0;
                  while((argv[1][i+1]>='0') && (argv[1][i+1]<='9'))
                  {
                    i++;
                    siRandomStart = siRandomStart*10+(int)(argv[1][i] - '0');
                  }
#ifdef buildin_rand
                  siSeed=siRandomStart;
#else
                  srand((unsigned int)siRandomStart);
#endif
                  break;
        case 'x': tclmode=TRUE;
                  break;
#ifdef HAVE_MPSR
        case 'b': feBatch=TRUE;
#endif
        case 'q': verbose &= ~(Sy_bit(0)|Sy_bit(V_LOAD_LIB));
                  break;
        case 't':
                  #ifdef HAVE_FEREAD
                  fe_use_fgets=TRUE;
                  #endif
                  break;
        default : printf("Unknown option -%c\n",argv[1][i]);
        printf("Usage: %s [-bteqvx] [file]\n",thisfile);
        exit(1);
      }
    }
  }

  /*. say hello */
  if (BVERBOSE(0))
  {
    printf(
"              Welcome to SINGULAR                /\n"
"           A Computer Algebra System           o<\n"
" for Algebraic Geometry and Singularity Theory   \\\n\n"
"by: G.-M. Greuel, G. Pfister, H. Schoenemann\n"
"Fachbereich Mathematik der Universitaet, D-67653 Kaiserslautern\n"
"contributions: O.Bachmann,W.Decker,H.Grassmann,B.Martin,M.Messollen,W.Neumann,\n"
"W.Pohl,T.Siebert,R.Stobbe                 e-mail: singular@mathematik.uni-kl.de\n");
    printf("%s%c %s",S_VERSION1,VERSION%10+'a',S_VERSION2);
    printf(" (%d)\n\nPlease note:  EVERY COMMAND MUST END WITH A SEMICOLON \";"
           "\"\n(e.g. help; help command; help General syntax; help ring; quit;)\n\n",
           S_SUBVERSION);
  }
  else
  if (!feBatch)
  {
#ifdef macintosh
    memcpy(stderr,stdout,sizeof(FILE));
#else
    dup2(1,2);
#endif
  }
  slStandardInit();
#ifdef HAVE_DLD
  dlInit(thisfile);
#endif
  myynest=0;
  /* if script is given */
  if ((argc > 1)&&(argv[1][0]!='-'))
  {
    /* read and run the Script */
    iiPStart(NULL,argv[1],NULL);
  }
  /* start shell */
#ifdef HAVE_MPSR
  if (feBatch)
  {
    return Batch_do(argc,argv);
  }
#endif
#ifndef macintosh
#if defined(HAVE_FEREAD) || defined(HAVE_READLINE)
  fe_set_input_mode();
#endif
#endif
  yyparse();
#endif
  return 0;
}