JehanneOS/mksh
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

debugging bugs in optimising

Browse Source
This commit is contained in:
tg 2017-04-27 22:38:49 +00:00
parent d54d4aab50
commit 8bd529a08c
1 changed files with 102 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
main.c
View File

@ -34,7 +34,7 @@
#include <locale.h>
#endif
__RCSID("$MirOS: src/bin/mksh/main.c,v 1.338 2017/04/27 20:22:25 tg Exp $");
__RCSID("$MirOS: src/bin/mksh/main.c,v 1.339 2017/04/27 22:38:49 tg Exp $");
extern char **environ;
@ -410,6 +410,107 @@ main_init(int argc, const char *argv[], Source **sp, struct block **lp)
/* for security */
typeset(TinitIFS, 0, 0, 0, 0);
#define d(p,c) do { \
if (c < 33 || c > 0x7E) \
shellf("%s\\x%02X", p, c); \
else \
shellf("%s%c", p, c); \
} while (0)
#define dmpcf(a,f) do { \
int c = -1, lc = -3, il = 0; \
shellf("%s\t",a); \
while (++c < 256) { \
if (!f) continue; \
if (lc + 1 == c) { \
il = 1; \
} else { \
if (il) \
d("‥", lc); \
il = 0; \
d("", c); \
} \
lc = c; \
} \
if (il) \
d("‥", lc); \
shellf(" █\n"); \
} while (0)
#define dmpct(a,b) dmpcf(a,ctype(c,b))
dmpct("C_ALIAS", C_ALIAS);
dmpct("C_ALNUM", C_ALNUM);
dmpct("C_ALNUX", C_ALNUX);
dmpct("C_ALPHA", C_ALPHA);
dmpct("C_ALPHX", C_ALPHX);
dmpct("C_BLANK", C_BLANK);
dmpct("C_CFS", C_CFS);
dmpct("C_CNTRL", C_CNTRL);
dmpct("C_COLON", C_COLON);
dmpct("C_DIGIT", C_DIGIT);
dmpct("C_DOLAR", C_DOLAR);
dmpct("C_EDCMD", C_EDCMD);
dmpct("C_EDNWC", C_EDNWC);
dmpct("C_EDQ", C_EDQ);
dmpct("C_GRAPH", C_GRAPH);
dmpct("C_HASH", C_HASH);
dmpct("C_HEXLT", C_HEXLT);
dmpct("C_IFS", C_IFS);
dmpct("C_IFSWS", C_IFSWS);
dmpct("C_LEX1", C_LEX1);
dmpct("C_LF", C_LF);
dmpct("C_LOWER", C_LOWER);
dmpct("C_MFS", C_MFS);
dmpct("C_NL", C_NL);
dmpct("C_NL", C_NL);
dmpct("C_NUL", C_NUL);
dmpct("C_OCTAL", C_OCTAL);
dmpct("C_PATMO", C_PATMO);
dmpct("C_PRINT", C_PRINT);
dmpct("C_PUNCT", C_PUNCT);
dmpct("C_QC", C_QC);
dmpct("C_QUOTE", C_QUOTE);
dmpct("C_SEDEC", C_SEDEC);
dmpct("C_SPACE", C_SPACE);
dmpct("C_SPC", C_SPC);
dmpct("C_SUB1", C_SUB1);
dmpct("C_SUB2", C_SUB2);
dmpct("C_TAB", C_TAB);
dmpct("C_UNDER", C_UNDER);
dmpct("C_UPPER", C_UPPER);
dmpct("C_VAR1", C_VAR1);
dmpct("CiALIAS", CiALIAS);
dmpct("CiANGLE", CiANGLE);
dmpct("CiCBRK", CiCBRK);
dmpct("CiCNTRL", CiCNTRL);
dmpct("CiCOLON", CiCOLON);
dmpct("CiCR", CiCR);
dmpct("CiCURLY", CiCURLY);
dmpct("CiDIGIT", CiDIGIT);
dmpct("CiEQUAL", CiEQUAL);
dmpct("CiGRAVE", CiGRAVE);
dmpct("CiHASH", CiHASH);
dmpct("CiHEXLT", CiHEXLT);
dmpct("CiIFS", CiIFS);
dmpct("CiLOWER", CiLOWER);
dmpct("CiMINUS", CiMINUS);
dmpct("CiNL", CiNL);
dmpct("CiNUL", CiNUL);
dmpct("CiOCTAL", CiOCTAL);
dmpct("CiPERCT", CiPERCT);
dmpct("CiPLUS", CiPLUS);
dmpct("CiQC", CiQC);
dmpct("CiQCL", CiQCL);
dmpct("CiQCM", CiQCM);
dmpct("CiQCX", CiQCX);
dmpct("CiQUEST", CiQUEST);
dmpct("CiSP", CiSP);
dmpct("CiSPX", CiSPX);
dmpct("CiSS", CiSS);
dmpct("CiTAB", CiTAB);
dmpct("CiUNDER", CiUNDER);
dmpct("CiUPPER", CiUPPER);
dmpct("CiVAR1", CiVAR1);
exit(0);
/* assign default shell variable values */
typeset("PATHSEP=" MKSH_PATHSEPS, 0, 0, 0, 0);
substitute(initsubs, 0);