linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve behaviour of listening to log in SEA cases

Browse Source 
use strcasecmp for certain commands
This commit is contained in:
zolliker
2024-11-14 09:08:20 +01:00
parent 1f02f21aa7
commit c7402c0fcc
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
loglisten.c
View File

@ -133,15 +133,16 @@ int AnalyzeCommand(char *command) {
Tcl_SplitList(NULL, command, &argc, &argv); Tcl_SplitList(NULL, command, &argc, &argv);
arg0 = 0; arg0 = 0;
if (argc > 0 && (strcmp(argv[0], "fulltransact") == 0 if (argc > 0 && (strcasecmp(argv[0], "fulltransact") == 0
|| strcmp(argv[0], "transact") == 0)) { || strcasecmp(argv[0], "transact") == 0)) {
arg0 = 1; arg0 = 1;
} }
if (argc <= arg0 + 1) { if (argc <= arg0 + 1) {
writable = 0; /* single word -> guess read only */ writable = 0; /* single word -> guess read only */
goto Free; goto Free;
} }
if (strcmp(argv[arg0], "sicsdescriptor") == 0 if (strcmp(argv[arg0], "hval") == 0
|| strcmp(argv[arg0], "sicsdescriptor") == 0
|| strcmp(argv[arg0], "_tcl") == 0) { || strcmp(argv[arg0], "_tcl") == 0) {
writable = 0; writable = 0;
goto Free; goto Free;