APWTCL Arnulf's Preferred Web Tcl

Diff
Login

Diff

Differences From Artifact [34db7a0ed3]:

To Artifact [6a5b2d3b8e]:


59
60
61
62
63
64
65




66
67
68
69
70
71
72
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("EvalCommand ::eval", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("eval", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ExprCommand ::expr", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("expr", sub_cmds);




    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("IfCommand ::if", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("if", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("IncrCommand ::incr", -1, "CORE_COMMAND_PACKAGES_1"));







>
>
>
>







59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("EvalCommand ::eval", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("eval", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ExprCommand ::expr", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("expr", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ForeachCommand ::foreach", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("foreach", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("IfCommand ::if", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("if", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("IncrCommand ::incr", -1, "CORE_COMMAND_PACKAGES_1"));