projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implemented saveFile method and extended loadFile method to work with it.
[ir-tcl-moved-to-github.git]
/
explain.c
diff --git
a/explain.c
b/explain.c
index
8227d70
..
6befc11
100644
(file)
--- a/
explain.c
+++ b/
explain.c
@@
-5,7
+5,10
@@
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: explain.c,v $
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: explain.c,v $
- * Revision 1.2 1996-08-20 09:27:48 adam
+ * Revision 1.3 1996-08-21 13:32:50 adam
+ * Implemented saveFile method and extended loadFile method to work with it.
+ *
+ * Revision 1.2 1996/08/20 09:27:48 adam
* More work on explain.
* Renamed tkinit.c to tkmain.c. The tcl shell uses the Tcl 7.5 interface
* for socket i/o instead of the handcrafted one (for Tcl 7.3 and Tcl7.4).
* More work on explain.
* Renamed tkinit.c to tkmain.c. The tcl shell uses the Tcl 7.5 interface
* for socket i/o instead of the handcrafted one (for Tcl 7.3 and Tcl7.4).
@@
-177,7
+180,10
@@
static int
ir_match_start (const char *name, void *p, IrExpArg *iea, int argi)
{
if (!p)
ir_match_start (const char *name, void *p, IrExpArg *iea, int argi)
{
if (!p)
+ {
+ Tcl_AppendResult (iea->interp, name, " ", NULL);
return 0;
return 0;
+ }
if (argi < iea->argc)
{
if (strcmp (name, iea->argv[argi]))
if (argi < iea->argc)
{
if (strcmp (name, iea->argv[argi]))
@@
-211,7
+217,7
@@
static int ir_null (IrExpArg *iea,
{
if (!ir_match_start (name, p, iea, ++argi))
return TCL_OK;
{
if (!ir_match_start (name, p, iea, ++argi))
return TCL_OK;
- Tcl_AppendResult (iea->interp, "{} ", NULL);
+ Tcl_AppendResult (iea->interp, "1 ", NULL);
return ir_match_end (name, iea, argi);
}
return ir_match_end (name, iea, argi);
}