APWTCL Arnulf's Preferred Web Tcl

Diff
Login

Diff

Annotate Patch Side-by-side Diff

Differences From Artifact [a139572706]:

To Artifact [ff38e0076c]:

︙
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
60

61
62
63
64

65
66
67
68

69
70
71
72

73
74
75
76

77
78
79
80

81
82
83
84

85
86
87
88

89
90
91
92

93
94
95
96

97
98
99
100

101
102
103
104

105
106
107
108

109
110
111
112

113
114
115
116

117
118
119
120

121
122
123
124

125
126
127
128

129
130
131
132

133
134
135
136

137
138
139




140

141
142
143
144

145
146
147
148

149
150
151
152

153
154
155
156

157
158
159
160

161
162
163
164

165
166
167
168

169
170
171
172

173
174
175
176

177
178
179
180
181
182
183

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

60
61
62
63

64
65
66
67

68
69
70
71

72
73
74
75

76
77
78
79

80
81
82
83

84
85
86
87

88
89
90
91

92
93
94
95

96
97
98
99

100
101
102
103

104
105
106
107

108
109
110
111

112
113
114
115

116
117
118
119

120
121
122
123

124
125
126
127

128
129
130
131

132
133
134
135

136
137
138
139
140
141
142
143

144
145
146
147

148
149
150
151

152
153
154
155

156
157
158
159

160
161
162
163

164
165
166
167

168
169
170
171

172
173
174
175

176
177
178
179

180
181
182
183
184
185
186
187








-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



+
+
+
+
-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+



-
+








    
    ArrayList<ApwtclObj> sub_cmds;
    sub_cmds = new ArrayList<ApwtclObj>();
    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("BreakCommand ::break", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("BreakCommand ::break", -1, "CORE_COMMAND_PACKAGES_2"));
    cmds.put("break", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("CatchCommand ::catch", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("CatchCommand ::catch", -1, "CORE_COMMAND_PACKAGES_3"));
    cmds.put("catch", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ConcatCommand ::concat", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ConcatCommand ::concat", -1, "CORE_COMMAND_PACKAGES_4"));
    cmds.put("concat", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ContinueCommand ::continue", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ContinueCommand ::continue", -1, "CORE_COMMAND_PACKAGES_5"));
    cmds.put("continue", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("DictCommand ::dict", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("DictCommand ::dict", -1, "CORE_COMMAND_PACKAGES_6"));
    cmds.put("dict", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("EvalCommand ::eval", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("EvalCommand ::eval", -1, "CORE_COMMAND_PACKAGES_7"));
    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"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ExprCommand ::expr", -1, "CORE_COMMAND_PACKAGES_8"));
    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"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ForeachCommand ::foreach", -1, "CORE_COMMAND_PACKAGES_9"));
    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"));
    sub_cmds.add(interp.string_obj_type.newStringObj("IfCommand ::if", -1, "CORE_COMMAND_PACKAGES_10"));
    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"));
    sub_cmds.add(interp.string_obj_type.newStringObj("IncrCommand ::incr", -1, "CORE_COMMAND_PACKAGES_11"));
    cmds.put("incr", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("InterpCommand ::interp", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("InterpCommand ::interp", -1, "CORE_COMMAND_PACKAGES_12"));
    cmds.put("interp", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("JoinCommand ::join", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("JoinCommand ::join", -1, "CORE_COMMAND_PACKAGES_13"));
    cmds.put("join", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LappendCommand ::lappend", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LappendCommand ::lappend", -1, "CORE_COMMAND_PACKAGES_14"));
    cmds.put("lappend", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LassignCommand ::lassign", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LassignCommand ::lassign", -1, "CORE_COMMAND_PACKAGES_15"));
    cmds.put("lassign", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LindexCommand ::lindex", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LindexCommand ::lindex", -1, "CORE_COMMAND_PACKAGES_16"));
    cmds.put("lindex", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ListCommand ::list", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ListCommand ::list", -1, "CORE_COMMAND_PACKAGES_17"));
    cmds.put("list", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LlengthCommand ::llength", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LlengthCommand ::llength", -1, "CORE_COMMAND_PACKAGES_18"));
    cmds.put("llength", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LrangeCommand ::lrange", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LrangeCommand ::lrange", -1, "CORE_COMMAND_PACKAGES_19"));
    cmds.put("lrange", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LreplaceCommand ::lreplace", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LreplaceCommand ::lreplace", -1, "CORE_COMMAND_PACKAGES_20"));
    cmds.put("lreplace", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LsearchCommand ::lsearch", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LsearchCommand ::lsearch", -1, "CORE_COMMAND_PACKAGES_21"));
    cmds.put("lsearch", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("LsortCommand ::lsort", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("LsortCommand ::lsort", -1, "CORE_COMMAND_PACKAGES_22"));
    cmds.put("lsort", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("NamespaceCommand ::namespace", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("NamespaceCommand ::namespace", -1, "CORE_COMMAND_PACKAGES_23"));
    cmds.put("namespace", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("PackageCommand ::package", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("PackageCommand ::package", -1, "CORE_COMMAND_PACKAGES_24"));
    cmds.put("package", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ProcCommand ::proc", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ProcCommand ::proc", -1, "CORE_COMMAND_PACKAGES_25"));
    cmds.put("proc", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("PutsCommand ::puts", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("PutsCommand ::puts", -1, "CORE_COMMAND_PACKAGES_26"));
    cmds.put("puts", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("RegexpCommand ::regexp", -1, "CORE_COMMAND_PACKAGES_27"));
    cmds.put("regexp", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("ReturnCommand ::return", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("ReturnCommand ::return", -1, "CORE_COMMAND_PACKAGES_28"));
    cmds.put("return", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("SetCommand ::set", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("SetCommand ::set", -1, "CORE_COMMAND_PACKAGES_29"));
    cmds.put("set", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("SourceCommand ::source", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("SourceCommand ::source", -1, "CORE_COMMAND_PACKAGES_30"));
    cmds.put("source", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("StringCommand ::string", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("StringCommand ::string", -1, "CORE_COMMAND_PACKAGES_31"));
    cmds.put("string", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("SwitchCommand ::switch", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("SwitchCommand ::switch", -1, "CORE_COMMAND_PACKAGES_32"));
    cmds.put("switch", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("TcltestCommand ::tcltest", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("TcltestCommand ::tcltest", -1, "CORE_COMMAND_PACKAGES_33"));
    cmds.put("tcltest", sub_cmds);

    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("TraceCommand ::trace", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("TraceCommand ::trace", -1, "CORE_COMMAND_PACKAGES_34"));
    cmds.put("trace", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("UnsetCommand ::unset", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("UnsetCommand ::unset", -1, "CORE_COMMAND_PACKAGES_35"));
    cmds.put("unset", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("VariableCommand ::variable", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("VariableCommand ::variable", -1, "CORE_COMMAND_PACKAGES_36"));
    cmds.put("variable", sub_cmds);
    
    sub_cmds = new ArrayList<ApwtclObj>();
    sub_cmds.add(interp.string_obj_type.newStringObj("WhileCommand ::while", -1, "CORE_COMMAND_PACKAGES_1"));
    sub_cmds.add(interp.string_obj_type.newStringObj("WhileCommand ::while", -1, "CORE_COMMAND_PACKAGES_37"));
    cmds.put("while", sub_cmds);

//print("core!"+cmds.keySet()+"!");    
    packages.put("core", cmds);
  }

  /* ==================== mySelf ================================== */
︙