This commit was generated by cvs2svn to track changes on a CVS vendor
branch.
This commit is contained in:
Frederic Petrot
commit
bd71a62dc6
|
|
@ -0,0 +1 @@
|
||||||
|
SUBDIRS = src
|
||||||
|
|
@ -0,0 +1,54 @@
|
||||||
|
dnl
|
||||||
|
dnl This file is part of the Alliance CAD System
|
||||||
|
dnl Copyright (C) Laboratoire LIP6 - Département ASIM
|
||||||
|
dnl Universite Pierre et Marie Curie
|
||||||
|
dnl
|
||||||
|
dnl Home page : http://www-asim.lip6.fr/alliance/
|
||||||
|
dnl E-mail support : mailto:alliance-support@asim.lip6.fr
|
||||||
|
dnl
|
||||||
|
dnl This library is free software; you can redistribute it and/or modify it
|
||||||
|
dnl under the terms of the GNU Library General Public License as published
|
||||||
|
dnl by the Free Software Foundation; either version 2 of the License, or (at
|
||||||
|
dnl your option) any later version.
|
||||||
|
dnl
|
||||||
|
dnl Alliance VLSI CAD System is distributed in the hope that it will be
|
||||||
|
dnl useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
||||||
|
dnl Public License for more details.
|
||||||
|
dnl
|
||||||
|
dnl You should have received a copy of the GNU General Public License along
|
||||||
|
dnl with the GNU C Library; see the file COPYING. If not, write to the Free
|
||||||
|
dnl Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
dnl
|
||||||
|
dnl Purpose : Auto stuffing Alliance
|
||||||
|
dnl Almost ten years since I wrote this stuff, I just can't
|
||||||
|
dnl believe it
|
||||||
|
dnl Date : 01/02/2002
|
||||||
|
dnl Author : Frederic Petrot <Frederic.Petrot@lip6.fr>
|
||||||
|
dnl $Id: configure.in,v 1.1 2002/03/14 13:47:47 fred Exp $
|
||||||
|
dnl
|
||||||
|
dnl
|
||||||
|
AC_INIT(src/mbk2mg.c)
|
||||||
|
AM_INIT_AUTOMAKE(mbkmg, 1.0)
|
||||||
|
AC_PROG_INSTALL
|
||||||
|
AC_PROG_CC
|
||||||
|
AC_PROG_YACC
|
||||||
|
AM_PROG_LEX
|
||||||
|
AC_HEADER_STDC
|
||||||
|
AC_CHECK_HEADERS(strings.h unistd.h)
|
||||||
|
AC_C_CONST
|
||||||
|
AC_PROG_RANLIB
|
||||||
|
|
||||||
|
changequote(,)dnl
|
||||||
|
INCLUDES=-I${ALLIANCE_TOP}/include
|
||||||
|
LDFLAGS=-L${ALLIANCE_TOP}/lib
|
||||||
|
changequote([,])dnl
|
||||||
|
|
||||||
|
AC_SUBST(INCLUDES)
|
||||||
|
AC_SUBST(LDFLAGS)
|
||||||
|
|
||||||
|
|
||||||
|
AC_OUTPUT([
|
||||||
|
Makefile
|
||||||
|
src/Makefile
|
||||||
|
])
|
||||||
|
|
@ -0,0 +1,8 @@
|
||||||
|
lib_LIBRARIES = libMmg.a
|
||||||
|
libMmg_a_SOURCES = mbk2mg.c mg2mbk_y.y mg2mbk_l.l mmg.h
|
||||||
|
CLEANFILES = mg2mbk_y.c mg2mbk_y.h mg2mbk_l.c
|
||||||
|
|
||||||
|
mg2mbk_y.c mg2mbk_y.h : $(srcdir)/mg2mbk_y.y
|
||||||
|
$(YACC) -d $(YFLAGS) $(srcdir)/mg2mbk_y.y && sed -e "s/yy/mgn/g" -e "s/YY/MGN/g" y.tab.c > mg2mbk_y.c && sed -e "s/yy/mgn/g" -e "s/YY/MGN/g" y.tab.h > mg2mbk_y.h
|
||||||
|
mg2mbk_l.c : $(srcdir)/mg2mbk_l.l mg2mbk_y.h
|
||||||
|
$(LEX) -t $(srcdir)/mg2mbk_l.l | sed -e "s/yy/mgn/g" -e "s/YY/MGN/g" > mg2mbk_l.c
|
||||||
|
|
@ -0,0 +1,506 @@
|
||||||
|
/*
|
||||||
|
* This file is part of the Alliance CAD System
|
||||||
|
* Copyright (C) Laboratoire LIP6 - Département ASIM
|
||||||
|
* Universite Pierre et Marie Curie
|
||||||
|
*
|
||||||
|
* Home page : http://www-asim.lip6.fr/alliance/
|
||||||
|
* E-mail support : mailto:alliance-support@asim.lip6.fr
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or modify it
|
||||||
|
* under the terms of the GNU Library General Public License as published
|
||||||
|
* by the Free Software Foundation; either version 2 of the License, or (at
|
||||||
|
* your option) any later version.
|
||||||
|
*
|
||||||
|
* Alliance VLSI CAD System is distributed in the hope that it will be
|
||||||
|
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
||||||
|
* Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU General Public License along
|
||||||
|
* with the GNU C Library; see the file COPYING. If not, write to the Free
|
||||||
|
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
*/
|
||||||
|
|
||||||
|
/*******************************************************************************
|
||||||
|
* version 1.1 : mbk2mg or how to translate symbolic leaf cells to modgen format*
|
||||||
|
* Written by Frederic Petrot, to be used on leafs cells for idps generators *
|
||||||
|
* This update uses macros for contacts and transistors as described in *
|
||||||
|
* idps.atoms *
|
||||||
|
* *
|
||||||
|
* version 1.2 : now includes instances also *
|
||||||
|
* *
|
||||||
|
* e-mail : cao-vlsi@masi.ibp.fr *
|
||||||
|
* *
|
||||||
|
* version : 1.2 *
|
||||||
|
* date : 22/01/92 *
|
||||||
|
*******************************************************************************/
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <mut.h>
|
||||||
|
#include <mph.h>
|
||||||
|
|
||||||
|
static float RTrans = 1.5; /* o_ps_aa : Poly overlap on Dif */
|
||||||
|
static float MWTrans = 1.0; /* w_ps : Min transistor width */
|
||||||
|
|
||||||
|
static int number;
|
||||||
|
|
||||||
|
static int Ext[LAST_LAYER + 1] = {
|
||||||
|
/* NWELL */ 0,
|
||||||
|
/* PWELL */ 0,
|
||||||
|
/* NTIE */ 1,
|
||||||
|
/* PTIE */ 1,
|
||||||
|
/* NDIF */ 1,
|
||||||
|
/* PDIF */ 1,
|
||||||
|
/* NTRANS */ 0, /* meant for N transistor grid */
|
||||||
|
/* PTRANS */ 0, /* meant for P transistor grid */
|
||||||
|
/* POLY */ 1,
|
||||||
|
/* ALU1 */ 1,
|
||||||
|
/* ALU2 */ 2,
|
||||||
|
/* ALU3 */ 2,
|
||||||
|
/* TPOLY */ 1,
|
||||||
|
/* TALU1 */ 1,
|
||||||
|
/* TALU2 */ 2,
|
||||||
|
/* TALU3 */ 2 };
|
||||||
|
|
||||||
|
/*******************************************************************************
|
||||||
|
* Macro *
|
||||||
|
*******************************************************************************/
|
||||||
|
#define HALF(X) ((X) >> 1)
|
||||||
|
|
||||||
|
/*******************************************************************************
|
||||||
|
* Functions declaration *
|
||||||
|
*******************************************************************************/
|
||||||
|
static void segments();
|
||||||
|
static void connectors();
|
||||||
|
static void virtualconnectors();
|
||||||
|
static void vias();
|
||||||
|
static void instances();
|
||||||
|
static void abutmentbox();
|
||||||
|
static void figure();
|
||||||
|
|
||||||
|
/*******************************************************************************
|
||||||
|
* Layers, Vias, Orientation & Gemetrical operation translation table *
|
||||||
|
*******************************************************************************/
|
||||||
|
static char *
|
||||||
|
busname(name)
|
||||||
|
char *name;
|
||||||
|
{
|
||||||
|
static char buffer[255];
|
||||||
|
char *s, *t;
|
||||||
|
char one = 1;
|
||||||
|
|
||||||
|
if (!name || *name == '*')
|
||||||
|
return NULL;
|
||||||
|
|
||||||
|
s = name;
|
||||||
|
t = buffer;
|
||||||
|
while (*s) {
|
||||||
|
if (*s == ' ' || (*s == '_' && !one))
|
||||||
|
if (one) {
|
||||||
|
*t++ = '[';
|
||||||
|
s++;
|
||||||
|
one = 0;
|
||||||
|
} else {
|
||||||
|
*t++ = ']';
|
||||||
|
*t++ = '[';
|
||||||
|
s++;
|
||||||
|
}
|
||||||
|
if ((*s == '/' || *s == '_') && !one) {
|
||||||
|
*t++ = ']';
|
||||||
|
one = 1;
|
||||||
|
}
|
||||||
|
*t++ = *s++;
|
||||||
|
}
|
||||||
|
if (!one)
|
||||||
|
*t++ = ']';
|
||||||
|
*t = '\0';
|
||||||
|
return buffer;
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
layer(mbk_layer)
|
||||||
|
char mbk_layer;
|
||||||
|
{
|
||||||
|
static char *mg_layer[] = {
|
||||||
|
/* NWELL */ "nw",
|
||||||
|
/* PWELL */ "pw",
|
||||||
|
/* NTIE */ "xn",
|
||||||
|
/* PTIE */ "xp",
|
||||||
|
/* NDIF */ "nn",
|
||||||
|
/* PDIF */ "pp",
|
||||||
|
/* NTRANS */ "NULL",
|
||||||
|
/* PTRANS */ "NULL",
|
||||||
|
/* POLY */ "ps",
|
||||||
|
/* ALU1 */ "m1",
|
||||||
|
/* ALU2 */ "m2",
|
||||||
|
/* ALU3 */ "NULL",
|
||||||
|
/* TPOLY */ "NULL",
|
||||||
|
/* TALU1 */ "am1",
|
||||||
|
/* TALU2 */ "am2",
|
||||||
|
/* TALU3 */ "NULL"
|
||||||
|
};
|
||||||
|
return mg_layer[(int)mbk_layer];
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
via(mbk_via)
|
||||||
|
char mbk_via;
|
||||||
|
{
|
||||||
|
static char *mg_via[] = {
|
||||||
|
/* CONT_POLY */ "cops",
|
||||||
|
/* CONT_VIA */ "pvia",
|
||||||
|
/* CONT_DIFN */ "con",
|
||||||
|
/* CONT_DIFP */ "cop",
|
||||||
|
/* CONT_BODY_N */ "conw",
|
||||||
|
/* CONT_BODY_P */ "copw",
|
||||||
|
/* C_X_N */ "cxn",
|
||||||
|
/* C_X_P */ "cxp",
|
||||||
|
/* CONT_VIA2 */ "NULL"
|
||||||
|
};
|
||||||
|
return mg_via[(int)mbk_via];
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
orient(face)
|
||||||
|
char face;
|
||||||
|
{
|
||||||
|
switch (face) {
|
||||||
|
case NORTH :
|
||||||
|
return "top";
|
||||||
|
case SOUTH :
|
||||||
|
return "bottom";
|
||||||
|
case EAST :
|
||||||
|
return "right";
|
||||||
|
case WEST :
|
||||||
|
return "left";
|
||||||
|
default :
|
||||||
|
return "allside";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
geop(trsf, s)
|
||||||
|
char trsf;
|
||||||
|
char **s;
|
||||||
|
{
|
||||||
|
|
||||||
|
switch (trsf) {
|
||||||
|
case NOSYM :
|
||||||
|
*s = "ll";
|
||||||
|
return NULL;
|
||||||
|
case SYM_X :
|
||||||
|
*s = "lr";
|
||||||
|
return "my";
|
||||||
|
case SYM_Y :
|
||||||
|
*s = "ul";
|
||||||
|
return "mx";
|
||||||
|
case SYMXY :
|
||||||
|
*s = "ur";
|
||||||
|
return "mx my";
|
||||||
|
case ROT_P :
|
||||||
|
*s = "ul";
|
||||||
|
return "r 90";
|
||||||
|
case ROT_M :
|
||||||
|
*s = "lr";
|
||||||
|
return "r 270";
|
||||||
|
case SY_RP :
|
||||||
|
*s = "ll";
|
||||||
|
return "mx r 90";
|
||||||
|
case SY_RM :
|
||||||
|
*s = "ur";
|
||||||
|
return "mx r 270";
|
||||||
|
default :
|
||||||
|
fflush(stdout);
|
||||||
|
fprintf(stderr, "Unknown geometrical operation\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
mgnsavephfig(Cell)
|
||||||
|
phfig_list *Cell;
|
||||||
|
{
|
||||||
|
chain_list *Model;
|
||||||
|
char *CellName;
|
||||||
|
int i;
|
||||||
|
FILE *file;
|
||||||
|
static int notfirst;
|
||||||
|
|
||||||
|
if (!notfirst) {
|
||||||
|
for (i = 0; i < LAST_LAYER + 1; i++)
|
||||||
|
Ext[i] = HALF(Ext[i] * SCALE_X);
|
||||||
|
notfirst++;
|
||||||
|
}
|
||||||
|
|
||||||
|
CellName = Cell->NAME;
|
||||||
|
if ((file = mbkfopen(CellName, "mg", WRITE_TEXT)) == NULL) {
|
||||||
|
fflush(stdout);
|
||||||
|
fprintf(stderr, "Can't open %s.%s for writing\n", CellName, "mg");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
Model = Cell->MODELCHAIN;
|
||||||
|
|
||||||
|
fputs("/", file);
|
||||||
|
for (i = 1; i < 80; i++)
|
||||||
|
fputs("*", file);
|
||||||
|
fputs("\n", file);
|
||||||
|
i = fprintf(file, "* file %s.mg has been generated by mbk2mg translator",
|
||||||
|
CellName);
|
||||||
|
for (; i < 79; i++)
|
||||||
|
fputs(" ", file);
|
||||||
|
fputs("*\n", file);
|
||||||
|
i = fprintf(file,
|
||||||
|
"* for cao-vlsi generators in order to fit IDPS standard modgen");
|
||||||
|
for (; i < 79; i++)
|
||||||
|
fputs(" ", file);
|
||||||
|
fputs("*\n", file);
|
||||||
|
for (i = 0; i < 79; i++)
|
||||||
|
fputs("*", file);
|
||||||
|
fputs("/\n", file);
|
||||||
|
fprintf(file, "#ifndef BULLATOMS\n");
|
||||||
|
fprintf(file, "#define BULLATOMS\n");
|
||||||
|
fprintf(file, "#include \"%s/tech/bull.atoms\"\n", mbkgetenv("MODGEN"));
|
||||||
|
fprintf(file, "#endif\n");
|
||||||
|
|
||||||
|
while (Model) {
|
||||||
|
fprintf(file, "#include \"%s\"\n",
|
||||||
|
filepath((char *)Model->DATA, "mg"));
|
||||||
|
Model = Model->NEXT;
|
||||||
|
}
|
||||||
|
/* last figure :
|
||||||
|
this is the real one, boys. */
|
||||||
|
figure(file, Cell);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
rect(file, mg_layer, x0, y0, x1, y1)
|
||||||
|
FILE *file;
|
||||||
|
char *mg_layer;
|
||||||
|
long x0, y0, x1, y1;
|
||||||
|
{
|
||||||
|
|
||||||
|
if (!strcmp(mg_layer, "NULL"))
|
||||||
|
return;
|
||||||
|
fprintf(file, "\tra(%s, %.2f, %.2f, %.2f, %.2f);\n",
|
||||||
|
mg_layer, (float)x0 / SCALE_X, (float)x1 / SCALE_X,
|
||||||
|
(float)y0 / SCALE_X, (float)y1 / SCALE_X);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
figure(file, Cell)
|
||||||
|
FILE *file;
|
||||||
|
phfig_list *Cell;
|
||||||
|
{
|
||||||
|
fprintf(file, "\ncell %s\n{\n", Cell->NAME);
|
||||||
|
abutmentbox(file, Cell);
|
||||||
|
connectors(file, Cell->PHCON);
|
||||||
|
virtualconnectors(file, Cell->PHREF);
|
||||||
|
instances(file, Cell->PHINS);
|
||||||
|
segments(file, Cell->PHSEG);
|
||||||
|
vias(file, Cell->PHVIA);
|
||||||
|
fputs("}\n", file);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
abutmentbox(file, Cell)
|
||||||
|
FILE *file;
|
||||||
|
phfig_list *Cell;
|
||||||
|
{
|
||||||
|
rect(file, "zd", Cell->XAB1, Cell->YAB1, Cell->XAB2, Cell->YAB2);
|
||||||
|
fprintf(file, "\tterminal ll (WIDTH = 1.00) left zd at (%.2f, %.2f);\n",
|
||||||
|
(float)Cell->XAB1/SCALE_X, (float)Cell->YAB1/SCALE_X);
|
||||||
|
fprintf(file, "\tterminal lr (WIDTH = 1.00) right zd at (%.2f, %.2f);\n",
|
||||||
|
(float)Cell->XAB2/SCALE_X, (float)Cell->YAB1/SCALE_X);
|
||||||
|
fprintf(file, "\tterminal ul (WIDTH = 1.00) left zd at (%.2f, %.2f);\n",
|
||||||
|
(float)Cell->XAB1/SCALE_X, (float)Cell->YAB2/SCALE_X);
|
||||||
|
fprintf(file, "\tterminal ur (WIDTH = 1.00) right zd at (%.2f, %.2f);\n",
|
||||||
|
(float)Cell->XAB2/SCALE_X, (float)Cell->YAB2/SCALE_X);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
segments(file, HeadOfList)
|
||||||
|
FILE *file;
|
||||||
|
phseg_list *HeadOfList;
|
||||||
|
{
|
||||||
|
register phseg_list *Ptr;
|
||||||
|
register long Xbl, Ybl, Xtr, Ytr; /* bl : bottom left, tr : top right */
|
||||||
|
register long Twidth, Tlenght;
|
||||||
|
register long Xcenter, Ycenter;
|
||||||
|
|
||||||
|
for (Ptr = HeadOfList; Ptr; Ptr = Ptr->NEXT) {
|
||||||
|
if (Ptr->TYPE == LEFT || Ptr->TYPE == RIGHT) {
|
||||||
|
switch (Ptr->LAYER) {
|
||||||
|
case NTRANS :
|
||||||
|
case PTRANS :
|
||||||
|
Xbl = Ptr->X1;
|
||||||
|
Ybl = Ptr->Y1;
|
||||||
|
Xtr = Ptr->X2;
|
||||||
|
Twidth = Xtr - Xbl - 2 * (int)((RTrans) * SCALE_X);
|
||||||
|
Tlenght = MWTrans * Ptr->WIDTH;
|
||||||
|
Xcenter = Xbl + HALF(Xtr - Xbl);
|
||||||
|
Ycenter = Ybl;
|
||||||
|
|
||||||
|
(void)fprintf(file,"\tplace x%x$ = ", number++);
|
||||||
|
(void)fprintf(file,"%s(%.2f, %.2f) ",
|
||||||
|
Ptr->LAYER == NTRANS ? "ntr" : "ptr",
|
||||||
|
(float)Twidth / SCALE_X,
|
||||||
|
(float)Tlenght / SCALE_X);
|
||||||
|
(void)fprintf(file,"at (%.2f,%.2f);\n",
|
||||||
|
(float)Xcenter / SCALE_X,
|
||||||
|
(float)Ycenter / SCALE_X);
|
||||||
|
break;
|
||||||
|
case TPOLY :
|
||||||
|
case TALU3 :
|
||||||
|
case ALU3 :
|
||||||
|
break;
|
||||||
|
default :
|
||||||
|
(void)fprintf(file,
|
||||||
|
"\tstretch(%s, %.2f, %s, %.2f, %.2f, %.2f, %.2f);\n",
|
||||||
|
layer(Ptr->LAYER),
|
||||||
|
(float)Ptr->WIDTH / SCALE_X, "hor",
|
||||||
|
(float)(Ptr->X1 - Ext[(int)Ptr->LAYER]) / SCALE_X,
|
||||||
|
(float)Ptr->Y1 / SCALE_X,
|
||||||
|
(float)(Ptr->X2 + Ext[(int)Ptr->LAYER]) / SCALE_X,
|
||||||
|
(float)Ptr->Y2 / SCALE_X);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
switch (Ptr->LAYER) {
|
||||||
|
case NTRANS :
|
||||||
|
case PTRANS :
|
||||||
|
Xbl = Ptr->X1;
|
||||||
|
Ybl = Ptr->Y1;
|
||||||
|
Ytr = Ptr->Y2;
|
||||||
|
Twidth = Ytr - Ybl - 2 * (int)((RTrans) * SCALE_X);
|
||||||
|
Tlenght = MWTrans * Ptr->WIDTH;
|
||||||
|
Xcenter = Xbl;
|
||||||
|
Ycenter = Ybl + HALF(Ytr - Ybl);
|
||||||
|
|
||||||
|
(void)fprintf(file,"\tplace x%x$ = ", number++);
|
||||||
|
(void)fprintf(file,"%s(%.2f, %.2f) r 90 ",
|
||||||
|
Ptr->LAYER == NTRANS ? "ntr" : "ptr",
|
||||||
|
(float)Twidth / SCALE_X,
|
||||||
|
(float)Tlenght / SCALE_X);
|
||||||
|
(void)fprintf(file,"at (%.2f,%.2f);\n",
|
||||||
|
(float)Xcenter / SCALE_X,
|
||||||
|
(float)Ycenter / SCALE_X);
|
||||||
|
break;
|
||||||
|
case TPOLY :
|
||||||
|
case TALU3 :
|
||||||
|
case ALU3 :
|
||||||
|
break;
|
||||||
|
default :
|
||||||
|
(void)fprintf(file,
|
||||||
|
"\tstretch(%s, %.2f, %s, %.2f, %.2f, %.2f, %.2f);\n",
|
||||||
|
layer(Ptr->LAYER), (float)Ptr->WIDTH/SCALE_X, "ver",
|
||||||
|
(float)Ptr->X1 / SCALE_X,
|
||||||
|
(float)(Ptr->Y1 - Ext[(int)Ptr->LAYER]) / SCALE_X,
|
||||||
|
(float)Ptr->X2 / SCALE_X,
|
||||||
|
(float)(Ptr->Y2 + Ext[(int)Ptr->LAYER]) / SCALE_X);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
connectors(file, HeadOfList)
|
||||||
|
FILE *file;
|
||||||
|
phcon_list *HeadOfList;
|
||||||
|
{
|
||||||
|
register phcon_list *pt;
|
||||||
|
|
||||||
|
for (pt = HeadOfList; pt; pt = pt->NEXT) {
|
||||||
|
char *l = layer(pt->LAYER);
|
||||||
|
if (!strcmp("NULL", l))
|
||||||
|
continue;
|
||||||
|
/* text because we don't know how to print anything */
|
||||||
|
fprintf(file, "\ttext %s \"%s\" ", l, busname(pt->NAME));
|
||||||
|
fprintf(file, "at (%.2f, %.2f);\n",
|
||||||
|
(float)pt->XCON/SCALE_X, (float)pt->YCON/SCALE_X);
|
||||||
|
fprintf(file, "\tterminal %s[%ld] ", busname(pt->NAME), pt->INDEX);
|
||||||
|
fprintf(file, "(WIDTH = %.2f) %s %s ",
|
||||||
|
(float)pt->WIDTH/SCALE_X, orient(pt->ORIENT), l);
|
||||||
|
fprintf(file, "at (%.2f, %.2f);\n",
|
||||||
|
(float)pt->XCON/SCALE_X, (float)pt->YCON/SCALE_X);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
virtualconnectors(file, HeadOfList)
|
||||||
|
FILE *file;
|
||||||
|
phref_list *HeadOfList;
|
||||||
|
{
|
||||||
|
register phref_list *pt;
|
||||||
|
static refindex;
|
||||||
|
|
||||||
|
for (pt = HeadOfList; pt; pt = pt->NEXT) {
|
||||||
|
/* text because we don't know how to print anything */
|
||||||
|
(void)fprintf(file, "\ttext zd \"%s\" ", busname(pt->NAME));
|
||||||
|
(void)fprintf(file, "at (%.2f, %.2f);\n",
|
||||||
|
(float)pt->XREF / SCALE_X,
|
||||||
|
(float)pt->YREF / SCALE_X);
|
||||||
|
/* object itself */
|
||||||
|
(void)fprintf(file,"\tplace %s[%d] = ", busname(pt->NAME), refindex++);
|
||||||
|
(void)fprintf(file,"%s at (%.2f,%.2f);\n", pt->FIGNAME,
|
||||||
|
(float)pt->XREF / SCALE_X,
|
||||||
|
(float)pt->YREF / SCALE_X);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
vias(file, HeadOfViasList)
|
||||||
|
FILE *file;
|
||||||
|
phvia_list *HeadOfViasList;
|
||||||
|
{
|
||||||
|
#define SIZE_C_X (5 * SCALE_X)
|
||||||
|
register phvia_list *ViaPtr;
|
||||||
|
|
||||||
|
for (ViaPtr = HeadOfViasList; ViaPtr; ViaPtr = ViaPtr->NEXT) {
|
||||||
|
switch (ViaPtr->TYPE) {
|
||||||
|
#ifdef NOTLABOTEC
|
||||||
|
case C_X_N :
|
||||||
|
rect(file, layer(POLY),
|
||||||
|
ViaPtr->XVIA - HALF(SCALE_X), ViaPtr->YVIA - HALF(SCALE_X),
|
||||||
|
ViaPtr->XVIA + HALF(SCALE_X), ViaPtr->YVIA + HALF(SCALE_X));
|
||||||
|
rect(file, layer(NDIF),
|
||||||
|
ViaPtr->XVIA - HALF(SIZE_C_X), ViaPtr->YVIA - HALF(SIZE_C_X),
|
||||||
|
ViaPtr->XVIA + HALF(SIZE_C_X), ViaPtr->YVIA + HALF(SIZE_C_X));
|
||||||
|
continue;
|
||||||
|
case C_X_P :
|
||||||
|
rect(file, layer(POLY),
|
||||||
|
ViaPtr->XVIA - HALF(SCALE_X), ViaPtr->YVIA - HALF(SCALE_X),
|
||||||
|
ViaPtr->XVIA + HALF(SCALE_X), ViaPtr->YVIA + HALF(SCALE_X));
|
||||||
|
rect(file, layer(PDIF),
|
||||||
|
ViaPtr->XVIA - HALF(SIZE_C_X), ViaPtr->YVIA - HALF(SIZE_C_X),
|
||||||
|
ViaPtr->XVIA + HALF(SIZE_C_X), ViaPtr->YVIA + HALF(SIZE_C_X));
|
||||||
|
continue;
|
||||||
|
#endif
|
||||||
|
default :
|
||||||
|
(void)fprintf(file,"\tplace %s%d = ", via(ViaPtr->TYPE), number++);
|
||||||
|
(void)fprintf(file,"%s at (%.2f,%.2f);\n", via(ViaPtr->TYPE),
|
||||||
|
(float)ViaPtr->XVIA / SCALE_X,
|
||||||
|
(float)ViaPtr->YVIA / SCALE_X);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
instances(file, List)
|
||||||
|
FILE *file;
|
||||||
|
phins_list *List;
|
||||||
|
{
|
||||||
|
register phins_list *insPtr;
|
||||||
|
char *trsf, *corner;
|
||||||
|
|
||||||
|
for (insPtr = List; insPtr; insPtr = insPtr->NEXT) {
|
||||||
|
trsf = geop(insPtr->TRANSF, &corner);
|
||||||
|
(void)fprintf(file,"\tplace %s.%s = ", insPtr->INSNAME, corner);
|
||||||
|
if (trsf)
|
||||||
|
(void)fprintf(file,"%s %s ", insPtr->FIGNAME, trsf);
|
||||||
|
else
|
||||||
|
(void)fprintf(file,"%s ", insPtr->FIGNAME);
|
||||||
|
(void)fprintf(file,"at (%.2f,%.2f);\n",
|
||||||
|
(float)insPtr->XINS / SCALE_X,
|
||||||
|
(float)insPtr->YINS / SCALE_X);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,161 @@
|
||||||
|
%{
|
||||||
|
/*
|
||||||
|
* This file is part of the Alliance CAD System
|
||||||
|
* Copyright (C) Laboratoire LIP6 - Département ASIM
|
||||||
|
* Universite Pierre et Marie Curie
|
||||||
|
*
|
||||||
|
* Home page : http://www-asim.lip6.fr/alliance/
|
||||||
|
* E-mail support : mailto:alliance-support@asim.lip6.fr
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or modify it
|
||||||
|
* under the terms of the GNU Library General Public License as published
|
||||||
|
* by the Free Software Foundation; either version 2 of the License, or (at
|
||||||
|
* your option) any later version.
|
||||||
|
*
|
||||||
|
* Alliance VLSI CAD System is distributed in the hope that it will be
|
||||||
|
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
||||||
|
* Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU General Public License along
|
||||||
|
* with the GNU C Library; see the file COPYING. If not, write to the Free
|
||||||
|
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
*/
|
||||||
|
/*
|
||||||
|
* Parsing Philips modgen format, done during the IDPS project.
|
||||||
|
* Author: Frédéric Pétrot
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include <ctype.h>
|
||||||
|
#include <mut.h>
|
||||||
|
#include "mg2mbk_y.h"
|
||||||
|
static void zweep();
|
||||||
|
extern char *filenameforlex();
|
||||||
|
/* change lex input routine to a non case sensitive one */
|
||||||
|
#ifdef FLEX_SCANNER
|
||||||
|
#ifdef YY_INPUT
|
||||||
|
#undef YY_INPUT
|
||||||
|
#endif
|
||||||
|
#define YY_INPUT(buf,result,max_size) \
|
||||||
|
do { \
|
||||||
|
int c = getc(yyin); \
|
||||||
|
result = (c == EOF) ? YY_NULL \
|
||||||
|
: (buf[0] = isupper(c) ? tolower(c) : c, 1); \
|
||||||
|
} while(0)
|
||||||
|
|
||||||
|
int yylineno;
|
||||||
|
#else /* using lex, for sure */
|
||||||
|
#ifdef input
|
||||||
|
#undef input
|
||||||
|
#endif
|
||||||
|
#define input() (((yytchar = yysptr > yysbuf ? U(*--yysptr) \
|
||||||
|
: getc(yyin)) == 10 ?(yylineno++,yytchar) \
|
||||||
|
: yytchar) == EOF ? 0 \
|
||||||
|
: isupper(yytchar) ? tolower(yytchar) \
|
||||||
|
: yytchar)
|
||||||
|
#endif
|
||||||
|
%}
|
||||||
|
|
||||||
|
cset [a-zA-Z_/]
|
||||||
|
digit [0-9]
|
||||||
|
sign [-+]
|
||||||
|
blank [ \t]*
|
||||||
|
ident {cset}({cset}|{digit}|\[{digit}+\]|\.|$)*
|
||||||
|
fp {sign}?{digit}*\.?{digit}+
|
||||||
|
|
||||||
|
%%
|
||||||
|
{blank} {}
|
||||||
|
\n {
|
||||||
|
#ifdef FLEX_SCANNER
|
||||||
|
yylineno++;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
\/\* {zweep('/');}
|
||||||
|
\# {zweep('\n');}
|
||||||
|
property {zweep('}');}
|
||||||
|
node {zweep('}');}
|
||||||
|
text {zweep(';');}
|
||||||
|
constraint {zweep(';');}
|
||||||
|
cell {return CELL;}
|
||||||
|
place {return PLACE;}
|
||||||
|
terminal {return TERMINAL;}
|
||||||
|
ra {return RA;}
|
||||||
|
stretch {return STRETCH;}
|
||||||
|
wire {return WIRE;}
|
||||||
|
width {return MWIDTH;}
|
||||||
|
hor {return HORIZ;}
|
||||||
|
ver {return VERTI;}
|
||||||
|
left {return MLEFT;}
|
||||||
|
right {return MRIGHT;}
|
||||||
|
top {return MTOP;}
|
||||||
|
bottom {return MBOTTOM;}
|
||||||
|
at {return AT;}
|
||||||
|
mx {return MX;}
|
||||||
|
my {return MY;}
|
||||||
|
r {return R;}
|
||||||
|
ntr {return NTR;}
|
||||||
|
ptr {return PTR;}
|
||||||
|
cop {return COP;}
|
||||||
|
con {return CON;}
|
||||||
|
cops {return COPS;}
|
||||||
|
copw {return COPW;}
|
||||||
|
conw {return CONW;}
|
||||||
|
pvia {return PVIA;}
|
||||||
|
cxn {return CXN;}
|
||||||
|
cxp {return CXP;}
|
||||||
|
"=" {return '=';}
|
||||||
|
"{" {return '{';}
|
||||||
|
"}" {return '}';}
|
||||||
|
"(" {return '(';}
|
||||||
|
")" {return ')';}
|
||||||
|
"," {return ',';}
|
||||||
|
";" {return ';';}
|
||||||
|
{ident} { yylval.s = mbkstrdup(yytext);
|
||||||
|
return STRING;}
|
||||||
|
{fp} {float f;
|
||||||
|
sscanf(yytext, "%f", &f);
|
||||||
|
yylval.n = (long)(f * SCALE_X);
|
||||||
|
#ifdef GRIDDED
|
||||||
|
yylval.n *= 2;
|
||||||
|
#endif
|
||||||
|
return NUM;}
|
||||||
|
%%
|
||||||
|
|
||||||
|
int yywrap()
|
||||||
|
{
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void zweep(find_it)
|
||||||
|
char find_it;
|
||||||
|
{
|
||||||
|
char c;
|
||||||
|
|
||||||
|
while (1) {
|
||||||
|
if ((c = input()) == 0) {
|
||||||
|
(void)fprintf(stderr, "reached EOF before expected end line %d\n",
|
||||||
|
yylineno);
|
||||||
|
exit(12);
|
||||||
|
}
|
||||||
|
/* special case for comments */
|
||||||
|
if (c == '*')
|
||||||
|
if (find_it == '/')
|
||||||
|
if ((c = input()) == 0) {
|
||||||
|
(void)fprintf(stderr,
|
||||||
|
"reached EOF before expected end of comment\n");
|
||||||
|
exit(12);
|
||||||
|
}
|
||||||
|
if (c == find_it)
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int yyerror(s)
|
||||||
|
char *s;
|
||||||
|
{
|
||||||
|
fflush(stdout);
|
||||||
|
fprintf(stderr, "modgen parser : syntax error line %d on %s file %s\n",
|
||||||
|
yylineno, yytext, filenameforlex());
|
||||||
|
exit(13);
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,625 @@
|
||||||
|
/*
|
||||||
|
* This file is part of the Alliance CAD System
|
||||||
|
* Copyright (C) Laboratoire LIP6 - Département ASIM
|
||||||
|
* Universite Pierre et Marie Curie
|
||||||
|
*
|
||||||
|
* Home page : http://www-asim.lip6.fr/alliance/
|
||||||
|
* E-mail support : mailto:alliance-support@asim.lip6.fr
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or modify it
|
||||||
|
* under the terms of the GNU Library General Public License as published
|
||||||
|
* by the Free Software Foundation; either version 2 of the License, or (at
|
||||||
|
* your option) any later version.
|
||||||
|
*
|
||||||
|
* Alliance VLSI CAD System is distributed in the hope that it will be
|
||||||
|
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
||||||
|
* Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU General Public License along
|
||||||
|
* with the GNU C Library; see the file COPYING. If not, write to the Free
|
||||||
|
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
*/
|
||||||
|
|
||||||
|
/******************************************************************************
|
||||||
|
* small modgen parser for absolute placement only *
|
||||||
|
* no control flow statement allowed, nor fancy stuff. *
|
||||||
|
* Written By Frederic Petrot, petrot@masi.ibp.fr for Masi/cao-vlsi team *
|
||||||
|
* Done for the IDPS project *
|
||||||
|
******************************************************************************/
|
||||||
|
%{
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <mut.h>
|
||||||
|
#include <mph.h>
|
||||||
|
#define MAXLAYER (LAST_LAYER + 1)
|
||||||
|
|
||||||
|
static phfig_list *mgleaf; /* modgen leaf cell parsed */
|
||||||
|
static char mbk_layer();
|
||||||
|
static char *checkinsname();
|
||||||
|
static char *checkconname();
|
||||||
|
static char *checkrefname();
|
||||||
|
static chain_list *pl;
|
||||||
|
static int Extension[MAXLAYER] = {
|
||||||
|
/* NWELL */ 0,
|
||||||
|
/* PWELL */ 0,
|
||||||
|
/* NTIE */ 1,
|
||||||
|
/* PTIE */ 1,
|
||||||
|
/* NDIF */ 1,
|
||||||
|
/* PDIF */ 1,
|
||||||
|
/* NTRANS */ 0, /* meant for N transistor grid */
|
||||||
|
/* PTRANS */ 0, /* meant for P transistor grid */
|
||||||
|
/* POLY */ 1,
|
||||||
|
/* ALU1 */ 1,
|
||||||
|
/* ALU2 */ 2,
|
||||||
|
/* ALU3 */ 2,
|
||||||
|
/* TPOLY */ 1,
|
||||||
|
/* TALU1 */ 1,
|
||||||
|
/* TALU2 */ 2,
|
||||||
|
/* TALU3 */ 2 };
|
||||||
|
|
||||||
|
#define O_PS_AA 1.5
|
||||||
|
#define O_AA_PS 2
|
||||||
|
|
||||||
|
#ifdef GRIDDED
|
||||||
|
#define TWO 2
|
||||||
|
#else
|
||||||
|
#define TWO 1
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* note :
|
||||||
|
All STRINGs are allocated using mbkstrdup since the pointer to yytext
|
||||||
|
will change when more than a STRING is used in the grammar.
|
||||||
|
So all STRINGs are freed once used. */
|
||||||
|
|
||||||
|
%}
|
||||||
|
|
||||||
|
%union {
|
||||||
|
char *s;
|
||||||
|
long n;
|
||||||
|
struct pxy {
|
||||||
|
long x;
|
||||||
|
long y;
|
||||||
|
} *p;
|
||||||
|
}
|
||||||
|
|
||||||
|
%token CELL
|
||||||
|
%token PLACE
|
||||||
|
%token TERMINAL
|
||||||
|
%token RA
|
||||||
|
%token STRETCH
|
||||||
|
%token WIRE
|
||||||
|
%token MWIDTH
|
||||||
|
%token HORIZ
|
||||||
|
%token VERTI
|
||||||
|
%token MLEFT
|
||||||
|
%token MRIGHT
|
||||||
|
%token MTOP
|
||||||
|
%token MBOTTOM
|
||||||
|
%token AT
|
||||||
|
%token MX
|
||||||
|
%token MY
|
||||||
|
%token R
|
||||||
|
%token NTR
|
||||||
|
%token PTR
|
||||||
|
%token COP
|
||||||
|
%token CON
|
||||||
|
%token COPS
|
||||||
|
%token COPW
|
||||||
|
%token CONW
|
||||||
|
%token PVIA
|
||||||
|
%token CXN
|
||||||
|
%token CXP
|
||||||
|
%token STRING
|
||||||
|
%token NUM
|
||||||
|
|
||||||
|
%type <p> point
|
||||||
|
%type <s> STRING
|
||||||
|
%type <n> NUM
|
||||||
|
%type <n> face
|
||||||
|
%type <n> dir
|
||||||
|
%type <n> op
|
||||||
|
|
||||||
|
%start design
|
||||||
|
|
||||||
|
%%
|
||||||
|
design : cells
|
||||||
|
;
|
||||||
|
|
||||||
|
cells : leafcell
|
||||||
|
| cells leafcell
|
||||||
|
;
|
||||||
|
|
||||||
|
leafcell : CELL STRING '{' lines '}'
|
||||||
|
{
|
||||||
|
mbkfree($2);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
|
||||||
|
lines : line
|
||||||
|
| line lines
|
||||||
|
;
|
||||||
|
|
||||||
|
line : PLACE STRING '=' elm ';'
|
||||||
|
{
|
||||||
|
mbkfree($2);
|
||||||
|
}
|
||||||
|
| PLACE STRING '=' STRING op AT '(' point ')' ';'
|
||||||
|
{
|
||||||
|
if (!strcmp($4, "ref_ref") || !strcmp($4, "ref_con"))
|
||||||
|
addphref(mgleaf, $4, checkrefname($2), $8->x, $8->y);
|
||||||
|
else /* unknown internally! */
|
||||||
|
addphins(mgleaf, $4, checkinsname($2), $5, $8->x, $8->y);
|
||||||
|
mbkfree($2);
|
||||||
|
mbkfree($4);
|
||||||
|
mbkfree($8);
|
||||||
|
}
|
||||||
|
| elm ';'
|
||||||
|
;
|
||||||
|
|
||||||
|
elm : RA '(' STRING ',' point ',' point ')'
|
||||||
|
{
|
||||||
|
if (strncmp($3, "zd", 2)) {
|
||||||
|
fprintf(stderr, "modgen parser warning : ra not for ab box\n");
|
||||||
|
/* exit(18); */
|
||||||
|
} else
|
||||||
|
defab(mgleaf, $5->x, $7->x, $5->y, $7->y);
|
||||||
|
mbkfree($3);
|
||||||
|
mbkfree($5);
|
||||||
|
mbkfree($7);
|
||||||
|
}
|
||||||
|
| TERMINAL STRING '(' MWIDTH '=' NUM ')' face STRING AT '(' point ')'
|
||||||
|
{
|
||||||
|
if (strcmp($2, "ul") && strcmp($2, "ur")
|
||||||
|
&& strcmp($2, "lr") && strcmp($2, "ll"))
|
||||||
|
addphcon(mgleaf, (char)$8, checkconname($2),
|
||||||
|
$12->x, $12->y, mbk_layer($9), $6);
|
||||||
|
mbkfree($2);
|
||||||
|
mbkfree($9);
|
||||||
|
mbkfree($12);
|
||||||
|
}
|
||||||
|
| STRETCH '(' STRING ',' NUM ',' dir ',' point ',' point ')'
|
||||||
|
{
|
||||||
|
char layer = mbk_layer($3);
|
||||||
|
int x1 = $9->x, y1 = $9->y, x2 = $11->x, y2 = $11->y;
|
||||||
|
|
||||||
|
mbkfree($3);
|
||||||
|
mbkfree($9);
|
||||||
|
mbkfree($11);
|
||||||
|
if ($7 == VERTI) {
|
||||||
|
if (y2 > y1) {
|
||||||
|
y2 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
y1 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
y2 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
y1 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (x2 > x1) {
|
||||||
|
x2 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
x1 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
x2 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
x1 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
addphseg(mgleaf, layer, $5, x1, y1, x2, y2, NULL);
|
||||||
|
}
|
||||||
|
| WIRE {pl = NULL;} '(' STRING ',' NUM ',' point_list ')'
|
||||||
|
{
|
||||||
|
chain_list *l;
|
||||||
|
int x1, y1, x2, y2;
|
||||||
|
char layer = mbk_layer($4);
|
||||||
|
|
||||||
|
mbkfree($4);
|
||||||
|
/* points in inverted order, but doesn't matter, same algo */
|
||||||
|
for (l = pl; l->NEXT; l = l->NEXT) {
|
||||||
|
x1 = (int)((struct pxy *)(l->DATA))->x;
|
||||||
|
y1 = (int)((struct pxy *)(l->DATA))->y;
|
||||||
|
x2 = (int)((struct pxy *)(l->NEXT->DATA))->x;
|
||||||
|
y2 = (int)((struct pxy *)(l->NEXT->DATA))->y;
|
||||||
|
if (l == pl) { /* last point */
|
||||||
|
if (x1 == x2) {
|
||||||
|
if (y2 > y1) {
|
||||||
|
y1 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
y1 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (x2 > x1) {
|
||||||
|
x1 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
x1 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!l->NEXT->NEXT) { /* first point */
|
||||||
|
if (x1 == x2) {
|
||||||
|
if (y2 > y1) {
|
||||||
|
y2 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
y2 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (x2 > x1) {
|
||||||
|
x2 -= Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
} else {
|
||||||
|
x2 += Extension[(int)layer] * SCALE_X * TWO / 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
addphseg(mgleaf, layer, $6, x1, y1, x2, y2, NULL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
| NTR '(' NUM ',' NUM ')' op AT '(' point ')'
|
||||||
|
{ /* bounding box of transistors is knows for idps technology */
|
||||||
|
float tx; /* used to compute transistor bbox */
|
||||||
|
int x1, y1, x2, y2;
|
||||||
|
|
||||||
|
/* +-----------+ when not placed yet */
|
||||||
|
tx = ((float)$3 / 2 + (float)O_PS_AA * SCALE_X * TWO);
|
||||||
|
|
||||||
|
switch ((char)$7) {
|
||||||
|
case NOSYM:
|
||||||
|
case SYM_X:
|
||||||
|
case SYM_Y:
|
||||||
|
case SYMXY:
|
||||||
|
y2 = y1 = $10->y;
|
||||||
|
x1 = $10->x + tx;
|
||||||
|
x2 = $10->x - tx;
|
||||||
|
addphseg(mgleaf, NTRANS, $5, x1, y1, x2, y2, NULL);
|
||||||
|
break;
|
||||||
|
case ROT_P:
|
||||||
|
case ROT_M:
|
||||||
|
case SY_RP:
|
||||||
|
case SY_RM:
|
||||||
|
x2 = x1 = $10->x;
|
||||||
|
y1 = $10->y + tx;
|
||||||
|
y2 = $10->y - tx;
|
||||||
|
addphseg(mgleaf, NTRANS, $5, x1, y1, x2, y2, NULL);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
mbkfree($10);
|
||||||
|
}
|
||||||
|
| PTR '(' NUM ',' NUM ')' op AT '(' point ')'
|
||||||
|
{ /* bounding box of transistors is knows for idps technology */
|
||||||
|
float tx; /* used to compute transistor bbox */
|
||||||
|
int x1, y1, x2, y2;
|
||||||
|
|
||||||
|
/* +-----------+ when not placed yet */
|
||||||
|
tx = ((float)$3 / 2 + (float)O_PS_AA * SCALE_X * TWO);
|
||||||
|
|
||||||
|
switch ((char)$7) {
|
||||||
|
case NOSYM:
|
||||||
|
case SYM_X:
|
||||||
|
case SYM_Y:
|
||||||
|
case SYMXY:
|
||||||
|
y2 = y1 = $10->y;
|
||||||
|
x1 = $10->x + tx;
|
||||||
|
x2 = $10->x - tx;
|
||||||
|
addphseg(mgleaf, PTRANS, $5, x1, y1, x2, y2, NULL);
|
||||||
|
break;
|
||||||
|
case ROT_P:
|
||||||
|
case ROT_M:
|
||||||
|
case SY_RP:
|
||||||
|
case SY_RM:
|
||||||
|
x2 = x1 = $10->x;
|
||||||
|
y1 = $10->y + tx;
|
||||||
|
y2 = $10->y - tx;
|
||||||
|
addphseg(mgleaf, PTRANS, $5, x1, y1, x2, y2, NULL);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
mbkfree($10);
|
||||||
|
}
|
||||||
|
| COP AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_DIF_P, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| CON AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_DIF_N, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| COPS AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_POLY, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| COPW AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_BODY_P, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| CONW AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_BODY_N, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| PVIA AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, CONT_VIA, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| CXN AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, C_X_N, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
| CXP AT '(' point ')'
|
||||||
|
{
|
||||||
|
addphvia(mgleaf, C_X_P, $4->x, $4->y, 0, 0,NULL);
|
||||||
|
mbkfree($4);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
|
||||||
|
point : NUM ',' NUM
|
||||||
|
{
|
||||||
|
struct pxy *pp;
|
||||||
|
|
||||||
|
pp = (struct pxy *)mbkalloc(sizeof(struct pxy));
|
||||||
|
pp->x = $1;
|
||||||
|
pp->y = $3;
|
||||||
|
$$ = pp;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
|
||||||
|
point_list : point
|
||||||
|
{
|
||||||
|
pl = addchain(pl, (void *)$1);
|
||||||
|
}
|
||||||
|
| point ',' point_list
|
||||||
|
{
|
||||||
|
pl = addchain(pl, (void *)$1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
|
||||||
|
dir : HORIZ {$$ = (long)HORIZ;}
|
||||||
|
| VERTI {$$ = (long)VERTI;}
|
||||||
|
;
|
||||||
|
|
||||||
|
face : MLEFT {$$ = (long)WEST;}
|
||||||
|
| MRIGHT {$$ = (long)EAST;}
|
||||||
|
| MBOTTOM {$$ = (long)SOUTH;}
|
||||||
|
| MTOP {$$ = (long)NORTH;}
|
||||||
|
;
|
||||||
|
|
||||||
|
op : {$$ = (long)NOSYM;}
|
||||||
|
| MX
|
||||||
|
{$$ = (long)SYM_Y;}
|
||||||
|
| MY
|
||||||
|
{$$ = (long)SYM_X;}
|
||||||
|
| MX MY
|
||||||
|
{$$ = (long)SYMXY;}
|
||||||
|
| R NUM
|
||||||
|
{
|
||||||
|
if ($2 / SCALE_X / TWO == 90)
|
||||||
|
$$ = (long)ROT_P;
|
||||||
|
if ($2 / SCALE_X / TWO == 270)
|
||||||
|
$$ = (long)ROT_M;
|
||||||
|
}
|
||||||
|
| MX R NUM
|
||||||
|
{
|
||||||
|
if ($3 / SCALE_X / TWO == 90)
|
||||||
|
$$ = (long)SY_RM;
|
||||||
|
if ($3 / SCALE_X / TWO == 270)
|
||||||
|
$$ = (long)SY_RP;
|
||||||
|
}
|
||||||
|
| MY R NUM
|
||||||
|
{
|
||||||
|
if ($3 / SCALE_X / TWO == 90)
|
||||||
|
$$ = (long)SY_RP;
|
||||||
|
if ($3 / SCALE_X / TWO == 270)
|
||||||
|
$$ = (long)SY_RM;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
|
||||||
|
%%
|
||||||
|
char *
|
||||||
|
filenameforlex()
|
||||||
|
{
|
||||||
|
return mgleaf->NAME;
|
||||||
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
mgnloadphfig(fig, name, mode)
|
||||||
|
phfig_list *fig;
|
||||||
|
char *name;
|
||||||
|
char mode;
|
||||||
|
{
|
||||||
|
extern FILE *yyin; /* declared in the lex.yy.c by default */
|
||||||
|
extern int yylineno;
|
||||||
|
chain_list *c;
|
||||||
|
|
||||||
|
mgleaf = fig;
|
||||||
|
if ((yyin = mbkfopen(name, IN_PH, READ_TEXT)) == NULL) {
|
||||||
|
fflush(stdout);
|
||||||
|
fprintf(stderr,
|
||||||
|
"*** mbk error *** modgen parser failed opening file %s.%s\n",
|
||||||
|
name, IN_PH);
|
||||||
|
EXIT(1);
|
||||||
|
}
|
||||||
|
yylineno = 0;
|
||||||
|
if (yyparse()) {
|
||||||
|
fflush(stdout);
|
||||||
|
fprintf(stderr,
|
||||||
|
"*** mbk error *** modgen parser failed while reading file %s\n",
|
||||||
|
filepath(name, IN_PH));
|
||||||
|
EXIT(1);
|
||||||
|
}
|
||||||
|
(void)fclose(yyin);
|
||||||
|
/* free :
|
||||||
|
temporary space for point list must be freed. */
|
||||||
|
for (c = pl; c; c = c->NEXT)
|
||||||
|
mbkfree(c->DATA);
|
||||||
|
freechain(pl);
|
||||||
|
/* not so nice :
|
||||||
|
It would be nice if I'd parse only the necessary stuff when reading
|
||||||
|
the file, but it's a little painful, and would need some checks
|
||||||
|
I can't afford right now. */
|
||||||
|
if (mode == 'P') {
|
||||||
|
void **ppobj;
|
||||||
|
void *next;
|
||||||
|
|
||||||
|
/* delete instances */
|
||||||
|
for (ppobj = (void**)&HEAD_PHFIG->PHINS; *ppobj != NULL;) {
|
||||||
|
next = (void *)((phins_list *)*ppobj)->NEXT;
|
||||||
|
mbkfree((phins_list *)*ppobj);
|
||||||
|
*ppobj = next;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* delete vias */
|
||||||
|
for (ppobj = (void**)&HEAD_PHFIG->PHVIA; *ppobj != NULL;) {
|
||||||
|
next = (void *)((phvia_list *)*ppobj)->NEXT;
|
||||||
|
mbkfree((phvia_list *)*ppobj);
|
||||||
|
*ppobj = next;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* delete segments */
|
||||||
|
for (ppobj = (void**)&HEAD_PHFIG->PHSEG; *ppobj != NULL;) {
|
||||||
|
if (((phseg_list *)*ppobj)->LAYER != TPOLY
|
||||||
|
&& ((phseg_list *)*ppobj)->LAYER != TALU1
|
||||||
|
&& ((phseg_list *)*ppobj)->LAYER != TALU2
|
||||||
|
&& ((phseg_list *)*ppobj)->LAYER != TALU3) {
|
||||||
|
next = (void *)((phseg_list *)*ppobj)->NEXT;
|
||||||
|
mbkfree((phseg_list *)*ppobj);
|
||||||
|
*ppobj = next;
|
||||||
|
} else
|
||||||
|
ppobj = (void **)&((phseg_list *)*ppobj)->NEXT;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* mbk strategy :
|
||||||
|
only one cell per modgen file. */
|
||||||
|
fig = HEAD_PHFIG;
|
||||||
|
}
|
||||||
|
|
||||||
|
static char
|
||||||
|
mbk_layer(mg_layer)
|
||||||
|
char *mg_layer;
|
||||||
|
{
|
||||||
|
if (!strcmp(mg_layer, "nw"))
|
||||||
|
return NWELL;
|
||||||
|
if (!strcmp(mg_layer, "pw"))
|
||||||
|
return PWELL;
|
||||||
|
if (!strcmp(mg_layer, "xn"))
|
||||||
|
return NTIE;
|
||||||
|
if (!strcmp(mg_layer, "xp"))
|
||||||
|
return PTIE;
|
||||||
|
if (!strcmp(mg_layer, "nn"))
|
||||||
|
return NDIF;
|
||||||
|
if (!strcmp(mg_layer, "pp"))
|
||||||
|
return PDIF;
|
||||||
|
if (!strcmp(mg_layer, "ps"))
|
||||||
|
return POLY;
|
||||||
|
if (!strcmp(mg_layer, "m1"))
|
||||||
|
return ALU1;
|
||||||
|
if (!strcmp(mg_layer, "m2"))
|
||||||
|
return ALU2;
|
||||||
|
if (!strcmp(mg_layer, "m3"))
|
||||||
|
return ALU3;
|
||||||
|
if (!strcmp(mg_layer, "am1"))
|
||||||
|
return TALU1;
|
||||||
|
if (!strcmp(mg_layer, "am2"))
|
||||||
|
return TALU2;
|
||||||
|
if (!strcmp(mg_layer, "am3"))
|
||||||
|
return TALU3;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* decode a reference name :
|
||||||
|
xxx[?] -> xxx
|
||||||
|
xxx[?][??] -> xxx ?,
|
||||||
|
xxx[?][??][???] -> xxx ?_??.
|
||||||
|
I always have added an index since here also two instances can't have
|
||||||
|
the same name. */
|
||||||
|
|
||||||
|
static char
|
||||||
|
*checkrefname(name)
|
||||||
|
char *name;
|
||||||
|
{
|
||||||
|
char *s, *t, *u = NULL;
|
||||||
|
char one = 0;
|
||||||
|
|
||||||
|
s = t = name;
|
||||||
|
|
||||||
|
while (*t) {
|
||||||
|
if (*t == '[')
|
||||||
|
if (!one) {
|
||||||
|
*t = ' ';
|
||||||
|
u = s;
|
||||||
|
one = 1;
|
||||||
|
} else if (one == 1) {
|
||||||
|
*t = '_';
|
||||||
|
u = s;
|
||||||
|
one++;
|
||||||
|
} else {
|
||||||
|
*t = ' ';
|
||||||
|
u = s;
|
||||||
|
}
|
||||||
|
else if (*t == ']')
|
||||||
|
if (*(++t) == '\0') /* ok, it's finished */
|
||||||
|
goto end;
|
||||||
|
else if (*t == '[') /* multiple array */
|
||||||
|
continue;
|
||||||
|
*s++ = *t++;
|
||||||
|
}
|
||||||
|
end:
|
||||||
|
*s = '\0';
|
||||||
|
/* last vectorized value :
|
||||||
|
it shall be skipped since I introduced it while driving the file. */
|
||||||
|
if (u)
|
||||||
|
*u = '\0';
|
||||||
|
return name;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* decode a connector name :
|
||||||
|
in modgen, 'cause we haven't the same conventions, a by me driven
|
||||||
|
connector has the forms :
|
||||||
|
xxx[?] -> xxx, where ? is a number, because I suffix all connectors that
|
||||||
|
way.
|
||||||
|
xxx[??][?] -> xxx[??], because this was previously a vector. */
|
||||||
|
|
||||||
|
static char
|
||||||
|
*checkconname(name)
|
||||||
|
char *name;
|
||||||
|
{
|
||||||
|
char *s, *t, *u = NULL;
|
||||||
|
|
||||||
|
s = t = name;
|
||||||
|
while (*t) {
|
||||||
|
if (*t == '[') {
|
||||||
|
*t = ' ';
|
||||||
|
u = s; /* last vector at that time */
|
||||||
|
} else if (*t == ']') {
|
||||||
|
if (*(++t) == '\0') /* ok, it's finished */
|
||||||
|
goto end;
|
||||||
|
else if (*t == '[') /* multiple array */
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
*s++ = *t++;
|
||||||
|
}
|
||||||
|
end:
|
||||||
|
*s = '\0';
|
||||||
|
/* last vectorized value :
|
||||||
|
it shall be skipped since I introduced it while driving the file. */
|
||||||
|
if (u)
|
||||||
|
*u = '\0';
|
||||||
|
return name;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* decode an instance name :
|
||||||
|
in modgen, 'cause we haven't the same conventions, a by me driven
|
||||||
|
instance has the forms :
|
||||||
|
xxx.corner
|
||||||
|
since I arranged to put the corner in such a place that it makes it
|
||||||
|
automatically good for mbk, I just forgot about the corner. */
|
||||||
|
|
||||||
|
static char
|
||||||
|
*checkinsname(name)
|
||||||
|
char *name;
|
||||||
|
{
|
||||||
|
char *s = name;
|
||||||
|
|
||||||
|
s = strrchr(name, '.');
|
||||||
|
*s = '\0';
|
||||||
|
return name;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,23 @@
|
||||||
|
/*
|
||||||
|
* This file is part of the Alliance CAD System
|
||||||
|
* Copyright (C) Laboratoire LIP6 - Département ASIM
|
||||||
|
* Universite Pierre et Marie Curie
|
||||||
|
*
|
||||||
|
* Home page : http://www-asim.lip6.fr/alliance/
|
||||||
|
* E-mail support : mailto:alliance-support@asim.lip6.fr
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or modify it
|
||||||
|
* under the terms of the GNU Library General Public License as published
|
||||||
|
* by the Free Software Foundation; either version 2 of the License, or (at
|
||||||
|
* your option) any later version.
|
||||||
|
*
|
||||||
|
* Alliance VLSI CAD System is distributed in the hope that it will be
|
||||||
|
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
||||||
|
* Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU General Public License along
|
||||||
|
* with the GNU C Library; see the file COPYING. If not, write to the Free
|
||||||
|
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
*/
|
||||||
|
|
||||||
Loading…
Reference in New Issue