Branch: Tag:

1997-01-18

1997-01-18 17:47:54 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Now adds the __version efun.

Rev: src/main.c:1.16

4:   ||| 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"
31:   #include <sys/resource.h>   #endif    + #define VERSION "Pike v0.4pl2" +    char *master_file;      int d_flag=0;
246:    f_exit(1);   }    + /* string __version() */ + static void f___version(INT32 args) + { +  pop_n_elems(args); +  push_text(VERSION); + }      void init_main_efuns()   {
257:    init_signals();    th_init();    init_dynamic_load(); +  add_efun("__version", f___version, "function(:string)", 0);   }      void init_main_programs()