trying to debug, additional rewrites

This commit is contained in:
Ondřej Novák 2025-01-26 21:36:03 +01:00
parent 378b5586ab
commit 42f780a729
87 changed files with 1771 additions and 529 deletions

View file

@ -132,7 +132,7 @@ const char *GetLexLibPath()
static char c[MAX_PATH];
char *z;
GetModuleFileName(0,c,MAX_PATH);
z=strrchr(c,'\\')+1;
z=strrchr(c,PATH_SEPARATOR_CHR)+1;
strcpy(z,"lex_lib.exe");
return c;
}
@ -149,8 +149,8 @@ main(int argc,char *argv[])
exit(0);
}
puts("");
puts("Probˇh  kompilace:");
puts(" Spouçtˇm program LEX_LIB.EXE\n");
puts("Prob<EFBFBD>h<EFBFBD> kompilace:");
puts(" Spou<EFBFBD>t<EFBFBD>m program LEX_LIB.EXE\n");
putenv("DOS4G=QUIET");
z=(char *)malloc(strlen(argv[1])+10);
sprintf(z,"\"%s\"",argv[1]);
@ -162,8 +162,8 @@ main(int argc,char *argv[])
puts("Nemohu spustit program lex_lib.exe");
exit(1);
}
puts("Byla kompilov na tato kouzla:");
puts("¬ˇslo, zaź tek, jmeno:");
puts("Byla kompilov<EFBFBD>na tato kouzla:");
puts("<EFBFBD><EFBFBD>slo, za<7A><61>tek, jmeno:");
puts("======================");
memset(kouzla_tab,0,sizeof(kouzla_tab));
init("temp.$$$");
@ -172,8 +172,8 @@ main(int argc,char *argv[])
fclose(source);
save_tab("kouzla.dat");
remove("temp.$$$");
puts("Kompilace ŁspŘçn ...");
printf("Dlka k˘du: %d (+%d)",codesize,sizeof(kouzla_tab));
puts("Kompilace <EFBFBD>sp<EFBFBD><EFBFBD>n<EFBFBD>...");
printf("D<EFBFBD>lka k<>du: %d (+%d)",codesize,sizeof(kouzla_tab));
}