Initial version of donated sources by Avertec, 3.4p5.
[tas-yagle.git] / distrib / sources / yagle / cgv / cgv_view.c
1 /*------------------------------------------------------------\
2 | |
3 | Tool : Cgv |
4 | |
5 | File : cgv_view.c |
6 | |
7 | Date : 11.03.97 |
8 | |
9 | Authors : Picault Stephane |
10 | Miramond Benoit |
11 | |
12 \------------------------------------------------------------*/
13
14 #include <stdio.h>
15 #include <stdlib.h>
16
17 #include MUT_H
18 #include SLB_H
19 #include CGV_H
20
21 /*------------------------------------------------------------\
22 | Cgv View Wire |
23 \------------------------------------------------------------*/
24
25 void
26 viewcgvwir(Wire)
27 cgvwir_list *Wire;
28 {
29 fprintf(stdout, "\n\t\t--> Wire");
30 fprintf(stdout, "\n\t\t\tX : %ld", Wire->X);
31 fprintf(stdout, "\n\t\t\tY : %ld", Wire->Y);
32 fprintf(stdout, "\n\t\t\tDX : %ld", Wire->DX);
33 fprintf(stdout, "\n\t\t\tDX : %ld", Wire->DY);
34 fprintf(stdout, "\n\t\t\tFLAGS : %lx", Wire->FLAGS);
35 fprintf(stdout, "\n\t\t\tUSER : %lx", (long) Wire->USER);
36 fprintf(stdout, "\n\t\t<-- Wire");
37 }
38
39 /*------------------------------------------------------------\
40 | Cgv View Net |
41 /------------------------------------------------------------*/
42
43 void
44 viewcgvnet(Net)
45 cgvnet_list *Net;
46 {
47 cgvwir_list *ScanWire;
48 cgvcon_list *ScanCon;
49 chain_list *ScanChain;
50 char *RootName;
51
52 fprintf(stdout, "\n\t--> Net");
53 fprintf(stdout, "\n\t\tNUMBER_IN : %ld", Net->NUMBER_IN);
54 fprintf(stdout, "\n\t\tNUMBER_OUT : %ld", Net->NUMBER_OUT);
55 fprintf(stdout, "\n\t\tFLAGS : %lx", Net->FLAGS);
56
57 fprintf(stdout, "\n\t\tSOURCE_TYPE : %d", (int) Net->SOURCE_TYPE);
58
59 fprintf(stdout, "\n\t\tUSER : %lx", (long) Net->USER);
60
61 fprintf(stdout, "\n\t\tCON_NET :");
62
63 for (ScanChain = Net->CON_NET;
64 ScanChain != (chain_list *) 0;
65 ScanChain = ScanChain->NEXT) {
66 ScanCon = (cgvcon_list *) ScanChain->DATA;
67
68 if (ScanCon->ROOT_TYPE == CGV_ROOT_CON_FIG) {
69 RootName = ((cgvfig_list *) ScanCon->ROOT)->NAME;
70 fprintf(stdout, "\n\t\t\t|_\t%s of fig %s", ScanCon->NAME, RootName);
71 }
72 else {
73 RootName = ((cgvbox_list *) ScanCon->ROOT)->NAME;
74 fprintf(stdout, "\n\t\t\t|_\t%s of box %s", ScanCon->NAME, RootName);
75 }
76 }
77
78 fprintf(stdout, "\n\t\tWIRE :");
79
80 for (ScanWire = Net->WIRE;
81 ScanWire != (cgvwir_list *) 0;
82 ScanWire = ScanWire->NEXT) {
83 viewcgvwir(ScanWire);
84 }
85
86 fprintf(stdout, "\n\t<-- Net");
87 }
88
89 /*------------------------------------------------------------\
90 | Cgv View Connector |
91 \------------------------------------------------------------*/
92
93 void
94 viewcgvcon(Con, Blank)
95 cgvcon_list *Con;
96 char *Blank;
97 {
98 fprintf(stdout, "\n%s--> Con", Blank);
99 fprintf(stdout, "\n%s\tNAME : %s", Blank, Con->NAME);
100 fprintf(stdout, "\n%s\tFLAGS : %lx", Blank, Con->FLAGS);
101 fprintf(stdout, "\n%s\tSOURCE_TYPE : %d", Blank, (int) Con->SOURCE_TYPE);
102 fprintf(stdout, "\n%s\tUSER : %lx", Blank, (long) Con->USER);
103 fprintf(stdout, "\n%s\tDIR : %d", Blank, (int) Con->DIR);
104 fprintf(stdout, "\n%s\tTYPE : Ox%x", Blank, (int) Con->TYPE);
105 fprintf(stdout, "\n%s\tROOT_TYPE : %d", Blank, (int) Con->ROOT_TYPE);
106 fprintf(stdout, "\n%s\tX_REL : %ld", Blank, Con->X_REL);
107 fprintf(stdout, "\n%s\tY_REL : %ld", Blank, Con->Y_REL);
108 fprintf(stdout, "\n%s<-- Con", Blank);
109 }
110
111 /*------------------------------------------------------------\
112 | Cgv View Box |
113 \------------------------------------------------------------*/
114
115 void
116 viewcgvbox(Box)
117 cgvbox_list *Box;
118 {
119 cgvcon_list *ScanCon;
120
121 fprintf(stdout, "\n\t--> Box");
122 fprintf(stdout, "\n\t\tNAME : %s", Box->NAME);
123 fprintf(stdout, "\n\t\tFLAGS : %lx", Box->FLAGS);
124 fprintf(stdout, "\n\t\tSOURCE_TYPE : %d", (int) Box->SOURCE_TYPE);
125 fprintf(stdout, "\n\t\tUSER : %lx", (long) Box->USER);
126 fprintf(stdout, "\n\t\tNUMBER_IN : %ld", Box->NUMBER_IN);
127 fprintf(stdout, "\n\t\tNUMBER_OUT : %ld", Box->NUMBER_OUT);
128 fprintf(stdout, "\n\t\tX : %ld", Box->X);
129 fprintf(stdout, "\n\t\tY : %ld", Box->Y);
130 fprintf(stdout, "\n\t\tDX : %ld", Box->DX);
131 fprintf(stdout, "\n\t\tDY : %ld", Box->DY);
132
133 fprintf(stdout, "\n\t\tCON_IN : ");
134
135 for (ScanCon = Box->CON_IN;
136 ScanCon != (cgvcon_list *) 0;
137 ScanCon = ScanCon->NEXT) {
138 viewcgvcon(ScanCon, "\t\t");
139 }
140
141 fprintf(stdout, "\n\t\tCON_OUT : ");
142
143 for (ScanCon = Box->CON_OUT;
144 ScanCon != (cgvcon_list *) 0;
145 ScanCon = ScanCon->NEXT) {
146 viewcgvcon(ScanCon, "\t\t");
147 }
148
149 fprintf(stdout, "\n\t<-- Box");
150 }
151
152 /*------------------------------------------------------------\
153 | Cgv View Figure |
154 \------------------------------------------------------------*/
155
156 void
157 viewcgvfig(Figure)
158 cgvfig_list *Figure;
159 {
160 cgvcon_list *ScanCon;
161 cgvbox_list *ScanBox;
162 cgvnet_list *ScanNet;
163
164 fprintf(stdout, "\n--> Figure");
165 fprintf(stdout, "\nNAME : %s", Figure->NAME);
166
167 fprintf(stdout, "\nFLAGS : %lx", Figure->FLAGS);
168 fprintf(stdout, "\nSOURCE_TYPE : %d", (int) Figure->SOURCE_TYPE);
169 fprintf(stdout, "\nUSER : %lx", (long) Figure->USER);
170 fprintf(stdout, "\nNUMBER_IN : %ld", Figure->NUMBER_IN);
171 fprintf(stdout, "\nNUMBER_OUT : %ld", Figure->NUMBER_OUT);
172 fprintf(stdout, "\nX : %ld", Figure->X);
173 fprintf(stdout, "\nY : %ld", Figure->Y);
174
175 fprintf(stdout, "\nCON_IN : ");
176
177 for (ScanCon = Figure->CON_IN;
178 ScanCon != (cgvcon_list *) 0;
179 ScanCon = ScanCon->NEXT) {
180 viewcgvcon(ScanCon, "\t");
181 }
182
183 fprintf(stdout, "\nCON_OUT : ");
184
185 for (ScanCon = Figure->CON_OUT;
186 ScanCon != (cgvcon_list *) 0;
187 ScanCon = ScanCon->NEXT) {
188 viewcgvcon(ScanCon, "\t");
189 }
190
191 fprintf(stdout, "\nBOX : ");
192
193 for (ScanBox = Figure->BOX;
194 ScanBox != (cgvbox_list *) 0;
195 ScanBox = ScanBox->NEXT) {
196 viewcgvbox(ScanBox);
197 }
198
199 fprintf(stdout, "\nNET : ");
200
201 for (ScanNet = Figure->NET;
202 ScanNet != (cgvnet_list *) 0;
203 ScanNet = ScanNet->NEXT) {
204 viewcgvnet(ScanNet);
205 }
206
207 fprintf(stdout, "\n<-- Figure\n");
208 }