124 lines
3.4 KiB
C
124 lines
3.4 KiB
C
/*
|
|
* Copyright (c) 2001 Stephen Williams (steve@icarus.com)
|
|
*
|
|
* This source code is free software; you can redistribute it
|
|
* and/or modify it in source code form under the terms of the GNU
|
|
* General Public License as published by the Free Software
|
|
* Foundation; either version 2 of the License, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program 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 this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
|
*/
|
|
#ifdef HAVE_CVS_IDENT
|
|
#ident "$Id: mangle.c,v 1.6 2002/08/12 01:35:03 steve Exp $"
|
|
#endif
|
|
|
|
# include "fpga_priv.h"
|
|
# include <string.h>
|
|
#ifdef HAVE_MALLOC_H
|
|
# include <malloc.h>
|
|
#endif
|
|
# include <stdlib.h>
|
|
|
|
static size_t xnf_mangle_scope_name(ivl_scope_t net, char*buf, size_t nbuf)
|
|
{
|
|
unsigned cnt = 0;
|
|
ivl_scope_t parent = ivl_scope_parent(net);
|
|
|
|
if (parent) {
|
|
cnt = xnf_mangle_scope_name(parent, buf, nbuf);
|
|
buf += cnt;
|
|
nbuf -= cnt;
|
|
*buf++ = '/';
|
|
nbuf -= 1;
|
|
cnt += 1;
|
|
}
|
|
|
|
strcpy(buf, ivl_scope_basename(net));
|
|
cnt += strlen(buf);
|
|
|
|
return cnt;
|
|
}
|
|
|
|
void xnf_mangle_logic_name(ivl_net_logic_t net, char*buf, size_t nbuf)
|
|
{
|
|
size_t cnt = xnf_mangle_scope_name(ivl_logic_scope(net), buf, nbuf);
|
|
buf[cnt++] = '/';
|
|
strcpy(buf+cnt, ivl_logic_basename(net));
|
|
}
|
|
|
|
void xnf_mangle_lpm_name(ivl_lpm_t net, char*buf, size_t nbuf)
|
|
{
|
|
size_t cnt = xnf_mangle_scope_name(ivl_lpm_scope(net), buf, nbuf);
|
|
buf[cnt++] = '/';
|
|
strcpy(buf+cnt, ivl_lpm_basename(net));
|
|
}
|
|
|
|
/*
|
|
* Nexus names are used in pin records to connect things together. It
|
|
* almost doesn't matter what the nexus name is, but for readability
|
|
* we choose a name that is close to the nexus name. This function
|
|
* converts the existing name to a name that XNF can use.
|
|
*
|
|
* For speed, this function saves the calculated string into the real
|
|
* nexus by using the private pointer. Every nexus is used at least
|
|
* twice, so this cuts the mangling time in half at least.
|
|
*/
|
|
const char* xnf_mangle_nexus_name(ivl_nexus_t net)
|
|
{
|
|
char*name = ivl_nexus_get_private(net);
|
|
char*cp;
|
|
|
|
if (name != 0) {
|
|
return name;
|
|
}
|
|
|
|
name = malloc(strlen(ivl_nexus_name(net)) + 1);
|
|
strcpy(name, ivl_nexus_name(net));
|
|
|
|
for (cp = name ; *cp ; cp += 1) switch (*cp) {
|
|
|
|
case '.':
|
|
*cp = '/';
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
ivl_nexus_set_private(net, name);
|
|
return name;
|
|
}
|
|
|
|
/*
|
|
* $Log: mangle.c,v $
|
|
* Revision 1.6 2002/08/12 01:35:03 steve
|
|
* conditional ident string using autoconfig.
|
|
*
|
|
* Revision 1.5 2002/08/11 23:47:04 steve
|
|
* Add missing Log and Ident strings.
|
|
*
|
|
* Revision 1.4 2001/09/15 18:27:04 steve
|
|
* Make configure detect malloc.h
|
|
*
|
|
* Revision 1.3 2001/09/02 21:33:07 steve
|
|
* Rearrange the XNF code generator to be generic-xnf
|
|
* so that non-XNF code generation is also possible.
|
|
*
|
|
* Start into the virtex EDIF output driver.
|
|
*
|
|
* Revision 1.2 2001/08/30 04:31:05 steve
|
|
* Mangle nexus names.
|
|
*
|
|
* Revision 1.1 2001/08/28 04:14:20 steve
|
|
* Add the fpga target.
|
|
*
|
|
*/
|
|
|