/[ascend]/trunk/tcltk98/generic/interface/Commands.c
ViewVC logotype

Contents of /trunk/tcltk98/generic/interface/Commands.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (show annotations) (download) (as text)
Sat Nov 13 16:40:11 2004 UTC (17 years, 7 months ago) by aw0a
Original Path: trunk/tcltk98/interface/Commands.c
File MIME type: text/x-csrc
File size: 50514 byte(s)
try again to commit moving tcl stuff
1 /*
2 * Commands.c
3 * by Kirk Abbott and Ben Allan
4 * Created: 1/94
5 * Version: $Revision: 1.62 $
6 * Version control file: $RCSfile: Commands.c,v $
7 * Date last modified: $Date: 1998/04/25 13:10:16 $
8 * Last modified by: $Author: ballan $
9 *
10 * This file is part of the ASCEND Tcl/Tk interface
11 *
12 * Copyright 1997, Carnegie Mellon University
13 *
14 * The ASCEND Tcl/Tk interface is free software; you can redistribute
15 * it and/or modify it under the terms of the GNU General Public License as
16 * published by the Free Software Foundation; either version 2 of the
17 * License, or (at your option) any later version.
18 *
19 * The ASCEND Tcl/Tk interface is distributed in hope that it will be
20 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 * General Public License for more details.
23 *
24 * You should have received a copy of the GNU General Public License
25 * along with the program; if not, write to the Free Software Foundation,
26 * Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the file named
27 * COPYING. COPYING is found in ../compiler.
28 */
29
30 #define KILLBDAG 0
31 #define REIMPLEMENT 0
32
33 #include "tcl.h"
34 #include "tk.h"
35 #include "utilities/ascConfig.h"
36 #include "general/list.h"
37 #include "compiler/compiler.h"
38 #include "compiler/instance_enum.h"
39 #include "compiler/fractions.h"
40 #include "compiler/dimen.h"
41 #include "compiler/instance_name.h"
42 #include "compiler/units.h"
43 #include "solver/slv_types.h"
44 #include "solver/mtx.h"
45 #include "solver/var.h"
46 #include "solver/rel.h"
47 #include "solver/discrete.h"
48 #include "solver/logrel.h"
49 #include "solver/slv_common.h"
50 #include "interface/HelpProc.h"
51 #include "interface/Commands.h"
52 #include "interface/LibraryProc.h"
53 #include "interface/DisplayProc.h"
54 #include "interface/SimsProc.h"
55 #include "interface/Qlfdid.h"
56 #include "interface/BrowserProc.h"
57 #include "interface/BrowserMethod.h"
58 #include "interface/BrowserQuery.h"
59 #if KILLBDAG
60 #include "interface/BrowserDag.h"
61 #endif
62 #include "interface/BrowserRel_io.h"
63 #include "interface/BrowLogRel_io.h"
64 #include "interface/BrowWhen_io.h"
65 #include "interface/ProbeProc.h"
66 #include "interface/UserData.h"
67 #include "interface/SolverProc.h"
68 #include "interface/DebugProc.h"
69 #include "interface/MtxProc.h"
70 #include "interface/SlvProc.h"
71 #include "interface/EnvVarProc.h"
72 #if REIMPLEMENT
73 #include "interface/CodeGen.h"
74 #endif
75 #include "interface/UnitsProc.h"
76 #include "interface/ScriptProc.h"
77 #include "interface/Integrators.h"
78 #include "interface/Sensitivity.h" /* only for Asc_MtxNormsCmd */
79 #ifdef BALLAN
80 #include "interface/TempStuff.h"
81 #endif
82 #include "interface/typelex.h"
83 #include "interface/Driver.h"
84
85
86 #ifndef lint
87 static CONST char CommandsID[] = "$Id: Commands.c,v 1.62 1998/04/25 13:10:16 ballan Exp $";
88 #endif
89
90
91 void Asc_AddCommand(Tcl_Interp *interp, char *cmdName, Tcl_CmdProc *proc,
92 ClientData cdata, Tcl_CmdDeleteProc *deleteProc,
93 CONST char *group, CONST char *usage,
94 CONST char *shorth, HLFunc longh)
95 {
96 Tcl_CreateCommand(interp,cmdName,proc,cdata,deleteProc);
97 Asc_HelpDefine(cmdName,group,usage,shorth,longh);
98 }
99
100 /*
101 * Any new commands that need to be registered should be added here.
102 */
103 void Asc_CreateCommands(Tcl_Interp *interp)
104 {
105 /*Tcl_Interp *interp = g_interp; */
106 /* create a local pointer to the global Tcl Interpreter (from GUIinit) */
107
108 Asc_HelpDefineGroup("system",
109 "Explanation: functions that do various system call type activities.");
110
111 /* All commands should eventually look like this one */
112 ASCADDCOM(interp,Asc_HelpCmdHN,Asc_HelpCmd,
113 "system", Asc_HelpCmdHU, Asc_HelpCmdHS, Asc_HelpCmdHLF);
114
115 ASCADDCOM(interp,Asc_EnvVarCmdHN,Asc_EnvVarCmd,
116 "system", Asc_EnvVarCmdHU, Asc_EnvVarCmdHS, Asc_EnvVarCmdHLF);
117
118 ASCADDCOM(interp,"asc_clock", Asc_TimeCmd,
119 "system",
120 "asc_clock <string> [n]",
121 "returns clock info from evaluating 'string' n times in Tcl global scope",
122 Asc_TimeCmdHLF
123 /* the stuff above should be replaced with header macros. */
124 );
125
126 ASCADDCOM(interp,"script_eval", Asc_ScriptEvalCmd,
127 "system",
128 "script_eval <string>",
129 "Evaluates 'string' in Tcl global scope",
130 NULL
131 /* the stuff above should be replaced with header macros. */
132 );
133
134
135 ASCADDCOM(interp,"fastraise", Asc_FastRaiseCmd,
136 "system",
137 "fastraise windowname",
138 "calls XRaiseWindow on the toplevel given, rather than going through tk."
139 "\nThis function exists because tk/X can be very very slow. It's not \
140 highly portable and may be lost in a tk8 port.",
141 NULL
142 /* the stuff above should be replaced with header macros. */
143 );
144
145
146 Asc_HelpDefineGroup("miscellaneous",
147 "Explanation: functions that do unclassifiable things.");
148
149 ASCADDCOM(interp,"stringcompact", Asc_StringCompact,
150 "miscellaneous",
151 "stringcompact <string>",
152 "returns a string constructed from the input by removing extra whitespace"
153 "\nThis function reduces all extra tabs, newlines and blanks to a space, \
154 and ascplot depends on it heavily to insure sanity",
155 NULL
156 /* the stuff above should be replaced with header macros. */
157 );
158
159 Asc_HelpDefineGroup("library",
160 "Explanation: functions that operate on the ascend type library");
161
162 ASCADDCOM(interp, Asc_LibrQueryTypeCmdHN, Asc_LibrQueryTypeCmd,
163 "library", Asc_LibrQueryTypeCmdHU, Asc_LibrQueryTypeCmdHS,
164 Asc_LibrQueryTypeCmdHLF);
165
166 ASCADDCOM(interp, Asc_LibrOptionsCmdHN, Asc_LibrOptionsCmd,
167 "library", Asc_LibrOptionsCmdHU, Asc_LibrOptionsCmdHS,
168 Asc_LibrOptionsCmdHLF);
169
170 ASCADDCOM(interp, Asc_LibrParseCmdHN, Asc_LibrParseCmd,
171 "library", Asc_LibrParseCmdHU, Asc_LibrParseCmdHS,
172 Asc_LibrParseCmdHLF);
173
174 ASCADDCOM(interp, Asc_LibrReadCmdHN, Asc_LibrReadCmd,
175 "library", Asc_LibrReadCmdHU, Asc_LibrReadCmdHS,
176 Asc_LibrReadCmdHLF);
177
178 ASCADDCOM(interp, Asc_LibrModuleInfoCmdHN, Asc_LibrModuleInfoCmd,
179 "library", Asc_LibrModuleInfoCmdHU, Asc_LibrModuleInfoCmdHS,
180 Asc_LibrModuleInfoCmdHLF);
181
182 ASCADDCOM(interp, Asc_LibrDestroyTypesCmdHN, Asc_LibrDestroyTypesCmd,
183 "library", Asc_LibrDestroyTypesCmdHU, Asc_LibrDestroyTypesCmdHS,
184 Asc_LibrDestroyTypesCmdHLF);
185
186 ASCADDCOM(interp, Asc_LibrHideTypeCmdHN, Asc_LibrHideTypeCmd,
187 "library", Asc_LibrHideTypeCmdHU, Asc_LibrHideTypeCmdHS,
188 Asc_LibrHideTypeCmdHLF);
189
190 ASCADDCOM(interp, Asc_LibrUnHideTypeCmdHN, Asc_LibrUnHideTypeCmd,
191 "library", Asc_LibrUnHideTypeCmdHU, Asc_LibrUnHideTypeCmdHS,
192 Asc_LibrUnHideTypeCmdHLF);
193
194 ASCADDCOM(interp, Asc_LibrTypeIsShownCmdHN, Asc_LibrTypeIsShownCmd,
195 "library", Asc_LibrTypeIsShownCmdHU, Asc_LibrTypeIsShownCmdHS,
196 Asc_LibrTypeIsShownCmdHLF);
197
198 ASCADDCOM(interp, Asc_LibrTypeListCmdHN, Asc_LibrTypeListCmd,
199 "library", Asc_LibrTypeListCmdHU, Asc_LibrTypeListCmdHS,
200 Asc_LibrTypeListCmdHLF);
201
202 ASCADDCOM(interp, Asc_ExtractTypeHN, Asc_ExtractType,
203 "library", Asc_ExtractTypeHU, Asc_ExtractTypeHS, Asc_ExtractTypeHLF);
204
205
206 /* Browser Routines */
207 ASCADDCOM(interp,"qlfdid",Asc_BrowQlfdidSearchCmd,
208 "miscellaneous",
209 NULL,
210 "qlfdid -- searches for the inst of a qualified name",
211 NULL
212 /* the stuff above should be replaced with header macros. */
213 );
214
215 Asc_HelpDefineGroup("fileio",
216 "Explanation: functions that read/write files");
217 ASCADDCOM(interp,"bwritevalues", Asc_BrowWriteValues,
218 "fileio",
219 NULL,
220 NULL,
221 NULL
222 /* the stuff above should be replaced with header macros. */
223 );
224
225 ASCADDCOM(interp,"__brow_find_type", Asc_BrowFindTypeCmd,
226 "browser",
227 NULL,
228 NULL,
229 NULL
230 /* the stuff above should be replaced with header macros. */
231 );
232
233 ASCADDCOM(interp,"__brow_reln_relop", Asc_BrowRelationRelopCmd,
234 "browser",
235 NULL,
236 NULL,
237 NULL
238 /* the stuff above should be replaced with header macros. */
239 );
240
241 /* Future work
242 ASCADDCOM(interp,"__brow_lrel_relop", BrowLogRelRelopCmd,
243 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL); */
244
245 ASCADDCOM(interp,"btransfer", Asc_BrowTransferCmd,
246 "browser",
247 NULL,
248 NULL,
249 NULL
250 /* the stuff above should be replaced with header macros. */
251 );
252
253 ASCADDCOM(interp,"rootinit", Asc_BrowRootInitCmd,
254 "browser",
255 NULL,
256 NULL,
257 NULL
258 /* the stuff above should be replaced with header macros. */
259 );
260
261 ASCADDCOM(interp,"root", Asc_BrowRootCmd,
262 "browser",
263 NULL,
264 "root -- sets the root instance for queries",
265 NULL
266 /* the stuff above should be replaced with header macros. */
267 );
268
269 ASCADDCOM(interp,"oldinst", Asc_BrowRootBackupCmd,
270 "browser",
271 NULL,
272 "oldinst -- backup to parent instance",
273 NULL
274 /* the stuff above should be replaced with header macros. */
275 );
276
277 ASCADDCOM(interp,"rootn", Asc_BrowRootNCmd,
278 "browser",
279 NULL,
280 "rootn -- backup to ancestor instance",
281 NULL
282 /* the stuff above should be replaced with header macros. */
283 );
284
285 ASCADDCOM(interp,"slist", Asc_BrowSimListCmd,
286 "simulations",
287 NULL,
288 "slist -- prints the list of all simulations",
289 NULL
290 /* the stuff above should be replaced with header macros. */
291 );
292
293 ASCADDCOM(interp,"simtype", Asc_BrowSimTypeCmd,
294 "simulations",
295 NULL,
296 NULL,
297 NULL
298 /* the stuff above should be replaced with header macros. */
299 );
300
301 ASCADDCOM(interp,"bstatistics",Asc_BrowInstStatCmd,
302 "browser",
303 NULL,
304 "bstatistics - inst tree stats",
305 NULL
306 /* the stuff above should be replaced with header macros. */
307 );
308
309 ASCADDCOM(interp,"ilist",Asc_BrowInstListCmd,
310 "miscellaneous",
311 NULL,
312 "ilist -- prints the list of all working instances",
313 NULL
314 /* the stuff above should be replaced with header macros. */
315 );
316
317 ASCADDCOM(interp,"is_type_refined",Asc_BrowRefinesMeCmd,
318 "miscellaneous",
319 NULL,
320 NULL,
321 NULL
322 /* the stuff above should be replaced with header macros. */
323 );
324
325
326 ASCADDCOM(interp,"bprint", Asc_BrowPrintCmd,
327 "miscellaneous",
328 NULL,
329 "bprint -- prints the contents of an instance",
330 NULL
331 /* the stuff above should be replaced with header macros. */
332 );
333
334 ASCADDCOM(interp,"inst", Asc_BrowInstQueryCmd,
335 "browser",
336 NULL,
337 "inst -- general inst query routines",
338 NULL
339 /* the stuff above should be replaced with header macros. */
340 );
341
342 ASCADDCOM(interp,"bgetproc", Asc_BrowWriteProcedure,
343 "browser",
344 NULL,
345 NULL,
346 NULL
347 /* the stuff above should be replaced with header macros. */
348 );
349
350 ASCADDCOM(interp, Asc_BrowInitializeCmdHN, Asc_BrowInitializeCmd,
351 "browser", Asc_BrowInitializeCmdHU, Asc_BrowInitializeCmdHS,
352 Asc_BrowInitializeCmdHLF
353 );
354
355 ASCADDCOM(interp,"brow_assign", Asc_BrowRunAssignmentCmd,
356 "browser",
357 NULL,
358 "assigns a value to the current or search atomic instance",
359 NULL
360 /* the stuff above should be replaced with header macros. */
361 );
362
363 ASCADDCOM(interp,"qassgn2", Asc_BrowRunAssignQlfdidCmd2,
364 "miscellaneous",
365 NULL,
366 "qassgn -- assigns a value to a qlfdid atomic instance",
367 NULL
368 /* the stuff above should be replaced with header macros. */
369 );
370
371 ASCADDCOM(interp,"qassgn3", Asc_BrowRunAssignQlfdidCmd3,
372 "miscellaneous",
373 NULL,
374 NULL,
375 NULL
376 /* the stuff above should be replaced with header macros. */
377 );
378
379
380 ASCADDCOM(interp,"__brow_iname", Asc_BrowWriteInstanceNameCmd,
381 "browser",
382 NULL,
383 "iname -- returns the name of the working instance",
384 NULL
385 /* the stuff above should be replaced with header macros. */
386 );
387
388 ASCADDCOM(interp,"__brow_isrelation", Asc_BrowIsRelationCmd,
389 "browser",
390 NULL,
391 NULL,
392 NULL
393 /* the stuff above should be replaced with header macros. */
394 );
395
396 ASCADDCOM(interp,"__brow_ismodel", Asc_BrowIsModelCmd,
397 "browser",
398 NULL,
399 NULL,
400 NULL
401 /* the stuff above should be replaced with header macros. */
402 );
403
404 ASCADDCOM(interp,"bgetrels", Asc_BrowWriteRelListCmd,
405 "browser",
406 NULL,
407 NULL,
408 NULL
409 /* the stuff above should be replaced with header macros. */
410 );
411
412 ASCADDCOM(interp,"bgetrelspf", Asc_BrowWriteRelListPostfixCmd,
413 "browser",
414 NULL,
415 NULL,
416 NULL
417 /* the stuff above should be replaced with header macros. */
418 );
419
420 ASCADDCOM(interp,"__brow_relsforatom", Asc_BrowWriteRelsForAtomCmd,
421 "browser",
422 NULL,
423 NULL,
424 NULL
425 /* the stuff above should be replaced with header macros. */
426 );
427
428
429 ASCADDCOM(interp,"__brow_islogrel", Asc_BrowIsLogRelCmd,
430 "browser",
431 NULL,
432 NULL,
433 NULL
434 /* the stuff above should be replaced with header macros. */
435 );
436
437 ASCADDCOM(interp,"bgetlogrels", Asc_BrowWriteLogRelListCmd,
438 "browser",
439 NULL,
440 NULL,
441 NULL
442 /* the stuff above should be replaced with header macros. */
443 );
444
445 ASCADDCOM(interp,"bgetlogrelspf", Asc_BrowWriteLogRelListPostfixCmd,
446 "browser",
447 NULL,
448 NULL,
449 NULL
450 /* the stuff above should be replaced with header macros. */
451 );
452
453 ASCADDCOM(interp,"__brow_logrelsforatom", Asc_BrowWriteLogRelsForAtomCmd,
454 "browser",
455 NULL,
456 NULL,
457 NULL
458 /* the stuff above should be replaced with header macros. */
459 );
460
461
462 ASCADDCOM(interp,"bgetcondrels", Asc_BrowWriteCondRelListCmd,
463 "browser",
464 NULL,
465 NULL,
466 NULL
467 /* the stuff above should be replaced with header macros. */
468 );
469
470 ASCADDCOM(interp,"bgetcondlogrels", Asc_BrowWriteCondLogRelListCmd,
471 "browser",
472 NULL,
473 NULL,
474 NULL
475 /* the stuff above should be replaced with header macros. */
476 );
477
478
479 ASCADDCOM(interp,"__brow_iswhen", Asc_BrowIsWhenCmd,
480 "browser",
481 NULL,
482 NULL,
483 NULL
484 /* the stuff above should be replaced with header macros. */
485 );
486
487 ASCADDCOM(interp,"__brow_isinstanceinwhen",
488 Asc_BrowIsInstanceInWhenCmd,
489 "browser",
490 NULL,
491 NULL,
492 NULL
493 /* the stuff above should be replaced with header macros. */
494 );
495
496 ASCADDCOM(interp,"bgetwhens", Asc_BrowWriteWhenListCmd,
497 "browser",
498 NULL,
499 NULL,
500 NULL
501 /* the stuff above should be replaced with header macros. */
502 );
503
504 ASCADDCOM(interp,"__brow_whensforinstance",
505 Asc_BrowWriteWhensForInstanceCmd,
506 "browser",
507 NULL,
508 NULL,
509 NULL
510 /* the stuff above should be replaced with header macros. */
511 );
512
513 ASCADDCOM(interp,"bwritependings", Asc_BrowWritePendingsSTDOUT,
514 "browser",
515 NULL,
516 NULL,
517 NULL
518 /* the stuff above should be replaced with header macros. */
519 );
520
521 ASCADDCOM(interp,"bnumpendings", Asc_BrowShowPendings,
522 "browser",
523 NULL,
524 NULL,
525 NULL
526 /* the stuff above should be replaced with header macros. */
527 );
528
529 ASCADDCOM(interp,"count_names", Asc_BrowCountNamesCmd,
530 "browser",
531 NULL,
532 "count_names-- counts things slowly. see output for details",
533 NULL
534 /* the stuff above should be replaced with header macros. */
535 );
536
537 ASCADDCOM(interp,"aliases", Asc_BrowWriteAliasesCmd,
538 "browser",
539 NULL,
540 "aliases -- returns the aliases of an instance",
541 NULL
542 /* the stuff above should be replaced with header macros. */
543 );
544
545 ASCADDCOM(interp,"isas", Asc_BrowWriteISAsCmd,
546 "browser",
547 NULL,
548 "returns the constructions of an instance",
549 NULL
550 /* the stuff above should be replaced with header macros. */
551 );
552
553 ASCADDCOM(interp,"cliques", Asc_BrowWriteCliqueCmd,
554 "browser",
555 NULL,
556 "returns all the members in the same ARE_ALIKE clique",
557 NULL
558 /* the stuff above should be replaced with header macros. */
559 );
560
561 ASCADDCOM(interp,Asc_BrowWriteInstanceCmdHN, Asc_BrowWriteInstanceCmd,
562 "browser",
563 Asc_BrowWriteInstanceCmdHU,
564 "returns formatted info for the Browser",
565 NULL
566 /* the stuff above should be replaced with header macros. */
567 );
568
569 ASCADDCOM(interp,"bmerge", Asc_BrowInstanceMergeCmd,
570 "browser",
571 NULL,
572 "merge current and search instances",
573 NULL
574 /* the stuff above should be replaced with header macros. */
575 );
576
577 ASCADDCOM(interp,"brefine",Asc_BrowInstanceRefineCmd,
578 "browser",
579 NULL,
580 "refine current or search inst to type given",
581 NULL
582 /* the stuff above should be replaced with header macros. */
583 );
584
585 ASCADDCOM(interp,"bmakealike",Asc_BrowMakeAlikeCmd,
586 "browser",
587 NULL,
588 "ARE_ALIKE current and search instances",
589 NULL
590 /* the stuff above should be replaced with header macros. */
591 );
592
593 ASCADDCOM(interp,"b_isplottable", Asc_BrowIsPlotAllowedCmd,
594 "browser",
595 NULL,
596 "return boolean value TRUE if instance is a plot",
597 NULL
598 /* the stuff above should be replaced with header macros. */
599 );
600
601 ASCADDCOM(interp,"b_prepplotfile", Asc_BrowPreparePlotFileCmd,
602 "browser",
603 NULL,
604 NULL,
605 NULL
606 /* the stuff above should be replaced with header macros. */
607 );
608
609 ASCADDCOM(interp,"free_all_vars",Asc_BrowClearVarsCmd,
610 "browser",
611 NULL,
612 NULL,
613 NULL
614 /* the stuff above should be replaced with header macros. */
615 );
616
617
618 /* Simulation Routines */
619 ASCADDCOM(interp, Asc_SimBinTokenSetOptionsHN, Asc_SimBinTokenSetOptions,
620 "library", Asc_SimBinTokenSetOptionsHU, Asc_SimBinTokenSetOptionsHS,
621 Asc_SimBinTokenSetOptionsHLF);
622
623 ASCADDCOM(interp,"sims", Asc_SimsQueryCmd,
624 "simulations",
625 NULL,
626 "return list of simulation names in the instance universe",
627 NULL
628 /* the stuff above should be replaced with header macros. */
629 );
630
631 ASCADDCOM(interp,"sim_instantiate",Asc_SimsCreateInstanceCmd,
632 "simulations",
633 NULL,
634 "create a simulation in the instance universe",
635 NULL
636 /* the stuff above should be replaced with header macros. */
637 );
638
639 ASCADDCOM(interp,"sim_unique",Asc_SimsUniqueNameCmd,
640 "simulations",
641 NULL,
642 "boolean check for potential simulation name not currently in use",
643 NULL
644 /* the stuff above should be replaced with header macros. */
645 );
646
647 ASCADDCOM(interp,"sim_reinstantiate",Asc_SimsResumeInstantiateCmd,
648 "simulations",
649 NULL,
650 "sim_reinstantiate - resume compiling a simulation specified",
651 NULL
652 /* the stuff above should be replaced with header macros. */
653 );
654
655 ASCADDCOM(interp,"__sims_copy",Asc_SimsCopyInstanceCmd,
656 "broken",
657 NULL,
658 NULL,
659 NULL
660 /* the stuff above should be replaced with header macros. */
661 );
662
663 ASCADDCOM(interp,"__sims_proto",Asc_SimsProtoTypeInstanceCmd,
664 "broken",
665 NULL,
666 NULL,
667 NULL
668 /* the stuff above should be replaced with header macros. */
669 );
670
671 ASCADDCOM(interp,"__sims_saveinst",Asc_SimsSaveInstanceCmd,
672 "broken",
673 NULL,
674 NULL,
675 NULL
676 /* the stuff above should be replaced with header macros. */
677 );
678
679 ASCADDCOM(interp,"__sims_update",Asc_SimsUpdateInstanceCmd,
680 "broken",
681 NULL,
682 NULL,
683 NULL
684 /* the stuff above should be replaced with header macros. */
685 );
686
687 ASCADDCOM(interp,"sim_destroy",Asc_SimsDestroySimulationCmd,
688 "simulations",
689 NULL,
690 "sim_destroy -- destroy a simulation",
691 NULL
692 /* the stuff above should be replaced with header macros. */
693 );
694
695 ASCADDCOM(interp,"simlistpending",Asc_SimListPending,
696 "simulations",
697 NULL,
698 NULL,
699 NULL
700 /* the stuff above should be replaced with header macros. */
701 );
702
703
704 /* Display and Type query */
705 ASCADDCOM(interp,"ddefine", Asc_DispDefineCmd,
706 "library",
707 NULL,
708 "ddefine -- list all the types, or details of a type",
709 NULL
710 /* the stuff above should be replaced with header macros. */
711 );
712
713 ASCADDCOM(interp,"ddiffdefine", Asc_DispDiffDefineCmd,
714 "library",
715 NULL,
716 "ddiffdefine -- list the details of a type differing from parent",
717 NULL
718 /* the stuff above should be replaced with header macros. */
719 );
720
721 ASCADDCOM(interp,"disp", Asc_DispQueryCmd,
722 "miscellaneous",
723 NULL,
724 NULL,
725 NULL
726 /* the stuff above should be replaced with header macros. */
727 );
728
729 ASCADDCOM(interp,"hier", Asc_DispHierarchyCmd,
730 "library",
731 NULL,
732 "hier -- list the hierarchy of a given type",
733 NULL
734 /* the stuff above should be replaced with header macros. */
735 );
736
737 ASCADDCOM(interp,"file_by_type", Asc_DispFileByTypeCmd,
738 "fileio",
739 NULL,
740 NULL,
741 NULL
742 /* the stuff above should be replaced with header macros. */
743 );
744
745 ASCADDCOM(interp,"dchild", Asc_DispChildOneCmd,
746 "miscellaneous",
747 NULL,
748 NULL,
749 NULL
750 /* the stuff above should be replaced with header macros. */
751 );
752
753 ASCADDCOM(interp,"drefines_me", Asc_DispRefinesMeCmd,
754 "library",
755 NULL,
756 "drefines_me - list the immediate refinements of a given type",
757 NULL
758 /* the stuff above should be replaced with header macros. */
759 );
760
761
762 Asc_AddCommand(interp,"drefines_meall", Asc_DispRefinesMeCmd,
763 (ClientData) 1, (Tcl_CmdDeleteProc *)NULL,
764 "library",
765 NULL,
766 "drefines_meall - list all refinements of a given type",
767 NULL
768 /* the stuff above should be replaced with header macros. */
769 );
770
771 ASCADDCOM(interp,"drefinement_tree", Asc_DispRefinesMeTreeCmd,
772 "library",
773 NULL,
774 "drefinement_tree - list the refinement hierarchy based on type",
775 NULL
776 /* the stuff above should be replaced with header macros. */
777 );
778
779 ASCADDCOM(interp,"dgetparts", Asc_DispTypePartsCmd,
780 "library",
781 NULL,
782 "dgetparts -- list the types of parts IN a type.",
783 NULL
784 /* the stuff above should be replaced with header macros. */
785 );
786
787 ASCADDCOM(interp,"disroot_type", Asc_DispIsRootTypeCmd,
788 "library",
789 NULL,
790 NULL,
791 NULL
792 /* the stuff above should be replaced with header macros. */
793 );
794
795 /* Probe Routine */
796 ASCADDCOM(interp,Asc_ProbeCmdHN, Asc_ProbeCmd,
797 "probe-list",Asc_ProbeCmdHU,Asc_ProbeCmdHS,Asc_ProbeCmdHLF);
798
799 /* slv query routines */
800 ASCADDCOM(interp,"__var_analyze", Asc_VarAnalyzeCmd,
801 "miscellaneous",
802 NULL,
803 NULL,
804 NULL
805 /* the stuff above should be replaced with header macros. */
806 );
807
808 ASCADDCOM(interp,"__rel_analyze", Asc_RelAnalyzeCmd,
809 "miscellaneous",
810 NULL,
811 NULL,
812 NULL
813 /* the stuff above should be replaced with header macros. */
814 );
815
816 /* UserData Routines */
817 ASCADDCOM(interp,"__userdata_init", Asc_UserDataInitializeCmd,
818 "user-list",
819 NULL,
820 NULL,
821 NULL
822 /* the stuff above should be replaced with header macros. */
823 );
824
825 ASCADDCOM(interp,"__userdata_create", Asc_UserDataCreateCmd,
826 "user-list",
827 NULL,
828 NULL,
829 NULL
830 /* the stuff above should be replaced with header macros. */
831 );
832
833 ASCADDCOM(interp,"__userdata_destroy", Asc_UserDataDestroyCmd,
834 "user-list",
835 NULL,
836 NULL,
837 NULL
838 /* the stuff above should be replaced with header macros. */
839 );
840
841 ASCADDCOM(interp,"__userdata_save", Asc_UserDataSaveValuesCmd,
842 "user-list",
843 NULL,
844 NULL,
845 NULL
846 /* the stuff above should be replaced with header macros. */
847 );
848
849 ASCADDCOM(interp,"__userdata_restore", Asc_UserDataRestoreValuesCmd,
850 "user-list",
851 NULL,
852 NULL,
853 NULL
854 /* the stuff above should be replaced with header macros. */
855 );
856
857 ASCADDCOM(interp,"__userdata_query", Asc_UserDataQueryCmd,
858 "user-list",
859 NULL,
860 NULL,
861 NULL
862 /* the stuff above should be replaced with header macros. */
863 );
864
865 ASCADDCOM(interp,"__userdata_print", Asc_UserDataPrintLibrary,
866 "user-list",
867 NULL,
868 NULL,
869 NULL
870 /* the stuff above should be replaced with header macros. */
871 );
872
873 /* Solver Routines */
874 /* Solve_* are routines calling the commandline solver */
875 /* Solv_[SOLVERNAME_]<cfunction> are commands for the windowed solvers */
876
877 #if DELETEME
878 ASCADDCOM(interp,"bexp_s",Asc_Brow2Solve,
879 "miscellaneous",
880 NULL,
881 "bexp_s -- export browser instance to solver context",
882 NULL
883 /* the stuff above should be replaced with header macros. */
884 );
885 #endif /* DELETEME */
886
887 ASCADDCOM(interp,"get_model_children",Asc_SolvGetModKids,
888 "solver",
889 NULL,
890 NULL,
891 NULL
892 /* the stuff above should be replaced with header macros. */
893 );
894
895 #if DELETEME
896 ASCADDCOM(interp,"slv_import_sim",Asc_Sims2Solve,
897 "solver",
898 NULL,
899 NULL,
900 NULL
901 /* the stuff above should be replaced with header macros. */
902 );
903
904 ASCADDCOM(interp,"ssolve",Asc_SolvSimInst,
905 "solver",
906 NULL,
907 "ssolve -- fire up commandline solver <n> on <name>. DON'T.",
908 NULL
909 /* the stuff above should be replaced with header macros. */
910 );
911 #endif /* DELETEME */
912
913 ASCADDCOM(interp,"solve",Asc_SolvCurInst,
914 "solver",
915 NULL,
916 "solve -- fire up commandline solver <n>. on g_curinst. DON'T.",
917 NULL
918 /* the stuff above should be replaced with header macros. */
919 );
920
921 ASCADDCOM(interp,"slv_trapfp",Asc_SolvTrapFP,
922 "solver",
923 NULL,
924 NULL,
925 NULL
926 /* the stuff above should be replaced with header macros. */
927 );
928
929 ASCADDCOM(interp,"slv_untrapfp",Asc_SolvUnTrapFP,
930 "solver",
931 NULL,
932 NULL,
933 NULL
934 /* the stuff above should be replaced with header macros. */
935 );
936
937 ASCADDCOM(interp,"slv_checksim",Asc_SolvIncompleteSim,
938 "solver",
939 NULL,
940 NULL,
941 NULL
942 /* the stuff above should be replaced with header macros. */
943 );
944
945 ASCADDCOM(interp,"slv_checksys",Asc_SolvCheckSys,
946 "solver",
947 NULL,
948 NULL,
949 NULL
950 /* the stuff above should be replaced with header macros. */
951 );
952
953 ASCADDCOM(interp,"slv_get_obj_list",Asc_SolvGetObjList,
954 "solver",
955 NULL,
956 NULL,
957 NULL
958 /* the stuff above should be replaced with header macros. */
959 );
960
961 ASCADDCOM(interp,"slv_set_obj_by_num",Asc_SolvSetObjByNum,
962 "solver",
963 NULL,
964 NULL,
965 NULL
966 /* the stuff above should be replaced with header macros. */
967 );
968
969 ASCADDCOM(interp,Asc_SolvGetObjNumCmdHN,Asc_SolvGetObjNumCmd,
970 "solver",Asc_SolvGetObjNumCmdHU,Asc_SolvGetObjNumCmdHS,
971 Asc_SolvGetObjNumCmdHLF);
972
973 ASCADDCOM(interp,"slv_get_parms",Asc_SolvGetSlvParms,
974 "solver",
975 NULL,
976 NULL,
977 NULL
978 /* the stuff above should be replaced with header macros. */
979 );
980
981 ASCADDCOM(interp,"set_slv_parms",Asc_SolvSetSlvParms,
982 "solver",
983 NULL,
984 NULL,
985 NULL
986 /* the stuff above should be replaced with header macros. */
987 );
988
989 ASCADDCOM(interp,"set_slv_parmsnew",Asc_SolvSetSlvParmsNew,
990 "solver",
991 NULL,
992 NULL,
993 NULL
994 /* the stuff above should be replaced with header macros. */
995 );
996
997 ASCADDCOM(interp,"slv_get_parmsnew",Asc_SolvGetSlvParmsNew,
998 "solver",
999 NULL,
1000 NULL,
1001 NULL
1002 /* the stuff above should be replaced with header macros. */
1003 );
1004
1005 /* what's up with this? */
1006 /* Tcl_CreateCommand(interp,"slv_get_bool_parms",Asc_SolvGetSlvBoolParms,
1007 * (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1008 *Tcl_CreateCommand(interp,"slv_get_real_parms",Asc_SolvGetSlvRealParms,
1009 * (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1010 */
1011
1012 ASCADDCOM(interp,"slv_get_insttype",Asc_SolvGetInstType,
1013 "solver",
1014 NULL,
1015 NULL,
1016 NULL
1017 /* the stuff above should be replaced with header macros. */
1018 );
1019
1020 ASCADDCOM(interp,"slv_get_cost_page",Asc_SolvGetSlvCostPage,
1021 "solver",
1022 NULL,
1023 NULL,
1024 NULL
1025 /* the stuff above should be replaced with header macros. */
1026 );
1027
1028 ASCADDCOM(interp,"slv_get_stat_page",Asc_SolvGetSlvStatPage,
1029 "solver",
1030 NULL,
1031 NULL,
1032 NULL
1033 /* the stuff above should be replaced with header macros. */
1034 );
1035
1036 ASCADDCOM(interp,"slv_get_objval",Asc_SolvGetObjectiveVal,
1037 "solver",
1038 NULL,
1039 NULL,
1040 NULL
1041 /* the stuff above should be replaced with header macros. */
1042 );
1043
1044 ASCADDCOM(interp,"slv_get_instname",Asc_SolvGetInstName,
1045 "solver",
1046 NULL,
1047 NULL,
1048 NULL
1049 /* the stuff above should be replaced with header macros. */
1050 );
1051
1052 ASCADDCOM(interp,"slv_get_pathname",Asc_SolvGetPathName,
1053 "solver",
1054 NULL,
1055 NULL,
1056 NULL
1057 /* the stuff above should be replaced with header macros. */
1058 );
1059
1060 ASCADDCOM(interp,"slv_get_vr",Asc_SolvGetVRCounts,
1061 "solver",
1062 NULL,
1063 NULL,
1064 NULL
1065 /* the stuff above should be replaced with header macros. */
1066 );
1067
1068 ASCADDCOM(interp,"slvdump",Asc_SolvSlvDumpInt,
1069 "solver",
1070 NULL,
1071 NULL,
1072 NULL
1073 /* the stuff above should be replaced with header macros. */
1074 );
1075
1076 ASCADDCOM(interp,"slv_presolve",Asc_SolvSlvPresolve,
1077 "solver",
1078 NULL,
1079 NULL,
1080 NULL
1081 /* the stuff above should be replaced with header macros. */
1082 );
1083
1084 ASCADDCOM(interp,"slv_reanalyze",Asc_SolvReanalyze,
1085 "solver",
1086 NULL,
1087 NULL,
1088 NULL
1089 /* the stuff above should be replaced with header macros. */
1090 );
1091
1092 ASCADDCOM(interp,"slv_check_and_reanalyze",Asc_SolvCheckAndReanalyze,
1093 "solver",
1094 NULL,
1095 NULL,
1096 NULL
1097 /* the stuff above should be replaced with header macros. */
1098 );
1099
1100 ASCADDCOM(interp,"slv_set_independent",Asc_SolvMakeIndependent,
1101 "solver",
1102 NULL,
1103 NULL,
1104 NULL
1105 /* the stuff above should be replaced with header macros. */
1106 );
1107
1108 ASCADDCOM(interp,"slv_resolve",Asc_SolvSlvResolve,
1109 "solver",
1110 NULL,
1111 NULL,
1112 NULL
1113 /* the stuff above should be replaced with header macros. */
1114 );
1115
1116 ASCADDCOM(interp,"slv_solve",Asc_SolvSlvSolve,
1117 "solver",
1118 NULL,
1119 NULL,
1120 NULL
1121 /* the stuff above should be replaced with header macros. */
1122 );
1123
1124 ASCADDCOM(interp,"slv_iterate",Asc_SolvSlvIterate,
1125 "solver",
1126 NULL,
1127 NULL,
1128 NULL
1129 /* the stuff above should be replaced with header macros. */
1130 );
1131
1132 ASCADDCOM(interp,"slv_available",Asc_SolvAvailSolver,
1133 "solver",
1134 NULL,
1135 NULL,
1136 NULL
1137 /* the stuff above should be replaced with header macros. */
1138 );
1139
1140 ASCADDCOM(interp,"slv_linsol_names",Asc_SolvLinsolNames,
1141 "solver",
1142 NULL,
1143 NULL,
1144 NULL
1145 /* the stuff above should be replaced with header macros. */
1146 );
1147
1148 ASCADDCOM(interp,"slv_eligible_solver",Asc_SolvEligSolver,
1149 "solver",
1150 NULL,
1151 NULL,
1152 NULL
1153 /* the stuff above should be replaced with header macros. */
1154 );
1155
1156 ASCADDCOM(interp,"slv_select_solver",Asc_SolvSelectSolver,
1157 "solver",
1158 NULL,
1159 NULL,
1160 NULL
1161 /* the stuff above should be replaced with header macros. */
1162 );
1163
1164 ASCADDCOM(interp,"slv_get_solver",Asc_SolvGetSelectedSolver,
1165 "solver",
1166 NULL,
1167 NULL,
1168 NULL
1169 /* the stuff above should be replaced with header macros. */
1170 );
1171
1172 ASCADDCOM(interp,"slv_flush_solver",Asc_SolvFlushSolver,
1173 "solver",
1174 NULL,
1175 NULL,
1176 NULL
1177 /* the stuff above should be replaced with header macros. */
1178 );
1179
1180 ASCADDCOM(interp,"slv_import_qlfdid",Asc_SolvImportQlfdid,
1181 "solver",
1182 NULL,
1183 NULL,
1184 NULL
1185 /* the stuff above should be replaced with header macros. */
1186 );
1187
1188 ASCADDCOM(interp,"slv_lnmget",Asc_SolvGetLnmEpsilon,
1189 "solver",
1190 NULL,
1191 NULL,
1192 NULL
1193 /* the stuff above should be replaced with header macros. */
1194 );
1195
1196 ASCADDCOM(interp,"slv_lnmset",Asc_SolvSetLnmEpsilon,
1197 "solver",
1198 NULL,
1199 NULL,
1200 NULL
1201 /* the stuff above should be replaced with header macros. */
1202 );
1203
1204 ASCADDCOM(interp,"slv_set_haltflag",Asc_SolvSetCHaltFlag,
1205 "solver",
1206 NULL,
1207 NULL,
1208 NULL
1209 /* the stuff above should be replaced with header macros. */
1210 );
1211
1212 ASCADDCOM(interp,"slvhelp",Asc_SolvHelpList,
1213 "solver",
1214 NULL,
1215 "slvhelp -- give tcl/[s]hort/[l]ong solver primitive list",
1216 NULL
1217 /* the stuff above should be replaced with header macros. */
1218 );
1219
1220 ASCADDCOM(interp,"slv_near_bounds",Asc_SolvNearBounds,
1221 "solver",
1222 NULL,
1223 NULL,
1224 NULL
1225 /* the stuff above should be replaced with header macros. */
1226 );
1227
1228 ASCADDCOM(interp,"slv_far_from_nominals",Asc_SolvFarFromNominal,
1229 "solver",
1230 NULL,
1231 NULL,
1232 NULL
1233 /* the stuff above should be replaced with header macros. */
1234 );
1235
1236 ASCADDCOM(interp,Asc_SolveMonitorCmdHN,Asc_SolveMonitorCmd,"solver",
1237 Asc_SolveMonitorCmdHU, Asc_SolveMonitorCmdHS, Asc_SolveMonitorCmdHLF);
1238
1239
1240
1241
1242 /* solver Debugger commands */
1243 ASCADDCOM(interp,"dbg_get_blk_of_var",Asc_DebuGetBlkOfVar,
1244 "debugger",
1245 NULL,
1246 NULL,
1247 NULL
1248 /* the stuff above should be replaced with header macros. */
1249 );
1250
1251 ASCADDCOM(interp,"dbg_get_blk_of_eqn",Asc_DebuGetBlkOfEqn,
1252 "debugger",
1253 NULL,
1254 NULL,
1255 NULL
1256 /* the stuff above should be replaced with header macros. */
1257 );
1258
1259 ASCADDCOM(interp,"dbg_get_blk_coords",Asc_DebuGetBlkCoords,
1260 "debugger",
1261 NULL,
1262 NULL,
1263 NULL
1264 /* the stuff above should be replaced with header macros. */
1265 );
1266
1267 ASCADDCOM(interp,"dbg_get_eqn_of_var",Asc_DebuGetEqnOfVar,
1268 "debugger",
1269 NULL,
1270 NULL,
1271 NULL
1272 /* the stuff above should be replaced with header macros. */
1273 );
1274
1275 ASCADDCOM(interp,"dbg_get_varpartition",Asc_DebuGetVarPartition,
1276 "debugger",
1277 NULL,
1278 NULL,
1279 NULL
1280 /* the stuff above should be replaced with header macros. */
1281 );
1282
1283 ASCADDCOM(interp,"dbg_get_eqnpartition",Asc_DebuGetEqnPartition,
1284 "debugger",
1285 NULL,
1286 NULL,
1287 NULL
1288 /* the stuff above should be replaced with header macros. */
1289 );
1290
1291 ASCADDCOM(interp,"dbg_list_rels",Asc_DebuListRels,
1292 "debugger",
1293 NULL,
1294 NULL,
1295 NULL
1296 /* the stuff above should be replaced with header macros. */
1297 );
1298
1299 ASCADDCOM(interp,"dbg_list_vars",Asc_DebuListVars,
1300 "debugger",
1301 NULL,
1302 NULL,
1303 NULL
1304 /* the stuff above should be replaced with header macros. */
1305 );
1306
1307 ASCADDCOM(interp,"dbg_write_var",Asc_DebuWriteVar,
1308 "debugger",
1309 NULL,
1310 NULL,
1311 NULL
1312 /* the stuff above should be replaced with header macros. */
1313 );
1314
1315 ASCADDCOM(interp,"dbg_write_unattvar",Asc_DebuWriteUnattachedVar,
1316 "debugger",
1317 NULL,
1318 NULL,
1319 NULL
1320 /* the stuff above should be replaced with header macros. */
1321 );
1322
1323 Asc_AddCommand(interp,"brow_write_var",Asc_DebuWriteVar,
1324 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1325 "miscellaneous",
1326 NULL,
1327 NULL,
1328 NULL
1329 /* the stuff above should be replaced with header macros. */
1330 );
1331
1332
1333 ASCADDCOM(interp,"dbg_write_rel",Asc_DebuWriteRel,
1334 "debugger",
1335 NULL,
1336 NULL,
1337 NULL
1338 /* the stuff above should be replaced with header macros. */
1339 );
1340
1341 /* do we need this function? */
1342 Asc_AddCommand(interp,"brow_write_rel",Asc_DebuWriteRel,
1343 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1344 "miscellaneous",
1345 NULL,
1346 NULL,
1347 NULL
1348 /* the stuff above should be replaced with header macros. */
1349 );
1350
1351 ASCADDCOM(interp,"dbg_write_obj",Asc_DebuWriteObj,
1352 "debugger",
1353 NULL,
1354 NULL,
1355 NULL
1356 /* the stuff above should be replaced with header macros. */
1357 );
1358
1359 /* do we need this function? */
1360 Asc_AddCommand(interp,"brow_write_obj",Asc_DebuWriteObj,
1361 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1362 "miscellaneous",
1363 NULL,
1364 NULL,
1365 NULL
1366 /* the stuff above should be replaced with header macros. */
1367 );
1368
1369 ASCADDCOM(interp,"dbg_write_varattr",Asc_DebuWriteVarAttr,
1370 "debugger",
1371 NULL,
1372 NULL,
1373 NULL
1374 /* the stuff above should be replaced with header macros. */
1375 );
1376
1377 Asc_AddCommand(interp,"dbg_write_qlfattr",Asc_DebuWriteVarAttr,
1378 (ClientData)1, (Tcl_CmdDeleteProc *) NULL,
1379 "debugger",
1380 NULL,
1381 NULL,
1382 NULL
1383 /* the stuff above should be replaced with header macros. */
1384 );
1385
1386 ASCADDCOM(interp,"dbg_rel_included",Asc_DebuRelIncluded,
1387 "debugger",
1388 NULL,
1389 NULL,
1390 NULL
1391 /* the stuff above should be replaced with header macros. */
1392 );
1393
1394 ASCADDCOM(interp,"dbg_var_fixed",Asc_DebuVarFixed,
1395 "debugger",
1396 NULL,
1397 NULL,
1398 NULL
1399 /* the stuff above should be replaced with header macros. */
1400 );
1401
1402 ASCADDCOM(interp,"dbg_get_incidence",Asc_DebuGetIncidence,
1403 "debugger",
1404 NULL,
1405 NULL,
1406 NULL
1407 /* the stuff above should be replaced with header macros. */
1408 );
1409
1410 ASCADDCOM(interp,"dbg_get_order",Asc_DebuGetOrder,
1411 "debugger",
1412 NULL,
1413 NULL,
1414 NULL
1415 /* the stuff above should be replaced with header macros. */
1416 );
1417
1418 ASCADDCOM(interp,"dbg_write_incidence",Asc_DebuWriteIncidence,
1419 "debugger",
1420 NULL,
1421 NULL,
1422 NULL
1423 /* the stuff above should be replaced with header macros. */
1424 );
1425
1426 ASCADDCOM(interp,"dbg_find_eligible",Asc_DebuFindEligible,
1427 "debugger",
1428 NULL,
1429 NULL,
1430 NULL
1431 /* the stuff above should be replaced with header macros. */
1432 );
1433
1434 ASCADDCOM(interp,"brow_find_eligible",Asc_DebuInstEligible,
1435 "debugger",
1436 NULL,
1437 NULL,
1438 NULL
1439 /* the stuff above should be replaced with header macros. */
1440 );
1441
1442 ASCADDCOM(interp,"dbg_consistency_analysis",Asc_DebuConsistencyAnalysis,
1443 "debugger",
1444 NULL,
1445 NULL,
1446 NULL
1447 /* the stuff above should be replaced with header macros. */
1448 );
1449
1450 ASCADDCOM(interp,"dbg_global_eligible",Asc_DebuFindGlobalEligible,
1451 "debugger",
1452 NULL,
1453 NULL,
1454 NULL
1455 /* the stuff above should be replaced with header macros. */
1456 );
1457
1458
1459 ASCADDCOM(interp,"dbg_find_activerels",Asc_DebuFindActive,
1460 "debugger",
1461 NULL,
1462 NULL,
1463 NULL
1464 /* the stuff above should be replaced with header macros. */
1465 );
1466
1467 ASCADDCOM(interp,"brow_find_activerels",Asc_DebuInstActive,
1468 "debugger",
1469 NULL,
1470 NULL,
1471 NULL
1472 /* the stuff above should be replaced with header macros. */
1473 );
1474
1475 ASCADDCOM(interp,"dbg_struct_singular",Asc_DebuStructSing,
1476 "debugger",
1477 NULL,
1478 NULL,
1479 NULL
1480 /* the stuff above should be replaced with header macros. */
1481 );
1482
1483 ASCADDCOM(interp,"dbg_num_block_singular",Asc_DebuNumBlockSing,
1484 "debugger",
1485 NULL,
1486 NULL,
1487 NULL
1488 /* the stuff above should be replaced with header macros. */
1489 );
1490
1491 ASCADDCOM(interp,"var_free2nom",Asc_DebuVarFree2Nom,
1492 "debugger",
1493 NULL,
1494 NULL,
1495 NULL
1496 /* the stuff above should be replaced with header macros. */
1497 );
1498
1499 ASCADDCOM(interp,"var_nom2free",Asc_DebuVarNom2Free,
1500 "debugger",
1501 NULL,
1502 NULL,
1503 NULL
1504 /* the stuff above should be replaced with header macros. */
1505 );
1506
1507 ASCADDCOM(interp,"dbg_calc_relnoms",Asc_DebuCalcRelNominals,
1508 "debugger",
1509 NULL,
1510 NULL,
1511 NULL
1512 /* the stuff above should be replaced with header macros. */
1513 );
1514
1515 ASCADDCOM(interp,"dbg_check_rels",Asc_DebuCheckRelFp,
1516 "debugger",
1517 NULL,
1518 NULL,
1519 NULL
1520 /* the stuff above should be replaced with header macros. */
1521 );
1522
1523 ASCADDCOM(interp,"dbg_write_slv0_xsys",Asc_DebuWriteSystem,
1524 "fileio",
1525 NULL,
1526 NULL,
1527 NULL
1528 /* the stuff above should be replaced with header macros. */
1529 );
1530
1531
1532 Asc_AddCommand(interp,"dbg_write_slv0_sys",Asc_DebuWriteSystem,
1533 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1534 "debugger",
1535 NULL,
1536 NULL,
1537 NULL
1538 /* the stuff above should be replaced with header macros. */
1539 );
1540
1541 Asc_AddCommand(interp,"dbg_mtxwriteplot",Asc_DebuMtxWritePlotCmd,
1542 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1543 "debugger",
1544 NULL,
1545 NULL,
1546 NULL
1547 /* the stuff above should be replaced with header macros. */
1548 );
1549
1550 Asc_AddCommand(interp,"dbg_calc_jacobian",Asc_DebuMtxCalcJacobianCmd,
1551 (ClientData) 1, (Tcl_CmdDeleteProc *) NULL,
1552 "debugger",
1553 NULL,
1554 NULL,
1555 NULL
1556 /* the stuff above should be replaced with header macros. */
1557 );
1558
1559 ASCADDCOM(interp,"dbghelp",Asc_DebuHelpList,
1560 "debugger",
1561 NULL,
1562 "dbghelp -- give tcl/[s]hort/[l]ong debugger primitives list",
1563 NULL
1564 /* the stuff above should be replaced with header macros. */
1565 );
1566
1567
1568 /* ivp solver commands */
1569 ASCADDCOM(interp,"integrate_setup", Asc_IntegSetupCmd,
1570 "solver",
1571 NULL,
1572 NULL,
1573 NULL
1574 /* the stuff above should be replaced with header macros. */
1575 );
1576
1577 ASCADDCOM(interp,"integrate_cleanup", Asc_IntegCleanupCmd,
1578 "solver",
1579 NULL,
1580 NULL,
1581 NULL
1582 /* the stuff above should be replaced with header macros. */
1583 );
1584
1585 ASCADDCOM(interp,"integrate_set_y_file", Asc_IntegSetYFileCmd,
1586 "solver",
1587 NULL,
1588 NULL,
1589 NULL
1590 /* the stuff above should be replaced with header macros. */
1591 );
1592
1593 ASCADDCOM(interp,"integrate_set_obs_file", Asc_IntegSetObsFileCmd,
1594 "solver",
1595 NULL,
1596 NULL,
1597 NULL
1598 /* the stuff above should be replaced with header macros. */
1599 );
1600
1601 ASCADDCOM(interp,"integrate_logunits", Asc_IntegSetFileUnitsCmd,
1602 "solver",
1603 NULL,
1604 NULL,
1605 NULL
1606 /* the stuff above should be replaced with header macros. */
1607 );
1608
1609 ASCADDCOM(interp,"integrate_logformat", Asc_IntegSetFileFormatCmd,
1610 "solver",
1611 NULL,
1612 NULL,
1613 NULL
1614 /* the stuff above should be replaced with header macros. */
1615 );
1616
1617 ASCADDCOM(interp,"integrate_get_samples", Asc_IntegGetXSamplesCmd,
1618 "solver",
1619 NULL,
1620 NULL,
1621 NULL
1622 /* the stuff above should be replaced with header macros. */
1623 );
1624
1625 ASCADDCOM(interp,"integrate_set_samples", Asc_IntegSetXSamplesCmd,
1626 "solver",
1627 NULL,
1628 NULL,
1629 NULL
1630 /* the stuff above should be replaced with header macros. */
1631 );
1632
1633 ASCADDCOM(interp,"integrate_able", Asc_IntegInstIntegrableCmd,
1634 "solver",
1635 NULL,
1636 NULL,
1637 NULL
1638 /* the stuff above should be replaced with header macros. */
1639 );
1640
1641 /* This code is in Sensitivity.[ch] but needs a home */
1642 /* Also need a different name as the Mtx name space is already taken. */
1643 ASCADDCOM(interp,"__mtx_norms", Asc_MtxNormsCmd,
1644 "solver",
1645 NULL,
1646 NULL,
1647 NULL
1648 /* the stuff above should be replaced with header macros. */
1649 );
1650
1651 /* Working very hard to avoid direct X code, here we make a command
1652 set for handling incidence matrices via Tcl/tk without the
1653 amazing overhead of a tcl interpreter getting in the way.
1654 Avoids a _lot_ of list operations.
1655 */
1656 /* mtx incidence commands */
1657 ASCADDCOM(interp,"mtx_gui_plot_incidence",Asc_MtxGUIPlotIncidence,
1658 "mtxplot",
1659 NULL,
1660 NULL,
1661 NULL
1662 /* the stuff above should be replaced with header macros. */
1663 );
1664
1665 ASCADDCOM(interp,"mtxhelp",Asc_MtxHelpList,
1666 "mtxplot",
1667 NULL,
1668 "mtxhelp -- give tcl/[s]hort/[l]ong incid matrix primitives.",
1669 NULL
1670 /* the stuff above should be replaced with header macros. */
1671 );
1672
1673 /* Units window stuff */
1674 ASCADDCOM(interp,"u_destroy_units",Asc_UnitDestroyDisplayList,
1675 "units",
1676 NULL,
1677 NULL,
1678 NULL
1679 /* the stuff above should be replaced with header macros. */
1680 );
1681
1682 ASCADDCOM(interp,"u_setSIdef",Asc_UnitDefaultBaseUnits,
1683 "units",
1684 NULL,
1685 NULL,
1686 NULL
1687 /* the stuff above should be replaced with header macros. */
1688 );
1689
1690 ASCADDCOM(interp,"u_getbasedef",Asc_UnitGetBaseUnits,
1691 "units",
1692 NULL,
1693 NULL,
1694 NULL
1695 /* the stuff above should be replaced with header macros. */
1696 );
1697
1698 ASCADDCOM(interp,"u_dump",Asc_UnitDump,
1699 "units",
1700 NULL,
1701 NULL,
1702 NULL
1703 /* the stuff above should be replaced with header macros. */
1704 );
1705
1706 ASCADDCOM(interp,"u_dims",Asc_DimenDump,
1707 "units",
1708 NULL,
1709 NULL,
1710 NULL
1711 /* the stuff above should be replaced with header macros. */
1712 );
1713
1714 ASCADDCOM(interp,"u_dim_setverify",Asc_DimenRelCheck,
1715 "units",
1716 NULL,
1717 NULL,
1718 NULL
1719 /* the stuff above should be replaced with header macros. */
1720 );
1721
1722 ASCADDCOM(interp,"u_dim2num",Asc_UnitBaseDimToNum,
1723 "units",
1724 NULL,
1725 NULL,
1726 NULL
1727 /* the stuff above should be replaced with header macros. */
1728 );
1729
1730 ASCADDCOM(interp,"u_num2dim",Asc_UnitNumToBaseDim,
1731 "units",
1732 NULL,
1733 NULL,
1734 NULL
1735 /* the stuff above should be replaced with header macros. */
1736 );
1737
1738 ASCADDCOM(interp,"u_frombasedim",Asc_UnitMatchBaseDim,
1739 "units",
1740 NULL,
1741 NULL,
1742 NULL
1743 /* the stuff above should be replaced with header macros. */
1744 );
1745
1746 ASCADDCOM(interp,"u_fromatomdim",Asc_UnitMatchAtomDim,
1747 "units",
1748 NULL,
1749 NULL,
1750 NULL
1751 /* the stuff above should be replaced with header macros. */
1752 );
1753
1754 ASCADDCOM(interp,"u_getdimatoms",Asc_UnitGetAtomList,
1755 "units",
1756 NULL,
1757 NULL,
1758 NULL
1759 /* the stuff above should be replaced with header macros. */
1760 );
1761
1762 ASCADDCOM(interp,"u_change_baseunit",Asc_UnitChangeBaseUnit,
1763 "units",
1764 NULL,
1765 NULL,
1766 NULL
1767 /* the stuff above should be replaced with header macros. */
1768 );
1769
1770 ASCADDCOM(interp,"u_getprec",Asc_UnitGetPrec,
1771 "units",
1772 NULL,
1773 NULL,
1774 NULL
1775 /* the stuff above should be replaced with header macros. */
1776 );
1777
1778 ASCADDCOM(interp,"u_setprec",Asc_UnitSetPrec,
1779 "units",
1780 NULL,
1781 NULL,
1782 NULL
1783 /* the stuff above should be replaced with header macros. */
1784 );
1785
1786 ASCADDCOM(interp,"u_get_atoms",Asc_UnitGetAtomsForUnit,
1787 "units",
1788 NULL,
1789 NULL,
1790 NULL
1791 /* the stuff above should be replaced with header macros. */
1792 );
1793
1794
1795 ASCADDCOM(interp,"u_get_units",Asc_UnitGetUnits,
1796 "units",
1797 NULL,
1798 NULL,
1799 NULL
1800 /* the stuff above should be replaced with header macros. */
1801 );
1802
1803 ASCADDCOM(interp,"u_set_user",Asc_UnitSetUser,
1804 "units",
1805 NULL,
1806 NULL,
1807 NULL
1808 /* the stuff above should be replaced with header macros. */
1809 );
1810
1811 ASCADDCOM(interp,"u_get_user",Asc_UnitGetUser,
1812 "units",
1813 NULL,
1814 NULL,
1815 NULL
1816 /* the stuff above should be replaced with header macros. */
1817 );
1818
1819 ASCADDCOM(interp,"u_get_list",Asc_UnitGetList,
1820 "units",
1821 NULL,
1822 NULL,
1823 NULL
1824 /* the stuff above should be replaced with header macros. */
1825 );
1826
1827 ASCADDCOM(interp,"u_clear_user",Asc_UnitClearUser,
1828 "units",
1829 NULL,
1830 NULL,
1831 NULL
1832 /* the stuff above should be replaced with header macros. */
1833 );
1834
1835 ASCADDCOM(interp,"u_getval",Asc_UnitGetVal,
1836 "units",
1837 NULL,
1838 NULL,
1839 NULL
1840 /* the stuff above should be replaced with header macros. */
1841 );
1842
1843 ASCADDCOM(interp,"u_browgetval",Asc_UnitBrowGetVal,
1844 "units",
1845 NULL,
1846 NULL,
1847 NULL
1848 /* the stuff above should be replaced with header macros. */
1849 );
1850
1851 ASCADDCOM(interp,"u_slvgetrelval",Asc_UnitSlvGetRelVal,
1852 "units",
1853 NULL,
1854 NULL,
1855 NULL
1856 /* the stuff above should be replaced with header macros. */
1857 );
1858
1859 ASCADDCOM(interp,"u_slvgetvarval",Asc_UnitSlvGetVarVal,
1860 "units",
1861 NULL,
1862 NULL,
1863 NULL
1864 /* the stuff above should be replaced with header macros. */
1865 );
1866
1867 ASCADDCOM(interp,"u_slvgetobjval",Asc_UnitSlvGetObjVal,
1868 "units",
1869 NULL,
1870 NULL,
1871 NULL
1872 /* the stuff above should be replaced with header macros. */
1873 );
1874
1875 ASCADDCOM(interp,"uhelp",Asc_UnitHelpList,
1876 "units",
1877 NULL,
1878 "uhelp -- give tcl/[s]hort/[l]ong units primitives list.",
1879 NULL
1880 /* the stuff above should be replaced with header macros. */
1881 );
1882
1883 /*Script callbacks */
1884 ASCADDCOM(interp,"srefine", Asc_ScriptRefineCmd,
1885 "scripting",
1886 NULL,
1887 "srefine -- refine qlfdid to type given",
1888 NULL
1889 /* the stuff above should be replaced with header macros. */
1890 );
1891
1892 ASCADDCOM(interp,"smerge", Asc_ScriptMergeCmd,
1893 "scripting",
1894 NULL,
1895 "smerge -- merge 2 qlfdids",
1896 NULL
1897 /* the stuff above should be replaced with header macros. */
1898 );
1899
1900 /* Auxiliaries and Window Management */
1901 ASCADDCOM(interp,"ascloadwin",Asc_LoadWin,
1902 "miscellaneous",
1903 NULL,
1904 NULL,
1905 NULL
1906 /* the stuff above should be replaced with header macros. */
1907 );
1908
1909 ASCADDCOM(interp,"gnutext",Asc_GNUTextCmd,
1910 "miscellaneous",
1911 NULL,
1912 "gnutext -- give compiler license [l] or warranty [w]",
1913 NULL
1914 /* the stuff above should be replaced with header macros. */
1915 );
1916
1917
1918 #if REIMPLEMENT
1919 Tcl_CreateCommand(interp,"dbg_write_kirk_xsys",Asc_DebuWriteKirkSystem,
1920 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1921 Tcl_CreateCommand(interp,"dbg_write_gams_xsys",Asc_DebuWriteGAMSSystem,
1922 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1923 #endif
1924 #if REIMPLEMENT
1925 /* code generation commands */
1926 Tcl_CreateCommand(interp,"__codegen_parsedata",Asc_CodeGenParseDataCmd,
1927 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1928 Tcl_CreateCommand(interp,"__codegen_general",Asc_CodeGenGeneralCmd,
1929 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1930 Tcl_CreateCommand(interp,"__codegen_c",Asc_CodeGenCCmd,
1931 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1932 Tcl_CreateCommand(interp,"__codegen_gams",Asc_CodeGenGamsCmd,
1933 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1934 Tcl_CreateCommand(interp,"__codegen_write",Asc_CodeGenWriteCmd,
1935 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1936 Tcl_CreateCommand(interp,"__codegen_read",Asc_CodeGenReadCmd,
1937 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1938 #endif
1939 /* some experimental stuff */
1940 #if REIMPLEMENT
1941 Tcl_CreateCommand(interp,"__codegen_types",Asc_CodeGenTypesCmd,
1942 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1943 #endif
1944 /* Dag Routines */
1945 #if KILLBDAG
1946 Tcl_CreateCommand(interp,"__brow_tree_list", Asc_BrowTreeListCmd,
1947 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1948
1949 Tcl_CreateCommand(interp,"__dag_write_instdag", Asc_DagWriteInstDagCmd,
1950 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1951 Tcl_CreateCommand(interp,"__dag_write_modeldag", Asc_DagWriteModelDagCmd,
1952 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1953 Tcl_CreateCommand(interp,"__dag_partition", Asc_DagPartitionCmd,
1954 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1955 Tcl_CreateCommand(interp,"__dag_countrelns", Asc_DagCountRelnsCmd,
1956 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1957
1958 Tcl_CreateCommand(interp,"__dag_coupling_relns", Asc_DagCouplingRelnsCmd,
1959 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1960 Tcl_CreateCommand(interp,"__dag_model_relns", Asc_DagModelRelnsCmd,
1961 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1962
1963 Tcl_CreateCommand(interp,"__dag_build", Asc_DagBuildDagCmd,
1964 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1965 Tcl_CreateCommand(interp,"__dag_prepare", Asc_DagPrepareCmd,
1966 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1967 Tcl_CreateCommand(interp,"__dag_shutdown", Asc_DagShutdownCmd,
1968 (ClientData) NULL,(Tcl_CmdDeleteProc *) NULL);
1969 #endif /* killbdag */
1970 #ifdef DEBUG_MALLOC
1971 /* See GUIinit.[ch] for definition of Asc_DebugMallocCmd */
1972 Tcl_CreateCommand(interp,"__dbmalloc",Asc_DebugMallocCmd,
1973 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
1974 #endif
1975
1976 #ifdef BALLAN /* testing crap not checked in */
1977
1978 ASCADDCOM(interp, Asc_LibrAnonTypesCmdHN, Asc_LibrAnonTypesCmd,
1979 "library", Asc_LibrAnonTypesCmdHU, Asc_LibrAnonTypesCmdHS,
1980 Asc_LibrAnonTypesCmdHLF);
1981
1982 ASCADDCOM(interp, Asc_DotCmdHN, Asc_DotCmd, "browser",
1983 Asc_DotCmdHU, Asc_DotCmdHS, Asc_DotCmdHLF);
1984
1985 #endif /* ballan */
1986
1987 }
1988

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22