lib/tcl/xcstartup.tcl

   1 # XCircuit startup script for Tcl/Tk version
   2 # Does the work previously handled by "builtins.lps".  Commands
   3 # "loadlibrary" and "loadfontencoding" should no longer be used.
   4 # Update, version 3.3.34:  Commands "library override" and
   5 # "font override" should not be used; set XCOps(fontoverride)
   6 # and XCOps(liboverride) instead.
   7 #
   8 #  Written by Tim Edwards 12/19/00, 6/24/02 (tim@bach.ece.jhu.edu)
   9 #  The Johns Hopkins University
  10
  11 global XCOps
  12
  13 #
  14 # Look for a file "site.tcl" in the scripts directory.  If it's there,
  15 # execute it instead of this file.  "site.tcl" must NEVER be overwritten
  16 # by any installation procedure.
  17 #
  18
  19 if {![catch {source ${XCIRCUIT_SRC_DIR}/site.tcl}]} {return}
  20
  21 if {[catch {set XCOps(fontoverride)}]} {
  22
  23   loadfont times_roman.xfe
  24   loadfont times_romaniso.xfe
  25   loadfont helvetica.xfe
  26   loadfont helveticaiso.xfe
  27   loadfont courier.xfe
  28   loadfont courieriso.xfe
  29   loadfont symbol.xfe
  30
  31   # Alternate font encodings known to xcircuit
  32
  33   loadfont times_romaniso2.xfe
  34   loadfont courieriso2.xfe
  35   loadfont helveticaiso2.xfe
  36   loadfont times_romaniso5.xfe
  37   loadfont courieriso5.xfe
  38   loadfont helveticaiso5.xfe
  39   loadfont times_roman_cyrillic.xfe
  40   loadfont courier_cyrillic.xfe
  41   loadfont helvetica_cyrillic.xfe
  42 }
  43
  44 if {[catch {set XCOps(liboverride)}]} {
  45
  46 # Create library pages
  47   library make Generic
  48
  49 # First library page
  50   library 1 load generic.lps
  51   library 1 load analog.lps
  52   library 1 load avlsi.lps
  53   library 1 load digital.lps
  54   library 1 load digitaltcl.lps
  55
  56 # Second library page
  57   library make AnalogLib
  58   library 2 load analoglib3.lps
  59
  60 # Third library page
  61 # library make LeadFrame
  62 # library 3 load ic_templates.lps
  63
  64 # Fourth library page
  65 # library make 74LSXX
  66 # library 4 load quadparts.lps
  67 }