libgeda/lib/system-gafrc

   1 ;                                                         -*-Scheme-*-
   2 ;;;
   3 ;;; Common init file for gaf
   4 ;;;
   5
   6 ; The following global variables are defined by libgeda:
   7 ;
   8 ; path-sep       -- system path separator
   9 ; geda-data-path -- path to gEDA system-wide data directory
  10 ; geda-rc-path   -- path to gEDA system-wide config directory
  11
  12 ;; Set some flags to aid in debugging rc files
  13 (debug-enable 'debug)
  14 (debug-enable 'backtrace)
  15 (read-enable 'positions)
  16
  17 ;; The directory containing gaf Scheme code.
  18 (define geda-scheme-path (string-append geda-data-path path-sep "scheme"))
  19 ; We need to add gaf's scheme library to the Guile load path.
  20 (set! %load-path (append (list geda-scheme-path) %load-path))
  21 ; This is used in some places for error messages/listing gnetlist
  22 ; backends
  23 (scheme-directory geda-scheme-path)
  24
  25 ; The libgeda Scheme library provides a number of useful functions for
  26 ; writing Scheme code for embedding in gaf.
  27 (load-from-path "geda.scm")
  28
  29
  30 ;; The directory containing various bitmaps (e.g. icons)
  31 (bitmap-directory (build-path geda-data-path "bitmap"))
  32
  33 ; Load the default font
  34 (let ((font-def-file (%search-load-path "geda-font")))
  35   (if font-def-file
  36       (load font-def-file)
  37       (display "Failed to load default font.\n")))
  38
  39 ;; The directory containing any extra scheme files to load
  40 (define geda-confd-path (build-path geda-data-path "gafrc.d"))
  41
  42 ;; Execute any scheme files found in the geda-confd-path directory.
  43 (load-scheme-dir geda-confd-path)
  44
  45 ; Set the name of the postscript prolog file that will be
  46 ; pasted into the postscript output after the DSC comments, but
  47 ; before the main script.
  48 (postscript-prolog (build-path geda-data-path "prolog.ps"))
  49
  50 ;
  51 ; Start of attribute promotion keywords
  52 ;
  53
  54 ; attribute-promotion string
  55 ;
  56 ; This keyword controls if attribute promotion occurs when you instanciate a
  57 ; component.  Attribute promotion basically means that any floating attribute
  58 ; (unattached) which is inside a symbol gets "promoted" or attached to the
  59 ; newly inserted component.  This only occurs when the component is
  60 ; instanciated.
  61 ;
  62 (attribute-promotion "enabled")
  63 ;(attribute-promotion "disabled")
  64
  65 ; promote-invisible string
  66 ;
  67 ; If attribute-promotion is enabled, then this controls if invisible floating
  68 ; attributes are promoted (attached to the outside of the component) if the
  69 ; text string is invisible.  There are cases where it is undesirable, so the
  70 ; default is disabled.
  71 ;
  72 ;(promote-invisible "enabled")
  73 (promote-invisible "disabled")
  74
  75 ; keep-invisible string
  76 ;
  77 ; If both attribute-promotion and promote-invisible are enabled, then this
  78 ; controls if invisible floating attributes are kept around in memory and
  79 ; NOT deleted.  Having this enabled will keeps component slotting working.
  80 ; If attribute-promotion and promote-invisible are enabled and this
  81 ; keyword is disabled, then component slotting will NOT work (and maybe
  82 ; other functions which depend on hidden attributes, since those attributes
  83 ; are deleted from memory).
  84 ;
  85 ;(keep-invisible "disabled")
  86 (keep-invisible "enabled")
  87
  88 ; always-promote-attributes
  89 ;
  90 ; Set the list of attributes that are always promoted regardless of
  91 ; their visibility.
  92 ;
  93 (always-promote-attributes "footprint device value model-name")
  94
  95 ;
  96 ; End of attribute promotion keywords
  97 ;