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)20com_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)42com_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