1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
/*------------------------------------------------------------\
| |
| This file is part of the Alliance CAD System Copyright |
| (C) Laboratoire LIP6 - Dpartement ASIM Universite P&M Curie|
| |
| Home page : http://www-asim.lip6.fr/alliance/ |
| E-mail : mailto:alliance-users@asim.lip6.fr |
| |
| This progam 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., |
| 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Tool : Abl |
| |
| File : abldup.c |
| |
| Date : 03.12.96 |
| |
| Author : Jacomme Ludovic |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Include Files |
| |
\------------------------------------------------------------*/
# include "mut.h"
# include "aut.h"
# include "abl.h"
# include <stdio.h>
# include "abldup.h"
# include "ablerror.h"
/*------------------------------------------------------------\
| |
| Constants |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Types |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Variables |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Functions |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Dup Functions |
| |
\------------------------------------------------------------*/
/*------------------------------------------------------------\
| |
| Duplicate Abl Expr |
| |
\------------------------------------------------------------*/
ablexpr *dupablexpr( Expr )
ablexpr *Expr;
{
ablexpr *ExprDup;
ablexpr *ExprQueue;
if ( Expr == (ablexpr *)0 )
{
return ( Expr );
}
if ( ABL_ATOM( Expr ) )
{
return( addchain( (ablexpr *)0, ABL_CAR( Expr ) ) );
}
ExprDup = addchain( (ablexpr *)0,
(void *)addchain( (ablexpr *)0,
(void *)ABL_OPER( Expr ) ) );
ExprQueue = ExprDup;
while ( ( Expr = ABL_CDR( Expr ) ) != (ablexpr *)0 )
{
ABL_CDR( ExprQueue ) = addchain( (ablexpr *)0,
(void *)dupablexpr( ABL_CAR( Expr ) ) );
ExprQueue = ABL_CDR( ExprQueue );
}
return( ExprDup );
}
|
