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

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