* vst2xnf :
- Ajout de l'outil complet (traducteur lofig --> xnf) (XILINX). - Ajouté dans la liste des outils à ne pas distribuer (.asim).
This commit is contained in:
Jean-Paul Chaput
parent
97c30e4030
commit
346f8c4d30
|
|
@ -0,0 +1,3 @@
|
|||
## Process this file with automake to produce Makefile.in
|
||||
|
||||
SUBDIRS = src
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
dnl Process this file with autoconf to produce a configure script.
|
||||
AC_INIT(src/vst2xnf.c)
|
||||
|
||||
VST2XNF_MAJOR_VERSION=1
|
||||
VST2XNF_MINOR_VERSION=0
|
||||
VST2XNF_VERSION=$VST2XNF_MAJOR_VERSION.$VST2XNF_MINOR_VERSION
|
||||
|
||||
AC_SUBST(VST2XNF_MAJOR_VERSION)
|
||||
AC_SUBST(VST2XNF_MINOR_VERSION)
|
||||
AC_SUBST(VST2XNF_VERSION)
|
||||
|
||||
# For automake.
|
||||
VERSION=$VST2XNF_VERSION
|
||||
PACKAGE=vst2xnf
|
||||
|
||||
dnl Initialize automake stuff
|
||||
AM_INIT_AUTOMAKE($PACKAGE, $VERSION)
|
||||
|
||||
dnl Checks for programs.
|
||||
AC_PROG_CC
|
||||
AC_PROG_MAKE_SET
|
||||
|
||||
AC_CHECK_LIB(m, pow)
|
||||
|
||||
dnl Checks for typedefs, structures, and compiler characteristics.
|
||||
AC_C_CONST
|
||||
|
||||
AM_ALLIANCE
|
||||
|
||||
AC_OUTPUT([
|
||||
Makefile
|
||||
src/Makefile
|
||||
])
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
## Process this file with automake to produce Makefile.in
|
||||
|
||||
AM_CFLAGS = -g
|
||||
|
||||
|
||||
bin_PROGRAMS = vst2xnf
|
||||
|
||||
vst2xnf_LDADD = -lMpu -lMlu \
|
||||
-lMcl -lMcp \
|
||||
-lMal -lMap \
|
||||
-lMsl \
|
||||
-lMel -lMgl \
|
||||
-lMhl \
|
||||
-lMvg \
|
||||
-lMmg \
|
||||
-lMlo \
|
||||
-lMph -lMut \
|
||||
-lRcn
|
||||
|
||||
|
||||
vst2xnf_SOURCES = vst2xnf.c
|
||||
|
||||
|
|
@ -0,0 +1,643 @@
|
|||
/*******************************************************************************
|
||||
*
|
||||
* XNF driver from a lofig.
|
||||
* Based on Nathtalie Dictus and Eudes Prado Lopez version for FPGA
|
||||
* By Frederic Petrot
|
||||
*
|
||||
* 03/10/96 Traite TRANSCV, obuft doit etre explicite, le ibuf peut etre
|
||||
* explicie, sinon il est rajoute
|
||||
* 07/10/96 ibuf et obuf peuvent etre explicites, sinon ils sont rajoutes
|
||||
* 03/11/2000 Traitement de zero_y, one_y
|
||||
*******************************************************************************/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <mut.h>
|
||||
#include <mlo.h>
|
||||
#include <mlu.h>
|
||||
|
||||
|
||||
void liste_model(lofig_list *ptfig);
|
||||
void liste_figure(lofig_list *ptfig);
|
||||
void liste_con_ext(lofig_list *ptfig);
|
||||
void liste_sig_index(lofig_list *ptfig);
|
||||
void liste_mod_inst_conn(lofig_list *ptfig);
|
||||
static char *dot_to_slash(char *name,char *buffer);
|
||||
static char *xnfvector(char *name,char *buffer);
|
||||
int prim_add_inv(char *name);
|
||||
static char *prim_map_pin_name(char *name,char *buffer);
|
||||
static char *xnf_map_figname(char *name,char *buffer);
|
||||
static char *signalname(ht *h,lofig_list *lof,losig_list *ls,char *buffer);
|
||||
static char dir(locon_list *lc);
|
||||
static char dirext(locon_list *lc);
|
||||
void xnfsavelofig(lofig_list *lof);
|
||||
|
||||
|
||||
static char *spec_ibuf[] = { "inff", "outfft","inlat", "bufgp", "bufgs", "bufg",
|
||||
"ibuf", "obuf" };
|
||||
static int spec_ibuf_size = sizeof spec_ibuf / sizeof ( char * ) ;
|
||||
|
||||
static char *clkbuf = "bufgp";
|
||||
static char *ibuf = "ibuf";
|
||||
static char *obuf = "obuf";
|
||||
static char *tbuf = "tbuf";
|
||||
static char *obuft = "obuft";
|
||||
|
||||
static char buffer1[BUFSIZE]; /* large buffer for string manipulation */
|
||||
static char buffer2[BUFSIZE]; /* large buffer for string manipulation */
|
||||
|
||||
static int prim_map ; /* mode to map pins o->O, i0->0, and add INVS */
|
||||
static char prim_input_size ;
|
||||
static char prim_bubble_count ;
|
||||
|
||||
/*#define DEBUG 1*/
|
||||
|
||||
/*-------------------------------------------------------------*/
|
||||
|
||||
void liste_model(lofig_list *ptfig)
|
||||
{
|
||||
chain_list *pch;
|
||||
|
||||
pch = ptfig->MODELCHAIN ;
|
||||
while(pch) {
|
||||
if(pch->DATA)
|
||||
fprintf(stdout,"modele : %s \n", pch->DATA);
|
||||
pch = pch->NEXT;
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
void liste_figure(lofig_list *ptfig)
|
||||
{
|
||||
lofig_list *pfg;
|
||||
|
||||
pfg = ptfig ;
|
||||
while(pfg) {
|
||||
if(pfg->NAME)
|
||||
fprintf(stderr,"figure : %s \n", pfg->NAME);
|
||||
pfg = pfg->NEXT;
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
void liste_con_ext(lofig_list *ptfig)
|
||||
{
|
||||
locon_list *plc;
|
||||
|
||||
fprintf(stderr,"**liste des connecteurs externes\n");
|
||||
plc = ptfig->LOCON ;
|
||||
while(plc) {
|
||||
fprintf(stderr,"connecteur : %s ,sig index : %d ,type : %c,
|
||||
direction : %c \n",plc->NAME,plc->SIG->INDEX,plc->TYPE,
|
||||
plc->DIRECTION);
|
||||
plc = plc->NEXT;
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
void liste_sig_index(lofig_list *ptfig)
|
||||
{
|
||||
losig_list *pls;
|
||||
|
||||
fprintf(stderr,"**liste des signaux et index\n");
|
||||
pls = ptfig->LOSIG ;
|
||||
while(pls) {
|
||||
if(pls->NAMECHAIN) {
|
||||
if(pls->NAMECHAIN->DATA)
|
||||
fprintf(stderr,"signal : %s ,index : %d ,type : %c\n",
|
||||
pls->NAMECHAIN->DATA,pls->INDEX,pls->TYPE);
|
||||
}
|
||||
else
|
||||
fprintf(stderr,"index : %d ,type : %c\n",pls->INDEX,pls->TYPE);
|
||||
pls = pls->NEXT;
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
void liste_mod_inst_conn(lofig_list *ptfig)
|
||||
{
|
||||
loins_list *pi;
|
||||
locon_list *pc;
|
||||
|
||||
fprintf(stderr,"**liste des instances et connecteurs associes\n");
|
||||
pi = ptfig->LOINS ;
|
||||
while(pi) {
|
||||
fprintf(stderr,"modele : %s ,instance : %s \n",pi->FIGNAME,pi->INSNAME);
|
||||
pc = pi->LOCON;
|
||||
while(pc) {
|
||||
fprintf(stderr,"connecteur : %s ,index : %d ,type : %c,
|
||||
dir : %c \n",pc->NAME,pc->SIG->INDEX,pc->TYPE,pc->DIRECTION);
|
||||
pc = pc->NEXT;
|
||||
}
|
||||
pi = pi->NEXT;
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
/* forward slash denotes hier for sig and symbol names in a
|
||||
flattened XNF file
|
||||
REF Figure 2-5 of April 1994 XACT reference guide, Volume II
|
||||
XNFMerge section page 2-16
|
||||
"XNFMERGE places the instance name of the symbol referencing the
|
||||
logic and a / at the beginning of each signal and symbol name"
|
||||
Thus .'s are replaced with /'s via dot_to_slash
|
||||
*/
|
||||
static char *dot_to_slash(char *name,char *buffer)
|
||||
{
|
||||
int i;
|
||||
for ( i=0 ; ; i++ ) {
|
||||
if( *(name+i) == '.' ) {
|
||||
*(buffer+i) = '/' ;
|
||||
} else {
|
||||
*(buffer+i) = *(name+i) ;
|
||||
}
|
||||
if ( *(name+i) == NULL ) break ;
|
||||
}
|
||||
return buffer ;
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char *xnfvector(char *name,char *buffer )
|
||||
{
|
||||
char *s;
|
||||
int l ;
|
||||
dot_to_slash(name,buffer); /* buffer == name with dots mapped to slash */
|
||||
l = strlen(buffer) ;
|
||||
if ((s = strchr(buffer, ' ')) == NULL)
|
||||
return buffer;
|
||||
|
||||
buffer[s - buffer] = '<';
|
||||
buffer[l++] = '>';
|
||||
buffer[l] = '\0';
|
||||
return buffer;
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
int prim_add_inv(char *name)
|
||||
{
|
||||
char diff,pin;
|
||||
if ( (! prim_map) || (prim_bubble_count==0) ) return 0;
|
||||
diff = prim_input_size - prim_bubble_count ;
|
||||
if ( ! strcmp(name,"o") ) { return 0 ; }
|
||||
else if ( ! strcmp(name,"i0") ) { pin=0 ; }
|
||||
else if ( ! strcmp(name,"i1") ) { pin=1 ; }
|
||||
else if ( ! strcmp(name,"i2") ) { pin=2 ; }
|
||||
else if ( ! strcmp(name,"i3") ) { pin=3 ; }
|
||||
else if ( ! strcmp(name,"i4") ) { pin=4 ; }
|
||||
else { fprintf(stderr,"FORMAT_ERROR: pin name *%s* not in set o,i0,i1,
|
||||
i2,i3,i4 \n",name) ; }
|
||||
if ( pin >= diff ) { return 1 ; }
|
||||
else { return 0 ; }
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char *prim_map_pin_name(char *name,char *buffer)
|
||||
{
|
||||
xnfvector( name, buffer ) ; /* buffer updated "name elt" to "name<elt>" */
|
||||
if ( ! prim_map ) return buffer ;
|
||||
if ( ! strcmp(buffer,"o") ) { return "O" ; }
|
||||
else if ( ! strcmp(buffer,"i0") ) { return "1" ; }
|
||||
else if ( ! strcmp(buffer,"i1") ) { return "2" ; }
|
||||
else if ( ! strcmp(buffer,"i2") ) { return "3" ; }
|
||||
else if ( ! strcmp(buffer,"i3") ) { return "4" ; }
|
||||
else if ( ! strcmp(buffer,"i4") ) { return "5" ; }
|
||||
else { fprintf(stderr,"FORMAT_ERROR: pin name *%s* not in set o,i0,i1,
|
||||
i2,i3,i4 \n",buffer) ;
|
||||
return buffer ;}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char *xnf_map_figname(char *name,char *buffer)
|
||||
{
|
||||
int l = strlen(name);
|
||||
int stpos=3;
|
||||
char *sp;
|
||||
prim_map=0;
|
||||
prim_bubble_count=0;
|
||||
/* fd and dff primitives+ to dff, no prim_map */
|
||||
if ( ! ( strcmp(name,"fdce") && strcmp(name,"fdpe") && strcmp(name,"fd")
|
||||
&& strcmp(name,"fdcer") ) ) {
|
||||
strcpy(buffer,"dff");
|
||||
return buffer ;
|
||||
}
|
||||
/* process plain primitives */
|
||||
else if ( strncmp(name,"and",3) == 0 ) {
|
||||
strcpy(buffer,"and");
|
||||
} else if ( strncmp(name,"nand",4) == 0 ) {
|
||||
strcpy(buffer,"nand");
|
||||
stpos=4;
|
||||
} else if ( strncmp(name,"xor",3) == 0 ) {
|
||||
strcpy(buffer,"xor");
|
||||
} else if ( strncmp(name,"nxor",4) == 0 ) {
|
||||
strcpy(buffer,"xnor");
|
||||
stpos=4;
|
||||
} else {
|
||||
return name;
|
||||
}
|
||||
sp = name + stpos ;
|
||||
if ( l == stpos + 1 ) {
|
||||
prim_input_size = *sp - 0x30 ;
|
||||
if ( (prim_input_size < 2) || (prim_input_size > 5) ) {
|
||||
fprintf(stderr,"A:FORMAT_ERROR\n") ; }
|
||||
} else if ( l == stpos+2+1) {
|
||||
prim_input_size = *sp - 0x30 ;
|
||||
if ( (prim_input_size < 2) || (prim_input_size > 5) ) {
|
||||
fprintf(stderr,"B:FORMAT_ERROR\n") ; }
|
||||
if ( strncmp(++sp,"b",1) != 0 ) {
|
||||
fprintf(stderr,"C:FORMAT_ERROR name=%s\n",name) ; }
|
||||
prim_bubble_count=*(++sp) - 0x30 ;
|
||||
if ( (prim_bubble_count < 0) || (prim_bubble_count > prim_input_size) ) {
|
||||
fprintf(stderr,"D:FORMAT_ERROR\n") ;
|
||||
}
|
||||
} else {
|
||||
fprintf(stderr,"E:FORMAT_ERROR name=%s l=%d stpos=%d \n",name,l,stpos) ; }
|
||||
|
||||
prim_map = 1;
|
||||
return buffer ;
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static lofig_list *mkbuf()
|
||||
{
|
||||
lofig_list *lof = NULL;
|
||||
locon_list *lc;
|
||||
losig_list *ls;
|
||||
|
||||
/* let us generate the buffers that are necessary for our IOB */
|
||||
lof = addlomodel(lof, ibuf);
|
||||
addlocon(lof, "vss",
|
||||
addlosig(lof, 0, addchain(NULL, "vss"), EXTERNAL), IN);
|
||||
addlocon(lof, "vdd",
|
||||
addlosig(lof, 1, addchain(NULL, "vdd"), EXTERNAL), IN);
|
||||
addlocon(lof, "o",
|
||||
addlosig(lof, 2, addchain(NULL, "o"), EXTERNAL), OUT);
|
||||
addlocon(lof, "i",
|
||||
addlosig(lof, 3, addchain(NULL, "i"), EXTERNAL), IN);
|
||||
ibuf = lof->NAME; /* avoid the double namealloc! */
|
||||
|
||||
lof = addlomodel(lof, obuf);
|
||||
addlocon(lof, "vss",
|
||||
addlosig(lof, 0, addchain(NULL, "vss"), EXTERNAL), IN);
|
||||
addlocon(lof, "vdd",
|
||||
addlosig(lof, 1, addchain(NULL, "vdd"), EXTERNAL), IN);
|
||||
addlocon(lof, "o",
|
||||
addlosig(lof, 2, addchain(NULL, "o"), EXTERNAL), OUT);
|
||||
addlocon(lof, "i",
|
||||
addlosig(lof, 3, addchain(NULL, "i"), EXTERNAL), IN);
|
||||
obuf = lof->NAME; /* avoid the double namealloc! */
|
||||
|
||||
lof = addlomodel(lof, clkbuf);
|
||||
addlocon(lof, "vss",
|
||||
addlosig(lof, 0, addchain(NULL, "vss"), EXTERNAL), IN);
|
||||
addlocon(lof, "vdd",
|
||||
addlosig(lof, 1, addchain(NULL, "vdd"), EXTERNAL), IN);
|
||||
addlocon(lof, "o",
|
||||
addlosig(lof, 2, addchain(NULL, "o"), EXTERNAL), OUT);
|
||||
addlocon(lof, "i",
|
||||
addlosig(lof, 3, addchain(NULL, "i"), EXTERNAL), IN);
|
||||
clkbuf = lof->NAME; /* avoid the double namealloc! */
|
||||
tbuf = namealloc(tbuf);
|
||||
|
||||
return lof;
|
||||
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char *signalname(ht *h,lofig_list *lof,losig_list *ls,char *buffer)
|
||||
{
|
||||
int val;
|
||||
char *s = getsigname(ls);
|
||||
|
||||
if ((val = gethtitem(h, s)) == EMPTYHT) /* the name is unique up to now */
|
||||
addhtitem(h, s, (int)ls);
|
||||
/* that suck because I assume sizeof(int) == sizeof (void *),
|
||||
which insn't true on some beasts */
|
||||
else if (val != (int)ls) {
|
||||
/* that sucks: two signals have same name, so I return the
|
||||
concatenation of the signal name and its index. */
|
||||
sprintf(buffer, "%s%d", s, ls->INDEX);
|
||||
s = namealloc(buffer);
|
||||
}
|
||||
return xnfvector(s,buffer);
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char dir(locon_list *lc)
|
||||
{
|
||||
switch(lc->DIRECTION) {
|
||||
case IN: return 'I';
|
||||
case TRISTATE:
|
||||
case TRANSCV:
|
||||
case INOUT:
|
||||
case OUT: return 'O';
|
||||
default: return 'X';
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
static char dirext(locon_list *lc)
|
||||
{
|
||||
switch(lc->DIRECTION) {
|
||||
case IN: return 'I';
|
||||
case TRANSCV: return 'B';
|
||||
case TRISTATE:
|
||||
case INOUT:
|
||||
case OUT: return 'O';
|
||||
default: return 'X';
|
||||
}
|
||||
}
|
||||
/*-------------------------------------------------------------*/
|
||||
void xnfsavelofig(lofig_list *lof)
|
||||
{
|
||||
FILE *file;
|
||||
loins_list *li;
|
||||
locon_list *lc;
|
||||
losig_list *ls;
|
||||
long index, hsize = 0;
|
||||
losig_list *sigvdd = NULL, *sigvss = NULL;
|
||||
lofig_list *buflist;
|
||||
ht *h; /* used to check signal name unicity no warrantied by mbk */
|
||||
int i ;
|
||||
|
||||
if ((file = mbkfopen(lof->NAME, "xnf", "w")) == NULL) {
|
||||
fflush(stdout);
|
||||
fprintf(stderr, "mbk error : unable to open file %s/%s.%s",
|
||||
WORK_LIB, lof->NAME, "xnf");
|
||||
EXIT(1);
|
||||
}
|
||||
|
||||
VDD = namealloc(VDD);
|
||||
VSS = namealloc(VSS);
|
||||
buflist = mkbuf();
|
||||
guessextdir(lof);
|
||||
lofigchain(lof);
|
||||
|
||||
fprintf(file, "LCANET,5\n");
|
||||
fprintf(file, "USER,xnf file %s generated for %s\n",
|
||||
lof->NAME, getenv("USER"));
|
||||
fprintf(file, "PROG,mbk2xnf,1.0,\"Mapping for X4000 macros only!\"\n");
|
||||
fprintf(file, "PWR,0,%s,%s\n", VSS,"vssi");
|
||||
fprintf(file, "PWR,1,%s,%s\n", VDD,"vddi");
|
||||
|
||||
/* This is a very simple and brute force xnf driver:
|
||||
detecting the IO is a pain, since the macro library may be
|
||||
enhanced by the user, and that IOB cannot be equivalent to CLB
|
||||
from a macro point of view.
|
||||
Therefore, all inputs are buffurized, all ouputs are bufferized,
|
||||
and tree state outputs are changed to iob for tree state. */
|
||||
/* waranty correct external signal detection, who knows... */
|
||||
|
||||
/* parcours les connecteurs externes */
|
||||
for (lc = lof->LOCON; lc; lc = lc->NEXT) {
|
||||
chain_list *c;
|
||||
locon_list *externalcon;
|
||||
int onexternalbuf,onebufgp;
|
||||
#ifdef DEBUG
|
||||
/* lc->SIG points into a link list of losigs belonging to all the locons,
|
||||
only the one immediately pointed at belongs to the connector at hand */
|
||||
(void)fprintf(stdout,"locon: DIR *%c* TYPE *%c* NAME *%-15s* ",
|
||||
lc->DIRECTION,lc->TYPE,lc->NAME );
|
||||
(void)fprintf(stdout,"sig: TYPE *%c* INDEX *%6ld* NAME *%-15s* \n",
|
||||
lc->SIG->TYPE,lc->SIG->INDEX,getsigname(lc->SIG) ) ;
|
||||
#endif
|
||||
|
||||
lc->SIG->TYPE = EXTERNAL; /* probably not necessary */
|
||||
|
||||
onexternalbuf = 0;
|
||||
onebufgp = 0;
|
||||
for (c = (chain_list *) ( getptype( lc->SIG->USER, (long) LOFIGCHAIN )->DATA ) ;
|
||||
c;
|
||||
c = c->NEXT) {
|
||||
#ifdef DEBUG
|
||||
(void)fprintf(stdout,"chain: NAME *%s* ", ( (locon_list *) c->DATA)->NAME );
|
||||
(void)fprintf(stdout,"DIR *%c* TYPE *%c*",
|
||||
( (locon_list *)c->DATA )->DIRECTION, ( (locon_list *)c->DATA )->TYPE );
|
||||
if ( (((locon_list *)c->DATA )->TYPE ) == INTERNAL ) {
|
||||
(void)fprintf(stdout,"FIGNAME %s\n",
|
||||
( (loins_list *) ((locon_list *)c->DATA )->ROOT )->FIGNAME );
|
||||
} else {
|
||||
(void)fprintf(stdout,"****\n");
|
||||
}
|
||||
# endif
|
||||
if (((locon_list *)c->DATA)->TYPE == EXTERNAL) {
|
||||
externalcon = (locon_list *)c->DATA;
|
||||
continue;
|
||||
}
|
||||
if (((locon_list *)c->DATA)->TYPE != INTERNAL)
|
||||
continue;
|
||||
li = (loins_list *)((locon_list *)c->DATA)->ROOT;
|
||||
for( i=0 ; i < spec_ibuf_size ; i++ ) {
|
||||
if ( ! strcmp(li->FIGNAME, spec_ibuf[i] ) ) {
|
||||
onexternalbuf++;
|
||||
if(! strcmp(li->FIGNAME,clkbuf)) onebufgp++;
|
||||
break ;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ((onexternalbuf && (strcmp(externalcon->NAME,"ck"))) || (onexternalbuf && onebufgp)) {
|
||||
externalcon->USER = (ptype_list *)-1; /* ugly (but fast) */
|
||||
# ifdef DEBUG
|
||||
fprintf(stdout,"Connecteur : %s, a ne pas bufferiser \n",externalcon->NAME);
|
||||
# endif
|
||||
}
|
||||
}
|
||||
|
||||
for (index = 0, ls = lof->LOSIG; ls; ls = ls->NEXT) {
|
||||
|
||||
# ifdef DEBUG
|
||||
(void)fprintf(stdout, "losig : TYPE *%c* index *%6ld* name *%s*\n",
|
||||
ls->TYPE, ls->INDEX, getsigname(ls) );
|
||||
# endif
|
||||
if (index < ls->INDEX)
|
||||
index = ls->INDEX;
|
||||
if (getsigname(ls) == VDD)
|
||||
sigvdd = ls;
|
||||
if (getsigname(ls) == VSS)
|
||||
sigvss = ls;
|
||||
hsize++;
|
||||
|
||||
}
|
||||
index++;
|
||||
if (!sigvdd || !sigvss) {
|
||||
fflush(stdout);
|
||||
fprintf(stderr, "mbk2xnf error: no vdd or vss signals!\n");
|
||||
EXIT(1);
|
||||
}
|
||||
|
||||
h = addht(hsize << 1); /* bigger means faster! */
|
||||
|
||||
/* add IO buffers and rename the tristate ones connected to output
|
||||
ports. */
|
||||
for (lc = lof->LOCON; lc; lc = lc->NEXT) {
|
||||
chain_list *c;
|
||||
losig_list *pnewsig,*poldsig;
|
||||
char *pnewname,*poldname;
|
||||
|
||||
if (isvdd(lc->NAME) || isvss(lc->NAME))
|
||||
continue;
|
||||
|
||||
c = addchain(NULL, (void *)sigvss);
|
||||
c = addchain(c, (void *)sigvdd);
|
||||
switch(lc->DIRECTION) {
|
||||
case IN:
|
||||
|
||||
if (lc->USER == (ptype_list *)-1) {
|
||||
freechain(c);
|
||||
continue;
|
||||
}
|
||||
|
||||
c = addchain(c, (void *)lc->SIG);
|
||||
lc->SIG->TYPE = INTERNAL;
|
||||
sprintf(buffer1, "$%s", lc->NAME);
|
||||
lc->SIG = addlosig(lof, index++,
|
||||
addchain(NULL, (void *)buffer1),
|
||||
EXTERNAL);
|
||||
c = addchain(c, (void *)lc->SIG);
|
||||
if( strcmp(lc->NAME,"ck") != 0)
|
||||
addloins(lof, buffer1, getlomodel(buflist, ibuf), c);
|
||||
else
|
||||
addloins(lof, buffer1, getlomodel(buflist, clkbuf), c);
|
||||
break;
|
||||
|
||||
case INOUT:
|
||||
lc->DIRECTION = OUT;
|
||||
case OUT:
|
||||
if (lc->USER == (ptype_list *)-1) {
|
||||
freechain(c);
|
||||
continue;
|
||||
}
|
||||
|
||||
ls = lc->SIG;
|
||||
lc->SIG->TYPE = INTERNAL;
|
||||
sprintf(buffer1, "$%s", lc->NAME);
|
||||
lc->SIG = addlosig(lof, index++,
|
||||
addchain(NULL, (void *)buffer1),
|
||||
EXTERNAL);
|
||||
c = addchain(c, (void *)lc->SIG);
|
||||
c = addchain(c, (void *)ls);
|
||||
addloins(lof, buffer1, getlomodel(buflist, obuf), c);
|
||||
break;
|
||||
|
||||
case TRISTATE:
|
||||
for (c = (chain_list *)getptype(lc->SIG->USER, LOFIGCHAIN)->DATA;
|
||||
c;
|
||||
c = c->NEXT) {
|
||||
if (((locon_list *)c->DATA)->TYPE != INTERNAL)
|
||||
continue;
|
||||
if (((loins_list *)((locon_list *)c->DATA)->ROOT)->FIGNAME == tbuf)
|
||||
((loins_list *)((locon_list *)c->DATA)->ROOT)->FIGNAME = obuft;
|
||||
}
|
||||
break;
|
||||
|
||||
case TRANSCV:
|
||||
if (lc->USER == (ptype_list *)-1) {
|
||||
freechain(c);
|
||||
continue;
|
||||
}
|
||||
sprintf(buffer1, "$%s", lc->NAME);
|
||||
pnewname = namealloc(buffer1);
|
||||
pnewsig = addlosig(lof, index++,
|
||||
addchain(NULL, (void *)pnewname),
|
||||
EXTERNAL);
|
||||
poldsig = lc->SIG;
|
||||
poldsig->TYPE = INTERNAL;
|
||||
poldname = lc->NAME;
|
||||
c = addchain(NULL, (void *)sigvss);
|
||||
c = addchain(c, (void *)sigvdd);
|
||||
c = addchain(c, (void *)poldsig);
|
||||
c = addchain(c, (void *)pnewsig);
|
||||
addloins(lof, poldname, getlomodel(buflist, ibuf), c);
|
||||
|
||||
for (c = (chain_list *)getptype(lc->SIG->USER, LOFIGCHAIN)->DATA;
|
||||
c;
|
||||
c = c->NEXT) {
|
||||
if (((locon_list *)c->DATA)->DIRECTION == IN)
|
||||
continue;
|
||||
if (((locon_list *)c->DATA)->DIRECTION == TRISTATE) {
|
||||
((locon_list *)c->DATA)->SIG = pnewsig;
|
||||
continue;
|
||||
}
|
||||
if (((locon_list *)c->DATA)->DIRECTION == TRANSCV) {
|
||||
((locon_list *)c->DATA)->SIG = pnewsig;
|
||||
((locon_list *)c->DATA)->NAME = pnewname;
|
||||
continue;
|
||||
}
|
||||
fflush(stdout);
|
||||
fprintf(stderr, "mbk2xnf error: unsupported port direction");
|
||||
fprintf(stderr, " with transceiver on %s\n", lc->NAME);
|
||||
EXIT(1);
|
||||
}
|
||||
break;
|
||||
|
||||
default:
|
||||
fflush(stdout);
|
||||
fprintf(stderr, "mbk2xnf error: unsupported external ");
|
||||
fprintf(stderr, "port direction on %s\n", lc->NAME);
|
||||
EXIT(1);
|
||||
}
|
||||
}
|
||||
|
||||
# ifdef DEBUG
|
||||
liste_con_ext(lof);
|
||||
liste_sig_index(lof);
|
||||
liste_mod_inst_conn(lof);
|
||||
# endif
|
||||
for (li = lof->LOINS; li; li = li->NEXT) {
|
||||
if(!strcmp(li->FIGNAME,"one_y")) { /* traite one_y */
|
||||
for(lc = li->LOCON; lc; lc = lc->NEXT) {
|
||||
if(!strcmp(lc->NAME,"f")) {
|
||||
fprintf(file, "pwr,1, %s\n",(((lc->SIG)->NAMECHAIN)->DATA));
|
||||
break;
|
||||
}
|
||||
}
|
||||
continue;
|
||||
}
|
||||
else if(!strcmp(li->FIGNAME,"zero_y")) { /* traite zero_y */
|
||||
for(lc = li->LOCON; lc; lc = lc->NEXT) {
|
||||
if(!strcmp(lc->NAME,"f")) {
|
||||
fprintf(file, "pwr,0, %s\n",(((lc->SIG)->NAMECHAIN)->DATA));
|
||||
break;
|
||||
}
|
||||
}
|
||||
continue;
|
||||
}
|
||||
fprintf(file, "SYM,%s,%s,\n", xnfvector( li->INSNAME, buffer1 ),
|
||||
xnf_map_figname( li->FIGNAME, buffer2 ) );
|
||||
for(lc = li->LOCON; lc; lc = lc->NEXT) {
|
||||
/* no vdd/vss required in this world, as far as I can tell */
|
||||
if (!isvdd(lc->NAME) && !isvss(lc->NAME)) {
|
||||
fprintf(file, "PIN,%s,%c,%s,", prim_map_pin_name( lc->NAME, buffer1 ),
|
||||
dir(lc), signalname( h, lof, lc->SIG, buffer2 ) );
|
||||
if ( prim_add_inv(lc->NAME) ) {
|
||||
fprintf(file,",INV\n");
|
||||
} else {
|
||||
fprintf(file,"\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
fprintf(file, "END\n");
|
||||
}
|
||||
/* since we've played around with the external connectors, we must
|
||||
drive the correct external signal names... */
|
||||
for (lc = lof->LOCON; lc; lc = lc->NEXT)
|
||||
if (!isvdd(getsigname(lc->SIG)) && !isvss(getsigname(lc->SIG)))
|
||||
fprintf(file, "EXT,%s,%c,\n", signalname( h, lof, lc->SIG, buffer1 ),
|
||||
dirext(lc));
|
||||
|
||||
fprintf(file, "EOF\n");
|
||||
delht(h);
|
||||
fclose(file);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
/*-------------------------------------------------------------*/
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
lofig_list *ptfig;
|
||||
|
||||
fprintf(stderr, "Conversion vst -> xnf \n\n");
|
||||
mbkenv();
|
||||
if (argc == 2)
|
||||
ptfig = getlofig(argv[1],'A');
|
||||
else if (argc == 3 && !strcmp(argv[1], "-r")) {
|
||||
ptfig = getlofig(argv[2],'A');
|
||||
rflattenlofig(ptfig, YES, YES);
|
||||
} else {
|
||||
fprintf(stderr, "Usage: %s [-r] file\n", argv[0]);
|
||||
exit(1);
|
||||
}
|
||||
xnfsavelofig(ptfig);
|
||||
exit(0);
|
||||
}
|
||||
Loading…
Reference in New Issue