#include "extern.h"

FILE	*infile;
char    *yy_figname                    ,
    	nom_subckt[ MAXLIG + 1]        ,
        modn[20]               =  "tn" ,
        modp[20]               =  "tp" ;
int	numlig                         ,
        flag_dico                      ,
   	fig_pere     = 0               ,
        fig_loaded   = 0               ,
	spi_index    = 2               ,
	spi_main_gdt = 0               ,
        MAXSIGINDEX  = 1000000         ;

char	*tab_err[ NB_ERR ] =
{
	"Dico dax not finished",
	"Dico vti not finished",
	"Missing end of subckt",
	"Missing start of subckt",
	"Transistor out of a subckt !!!",
	"Instance out of a subckt !!!",
	"Capacity out of a subckt !!!",
	"Missing name of subckt",
	"Bad subckt name",
	"Subckt name must begin by a letter",
	"Bad dico number",
	"Bad dico definition",
	"Bad mbk name, first caractere must be a letter",
	"Name too big, 30 caracteres maxi",
	"Bad definition of capacity, missing one or more parameters",
	"Bad value, missing digit",
	"Bad unity, good unity : M, U, N, P, F",
	"Bad instance definition, missing one or more parameters",
	"Bad transistor definition",
	"Bad transistor definition, missing drain, source, grid, bulk and type",
	"Bad transistor definition, missing source, grid, bulk and type",
	"Bad transistor definition, missing grid, bulk and type",
	"Bad transistor definition, missing bulk and type",
	"Bad transistor definition, missing type",
	"Bad transistor definition, on the fields W and L",
	"Bad transistor definition, on the field AS or AD",
	"Bad transistor definition, on the field PS or PD",
	"Bad transistor definition, on the field NRS or NRD",
	"Two different definition of dico in the same file",
	"Possible incoherency, figure already saved in memory",
	"Bad transistor type in variables MBK_SPI_TN and MBK_SPI_TP",
	"Root figure missing or not the last",
	"Bad dico index in memory",
	"Bad node, value 0 impossible",
	"Figure cancelled",
	"Bad ASGA (MESFET) declaration"
};

lofig_list       *spi_ptfig = (lofig_list*) NULL;
spi_triplet_list *ptdic     = (spi_triplet_list *) NULL;    

/* int n =2, fig_loaded = 0; */
