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
|
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
|
+
+
+
+
-
-
+
+
|
sub_cmds.add(interp.string_obj_type.newStringObj("ReturnCommand ::return", -1, "CORE_COMMAND_PACKAGES_1"));
cmds.put("return", sub_cmds);
sub_cmds = new ArrayList<ApwtclObj>();
sub_cmds.add(interp.string_obj_type.newStringObj("StringCommand ::string", -1, "CORE_COMMAND_PACKAGES_1"));
cmds.put("string", sub_cmds);
sub_cmds = new ArrayList<ApwtclObj>();
sub_cmds.add(interp.string_obj_type.newStringObj("TcltestCommand ::tcltest", -1, "CORE_COMMAND_PACKAGES_1"));
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"));
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"));
cmds.put("unset", sub_cmds);
sub_cmds = new ArrayList<ApwtclObj>();
sub_cmds.add(interp.string_obj_type.newStringObj("TcltestCommand ::tcltest", -1, "CORE_COMMAND_PACKAGES_1"));
cmds.put("tcltest", sub_cmds);
sub_cmds.add(interp.string_obj_type.newStringObj("WhileCommand ::while", -1, "CORE_COMMAND_PACKAGES_1"));
cmds.put("while", sub_cmds);
//print("core!"+cmds.keySet()+"!");
packages.put("core", cmds);
}
/* ==================== mySelf ================================== */
public String mySelf() {
|