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.15 1997/01/16 05:03:21 hubbe Exp $"); + RCSID("$Id: main.c,v 1.16 1997/01/18 17:47:54 grubba Exp $");   #include "types.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"
pike.git/src/main.c:24:   #ifdef HAVE_LOCALE_H   #include <locale.h>   #endif      #include "time_stuff.h"      #ifdef HAVE_SYS_RESOURCE_H   #include <sys/resource.h>   #endif    + #define VERSION "Pike v0.4pl2" +    char *master_file;      int d_flag=0;   int c_flag=0;   int t_flag=0;   int a_flag=0;   int l_flag=0;   int p_flag=0;      static struct callback_list post_master_callbacks;
pike.git/src/main.c:239:    pop_stack();       UNSETJMP(back);       backend();       push_int(0);    f_exit(1);   }    + /* string __version() */ + static void f___version(INT32 args) + { +  pop_n_elems(args); +  push_text(VERSION); + }      void init_main_efuns()   {    init_shared_string_table();    init_interpreter();    init_lex();    init_types();    init_builtin_efuns();    init_signals();    th_init();    init_dynamic_load(); -  +  add_efun("__version", f___version, "function(:string)", 0);   }      void init_main_programs()   {    th_init_programs();   }         void exit_main()   {