APWTCL Arnulf's Preferred Web Tcl

Diff
Login

Diff

Differences From Artifact [1bf6b71436]:

To Artifact [84992a09d9]:


29
30
31
32
33
34
35
36

37
38
39
40

41
42
43
44

45
46
47
48

49
50
51
52

53
54
55
56
57
58
59
29
30
31
32
33
34
35

36
37
38
39

40
41
42
43

44
45
46
47

48
49
50
51

52
53
54
55
56
57
58
59







-
+



-
+



-
+



-
+



-
+







    oid++;
    id = oid;

    HashMap<String, ArrayList<ApwtclObj>> cmds = new HashMap<String, ArrayList<ApwtclObj>>();
    
    ArrayList<ApwtclObj> sub_cmds;
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Append ::append", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("AppendCommand ::append", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("append", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Break ::break", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("BreakCommand ::break", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("break", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Catch ::catch", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("CatchCommand ::catch", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("catch", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Concat ::concat", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ConcatCommand ::concat", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("concat", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Continue ::continue", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ContinueCommand ::continue", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("continue", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("Eval ::eval", -1, "CORE_COMMAND_PACKAGES_1"));
    cmds.put("eval", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();