![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to print.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd / cifplot|
Return to print.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / cifplot |
1.1 ! root 1: /******************************************************************* ! 2: * * ! 3: * File: CIFPLOT/print.c * ! 4: * Written by Dan Fitzpatrick * ! 5: * copyright 1980 -- Regents of the University of California * ! 6: * * ! 7: ********************************************************************/ ! 8: ! 9: #include <stdio.h> ! 10: #include "defs.h" ! 11: #include "globals.h" ! 12: #include "parser_defs.h" ! 13: #include "structs.h" ! 14: #include "out_structs.h" ! 15: ! 16: IMPORT struct LCell *GetLayer(); ! 17: IMPORT long time(); ! 18: IMPORT char *ctime(); ! 19: ! 20: FILE *inter; ! 21: ! 22: int SymbCount = 0; ! 23: ! 24: #define PRINTED 113 ! 25: ! 26: Intermediate() ! 27: { ! 28: long t; ! 29: if(NULL == (inter = fopen(outfile,"w"))) { ! 30: char a[128]; ! 31: sprintf(a,"Can't create %s",outfile); ! 32: Error(a,RUNTIME); ! 33: } ! 34: ! 35: fprintf(inter,"(CIF 2.UCB-1);\n"); ! 36: t = time(0); ! 37: fprintf(inter,"(%s: %s%s);\n",getlogin(),ctime(&t),banner); ! 38: fprintf(inter,"();\n"); ! 39: fprintf(inter,"();\n"); ! 40: PrintBBox(&(prog->CBBox),inter); ! 41: ! 42: PrintSymbol(prog,inter); ! 43: fprintf(inter,"C %d;\nE\n",SymbCount-1); ! 44: exit(0); ! 45: } ! 46: ! 47: PrintSymbol(symb,inter) ! 48: Command *symb; ! 49: FILE *inter; ! 50: { ! 51: Command *p; ! 52: ! 53: if(symb->type != SYMBOL) ! 54: Error("PrintSymbol call with non-symbol",INTERNAL); ! 55: if(symb->Ctype.Symbl.status == PRINTED) ! 56: return; ! 57: ! 58: for(p=symb->Ctype.Symbl.CStart; p!=NIL; p=p->CLink) { ! 59: if( p->type == CALL) ! 60: PrintSymbol(p->Ctype.Call.CSymb,inter); ! 61: if(p->type == ARRAY) { ! 62: PrintSymbol(p->Ctype.Array.ACom->Ctype.Call.CSymb,inter); ! 63: CreateArray(p,inter); ! 64: } ! 65: } ! 66: ! 67: fprintf(inter,"DS %d;\n",SymbCount); ! 68: PrintBBox(&(symb->CBBox),inter); ! 69: fprintf(inter,"(Symbol #%d);\n",symb->Ctype.Symbl.SymNo); ! 70: fprintf(inter,"(9 %s);\n",symb->Ctype.Symbl.SName); ! 71: symb->Ctype.Symbl.Sid = SymbCount++; ! 72: symb->Ctype.Symbl.status = PRINTED; ! 73: ! 74: for(p=symb->Ctype.Symbl.CStart; p!=NIL; p=p->CLink) ! 75: PrintCommand(p,inter); ! 76: fprintf(inter,"DF;\n"); ! 77: } ! 78: ! 79: CreateArray(com,inter) ! 80: Command *com; ! 81: FILE *inter; ! 82: { ! 83: int i; ! 84: ! 85: fprintf(inter,"DS %d;\n",SymbCount++); ! 86: PrintBBox(&(com->CBBox),inter); ! 87: for(i=0;i<com->Ctype.Array.Am;i++) ! 88: fprintf(inter,"C %d T %d 0;\n", ! 89: com->Ctype.Array.ACom->Ctype.Call.CSymb->Ctype.Symbl.Sid, ! 90: i*(int) com->Ctype.Array.Adx); ! 91: fprintf(inter,"DF;\n"); ! 92: fprintf(inter,"DS %d;\n",SymbCount++); ! 93: PrintBBox(&(com->CBBox),inter); ! 94: for(i=0;i<com->Ctype.Array.An;i++) ! 95: fprintf(inter,"C %d T 0 %d;\n", ! 96: SymbCount-2,i*(int) com->Ctype.Array.Ady); ! 97: fprintf(inter,"DF;\n"); ! 98: com->Ctype.Array.As = SymbCount-1; ! 99: } ! 100: ! 101: PrintCommand(com,inter) ! 102: Command *com; ! 103: FILE *inter; ! 104: { ! 105: switch(com->type) { ! 106: case POLYGON: ! 107: PrintLayer(com->level,inter); ! 108: fprintf(inter,"P"); ! 109: PrintPath(com->Ctype.Path,inter); ! 110: fprintf(inter,";\n"); ! 111: /* ! 112: PrintBBox(&(com->CBBox),inter); ! 113: */ ! 114: break; ! 115: case WIRE: ! 116: PrintLayer(com->level,inter); ! 117: fprintf(inter,"W"); ! 118: /* Print the width */ ! 119: fprintf(inter," %d",(int) com->Ctype.Wire.WWidth); ! 120: PrintPath(com->Ctype.Wire.WPath,inter); ! 121: fprintf(inter,";\n"); ! 122: /* ! 123: PrintBBox(&(com->CBBox),inter); ! 124: */ ! 125: break; ! 126: case FLASH: ! 127: PrintLayer(com->level,inter); ! 128: fprintf(inter,"R %d %d,%d;\n", ! 129: (int) com->Ctype.Flash.fdia, ! 130: (int) com->Ctype.Flash.fcenter.x, ! 131: (int) com->Ctype.Flash.fcenter.y); ! 132: break; ! 133: case BOX: ! 134: PrintLayer(com->level,inter); ! 135: fprintf(inter,"B %d %d %d,%d %d,%d;\n", ! 136: (int) com->Ctype.Box.blength, ! 137: (int) com->Ctype.Box.bwidth, ! 138: (int) com->Ctype.Box.bcenter.x, ! 139: (int) com->Ctype.Box.bcenter.y, ! 140: (int) com->Ctype.Box.bdirect.x, ! 141: (int) com->Ctype.Box.bdirect.y); ! 142: /* ! 143: PrintBBox(&(com->CBBox),inter); ! 144: */ ! 145: break; ! 146: case TEXT: ! 147: fprintf(inter,"2 \"%s\" ",com->Ctype.Text.TString); ! 148: PrintTransform(com->Ctype.Text.TTrans,inter); ! 149: fprintf(inter,";\n"); ! 150: break; ! 151: case POINTNAME: ! 152: fprintf(inter,"94 %s %d %d",com->Ctype.PointName.Name, ! 153: (int) com->Ctype.PointName.loc.x, ! 154: (int) com->Ctype.PointName.loc.y); ! 155: if(strcmp(com->Ctype.PointName.Label,"all") != 0) ! 156: fprintf(inter," %s",com->Ctype.PointName.Label); ! 157: fprintf(inter,";\n"); ! 158: break; ! 159: case ARRAY: ! 160: fprintf(inter,"C %d;\n",com->Ctype.Array.As); ! 161: /* ! 162: fprintf(inter,"0A %d %d,%d %d,%d;\n", ! 163: com->Ctype.Array.ACom->Ctype.Call.CSymb->Ctype.Symbl.Sid, ! 164: com->Ctype.Array.An,com->Ctype.Array.Am, ! 165: (int) com->Ctype.Array.Adx, ! 166: (int) com->Ctype.Array.Ady); ! 167: */ ! 168: /* ! 169: PrintBBox(&(com->CBBox),inter); ! 170: */ ! 171: break; ! 172: case CALL: ! 173: fprintf(inter,"C %d",com->Ctype.Call.CSymb->Ctype.Symbl.Sid); ! 174: PrintTransform(com->Ctype.Call.trans,inter); ! 175: fprintf(inter,";\n"); ! 176: /* ! 177: PrintBBox(&(com->CBBox),inter); ! 178: */ ! 179: break; ! 180: case SYMBOL: ! 181: PrintSymbol(com,inter); ! 182: break; ! 183: default: ! 184: Error("Unknown type of command in PrintCommand",INTERNAL); ! 185: } ! 186: } ! 187: ! 188: PrintPath(p,f) ! 189: PointList *p; ! 190: FILE *f; ! 191: { ! 192: for(; p != NIL; p = p->PLink) { ! 193: fprintf(f," %d,%d",(int)p->pt.x,(int)p->pt.y); ! 194: } ! 195: } ! 196: ! 197: PrintBBox(bbox,f) ! 198: struct BBox *bbox; ! 199: FILE *f; ! 200: { ! 201: fprintf(f,"(BB %d %d %d %d);\n", ! 202: (int) bbox->xmin,(int) bbox->xmax, ! 203: (int) bbox->ymin,(int) bbox->ymax); ! 204: } ! 205: ! 206: PrintTransform(trans,f) ! 207: transform *trans; ! 208: FILE *f; ! 209: { ! 210: int i,j; ! 211: ! 212: /* ! 213: fprintf(f," MT"); ! 214: for(i=0;i<3;i++) { ! 215: for(j=0;j<2;j++) ! 216: fprintf(f," %f", trans->t[i][j]); ! 217: } ! 218: */ ! 219: fprintf(f,"%s",trans->TransString); ! 220: } ! 221: ! 222: PrintLayer(n,f) ! 223: int n; ! 224: FILE *f; ! 225: { ! 226: struct LCell *p; ! 227: ! 228: p = GetLayer(n); ! 229: if(p == NIL) ! 230: Error("Can't find layer name in PrintLayer",INTERNAL); ! 231: fprintf(f,"L %s;\n",p->LName); ! 232: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.