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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

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