pike.git / src / main.c

version» Context lines:

pike.git/src/main.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.78 1999/12/05 15:32:15 grubba Exp $"); + RCSID("$Id: main.c,v 1.79 1999/12/13 01:21:10 grubba Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:50:   #ifdef TRY_USE_MMX   #include <mmx.h>   int try_use_mmx;   #endif         char *master_file;   char **ARGV;      int debug_options=0; + int runtime_options=0;   int d_flag=0;   int c_flag=0;   int t_flag=0;   int default_t_flag=0;   int a_flag=0;   int l_flag=0;   int p_flag=0;   #ifdef YYDEBUG   extern int yydebug;   #endif /* YYDEBUG */
pike.git/src/main.c:305:    case 'c':    p++;   #ifdef YYDEBUG    yydebug++;   #endif /* YYDEBUG */    break;       case 's':    debug_options|=DEBUG_SIGNALS;    p++; -  d_flag--; +     goto more_d_flags;       case 't':    debug_options|=NO_TAILRECURSION;    p++; -  d_flag--; +     goto more_d_flags;    -  +  default: +  d_flag += (p[0] == 'd'); +  p++; +  } +  break; +  +  case 'r': +  more_w_flags: +  switch(p[1]) { +  case 't': +  runtime_options |= RUNTIME_CHECK_TYPES; +  p++; +  goto more_w_flags; +     case 'T': -  debug_options|=DEBUG_TYPES; +  runtime_options |= RUNTIME_STRICT_TYPES;    p++; -  d_flag--; -  goto more_d_flags; +  goto more_w_flags;       default: -  d_flag++,p++; +  break;    }    break;       case 'a':    if(p[1]>='0' && p[1]<='9')    a_flag+=STRTOL(p+1,&p,10);    else    a_flag++,p++;    break;