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

- improvements and bug fixes

Browse Source
This commit is contained in:
zolliker
2010-04-13 14:32:18 +00:00
parent 410166572b
commit 9e4eabeed1
6 changed files with 144 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
pardef.c
View File

@ -472,11 +472,13 @@ static int ParExecute(SConnection * con, SicsInterp * sics, void *object,
if (argc >= 2 && 0 == strcasecmp(argv[1], "loggeditems")) {
pDynString dyn = CreateDynString(124,128);
for (info = o->infoList; info != NULL; info = info->next) {
if (info->log) {
if (info->log && (argc==2 || strcasecmp(argv[2], info->name) == 0)) {
DynStringConcat(dyn, " ");
DynStringConcat(dyn, argv[0]);
DynStringConcat(dyn, ".");
DynStringConcat(dyn, info->name);
if (info->name[0] != '\0') {
DynStringConcat(dyn, ".");
DynStringConcat(dyn, info->name);
}
}
}
SCWrite(con, GetCharArray(dyn) + 1, eValue);
@ -1058,8 +1060,8 @@ void ParOut(char *buf)
} else {
p = "";
}
ParPrintf(NULL, eValue, "%s%s%s = %s", ctx->callName, p, ctx->parName,
buf);
ParPrintf(NULL, eValue, "%s%s%s = %s", ctx->callName,
p, ctx->parName, buf);
break;
case PAR_SET:
if (ctx->parName[0]) {
@ -1100,8 +1102,13 @@ void ParOut(char *buf)
}
break;
case PAR_SAVE:
fprintf(ctx->saveFile, " %s %s %s\n", ctx->obj->name, ctx->parName,
buf);
if (strchr(buf, '\n') != NULL) {
fprintf(ctx->saveFile, " %s %s {%s}\n", ctx->obj->name,
ctx->parName, buf);
} else {
fprintf(ctx->saveFile, " %s %s %s\n", ctx->obj->name,
ctx->parName, buf);
}
break;
default:
break;