diff options
author | antirez <antirez> | 2005-02-26 23:39:58 +0000 |
---|---|---|
committer | antirez <antirez> | 2005-02-26 23:39:58 +0000 |
commit | 11413f8ba78d645ab790b6e3f2e154ba081d46c3 (patch) | |
tree | 740536f810a0a39640e1ae62b10b82b001b450e1 /jim.c | |
parent | 1453584a33f57a7863c4e64aca4d58777ebc9de9 (diff) | |
download | jimtcl-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.c | 39 |
1 files changed, 25 insertions, 14 deletions
@@ -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]); } |