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.114 2001/03/10 22:22:39 grubba Exp $"); + RCSID("$Id: main.c,v 1.115 2001/03/12 10:51:29 hubbe 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:180: Inside #if defined(HAVE_SETLOCALE)
   setlocale(LC_TIME, "C");   #endif   #ifdef LC_COLLATE    setlocale(LC_COLLATE, "");   #endif   #ifdef LC_MESSAGES    setlocale(LC_MESSAGES, "");   #endif   #endif    -  init_backend(); +     master_file = 0;      #ifdef HAVE_GETENV    if(getenv("PIKE_MASTER"))    master_file = getenv("PIKE_MASTER");   #endif       if(master_location[CONSTANT_STRLEN(MASTER_COOKIE)])    master_file=master_location + CONSTANT_STRLEN(MASTER_COOKIE);   
pike.git/src/main.c:554:    a=allocate_array_no_init(num,0);    for(num=0;environ[num];num++)    {    ITEM(a)[num].u.string=make_shared_string(environ[num]);    ITEM(a)[num].type=T_STRING;    }    push_array(a);       apply(master(),"_main",2);    pop_stack(); -  -  backend(); +     num=0;    }    UNSETJMP(back);       pike_do_exit(num);    return num; /* avoid warning */   }      #undef ATTRIBUTE   #define ATTRIBUTE(X)
pike.git/src/main.c:587: Inside #if defined(DEBUG_MALLOC)
   cleanup_memhdrs();    }   #endif       exit(num);   }         void low_init_main(void)   { +  init_backend();    init_iterators();    init_pike_searching();    init_error();    init_pike_security();    th_init();    init_operators();    init_builtin_efuns();    init_signals();    init_dynamic_load();   }
pike.git/src/main.c:735: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   describe_something(o, T_OBJECT, 0,2,0);    }       cleanup_shared_string_table();    }   #else       zap_all_arrays();    zap_all_mappings();    +  exit_backend();    cleanup_shared_string_table();   #endif       really_clean_up_interpret();       cleanup_callbacks();    free_all_callable_blocks();    exit_destroy_called_mark_hash();       free_dynamic_load();    first_mapping=0;    free_all_mapping_blocks();    first_object=0;    free_all_object_blocks();   #endif   }