home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p078 / 3.img / NETFORMS.PLB / COMPVISN.CF < prev    next >
Encoding:
Text File  |  1991-10-14  |  2.9 KB  |  158 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 limited to 19 characters
  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;
  23.  
  24. /*-----------------------*/
  25.  
  26. Initialize()
  27. {
  28.     WriteString(0, "Creating Netlist...");
  29.     WriteCrLf(0);
  30.  
  31.     AddSymbol("SignalNameStr");
  32.     SetNumberWidth(5);
  33.  
  34.     sw_L = SwitchIsSet("L");
  35. }
  36.  
  37. /*-----------------------*/
  38.  
  39. WriteHeader()
  40. {
  41. }
  42.  
  43. /*-----------------------*/
  44.  
  45. HandleNodeName()
  46. {
  47.     int len;
  48.     int i;
  49.  
  50.     net_items = 0;
  51.     CopySymbol(SignalNameString, SignalNameStr);
  52.  
  53.     i = GetStandardSymbol(TypeCode);
  54.     if (i == 'L')
  55.     {
  56.         if (sw_L == 0)
  57.         {
  58.             SetNumberWidth(1);
  59.             MakeLocalSignal("/");
  60.             SetNumberWidth(5);
  61.             CopySymbol(LocalSignal, SignalNameStr);
  62.         }
  63.     }
  64.  
  65.     SetNumberWidth(4);
  66.     WriteSymbol(1, NetNumber);
  67.     WriteString(1, " ");
  68.     SetNumberWidth(5);
  69.  
  70.     len = SymbolLength(SignalNameStr);
  71.     if (len > 20)
  72.     {
  73.         WriteString(0, "WARNING: Name is too long '");
  74.         WriteSymbol(0, SignalNameStr);
  75.         WriteString(0, "', changed to N");
  76.         WriteSymbol(0, NetNumber);
  77.         WriteCrLf(0);
  78.  
  79.         SetSymbol(ExitType, "W");
  80.         i = 'N';
  81.     }
  82.  
  83.     if (i == 'L')
  84.     {
  85.         PadSpaces(SignalNameStr, 20);
  86.         WriteSymbol(1, SignalNameStr);
  87.     }
  88.     if (i == 'P')
  89.     {
  90.         PadSpaces(SignalNameStr, 20);
  91.         WriteSymbol(1, SignalNameStr);
  92.     }
  93.     if (i == 'S')
  94.     {
  95.         PadSpaces(SignalNameStr, 20);
  96.         WriteSymbol(1, SignalNameStr);
  97.     }
  98.     if (i == 'N')
  99.     {
  100.         WriteString(1, "N");
  101.         WriteSymbol(1, NetNumber);
  102.         WriteString(1, "              ");
  103.     }
  104.     if (i == 'U')
  105.     {
  106.         WriteString(1, "N");
  107.         WriteSymbol(1, NetNumber);
  108.         WriteString(1, "              ");
  109.     }
  110.     WriteString(1, " ");
  111. }
  112.  
  113. /*-----------------------*/
  114.  
  115. WriteNet()
  116. {
  117.     if (net_items == 4)
  118.     {
  119.         WriteCrLf(1);
  120.         WriteString(1, "                          ");
  121.  
  122.         net_items = 0;
  123.     }
  124.     else
  125.     {
  126.         if (net_items != 0) { WriteString(1, "  "); }
  127.     }
  128.  
  129.     WriteSymbol(1, ReferenceString);
  130.     WriteString(1, "-");
  131.     WriteSymbol(1, PinNumberString);
  132.  
  133.     net_items = net_items + 1;
  134. }
  135.  
  136. /*-----------------------*/
  137.  
  138. WriteNetEnding()
  139. {
  140.     WriteCrLf(1);
  141. }
  142.  
  143. /*-----------------------*/
  144.  
  145. ProcessFieldStrings()
  146. {
  147. }
  148.  
  149. /*-----------------------*/
  150.  
  151. WriteNetListEnd()
  152. {
  153.     WriteString(0, "Done");
  154.     WriteCrLf(0);
  155. }
  156.  
  157.  
  158.