1 /***************************************************************************
2 JSPICE3 adaptation of Spice3e2 - Copyright (c) Stephen R. Whiteley 1992
3 Copyright 1990 Regents of the University of California.  All rights reserved.
4 Authors: 1985 Wayne A. Christopher
5          1992 Stephen R. Whiteley
6 ****************************************************************************/
7 
8 /*
9  * Circuit debugging commands.
10  */
11 
12 #include <stdio.h>
13 #include "spice.h"
14 #include "ftedefs.h"
15 #include "ftedebug.h"
16 #include "spfteext.h"
17 
18 /* ARGSUSED */
19 void
com_state(wl)20 com_state(wl)
21 
22 wordlist *wl;
23 {
24     if (!ft_curckt) {
25         fprintf(cp_err, "Error: no circuit loaded.\n");
26         return;
27     }
28     out_printf("Current circuit: %s\n", ft_curckt->ci_name);
29     if (!ft_curckt->ci_inprogress) {
30         out_printf("No run in progress.\n");
31         return;
32     }
33     out_printf("Type of run: %s\n", plot_cur->pl_name);
34     out_printf("Number of points so far: %d\n",
35             plot_cur->pl_scale->v_length);
36     out_printf("(That's all this command does so far)\n");
37     return;
38 }
39 
40 /* ARGSUSED */
41 void
com_dump(wl)42 com_dump(wl)
43 
44 wordlist *wl;
45 {
46     FILE *fp;
47 
48     if (!ft_curckt || !ft_curckt->ci_ckt) {
49         fprintf(cp_err, "Error: no circuit loaded.\n");
50         return;
51     }
52     NIprint(ft_curckt->ci_ckt);
53     return;
54 }
55