external/cde
1
0
Fork 0
mirror of git://git.code.sf.net/p/cdesktopenv/code synced 2025-03-09 15:50:02 +00:00
Code Issues Releases Wiki Activity

docbook/instant: fix a few more issues

Browse source
This commit is contained in:
Jon Trulson 2018-09-19 11:28:48 -06:00
parent 776e031b60
commit 7712950fb7
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
cde/programs/dtdocbook/doc2sdl/docbook.tcl
View file

@ -1624,10 +1624,12 @@ proc EndPart {} {
# check that all the glossed terms have been defined
foreach name [array names currentGlossArray] {
if {[lindex $currentGlossArray($name) 1] != "defined"} {
set glossString [lindex $currentGlossArray($name) 2]
UserError "No glossary definition for \"$glossString\"" no
}
if {[info exists currentGlossArray($name)]} {
if {[lindex $currentGlossArray($name) 1] != "defined"} {
set glossString [lindex $currentGlossArray($name) 2]
UserError "No glossary definition for \"$glossString\"" no
}
}
}
# delete this glossary array

5
cde/programs/dtdocbook/instant/main.c
View file

@ -376,7 +376,7 @@ static int DefaultOutputString(ClientData clientData,
pArgv = argv[1];
stringLength = (2 * strlen(pArgv)) + 3;
string = malloc(stringLength);
string = Tcl_Alloc(stringLength);
memset(string, 0, stringLength);
pString = string;
@ -403,8 +403,7 @@ static int DefaultOutputString(ClientData clientData,
/* put the string to the output */
retCode = Tcl_VarEval(interpreter, "puts -nonewline ", string, 0);
free(string);
Tcl_Free(string);
/* and ripple up any error code we got from the "puts" */
return retCode;