aboutsummaryrefslogtreecommitdiff
path: root/jim.c
diff options
context:
space:
mode:
authorantirez <antirez>2005-02-26 23:39:58 +0000
committerantirez <antirez>2005-02-26 23:39:58 +0000
commit11413f8ba78d645ab790b6e3f2e154ba081d46c3 (patch)
tree740536f810a0a39640e1ae62b10b82b001b450e1 /jim.c
parent1453584a33f57a7863c4e64aca4d58777ebc9de9 (diff)
downloadjimtcl-11413f8ba78d645ab790b6e3f2e154ba081d46c3.zip
jimtcl-11413f8ba78d645ab790b6e3f2e154ba081d46c3.tar.gz
jimtcl-11413f8ba78d645ab790b6e3f2e154ba081d46c3.tar.bz2
ifcorecommand indented using Jim's source style.
Diffstat (limited to 'jim.c')
-rw-r--r--jim.c39
1 files changed, 25 insertions, 14 deletions
diff --git a/jim.c b/jim.c
index 88cca1e..f801d49 100644
--- a/jim.c
+++ b/jim.c
@@ -7096,24 +7096,35 @@ int Jim_IfCoreCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
int boolean, retval, current = 1, falsebody = 0;
if (argc >= 3) {
while (1) {
- if (current >= argc) goto err; /* Far not enough arguments given! */
- if ((retval = Jim_GetBoolFromExpr(interp, argv[current++], &boolean))
+ /* Far not enough arguments given! */
+ if (current >= argc) goto err;
+ if ((retval = Jim_GetBoolFromExpr(interp,
+ argv[current++], &boolean))
!= JIM_OK)
return retval;
- if (current >= argc) goto err; /* There lacks something, isn't it? */
- if (Jim_CompareStringImmediate(interp, argv[current], "then"))
- current++;
- if (current >= argc) goto err; /* Tsk tsk, no then-clause? */
- if (boolean)
- return Jim_EvalObj(interp, argv[current]);
- if (++current >= argc) return JIM_OK; /* Ok: no else-clause follows */
+ /* There lacks something, isn't it? */
+ if (current >= argc) goto err;
+ if (Jim_CompareStringImmediate(interp, argv[current],
+ "then")) current++;
+ /* Tsk tsk, no then-clause? */
+ if (current >= argc) goto err;
+ if (boolean)
+ return Jim_EvalObj(interp, argv[current]);
+ /* Ok: no else-clause follows */
+ if (++current >= argc) return JIM_OK;
falsebody = current++;
- if (Jim_CompareStringImmediate(interp, argv[falsebody], "else")) {
- if (current != argc-1) goto err; /* IIICKS - else-clause isn't last cmd? */
+ if (Jim_CompareStringImmediate(interp, argv[falsebody],
+ "else")) {
+ /* IIICKS - else-clause isn't last cmd? */
+ if (current != argc-1) goto err;
return Jim_EvalObj(interp, argv[current]);
- } else if (Jim_CompareStringImmediate(interp, argv[falsebody], "elseif"))
- continue; /* Ok: elseif follows meaning all the stuff again (how boring...) */
- else if (falsebody != argc-1) /* OOPS - else-clause is not last cmd?*/
+ } else if (Jim_CompareStringImmediate(interp,
+ argv[falsebody], "elseif"))
+ /* Ok: elseif follows meaning all the stuff
+ * again (how boring...) */
+ continue;
+ /* OOPS - else-clause is not last cmd?*/
+ else if (falsebody != argc-1)
goto err;
return Jim_EvalObj(interp, argv[falsebody]);
}