cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | |
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | ||| This file a part of Pike, and is copyright by Fredrik Hubinette
||| Pike is distributed as GPL (General Public License)
|
cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | ||| See the files COPYING and DISCLAIMER for more information.
\*/
|
4b974c | 1999-02-20 | Henrik Grubbström (Grubba) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "global.h"
|
87f908 | 2001-03-12 | Fredrik Hübinette (Hubbe) | | RCSID("$Id: main.c,v 1.115 2001/03/12 10:51:29 hubbe Exp $");
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | | #include "fdlib.h"
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "backend.h"
#include "module.h"
#include "object.h"
|
4b974c | 1999-02-20 | Henrik Grubbström (Grubba) | | #include "language.h"
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "lex.h"
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | #include "pike_types.h"
#include "builtin_functions.h"
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "array.h"
#include "stralloc.h"
#include "interpret.h"
|
b2d3e4 | 2000-12-01 | Fredrik Hübinette (Hubbe) | | #include "pike_error.h"
|
bb55f8 | 1997-03-16 | Fredrik Hübinette (Hubbe) | | #include "pike_macros.h"
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "callback.h"
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | #include "signal_handler.h"
|
07513e | 1996-10-04 | Fredrik Hübinette (Hubbe) | | #include "threads.h"
|
9c6f7d | 1997-04-15 | Fredrik Hübinette (Hubbe) | | #include "dynamic_load.h"
#include "gc.h"
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | #include "multiset.h"
|
9c6f7d | 1997-04-15 | Fredrik Hübinette (Hubbe) | | #include "mapping.h"
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | | #include "cpp.h"
|
0808b2 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | #include "main.h"
|
19aaeb | 1998-05-25 | Fredrik Hübinette (Hubbe) | | #include "operators.h"
|
7e97c3 | 1999-01-21 | Fredrik Hübinette (Hubbe) | | #include "security.h"
|
67f0b5 | 1999-09-26 | Henrik Grubbström (Grubba) | | #include "constants.h"
|
c37c7e | 1999-03-26 | Fredrik Hübinette (Hubbe) | | #include "version.h"
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | |
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | #if defined(__linux__) && defined(HAVE_DLOPEN) && defined(HAVE_DLFCN_H)
|
07eda2 | 2000-07-05 | Fredrik Hübinette (Hubbe) | | #include <dlfcn.h>
#endif
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | #include "las.h"
|
ac173e | 1997-11-02 | Henrik Grubbström (Grubba) | | #include <errno.h>
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #ifdef HAVE_LOCALE_H
#include <locale.h>
#endif
|
693018 | 1996-02-25 | Fredrik Hübinette (Hubbe) | |
|
6e37dc | 1996-06-21 | Fredrik Hübinette (Hubbe) | | #include "time_stuff.h"
|
693018 | 1996-02-25 | Fredrik Hübinette (Hubbe) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #ifdef HAVE_SYS_RESOURCE_H
#include <sys/resource.h>
#endif
|
9debfa | 1999-08-11 | Fredrik Hübinette (Hubbe) | | #ifdef TRY_USE_MMX
#include <mmx.h>
int try_use_mmx;
#endif
|
f8e5fe | 1997-01-18 | Henrik Grubbström (Grubba) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | char *master_file;
|
e1195f | 1997-03-23 | Fredrik Hübinette (Hubbe) | | char **ARGV;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
1f2133 | 2000-07-28 | Fredrik Hübinette (Hubbe) | | PMOD_EXPORT int debug_options=0;
PMOD_EXPORT int runtime_options=0;
PMOD_EXPORT int d_flag=0;
PMOD_EXPORT int c_flag=0;
PMOD_EXPORT int t_flag=0;
PMOD_EXPORT int default_t_flag=0;
PMOD_EXPORT int a_flag=0;
PMOD_EXPORT int l_flag=0;
PMOD_EXPORT int p_flag=0;
|
943f85 | 1998-04-13 | Henrik Grubbström (Grubba) | | #ifdef YYDEBUG
extern int yydebug;
#endif /* YYDEBUG */
|
3f1eeb | 1998-04-05 | Fredrik Hübinette (Hubbe) | | static long instructions_left;
|
c37c7e | 1999-03-26 | Fredrik Hübinette (Hubbe) | | #define MASTER_COOKIE "(#*&)@(*&$Master Cookie:"
#ifndef MAXPATHLEN
#define MAXPATHLEN 32768
#endif
char master_location[MAXPATHLEN * 2] = MASTER_COOKIE;
|
3f1eeb | 1998-04-05 | Fredrik Hübinette (Hubbe) | | static void time_to_exit(struct callback *cb,void *tmp,void *ignored)
{
if(instructions_left-- < 0)
{
push_int(0);
f_exit(1);
}
}
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
81b84e | 1996-12-03 | Fredrik Hübinette (Hubbe) | | static struct callback_list post_master_callbacks;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
1f2133 | 2000-07-28 | Fredrik Hübinette (Hubbe) | | PMOD_EXPORT struct callback *add_post_master_callback(callback_func call,
|
8f4f88 | 1996-06-20 | Fredrik Hübinette (Hubbe) | | void *arg,
|
6e37dc | 1996-06-21 | Fredrik Hübinette (Hubbe) | | callback_func free_func)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
|
6e37dc | 1996-06-21 | Fredrik Hübinette (Hubbe) | | return add_to_callback(&post_master_callbacks, call, arg, free_func);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | static struct callback_list exit_callbacks;
|
1f2133 | 2000-07-28 | Fredrik Hübinette (Hubbe) | | PMOD_EXPORT struct callback *add_exit_callback(callback_func call,
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | void *arg,
callback_func free_func)
{
return add_to_callback(&exit_callbacks, call, arg, free_func);
}
|
a999e7 | 1998-07-27 | Fredrik Hübinette (Hubbe) | | #ifdef __NT__
|
1c32fd | 2000-08-19 | Henrik Grubbström (Grubba) | | static void get_master_key(HKEY cat)
|
a999e7 | 1998-07-27 | Fredrik Hübinette (Hubbe) | | {
HKEY k;
char buffer[4096];
DWORD len=sizeof(buffer)-1,type=REG_SZ;
long ret;
if(RegOpenKeyEx(cat,
|
1f1f18 | 2001-03-10 | Henrik Grubbström (Grubba) | | (LPCTSTR)("SOFTWARE\\Idonex\\Pike\\"
DEFINETOSTR(PIKE_MAJOR_VERSION)
"."
DEFINETOSTR(PIKE_MINOR_VERSION)),
|
a999e7 | 1998-07-27 | Fredrik Hübinette (Hubbe) | | 0,KEY_READ,&k)==ERROR_SUCCESS)
{
if(RegQueryValueEx(k,
"PIKE_MASTER",
0,
&type,
buffer,
&len)==ERROR_SUCCESS)
{
|
21315b | 1999-05-07 | Fredrik Hübinette (Hubbe) | | dmalloc_accept_leak( master_file=strdup(buffer) );
|
a999e7 | 1998-07-27 | Fredrik Hübinette (Hubbe) | | }
RegCloseKey(k);
}
}
#endif /* __NT__ */
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | int dbm_main(int argc, char **argv)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
JMP_BUF back;
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | int e, num, do_backend;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | char *p;
struct array *a;
|
85f59e | 1998-01-08 | Fredrik Hübinette (Hubbe) | | #ifdef DECLARE_ENVIRON
extern char **environ;
#endif
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
9debfa | 1999-08-11 | Fredrik Hübinette (Hubbe) | | #ifdef TRY_USE_MMX
try_use_mmx=mmx_ok();
#endif
|
bbc16c | 2000-08-29 | Mirar (Pontus Hagland) | | #ifdef OWN_GETHRTIME
own_gethrtime_init();
#endif
|
9debfa | 1999-08-11 | Fredrik Hübinette (Hubbe) | |
|
e1195f | 1997-03-23 | Fredrik Hübinette (Hubbe) | | ARGV=argv;
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | | fd_init();
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | #ifdef SHARED_NODES
|
a69c42 | 2000-12-01 | Henrik Grubbström (Grubba) | | node_hash.table = malloc(sizeof(node *)*32831);
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | if (!node_hash.table) {
fatal("Out of memory!\n");
}
|
a69c42 | 2000-12-01 | Henrik Grubbström (Grubba) | | MEMSET(node_hash.table, 0, sizeof(node *)*32831);
node_hash.size = 32831;
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | #endif /* SHARED_NODES */
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #ifdef HAVE_SETLOCALE
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #ifdef LC_NUMERIC
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | setlocale(LC_NUMERIC, "C");
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #endif
#ifdef LC_CTYPE
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | setlocale(LC_CTYPE, "");
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #endif
#ifdef LC_TIME
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | setlocale(LC_TIME, "C");
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #endif
#ifdef LC_COLLATE
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | setlocale(LC_COLLATE, "");
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #endif
#ifdef LC_MESSAGES
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | setlocale(LC_MESSAGES, "");
|
2cf1a1 | 1996-09-23 | Fredrik Hübinette (Hubbe) | | #endif
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #endif
|
bf47e1 | 2000-04-06 | Henrik Grubbström (Grubba) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | master_file = 0;
|
c37c7e | 1999-03-26 | Fredrik Hübinette (Hubbe) | |
|
208f35 | 1998-05-12 | Henrik Grubbström (Grubba) | | #ifdef HAVE_GETENV
|
a999e7 | 1998-07-27 | Fredrik Hübinette (Hubbe) | | if(getenv("PIKE_MASTER"))
master_file = getenv("PIKE_MASTER");
|
208f35 | 1998-05-12 | Henrik Grubbström (Grubba) | | #endif
|
dc7cc9 | 1998-01-14 | Fredrik Hübinette (Hubbe) | |
|
c37c7e | 1999-03-26 | Fredrik Hübinette (Hubbe) | | if(master_location[CONSTANT_STRLEN(MASTER_COOKIE)])
master_file=master_location + CONSTANT_STRLEN(MASTER_COOKIE);
#if __NT__
if(!master_file) get_master_key(HKEY_CURRENT_USER);
if(!master_file) get_master_key(HKEY_LOCAL_MACHINE);
#endif
if(!master_file)
{
sprintf(master_location,DEFAULT_MASTER,
PIKE_MAJOR_VERSION,
PIKE_MINOR_VERSION,
PIKE_BUILD_VERSION);
master_file=master_location;
}
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
for(e=1; e<argc; e++)
{
if(argv[e][0]=='-')
{
for(p=argv[e]+1; *p;)
{
switch(*p)
{
case 'D':
add_predefine(p+1);
p+=strlen(p);
break;
case 'm':
if(p[1])
{
master_file=p+1;
p+=strlen(p);
}else{
e++;
if(e >= argc)
{
fprintf(stderr,"Missing argument to -m\n");
exit(1);
}
master_file=argv[e];
p+=strlen(p);
}
break;
|
9f243b | 1996-08-12 | Fredrik Hübinette (Hubbe) | | case 's':
if(!p[1])
{
e++;
if(e >= argc)
{
fprintf(stderr,"Missing argument to -s\n");
exit(1);
}
p=argv[e];
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | }else{
p++;
if(*p=='s')
{
if(!p[1])
{
e++;
if(e >= argc)
{
fprintf(stderr,"Missing argument to -ss\n");
exit(1);
}
p=argv[e];
}else{
p++;
}
#ifdef _REENTRANT
thread_stack_size=STRTOL(p,&p,0);
#endif
p+=strlen(p);
break;
}
|
9f243b | 1996-08-12 | Fredrik Hübinette (Hubbe) | | }
|
7965d7 | 2001-01-24 | Fredrik Hübinette (Hubbe) | | Pike_stack_size=STRTOL(p,&p,0);
|
9f243b | 1996-08-12 | Fredrik Hübinette (Hubbe) | | p+=strlen(p);
|
7965d7 | 2001-01-24 | Fredrik Hübinette (Hubbe) | | if(Pike_stack_size < 256)
|
9f243b | 1996-08-12 | Fredrik Hübinette (Hubbe) | | {
fprintf(stderr,"Stack size must at least be 256.\n");
exit(1);
}
break;
|
3f1eeb | 1998-04-05 | Fredrik Hübinette (Hubbe) | | case 'q':
if(!p[1])
{
e++;
if(e >= argc)
{
fprintf(stderr,"Missing argument to -q\n");
exit(1);
}
p=argv[e];
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | }else{
p++;
|
3f1eeb | 1998-04-05 | Fredrik Hübinette (Hubbe) | | }
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | instructions_left=STRTOL(p,&p,0);
|
3f1eeb | 1998-04-05 | Fredrik Hübinette (Hubbe) | | p+=strlen(p);
add_to_callback(&evaluator_callbacks,
time_to_exit,
0,0);
break;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | case 'd':
|
cd8352 | 1998-02-02 | Fredrik Hübinette (Hubbe) | | more_d_flags:
switch(p[1])
{
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
d_flag+=STRTOL(p+1,&p,10);
break;
|
943f85 | 1998-04-13 | Henrik Grubbström (Grubba) | | case 'c':
p++;
#ifdef YYDEBUG
yydebug++;
#endif /* YYDEBUG */
break;
|
cd8352 | 1998-02-02 | Fredrik Hübinette (Hubbe) | | case 's':
debug_options|=DEBUG_SIGNALS;
p++;
|
9b08a2 | 1998-03-31 | Fredrik Hübinette (Hubbe) | | goto more_d_flags;
case 't':
debug_options|=NO_TAILRECURSION;
|
cd8352 | 1998-02-02 | Fredrik Hübinette (Hubbe) | | p++;
|
9b08a2 | 1998-03-31 | Fredrik Hübinette (Hubbe) | | goto more_d_flags;
|
cd8352 | 1998-02-02 | Fredrik Hübinette (Hubbe) | |
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | | default:
d_flag += (p[0] == 'd');
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | p++;
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | | }
break;
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | |
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | | case 'r':
|
17e177 | 1999-12-13 | Per Hedbor | | more_r_flags:
switch(p[1])
{
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | | case 't':
runtime_options |= RUNTIME_CHECK_TYPES;
p++;
|
17e177 | 1999-12-13 | Per Hedbor | | goto more_r_flags;
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | |
case 'T':
runtime_options |= RUNTIME_STRICT_TYPES;
p++;
|
17e177 | 1999-12-13 | Per Hedbor | | goto more_r_flags;
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | |
|
17e177 | 1999-12-13 | Per Hedbor | | default:
p++;
|
7d955e | 1999-12-13 | Henrik Grubbström (Grubba) | | break;
|
cd8352 | 1998-02-02 | Fredrik Hübinette (Hubbe) | | }
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | break;
case 'a':
if(p[1]>='0' && p[1]<='9')
a_flag+=STRTOL(p+1,&p,10);
else
a_flag++,p++;
break;
case 't':
if(p[1]>='0' && p[1]<='9')
t_flag+=STRTOL(p+1,&p,10);
else
t_flag++,p++;
|
943f85 | 1998-04-13 | Henrik Grubbström (Grubba) | | default_t_flag = t_flag;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | break;
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | case 'p':
if(p[1]>='0' && p[1]<='9')
p_flag+=STRTOL(p+1,&p,10);
else
p_flag++,p++;
break;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | case 'l':
if(p[1]>='0' && p[1]<='9')
l_flag+=STRTOL(p+1,&p,10);
else
l_flag++,p++;
break;
default:
|
496707 | 1997-01-15 | Fredrik Hübinette (Hubbe) | | p+=strlen(p);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
}
}else{
break;
}
}
|
2a5096 | 1995-08-23 | Fredrik Hübinette (Hubbe) | | #if !defined(RLIMIT_NOFILE) && defined(RLIMIT_OFILE)
#define RLIMIT_NOFILE RLIMIT_OFILE
|
e17dbc | 1995-08-11 | David Hedbor | | #endif
|
2a5096 | 1995-08-23 | Fredrik Hübinette (Hubbe) | |
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top = (char *)&argv;
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | |
#if STACK_DIRECTION < 0
|
e0755c | 2000-08-15 | Henrik Grubbström (Grubba) | | Pike_interpreter.stack_top += (~((size_t)Pike_interpreter.stack_top)) & 0xffff;
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #else /* STACK_DIRECTION >= 0 */
|
e0755c | 2000-08-15 | Henrik Grubbström (Grubba) | | Pike_interpreter.stack_top -= ( ((size_t)Pike_interpreter.stack_top)) & 0xffff;
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #endif /* STACK_DIRECTION < 0 */
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | #if defined(HAVE_GETRLIMIT) && defined(RLIMIT_STACK)
{
struct rlimit lim;
if(!getrlimit(RLIMIT_STACK, &lim))
{
#ifdef RLIM_INFINITY
if(lim.rlim_cur == RLIM_INFINITY)
|
752e10 | 1999-04-30 | Fredrik Hübinette (Hubbe) | | lim.rlim_cur=1024*1024*32;
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | #endif
|
fcf073 | 2000-03-28 | Fredrik Hübinette (Hubbe) | |
#ifdef Pike_INITIAL_STACK_SIZE
if(lim.rlim_cur > Pike_INITIAL_STACK_SIZE)
lim.rlim_cur=Pike_INITIAL_STACK_SIZE;
#endif
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | #if defined(__linux__) && defined(PIKE_THREADS)
if(lim.rlim_cur > 2*1024*1024) lim.rlim_cur=2*1024*1024;
#endif
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top += STACK_DIRECTION * lim.rlim_cur;
|
752e10 | 1999-04-30 | Fredrik Hübinette (Hubbe) | |
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | #if defined(__linux__) && defined(HAVE_DLOPEN) && defined(HAVE_DLFCN_H)
|
07eda2 | 2000-07-05 | Fredrik Hübinette (Hubbe) | | {
char ** bos_location;
void *handle;
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | |
|
07eda2 | 2000-07-05 | Fredrik Hübinette (Hubbe) | | if((handle=dlopen(0, RTLD_LAZY)))
{
bos_location=dlsym(handle,"__pthread_initial_thread_bos");
dlclose(handle);
if(bos_location && *bos_location &&
|
0e7aa1 | 2000-08-05 | Fredrik Hübinette (Hubbe) | | (*bos_location - Pike_interpreter.stack_top) *STACK_DIRECTION < 0)
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | {
|
0e7aa1 | 2000-08-05 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top=*bos_location;
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | }
|
07eda2 | 2000-07-05 | Fredrik Hübinette (Hubbe) | | }
}
#else
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | #ifdef HAVE_PTHREAD_INITIAL_THREAD_BOS
|
752e10 | 1999-04-30 | Fredrik Hübinette (Hubbe) | | {
extern char * __pthread_initial_thread_bos;
if(__pthread_initial_thread_bos &&
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | (__pthread_initial_thread_bos - Pike_interpreter.stack_top) *STACK_DIRECTION < 0)
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | {
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top=__pthread_initial_thread_bos;
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | }
|
752e10 | 1999-04-30 | Fredrik Hübinette (Hubbe) | | }
|
d1913b | 2000-10-01 | Fredrik Hübinette (Hubbe) | | #endif /* HAVE_PTHREAD_INITIAL_THREAD_BOS */
#endif /* __linux__ && HAVE_DLOPEN && HAVE_DLFCN_H */
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top -= STACK_DIRECTION * 8192 * sizeof(char *);
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | |
#ifdef STACK_DEBUG
fprintf(stderr, "1: C-stack: 0x%08p - 0x%08p, direction:%d\n",
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | &argv, Pike_interpreter.stack_top, STACK_DIRECTION);
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #endif /* STACK_DEBUG */
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | | }
}
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #else /* !HAVE_GETRLIMIT || !RLIMIT_STACK */
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | Pike_interpreter.stack_top += STACK_DIRECTION * (1024*1024 * 8 - 8192 * sizeof(char *));
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #ifdef STACK_DEBUG
fprintf(stderr, "2: C-stack: 0x%08p - 0x%08p, direction:%d\n",
|
cd8632 | 2000-07-06 | Fredrik Hübinette (Hubbe) | | &argv, Pike_interpreter.stack_top, STACK_DIRECTION);
|
a9388a | 1998-09-02 | Henrik Grubbström (Grubba) | | #endif /* STACK_DEBUG */
#endif /* HAVE_GETRLIMIT && RLIMIT_STACK */
|
490887 | 1998-08-10 | Fredrik Hübinette (Hubbe) | |
|
172631 | 2000-05-20 | Per Hedbor | | #if 0
|
2a5096 | 1995-08-23 | Fredrik Hübinette (Hubbe) | | #if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
struct rlimit lim;
|
f90e54 | 1995-08-17 | Fredrik Hübinette (Hubbe) | | long tmp;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | if(!getrlimit(RLIMIT_NOFILE, &lim))
{
|
5c8e89 | 1995-10-29 | Fredrik Hübinette (Hubbe) | | #ifdef RLIM_INFINITY
if(lim.rlim_max == RLIM_INFINITY)
lim.rlim_max=MAX_OPEN_FILEDESCRIPTORS;
#endif
|
f90e54 | 1995-08-17 | Fredrik Hübinette (Hubbe) | | tmp=MINIMUM(lim.rlim_max, MAX_OPEN_FILEDESCRIPTORS);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | lim.rlim_cur=tmp;
setrlimit(RLIMIT_NOFILE, &lim);
}
}
|
172631 | 2000-05-20 | Per Hedbor | | #endif
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #endif
|
408126 | 1998-04-23 | Fredrik Hübinette (Hubbe) | |
|
6e37dc | 1996-06-21 | Fredrik Hübinette (Hubbe) | | GETTIMEOFDAY(¤t_time);
|
408126 | 1998-04-23 | Fredrik Hübinette (Hubbe) | |
|
378b2d | 1997-02-06 | Fredrik Hübinette (Hubbe) | | init_shared_string_table();
init_interpreter();
|
aee13c | 1998-05-25 | Henrik Grubbström (Grubba) | | init_types();
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | | init_cpp();
|
378b2d | 1997-02-06 | Fredrik Hübinette (Hubbe) | | init_lex();
|
421801 | 1999-01-31 | Fredrik Hübinette (Hubbe) | | init_program();
|
a5787d | 1999-03-03 | Fredrik Hübinette (Hubbe) | | init_object();
|
a91ca0 | 1998-07-10 | Henrik Grubbström (Grubba) | | low_th_init();
|
378b2d | 1997-02-06 | Fredrik Hübinette (Hubbe) | | init_modules();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | master();
|
ddea55 | 1996-07-01 | Fredrik Hübinette (Hubbe) | | call_callback(& post_master_callbacks, 0);
|
ecf145 | 1998-03-21 | Fredrik Hübinette (Hubbe) | | free_callback_list(& post_master_callbacks);
|
496707 | 1997-01-15 | Fredrik Hübinette (Hubbe) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | if(SETJMP(back))
{
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | if(throw_severity == THROW_EXIT)
{
num=throw_value.u.integer;
}else{
|
669704 | 2000-11-20 | Martin Stjernholm | | call_handle_error();
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | num=10;
}
}else{
back.severity=THROW_EXIT;
|
fe5eb0 | 1998-01-31 | Fredrik Hübinette (Hubbe) | |
a=allocate_array_no_init(argc,0);
for(num=0;num<argc;num++)
{
ITEM(a)[num].u.string=make_shared_string(argv[num]);
ITEM(a)[num].type=T_STRING;
}
push_array(a);
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | |
|
fe5eb0 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | for(num=0;environ[num];num++);
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);
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | apply(master(),"_main",2);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | pop_stack();
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | num=0;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
UNSETJMP(back);
|
eb2fd5 | 2000-11-06 | Henrik Grubbström (Grubba) | | pike_do_exit(num);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | return num;
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | }
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | #undef ATTRIBUTE
#define ATTRIBUTE(X)
|
eb2fd5 | 2000-11-06 | Henrik Grubbström (Grubba) | | DECLSPEC(noreturn) void pike_do_exit(int num) ATTRIBUTE((noreturn))
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | {
call_callback(&exit_callbacks, (void *)0);
|
ecf145 | 1998-03-21 | Fredrik Hübinette (Hubbe) | | free_callback_list(&exit_callbacks);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | exit_modules();
|
291600 | 1998-01-16 | Henrik Grubbström (Grubba) | |
|
2043ba | 1998-02-10 | Fredrik Hübinette (Hubbe) | | #ifdef DEBUG_MALLOC
{
|
88a1ad | 1998-04-01 | Henrik Grubbström (Grubba) | | extern void cleanup_memhdrs(void);
|
2043ba | 1998-02-10 | Fredrik Hübinette (Hubbe) | | cleanup_memhdrs();
}
#endif
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | exit(num);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
|
156fd5 | 1997-10-27 | Fredrik Hübinette (Hubbe) | | void low_init_main(void)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
|
87f908 | 2001-03-12 | Fredrik Hübinette (Hubbe) | | init_backend();
|
4cdb80 | 2001-02-23 | Fredrik Hübinette (Hubbe) | | init_iterators();
|
9b1f03 | 2000-10-09 | Fredrik Hübinette (Hubbe) | | init_pike_searching();
|
f01a52 | 1999-08-14 | Fredrik Hübinette (Hubbe) | | init_error();
|
7e97c3 | 1999-01-21 | Fredrik Hübinette (Hubbe) | | init_pike_security();
|
378b2d | 1997-02-06 | Fredrik Hübinette (Hubbe) | | th_init();
|
19aaeb | 1998-05-25 | Fredrik Hübinette (Hubbe) | | init_operators();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | init_builtin_efuns();
|
cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | init_signals();
|
ca74dd | 1996-10-08 | Fredrik Hübinette (Hubbe) | | init_dynamic_load();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
|
378b2d | 1997-02-06 | Fredrik Hübinette (Hubbe) | | void exit_main(void)
|
156fd5 | 1997-10-27 | Fredrik Hübinette (Hubbe) | | {
|
5f0624 | 1999-04-11 | Fredrik Hübinette (Hubbe) | | #ifdef DO_PIKE_CLEANUP
|
156fd5 | 1997-10-27 | Fredrik Hübinette (Hubbe) | | cleanup_objects();
|
5f0624 | 1999-04-11 | Fredrik Hübinette (Hubbe) | | #endif
|
156fd5 | 1997-10-27 | Fredrik Hübinette (Hubbe) | | }
void init_main(void)
{
}
void low_exit_main(void)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
|
5f0624 | 1999-04-11 | Fredrik Hübinette (Hubbe) | | #ifdef DO_PIKE_CLEANUP
|
be478c | 1997-08-30 | Henrik Grubbström (Grubba) | | void cleanup_added_efuns(void);
void cleanup_pike_types(void);
void cleanup_program(void);
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | void cleanup_compiler(void);
|
8fbb36 | 1998-04-06 | Henrik Grubbström (Grubba) | | void cleanup_backend(void);
|
4be46f | 2000-03-07 | Fredrik Hübinette (Hubbe) | | void free_all_mapping_blocks(void);
|
648a1a | 2000-06-22 | Fredrik Hübinette (Hubbe) | | void free_all_object_blocks(void);
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
e37a3e | 1999-10-09 | Fredrik Hübinette (Hubbe) | | #ifdef AUTO_BIGNUM
void exit_auto_bignum(void);
exit_auto_bignum();
#endif
|
9b1f03 | 2000-10-09 | Fredrik Hübinette (Hubbe) | | exit_pike_searching();
|
6d1a5e | 1996-10-07 | Fredrik Hübinette (Hubbe) | | th_cleanup();
|
a5787d | 1999-03-03 | Fredrik Hübinette (Hubbe) | | exit_object();
|
c52c6a | 1997-01-14 | Niels Möller | | exit_dynamic_load();
|
cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | exit_signals();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | exit_lex();
|
574088 | 1998-01-01 | Fredrik Hübinette (Hubbe) | | exit_cpp();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | cleanup_interpret();
cleanup_added_efuns();
|
19aaeb | 1998-05-25 | Fredrik Hübinette (Hubbe) | | exit_operators();
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | cleanup_pike_types();
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | cleanup_program();
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | cleanup_compiler();
|
4cdb80 | 2001-02-23 | Fredrik Hübinette (Hubbe) | | exit_iterators();
|
8310c6 | 1999-03-19 | Fredrik Hübinette (Hubbe) | | cleanup_error();
|
8fbb36 | 1998-04-06 | Henrik Grubbström (Grubba) | | cleanup_backend();
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | |
|
cee581 | 1999-12-05 | Henrik Grubbström (Grubba) | | #ifdef SHARED_NODES
free(node_hash.table);
#endif /* SHARED_NODES */
|
1ab7c6 | 1999-04-08 | Fredrik Hübinette (Hubbe) | | exit_pike_security();
|
f54521 | 1998-01-27 | Fredrik Hübinette (Hubbe) | | free_svalue(& throw_value);
throw_value.type=T_INT;
|
fccf99 | 2000-04-07 | Fredrik Hübinette (Hubbe) | | do_gc();
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | |
|
da0627 | 2000-08-22 | Henrik Grubbström (Grubba) | | cleanup_gc();
|
71f3a2 | 1998-11-22 | Fredrik Hübinette (Hubbe) | | #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | if(verbose_debug_exit)
{
INT32 num,size,recount=0;
|
2043ba | 1998-02-10 | Fredrik Hübinette (Hubbe) | | fprintf(stderr,"Exited normally, counting bytes.\n");
|
56ac10 | 2000-03-29 | Fredrik Hübinette (Hubbe) | |
#ifdef _REENTRANT
if(count_pike_threads()>1)
{
fprintf(stderr,"Byte counting aborted, because all threads have not exited properly.\n");
verbose_debug_exit=0;
return;
}
#endif
|
25479a | 2000-03-07 | Fredrik Hübinette (Hubbe) | | search_all_memheaders_for_references();
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | |
count_memory_in_arrays(&num, &size);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | if(num)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | {
recount++;
fprintf(stderr,"Arrays left: %d (%d bytes) (zapped)\n",num,size);
}
zap_all_arrays();
count_memory_in_mappings(&num, &size);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | if(num)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | {
recount++;
fprintf(stderr,"Mappings left: %d (%d bytes) (zapped)\n",num,size);
}
zap_all_mappings();
count_memory_in_multisets(&num, &size);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | if(num)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | fprintf(stderr,"Multisets left: %d (%d bytes)\n",num,size);
if(recount)
{
fprintf(stderr,"Garbage collecting..\n");
do_gc();
count_memory_in_arrays(&num, &size);
fprintf(stderr,"Arrays left: %d (%d bytes)\n",num,size);
count_memory_in_mappings(&num, &size);
fprintf(stderr,"Mappings left: %d (%d bytes)\n",num,size);
count_memory_in_multisets(&num, &size);
fprintf(stderr,"Multisets left: %d (%d bytes)\n",num,size);
}
count_memory_in_programs(&num, &size);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | if(num)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | fprintf(stderr,"Programs left: %d (%d bytes)\n",num,size);
{
struct program *p;
for(p=first_program;p;p=p->next)
|
a4033e | 2000-04-14 | Fredrik Hübinette (Hubbe) | | describe_something(p, T_PROGRAM, 0,2,0);
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | }
count_memory_in_objects(&num, &size);
|
3c0c28 | 1998-01-26 | Fredrik Hübinette (Hubbe) | | if(num)
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | fprintf(stderr,"Objects left: %d (%d bytes)\n",num,size);
|
26dc07 | 2000-04-06 | Fredrik Hübinette (Hubbe) | | {
struct object *o;
for(o=first_object;o;o=o->next)
|
a4033e | 2000-04-14 | Fredrik Hübinette (Hubbe) | | describe_something(o, T_OBJECT, 0,2,0);
|
26dc07 | 2000-04-06 | Fredrik Hübinette (Hubbe) | | }
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | cleanup_shared_string_table();
}
#else
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | zap_all_arrays();
|
cbd60b | 1996-12-04 | Fredrik Hübinette (Hubbe) | | zap_all_mappings();
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | |
|
87f908 | 2001-03-12 | Fredrik Hübinette (Hubbe) | | exit_backend();
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | cleanup_shared_string_table();
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | #endif
|
5b7b06 | 1999-04-08 | Fredrik Hübinette (Hubbe) | |
|
b660c8 | 1999-03-01 | Fredrik Hübinette (Hubbe) | | really_clean_up_interpret();
|
5f0624 | 1999-04-11 | Fredrik Hübinette (Hubbe) | |
|
5b7b06 | 1999-04-08 | Fredrik Hübinette (Hubbe) | | cleanup_callbacks();
free_all_callable_blocks();
exit_destroy_called_mark_hash();
|
f6f384 | 2000-03-07 | Fredrik Hübinette (Hubbe) | |
|
da667d | 2000-09-28 | Henrik Grubbström (Grubba) | | free_dynamic_load();
|
22ef9c | 2000-09-30 | Martin Stjernholm | | first_mapping=0;
|
4be46f | 2000-03-07 | Fredrik Hübinette (Hubbe) | | free_all_mapping_blocks();
|
22ef9c | 2000-09-30 | Martin Stjernholm | | first_object=0;
|
648a1a | 2000-06-22 | Fredrik Hübinette (Hubbe) | | free_all_object_blocks();
|
5b7b06 | 1999-04-08 | Fredrik Hübinette (Hubbe) | | #endif
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
|
7965d7 | 2001-01-24 | Fredrik Hübinette (Hubbe) | |
|