home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p078 / 3.img / NETFORMS.PLB / DUMP.CF < prev    next >
Encoding:
Text File  |  1991-10-14  |  6.3 KB  |  281 lines
  1. /*
  2.  */
  3.  
  4. /*  VERSION="1.10   14-OCT-91"
  5.  *      - Added Version message
  6.  *
  7.  *  A generic net-oriented dump utility for linked, flat netlist files
  8.  *
  9.  */
  10.  
  11. int i;
  12.  
  13. /*-----------------------*/
  14.  
  15. Initialize()
  16. {
  17.     WriteString(0, "Creating Netlist...");
  18.     WriteCrLf(0);
  19.  
  20.     AddSymbol("Formatter");
  21.     SetPinMap(0, "Input          ");
  22.     SetPinMap(1, "BiDirectional  ");
  23.     SetPinMap(2, "Output         ");
  24.     SetPinMap(3, "Open Collector ");
  25.     SetPinMap(4, "Passive        ");
  26.     SetPinMap(5, "Hi-Z           ");
  27.     SetPinMap(6, "Open Emitter   ");
  28.     SetPinMap(7, "Power          ");
  29. }
  30.  
  31. /*-----------------------*/
  32.  
  33. WriteInstanceFile()
  34. {
  35.     SetAccessType("LIBRARY");
  36.     do
  37.     {
  38.         WriteSymbol(1, LibraryNameString);
  39.         WriteCrLf(1);
  40.         do
  41.         {
  42.             WriteString(1, "    ");
  43.             WriteSymbol(1, ReferenceString);
  44.             WriteString(1, "    ");
  45.             WriteSymbol(1, PartName);
  46.             WriteString(1, "    <");
  47.             WriteSymbol(1, ModuleName);
  48.             WriteString(1, ">");
  49.             WriteCrLf(1);
  50.         }
  51.         while (NextInstance());
  52.     }
  53.     while (NextAccessType());
  54.     WriteCrLf(1);
  55.  
  56.     RewindInstanceFile();
  57.  
  58.     while (LoadInstance())
  59.     {
  60.         CopySymbol(ReferenceString, Formatter);
  61.         PadSpaces(Formatter, 10);
  62.         WriteSymbol(1, Formatter);
  63.  
  64.         CopySymbol(PartName, Formatter);
  65.         PadSpaces(Formatter, 10);
  66.         WriteSymbol(1, Formatter);
  67.  
  68.         WriteCrLf(1);
  69.         WriteString(1, "ModuleName: ");
  70.         CopySymbol(ModuleName, Formatter);
  71.         i = SymbolLength(ModuleName);
  72.         if (i == 0)
  73.         {
  74.             SetSymbol(Formatter, "EMPTY");
  75.         }
  76.         WriteSymbol(1, Formatter);
  77.         WriteCrLf(1);
  78.  
  79.         CopySymbol(TimeStamp, Formatter);
  80.         PadSpaces(Formatter, 10);
  81.         WriteSymbol(1, Formatter);
  82.  
  83.         WriteCrLf(1);
  84.  
  85.         WriteString(1, "    <");
  86.         WriteSymbol(1, FieldString1);
  87.         WriteString(1, "> ");
  88.         WriteString(1, "<");
  89.         WriteSymbol(1, FieldString2);
  90.         WriteString(1, "> ");
  91.         WriteString(1, "<");
  92.         WriteSymbol(1, FieldString3);
  93.         WriteString(1, "> ");
  94.         WriteString(1, "<");
  95.         WriteSymbol(1, FieldString4);
  96.         WriteString(1, "> ");
  97.         WriteString(1, "<");
  98.         WriteSymbol(1, FieldString5);
  99.         WriteString(1, "> ");
  100.         WriteString(1, "<");
  101.         WriteSymbol(1, FieldString6);
  102.         WriteString(1, "> ");
  103.         WriteString(1, "<");
  104.         WriteSymbol(1, FieldString7);
  105.         WriteString(1, "> ");
  106.         WriteString(1, "<");
  107.         WriteSymbol(1, FieldString8);
  108.         WriteString(1, "> ");
  109.  
  110.         WriteCrLf(1);
  111.     }
  112. }
  113.  
  114. /*-----------------------*/
  115.  
  116. WriteHeader()
  117. {
  118.     WriteString(1, "--------------- Title Block Information -------------");
  119.     WriteCrLf(1);
  120.  
  121.     WriteSymbol(1, SheetNumber);
  122.     WriteString(1, "/");
  123.     WriteSymbol(1, TotalSheets);
  124.     WriteString(1, " ");
  125.     WriteSymbol(1, SheetSize);
  126.     WriteCrLf(1);
  127.  
  128.     WriteSymbol(1, DateString);
  129.     WriteString(1, " ");
  130.     WriteSymbol(1, DocumentNumber);
  131.     WriteString(1, " ");
  132.     WriteSymbol(1, Revision);
  133.     WriteCrLf(1);
  134.  
  135.     WriteSymbol(1, TitleString);
  136.     WriteCrLf(1);
  137.     WriteSymbol(1, Organization);
  138.     WriteCrLf(1);
  139.     WriteSymbol(1, AddressLine1);
  140.     WriteCrLf(1);
  141.     WriteSymbol(1, AddressLine2);
  142.     WriteCrLf(1);
  143.     WriteSymbol(1, AddressLine3);
  144.     WriteCrLf(1);
  145.     WriteSymbol(1, AddressLine4);
  146.     WriteCrLf(1);
  147.     WriteCrLf(1);
  148.  
  149.     WriteString(1, "---------------------- Parts --------------------------");
  150.     WriteCrLf(1);
  151.     WriteInstanceFile();
  152.     WriteCrLf(1);
  153.  
  154.     SortByNumber();
  155.     WriteString(1, "---------- Parts Sorted by Reference Number -----------");
  156.     WriteCrLf(1);
  157.     WriteInstanceFile();
  158.     WriteCrLf(1);
  159.  
  160.     WriteString(1, "----------------------- Nets --------------------------");
  161.     WriteCrLf(1);
  162. }
  163.  
  164. /*-----------------------*/
  165.  
  166. HandleNodeName()
  167. {
  168.     i = GetStandardSymbol(TypeCode);
  169.  
  170.     if (i == 'S')
  171.     {
  172.         WriteString(1, "Power - ");
  173.         WriteSymbol(1, SignalNameString);
  174.     }
  175.     if (i == 'P')
  176.     {
  177.         WriteString(1, "Port - ");
  178.         WriteSymbol(1, SignalType);
  179.         WriteString(1, " ");
  180.         WriteSymbol(1, SignalNameString);
  181.     }
  182.     if (i == 'L')
  183.     {
  184.         WriteString(1, "Label - ");
  185.         WriteSymbol(1, SignalType);
  186.         WriteString(1, " ");
  187.         WriteSymbol(1, SignalNameString);
  188.         WriteString(1, " ");
  189.         WriteSymbol(1, SheetNumber);
  190.     }
  191.     if (i == 'U')
  192.     {
  193.         WriteString(1, "Unconnected - N");
  194.         WriteSymbol(1, NetNumber);
  195.     }
  196.     if (i == 'N')
  197.     {
  198.         WriteString(1, "Unnamed - N");
  199.         WriteSymbol(1, NetNumber);
  200.     }
  201.     WriteCrLf(1);
  202.     WriteString(1, "Reference  PinNumber  PinName    PartName   Module     PinType");
  203.     WriteCrLf(1);
  204.     WriteCrLf(1);
  205. }
  206.  
  207. /*-----------------------*/
  208.  
  209. WriteNet()
  210. {
  211.     CopySymbol(ReferenceString, Formatter);
  212.     PadSpaces(Formatter, 10);
  213.     WriteSymbol(1, Formatter);
  214.     WriteString(1, " ");
  215.  
  216.     CopySymbol(PinNumberString, Formatter);
  217.     PadSpaces(Formatter, 10);
  218.     WriteSymbol(1, Formatter);
  219.     WriteString(1, " ");
  220.  
  221.     CopySymbol(PinNameString, Formatter);
  222.     PadSpaces(Formatter, 10);
  223.     WriteSymbol(1, Formatter);
  224.     WriteString(1, " ");
  225.  
  226.     CopySymbol(PartName, Formatter);
  227.     PadSpaces(Formatter, 10);
  228.     WriteSymbol(1, Formatter);
  229.     WriteString(1, " ");
  230.  
  231.     i = SymbolLength(ModuleName);
  232.     if (i == 0)
  233.     {
  234.        SetSymbol(Formatter, "EMPTY ");
  235.        PadSpaces(Formatter, 10);
  236.        WriteSymbol(1, Formatter);
  237.        WriteString(1, " ");
  238.     }
  239.     else
  240.     {
  241.        CopySymbol(ModuleName, Formatter);
  242.        PadSpaces(Formatter, 10);
  243.        WriteSymbol(1, Formatter);
  244.        WriteString(1, " ");
  245.     }
  246.  
  247.     i = GetStandardSymbol(PinType);
  248.     WriteMap(1, i);
  249.  
  250.     WriteCrLf(1);
  251. }
  252.  
  253. /*-----------------------*/
  254.  
  255. WriteNetEnding()
  256. {
  257.     WriteString(1, "----- NET END -----");
  258.     WriteCrLf(1);
  259.     WriteCrLf(1);
  260. }
  261.  
  262. /*-----------------------*/
  263.  
  264. ProcessFieldStrings()
  265. {
  266. }
  267.  
  268. /*-----------------------*/
  269.  
  270. WriteNetListEnd()
  271. {
  272.     WriteString(1, "***** END NETS *****");
  273.     WriteCrLf(1);
  274.     WriteCrLf(1);
  275.  
  276.     WriteString(0, "Done");
  277.     WriteCrLf(0);
  278. }
  279.  
  280.  
  281.