conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Case-insensitive symbols by default. 

git-svn-id: svn://svn.zoy.org/elk/trunk@180 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-23 12:16:43 +00:00
parent 957e491bba
commit b4d94a2c5a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/libelk.c
View File

@ -99,7 +99,7 @@ int Stack_Grows_Down;
unsigned int Max_Stack; unsigned int Max_Stack;
int Interpreter_Initialized; int Interpreter_Initialized;
int GC_Debug = 0; int GC_Debug = 0;
int Case_Insensitive; int Case_Insensitive = 1;
int Verb_Load = 0, Verb_Init = 0; int Verb_Load = 0, Verb_Init = 0;
char **Argv; char **Argv;
@ -244,8 +244,10 @@ void Elk_Init (int ac, char **av, int init_objects, char *toplevel) {
#endif #endif
for ( ; First_Arg < ac; First_Arg++) { for ( ; First_Arg < ac; First_Arg++) {
if (strcmp (av[First_Arg], "-g") == 0) { if (strcmp (av[First_Arg], "-debug") == 0) {
debug = 1; debug = 1;
} else if (strcmp (av[First_Arg], "-g") == 0) {
Case_Insensitive = 0;
} else if (strcmp (av[First_Arg], "-i") == 0) { } else if (strcmp (av[First_Arg], "-i") == 0) {
Case_Insensitive = 1; Case_Insensitive = 1;
} else if (strcmp (av[First_Arg], "-v") == 0) { } else if (strcmp (av[First_Arg], "-v") == 0) {
@ -345,7 +347,8 @@ static char *Usage_Msg[] = {
" [-l -] Load from standard input", " [-l -] Load from standard input",
" [-h heapsize] Heap size in KBytes", " [-h heapsize] Heap size in KBytes",
" [-p loadpath] Initialize load-path (colon-list of directories)", " [-p loadpath] Initialize load-path (colon-list of directories)",
" [-g] Enable GC-debugging", " [-debug] Enable GC-debugging",
" [-g] Case-sensitive symbols",
" [-i] Case-insensitive symbols", " [-i] Case-insensitive symbols",
" [-v type] Be verbose. \"type\" controls what to print:", " [-v type] Be verbose. \"type\" controls what to print:",
" load linker command when loading object file", " load linker command when loading object file",