home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p078 / 3.img / NETFORMS.PLB / ALGOREX.CF < prev    next >
Encoding:
Text File  |  1991-10-14  |  2.4 KB  |  137 lines
  1. /*
  2.     /L Do not append sheet number to labels
  3.  */
  4.  
  5. /*  VERSION="1.10   14-OCT-91"
  6.  *      - Added Version message
  7.  *
  8.  *  Capacities:
  9.  *      - Part Names are not checked for length
  10.  *      - Module Names are not checked for length
  11.  *      - Reference Strings are not checked for length
  12.  *      - Node Names are not checked for length
  13.  *      - Node Numbers are limited to 5 digits (plus the leading 'N')
  14.  *      - Pin Numbers are not checked for length
  15.  *
  16.  *  Characters:
  17.  *      - All ASCII keyboard characters are legal
  18.  */
  19.  
  20. int sw_L;
  21.  
  22. int net_items;   /* number of pins written for each net */
  23. int len;
  24.  
  25. /*-----------------------*/
  26.  
  27. Initialize()
  28. {
  29.     WriteString(0, "Creating Netlist...");
  30.     WriteCrLf(0);
  31.  
  32.     sw_L = SwitchIsSet("L");
  33.     SetNumberWidth(5);
  34. }
  35.  
  36. /*-----------------------*/
  37.  
  38. WriteHeader()
  39. {
  40. }
  41.  
  42. /*-----------------------*/
  43.  
  44. HandleNodeName()
  45. {
  46.     int i;
  47.  
  48.     net_items = 0;
  49.  
  50.     i = GetStandardSymbol(TypeCode);
  51.     if (i == 'L')
  52.     {
  53.         if (sw_L == 0)
  54.         {
  55.             SetNumberWidth(1);
  56.             MakeLocalSignal("-");
  57.             SetNumberWidth(5);
  58.             WriteSymbol(1, LocalSignal);
  59.         }
  60.         else
  61.         {
  62.             WriteSymbol(1, SignalNameString);
  63.         }
  64.     }
  65.     if (i == 'P')
  66.     {
  67.         WriteSymbol(1, SignalNameString);
  68.     }
  69.     if (i == 'S')
  70.     {
  71.         WriteSymbol(1, SignalNameString);
  72.     }
  73.     if (i == 'N')
  74.     {
  75.         WriteString(1, "N");
  76.         WriteSymbol(1, NetNumber);
  77.     }
  78.     if (i == 'U')
  79.     {
  80.         WriteString(1, "N");
  81.         WriteSymbol(1, NetNumber);
  82.     }
  83.     WriteCrLf(1);
  84. }
  85.  
  86. /*-----------------------*/
  87.  
  88. WriteNet()
  89. {
  90.     if (net_items != 0)
  91.     {
  92.         WriteString(1, ",");
  93.         WriteCrLf(1);
  94.     }
  95.  
  96.     WriteString(1, "         ");
  97.     WriteSymbol(1, ReferenceString);
  98.     WriteString(1, " (");
  99.     /* if the ModuleName is empty, then use the PartName */
  100.     len = SymbolLength(ModuleName);
  101.     if (len > 0)
  102.     {
  103.         WriteSymbol(1, ModuleName);
  104.     }
  105.     else
  106.     {
  107.         WriteSymbol(1, PartName);
  108.     }
  109.     WriteString(1, ")-");
  110.     WriteSymbol(1, PinNumberString);
  111.  
  112.     net_items = 1;
  113. }
  114.  
  115. /*-----------------------*/
  116.  
  117. WriteNetEnding()
  118. {
  119.     WriteCrLf(1);
  120. }
  121.  
  122. /*-----------------------*/
  123.  
  124. ProcessFieldStrings()
  125. {
  126. }
  127.  
  128. /*-----------------------*/
  129.  
  130. WriteNetListEnd()
  131. {
  132.     WriteString(0, "Done");
  133.     WriteCrLf(0);
  134. }
  135.  
  136.  
  137.