153 |
#endif |
#endif |
154 |
if (!initflag) { |
if (!initflag) { |
155 |
|
|
156 |
system_directory= (char *) malloc(strlen(argv[0])+3); |
system_directory= (char *) malloc(strlen(argv[1])+3); |
157 |
|
|
158 |
strcpy(system_directory, argv[0]); |
strcpy(system_directory, argv[1]); |
159 |
if (system_directory[0] != '/') |
if (system_directory[0] != '/') |
160 |
strcpy(system_directory, "./"); |
strcpy(system_directory, "./"); |
161 |
else { |
else { |
770 |
return stack_multiple; |
return stack_multiple; |
771 |
} |
} |
772 |
|
|
773 |
|
DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,""); |
774 |
|
|
775 |
void |
void |
776 |
siLinit_system(void) { |
siLinit_system(void) { |
777 |
check_arg(0); |
check_arg(0); |
778 |
init_system(); |
init_system(sSAno_initA); |
779 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
780 |
} |
} |
781 |
|
|