/spice-mode/spice-mode.el

#
Emacs Lisp | 8679 lines | 7223 code | 774 blank | 682 comment | 271 complexity | 89b5512e5c5904e034ebe8a4bff124e0 MD5 | raw file

Large files are truncated, but you can click here to view the full file

    

  1. ;;; spice-mode.el --- major mode providing a spice mode hook for fontification
    2. 

  2. ;;; $Id: spice-mode.el,v 1.100 2007/01/03 16:46:46 vdplasg Exp $
    3. 

  3. 

  4. ;; Emacs Lisp Archive Entry
    5. 

  5. ;; Author: Geert A. M. Van der Plas <geert_vanderplas@email.com> 1999-
    6. 

  6. ;;         Emmanuel Rouat <emmanuel.rouat@wanadoo.fr> 1997-
    7. 

  7. ;;         Carlin J. Vieri, MIT AI Lab <cvieri@ai.mit.edu> 1994 
    8. 

  8. ;; Keywords: ngspice, gnucap, spice, spice2g6, spice3, eldo, hspice, layla, mondriaan, fasthenry, CDL, spectre compatibility, netlist editing
    9. 

  9. ;; Filename: spice-mode.el
    10. 

  10. ;; Version: 1.2.25
    11. 

  11. ;; Maintainer: Geert A. M. Van der Plas <geert_vanderplas@email.com>
    12. 

  12. ;; Last-Updated: 01 November 2004
    13. 

  13. ;; Description: spice file editing
    14. 

  14. ;; URL: http://spice-mode.4t.com/
    15. 

  15. ;; old-URL: http://www.esat.kuleuven.ac.be/~vdplas/emacs/
    16. 

  16. ;; Compatibility: Emacs2[01], (partly tested)XEmacs21
    17. 

  17. 

  18. ;; Please send suggestions and bug reports to
    19. 

  19. ;; mailto:Geert_VanderPlas@email.com
    20. 

  20. 

  21. ;; Copyright (C) 1994, MIT Artificial Intelligence Lab
    22. 

  22. ;; Copyright (C) 1997- Emmanuel Rouat
    23. 

  23. ;; Copyright (C) 1999- Geert A. M. Van der Plas
    24. 

  24. 

  25. ;; This file is free software; you can redistribute it and/or modify
    26. 

  26. ;; it under the terms of the GNU General Public License as published by
    27. 

  27. ;; the Free Software Foundation; either version 2, or (at your option)
    28. 

  28. ;; any later version.
    29. 

  29. 

  30. ;; This file is distributed in the hope that it will be useful,
    31. 

  31. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
    32. 

  32. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    33. 

  33. ;; GNU General Public License for more details.
    34. 

  34. 

  35. ;; You should have received a copy of the GNU General Public License
    36. 

  36. ;; along with GNU Emacs; see the file COPYING.  If not, write to
    37. 

  37. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
    38. 

  38. 

  39. ;; INSTALL:
    40. 

  40. ;; ========
    41. 

  41. 

  42. ;; byte compile spice-mode.el to spice-mode.elc (see `byte-compile-file')
    43. 

  43. ;; put these two files in an arbitrary, but accesible directory
    44. 

  44. ;; for example: $HOME/emacs, /usr/lib/emacs/site-lisp/ or 
    45. 

  45. ;; /usr/local/lib/emacs/site-lisp/
    46. 

    47. 

  47. ;; If you chose a non-standard place to put the files add the following
    48. 

  48. ;; line to your Emacs start-up file (`.emacs') or custom `site-start.el'
    49. 

  49. ;; file (replace <directory-name> by the directory where you placed 
    50. 

  50. ;; spice-mode.el and spice-mode.elc):
    51. 

  51. ;; (setq load-path (cons (expand-file-name "<directory-name>") load-path))
    52. 

  52. 

  53. ;; To use spice-mode, add either the following to your `.emacs' file. This
    54. 

  54. ;; assumes that you will use the .sp, .cir, .ckt, .mod, ... extensions for 
    55. 

  55. ;; your spice source decks and output files:
    56. 

  56. ;; (autoload 'spice-mode "spice-mode" "Spice/Layla Editing Mode" t)
    57. 

  57. ;; (setq auto-mode-alist (append (list (cons "\\.sp$" 'spice-mode)
    58. 

  58. ;; 				       (cons "\\.cir$" 'spice-mode)
    59. 

  59. ;; 				       (cons "\\.ckt$" 'spice-mode)
    60. 

  60. ;;                     (cons "\\.spc$" 'spice-mode) ; xcircuit output
    61. 

  61. ;;                     (cons "\\.spice$" 'spice-mode) ; magic output
    62. 

  62. ;; 				       (cons "\\.mod$" 'spice-mode)
    63. 

  63. ;; 				       (cons "\\.cdl$" 'spice-mode)
    64. 

  64. ;; 				       (cons "\\.chi$" 'spice-mode) ;eldo outpt
    65. 

  65. ;; 				       (cons "\\.inp$" 'spice-mode))
    66. 

  66. ;; 				 auto-mode-alist))
    67. 

    68. 

  68. ;; Other way to load spice mode (by Andrew Scott):
    69. 

  69. ;; ;;; Testing for spice-mode (Another spice mode, also works on Spice,
    70. 

  70. ;; ;;; Eldo, Layla; this one works on GNU Emacs-20.6 issues).
    71. 

  71. ;; (autoload 'spice-mode "spice-mode" "Spice/Layla Editing Mode" t)
    72. 

  72. ;; (add-to-list 'auto-mode-alist '("\\.cir$"          . spice-mode))
    73. 

  73. ;; (add-to-list 'auto-mode-alist '("\\.ckt$"          . spice-mode))
    74. 

  74. ;; (add-to-list 'auto-mode-alist '("\\.inp$"          . spice-mode))
    75. 

  75. ;; (add-to-list 'auto-mode-alist '("\\.spout$"        . spice-mode));hspice out
    76. 

  76. ;; (add-to-list 'auto-mode-alist '("\\.pdir$"         . spice-mode))
    77. 

  77. ;; ;;; Intel formats
    78. 

  78. ;; (add-to-list 'auto-mode-alist '("\\.[sS][pP]$"     . spice-mode))
    79. 

  79. ;; (add-to-list 'auto-mode-alist '("\\.[sm]?t0$"      . spice-mode))
    80. 

  80. ;; (add-to-list 'auto-mode-alist '("\\.[h]?spice$"    . spice-mode))
    81. 

    82. 

  82. ;; CUSTOMIZATION:
    83. 

  83. ;; ==============
    84. 

    85. 

  85. ;; use customization to modify the behaviour of spice-mode; add 
    86. 

  86. ;; custom-set-variables to your `.emacs' file, for example:
    87. 

  87. ;; (custom-set-variables 
    88. 

  88. ;; ; '(spice-initialize-file-function (quote geert-spice-file-header)) ;; use geert-spice-file-header function (not included in this file !)
    89. 

  89. ;;  '(spice-initialize-empty-file t)         ;; initialize empty/new spice file
    90. 

  90. ;; ; '(spice-standard '(spice2g6 (hspice eldo eldorf eldovloga layla))) ;; all 4 modes
    91. 

  91. ;;  '(spice-standard (quote (spice2g6 (hspice eldo))))    ;; hspice and eldo
    92. 

  92. ;;  '(spice-standard (quote (spice2g6 ())))               ;; spice2g6/3 only
    93. 

  93. ;;  '(spice-simulator "Spice3")                           ;; default simulator
    94. 

  94. ;;  '(spice-waveform-viewer "ngnutmeg")                   ;; default waveform 
    95. 

  95. ;;  '(spice-highlight-keywords nil)                       ;; less highlighting
    96. 

  96. ;;  '(spice-section-alist                                 ;; add own sections
    97. 

  97. ;;    ;; this is ugly, I know ;)
    98. 

  98. ;;    (append (nth 1 (nth 0 (get 'spice-section-alist 'standard-value)))
    99. 

  99. ;; 	      (list 
    100. 

  100. ;; 	       (list "My Header"    "MY HEADER"    nil)
    101. 

  101. ;; 	       )))
    102. 

  102. ;;  '(spice-use-func-menu t)                          ;; use func-menu (XEmacs)
    103. 

  103. ;;  '(spice-show-describe-mode nil)         ;; don't describe mode at startup
    104. 

  104. ;;  )
    105. 

  105. 

  106. ;; This can also be achieved interactively through customizations !
    107. 

  107. 

  108. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    109. 

  109. ;;; Commentary:
    110. 

  110. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    111. 

  111. 

  112. ;; The original spice-mode.el created by C. Vieri has been modified
    113. 

  113. ;; extensively. These changes have been heavily influenced by the eldo-mode.el
    114. 

  114. ;; of Emmanuel Rouat (the tempo-templates for one) and the vhdl-mode.el of
    115. 

  115. ;; Reto Zimmermann and Rodney J. Whitby (the font-locking, the
    116. 

  116. ;; customization, the menus, ...) Help in understanding 'advanced' lisp 
    117. 

  117. ;; was provided by G. Debyser <geert.debyser@advalvas.be>, our (common) lisp
    118. 

  118. ;; expert. Since version 0.97 a lot of input/ideas have been provided by
    119. 

  119. ;; Emmanuel Rouat. Just take a look and search for eldo-mode ;)
    120. 

  120. 

  121. ;; This package provides an Emacs major mode for editing SPICE decks.
    122. 

  122. 

  123. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    124. 

  124. ;;; TODO:
    125. 

  125. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    126. 

  126. 

  127. ;;   - customization group spice- needs to be improved
    128. 

  128. ;;     activate customizations needs to be looked at (potentially removed)
    129. 

  129. ;;   - fix problem imenu sometimes truncating filenames of include files
    130. 

  130. ;;     by replacing the functionality with own function
    131. 

  131. ;;   - improve Y instance handling. use builtin macromodels, and own development;;     models
    132. 

  132. ;;   - ...
    133. 

  133. 

  134. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    135. 

  135. ;;; BUGS:
    136. 

  136. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    137. 

  137. 

  138. ;;  - searching for .subckt could be buggy because of user's file structure
    139. 

  139. ;;  - xinstance highlighting is buggy, and probably always will ?
    140. 

  140. ;;  - font-lock expressions are incredibly complicated, and multiple spice
    141. 

  141. ;;    formats are not handled correctly at the same time...
    142. 

  142. 

  143. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    144. 

  144. 

  145. ;; If you have any questions about this mode, feel free to contact me
    146. 

  146. ;; at the following address:  geert_vanderplas@email.com. If I find the
    147. 

  147. ;; time, I can take a look at the problem
    148. 

  148. 

  149. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    150. 

  150. 

  151. ;; free variables
    152. 

  152. 

  153. (defvar fume-function-name-regexp-alist)
    154. 

  154. (defvar fume-function-name-regexp)
    155. 

  155. (defvar compilation-file-regexp-alist)
    156. 

  156. (defvar fume-find-function-name-method-alist)
    157. 

  157. (defvar fume-menubar-menu-name)
    158. 

  158. (defvar fume-buffer-menu)
    159. 

  159. (defvar fume-buffer-name)
    160. 

  160. (defvar fume-index-method)
    161. 

  161. (defvar msb-menu-cond)
    162. 

  162. 

  163. (defconst spice-version "1.2.26 (12 Dec 2009)"
    164. 

  164.   "Current version of spice mode (spice2g6/spice3/hspice/eldo(rf&verilog-a)/fasthenry/layla/mondriaan/draccdl/spectre).")
    165. 

  165. 

  166. (defconst spice-developer 
    167. 

  167.   "Geert Van der Plas & Emmanuel Rouat (<geert_vanderplas@email.com>, <emmanuel.rouat@wanadoo.fr>)"
    168. 

  168.   "Current developers/maintainers of spice-mode.")
    169. 

  169. 

  170. (defvar spice-running-xemacs (string-match "XEmacs" emacs-version)
    171. 

  171.   "A variable that tells us whether we're in Xemacs or not")
    172. 

  172. 

  173. (defvar spice-tempo-tags nil
    174. 

  174.   "List of templates used in spice mode.")
    175. 

  175. 

  176. ;; help function
    177. 

  177. (defun spice-custom-set (variable value &rest functions)
    178. 

  178.   "Set variables as in `custom-set-default' and call FUNCTIONS (if
    179. 

  179. bound) afterwards."
    180. 

  180.   (if (fboundp 'custom-set-default)
    181. 

  181.       (custom-set-default variable value)
    182. 

  182.     (set-default variable value))
    183. 

  183.   (while functions
    184. 

  184.     (when (fboundp (car functions)) (funcall (car functions)))
    185. 

  185.     (setq functions (cdr functions))))
    186. 

  186. 

  187. 

  188. (defgroup spice nil
    189. 

  189.   "Customizations for Spice mode."
    190. 

  190.   :prefix "spice-"
    191. 

  191.   :link  '(url-link "http://spice-mode.4t.com/")
    192. 

  192.   :group 'languages
    193. 

  193.   )
    194. 

  194. 

  195. 

  196. ;;;###autoload
    197. 

  197. (defcustom spice-mode-hook nil
    198. 

  198.   "*List of hook functions run by `spice-mode' (see `run-hooks')."
    199. 

  199.   :type 'hook
    200. 

  200.   :group 'spice)
    201. 

    202. 

  202. 

  203. ;;;###autoload
    204. 

  204. (defcustom spice-standard '(spice2g6 (hspice eldo eldorf eldovloga fasthenry)) ; "layla" has been removed
    205. 

  205.   "*Spice standards used.
    206. 

  206. Basic standard:
    207. 

  207.   Spice2g6    : Original Berkeley Spice (leave this always on!)
    208. 

  208. Additional standards:
    209. 

  209.   Gnucap      : The Gnu Circuit Analysis Package
    210. 

  210.   Hspice (TM) : Commercial Spice, formerly Meta Software, now owned by Synopsys
    211. 

  211.   Eldo (TM)   : Commercial Spice, formerly Anacad, now owned by Mentor Graphics
    212. 

  212.   EldoRf (TM) : RF Steady State analyses of Eldo (also turn on Eldo!)
    213. 

  213.   EldoVlogA   : Verilog-A extensions to Eldo netlist language (also turn on Eldo!)
    214. 

  214.   FastHenry   : Multipole-accelerated inductance analysis program from MIT
    215. 

  215.   Layla       : KULeuven LAYLA (layout synthesis) extensions to Spice format
    216. 

  216.   Mondriaan   : KULeuven MONDRIAAN (layout synthesis) extensions (also turn on Layla!)
    217. 

  217.   DracCDL (TM): Dracula CDL extensions (Cadence LOGLVS netlists)
    218. 

  218.   Spectre (TM): Spice compatibility of Spectre language (simulator language=spice decks)
    219. 

  219. "
    220. 

  220.   :type '(list (choice :tag "Basic standard"
    221. 

  221. 		       (const :tag "Spice2g6" spice2g6))
    222. 

  222. 	       (set :tag "Additional standards" :indent 2
    223. 

  223. 		    (const :tag "Hspice" hspice)
    224. 

  224. 		    (const :tag "Eldo"   eldo)
    225. 

  225. 		    (const :tag "Eldo RF" eldorf)
    226. 

  226. 		    (const :tag "Eldo Verilog-A" eldovloga)
    227. 

  227. 		    (const :tag "FastHenry" fasthenry)
    228. 

  228. 		    (const :tag "Layla"  layla)
    229. 

  229. 		    (const :tag "Mondriaan"  mondriaan)
    230. 

  230. 		    (const :tag "DracCDL"  draccdl)
    231. 

  231. 		    (const :tag "Spectre Spice Compatibility"  spectre)))
    232. 

  232.   :set (lambda (variable value)
    233. 

  233.          (spice-custom-set variable value
    234. 

  234. 			   'spice-check-spice-standard
    235. 

  235. 			   'spice-mode-syntax-table-init
    236. 

  236. 			   'spice-keywords-init
    237. 

  237. 			   'spice-font-lock-init
    238. 

  238. 			   'spice-imenu-init
    239. 

  239. 			   'spice-update-existing-buffers))
    240. 

  240.   :group 'spice)
    241. 

    242. 

  242. 

  243. ;;;###autoload
    244. 

  244. (defcustom spice-imenu-add-to-menubar t
    245. 

  245.   "*Spice mode adds imenu (Index) item to menubar"
    246. 

  246.   :group 'spice
    247. 

  247.   :set (lambda (variable value)
    248. 

  248.          (spice-custom-set variable value
    249. 

  249. 			   'spice-update-existing-buffers))
    250. 

  250.   :type 'boolean)
    251. 

    252. 

  252. ;;;###autoload
    253. 

  253. (defcustom spice-use-func-menu nil
    254. 

  254.   "*Spice func menu setting (untested), comparable to imenu"
    255. 

  255.   :group 'spice
    256. 

  256.   :set (lambda (variable value)
    257. 

  257.          (spice-custom-set variable value
    258. 

  258. 			   'spice-update-existing-buffers))
    259. 

  259.   :type  'boolean)
    260. 

    261. 

  261. ;;;###autoload
    262. 

  262. (defcustom spice-show-describe-mode nil ; was t
    263. 

  263.   "*Spice mode runs `describe-mode' once at start of spice-mode"
    264. 

  264.   :group 'spice
    265. 

  265.   :type 'boolean)
    266. 

    267. 

  267. ;;;###autoload
    268. 

  268. (defcustom spice-echo-intro t
    269. 

  269.   "*Spice mode echos introductory message on entry to spice-mode"
    270. 

  270.   :group 'spice
    271. 

  271.   :type 'boolean)
    272. 

    273. 

  273. (defgroup spice-initialize-file nil
    274. 

  274.   "Customizations for initialization of empty/new spice files."
    275. 

  275.   :group 'spice)
    276. 

    277. 

  277. ;;;###autoload
    278. 

  278. (defcustom spice-initialize-empty-file nil
    279. 

  279.   "*Spice initialize empty/new file setting"
    280. 

  280.   :group 'spice-initialize-file
    281. 

  281.   :type  'boolean)
    282. 

    283. 

  283. ;;;###autoload
    284. 

  284. (defcustom spice-initialize-template-file "~/.spice-default"
    285. 

  285.   "*File containing the default header that is inserted when opening
    286. 

  286. an empty file (ie. a new file), see also `spice-initialize-empty-file'"
    287. 

  287.   :group 'spice-initialize-file
    288. 

  288.   :type  'file)
    289. 

    290. 

  290. ;;;###autoload
    291. 

  291. (defcustom spice-default-header nil
    292. 

  292.   "*Default header for new Spice netlists, see also `spice-initialize-empty-file'"
    293. 

  293.   :group 'spice-initialize-file
    294. 

  294.   :type  'string)
    295. 

    296. 

  296. ;;;###autoload
    297. 

  297. (defcustom spice-initialize-file-function 'spice-initialize-empty-file
    298. 

  298.   "*Optional initialize function for empty/new files, see also
    299. 

  299. `spice-initialize-empty-file'. If a different function is specified it
    300. 

  300. should insert a default header/template in the current buffer. This
    301. 

  301. function should check which submode is in use with `spice-standard-p'
    302. 

  302. and adapt its output accordingly. It may also use the `spice-default-header'
    303. 

  303. variable and insert its contents into the buffer."
    304. 

  304.   :group 'spice-initialize-file
    305. 

  305.   :type  'function)
    306. 

    307. 

  307. (defgroup spice-simulate nil
    308. 

  308.   "Customizations for simulation."
    309. 

  309.   :group 'spice)
    310. 

    311. 

    312. 

  312. (defcustom spice-simulator-alist
    313. 

  313.   '(
    314. 

  314.     ;; Spice3; spice3 -b <file.cir> 
    315. 

  315.     ;; 
    316. 

  316.     ("Gnucap" "gnucap -b" ""
    317. 

  317.      ("\\s-*Error[\t ]+on[ \t]+line[\t ]+\\([0-9]+\\) +:.+" 
    318. 

  318.       0 1 nil (buffer-file-name)) 
    319. 

  319.      ("Circuit: \\(.*\\)$" 1)) ; spice3 hack, is not the filename, but that's no prob
    320. 

  320.     ;; Hspice; hspice <file.cir> 
    321. 

  321.     ;; **error**:  only 1 connection at node    0:2
    322. 

  322.     ("Hspice" "hspice" ""
    323. 

  323.      ("\\s-*\\(..?error..?[: ]\\).+" 0 spice-linenum 1 (buffer-file-name)) 
    324. 

  324.      ("[* ]* [iI]nput [fF]ile: +\\([^ \t]+\\).*$" 1))
    325. 

  325.     ;; Eldo; eldo -i <file.cir> 
    326. 

  326.     ;; ERROR  503: MODEL "NMOS": Undeclared model reference.
    327. 

  327.     ("Eldo" "eldo -i" ""
    328. 

  328.      ("\\s-*\\(E[rR][rR][oO][rR] +[0-9]+:\\).*" 
    329. 

  329.       0 spice-linenum 1 (buffer-file-name)) 
    330. 

  330.      ("Running \\(eldo\\).*$" 1)) ; eldo hack, true filename can not be found
    331. 

  331.     ;; Spectre; spectre <file.cir> 
    332. 

  332.     ;;     "viblok2.cir" 7: Unknown dot word `.param'.
    333. 

  333.     ("Spectre" "spectre" ""
    334. 

  334.      ("\\s-*\"\\([^ \t\n]+\\)\" +\\([0-9]+\\):.*" 
    335. 

  335.       1 2) 
    336. 

  336.      ("" 0)) ; filename is in regexp of error
    337. 

  337.     ;;; Add your local simulators here:
    338. 

  338.     ;; 
    339. 

  339.     )
    340. 

  340.   "*List of available Spice simulators and their properties.
    341. 

  341. Each list entry specifies the following items for a simulator:
    342. 

  342. Simulator:
    343. 

  343.   Simulator Name   : name used in variable `spice-simulator' to choose 
    344. 

  344.                      simulator
    345. 

  345.   Simulate Command : command including options used for simulation program
    346. 

  346.   Extra switches   : extra switches for simulator, after filename
    347. 

  347. Error Message:
    348. 

  348.   Regexp           : regular expression to match error messages
    349. 

  349.   File Subexp Index: index of subexpression that matches the file name
    350. 

  350.   Line Subexp Index: index of subexpression that matches the line number.
    351. 

  351.                      use function `spice-linenum' when the line number
    352. 

  352.                      is not available
    353. 

  353.   Col Subexp Index : index of subexpression that matches the column number
    354. 

  354.                      if not available but `spice-linenum' has been 
    355. 

  355.                      supplied in the previous field, use 1
    356. 

  356. File Message:
    357. 

  357.   Regexp           : regular expression to match a file name message
    358. 

  358.   File Subexp Index: index of subexpression that matches the file name
    359. 

    360. 

  360. See also variable `spice-simulator-switches' to add options to the
    361. 

  361. simulate command.
    362. 

  362. 

  363. Most simulators do not include the file name in the error message, but print
    364. 

  364. out a file name message in advance.  In this case, set \"File Subexp Index\"
    365. 

  365. to 0 and fill out the \"File Message\" entries.
    366. 

  366. "
    367. 

  367.   :type '(repeat (list :tag "Simulator" :indent 2
    368. 

  368. 		       (string :tag "Simulator Name    ")
    369. 

  369. 		       (string :tag "Simulate Command  ")
    370. 

  370. 		       ;(string :tag "From Directory    " "./")
    371. 

  371. 		       (string :tag "Extra Switches    ")
    372. 

  372. 		       (list :tag "Error Message" :indent 4
    373. 

  373. 			     (regexp  :tag "Regexp           ")
    374. 

  374. 			     (integer :tag "File Subexp Index")
    375. 

  375. 			     (integer :tag "Line Subexp Index"))
    376. 

  376. 		       (list :tag "File Message" :indent 4
    377. 

  377. 			     (regexp  :tag "Regexp           ")
    378. 

  378. 			     (integer :tag "File Subexp Index"))))
    379. 

  379.   :set (lambda (variable value)
    380. 

  380.          (spice-custom-set variable value
    381. 

  381. 			   'spice-menu-init
    382. 

  382. 			   'spice-compile-variables-init
    383. 

  383. 			   'spice-update-existing-buffers))
    384. 

  384.   :group 'spice-simulate)
    385. 

    386. 

  386. 

  387. ;;;###autoload
    388. 

  388. (defcustom spice-simulator nil ; example: "Hspice"
    389. 

  389.   "*Spice command, used when compiling buffer with `compile-mode',
    390. 

  390. see also `spice-simulator-switches'."
    391. 

  391.   :group 'spice-simulate
    392. 

  392.   :type  'string)
    393. 

    394. 

    395. 

  395. ;;;###autoload
    396. 

  396. (defcustom spice-simulator-switches "" ; example "-noconf"
    397. 

  397.   "*Spice command switches, used when compiling buffer with `compile-mode',
    398. 

  398. see also `spice-simulator'."
    399. 

  399.   :group 'spice-simulate
    400. 

  400.   :type  'string)
    401. 

    402. 

    403. 

  403. (defcustom spice-waveform-viewer-alist
    404. 

  404.   '(
    405. 

  405.     ;; Nutmeg; nutmeg <waveformdata.dat> 
    406. 

  406.     ;; 
    407. 

  407.     ("Gwave"   "gwave"  "" spice-run-silent 
    408. 

  408.      (".raw" ".braw" ".ac0" ".tr0" ".sw0" ".W" ".N" ".acs")) ; gwave viewer
    409. 

  409.     ("ngnutmeg"  "ngnutmeg" "" spice-run-interactive (".dat" ".ac0" ".tr0")) ; spice3 nutmeg viewer
    410. 

  410.     ("Xelga"   "xelga"  "" spice-run-silent ".cou") ; xelga eldo viewer
    411. 

  411.     ("Awaves"  "awaves_emacs" "" spice-run-silent (".ac0" ".tr0")) ; awaves hspice viewer, this doesn't work yet and will it ever ? Explanation: awaves is a script that starts an executable/binary in the background. This means the shell starting awaves ends immediately after the forking of the executable; after which all backgrounded programs get killed by emacs since their parent's parent shell (/bin/sh) ends. awaves shouldn't return immediately and then this will work; that's why I called the program awaves_emacs...
    412. 

    413. 

  413. ;;     ("Awaves2" "echo_awaves"  "" spice-run-silent nil) ; awaves hspice viewer
    414. 

  414.     ;;; Add your local waveform viewers here:
    415. 

  415.     ;; 
    416. 

  416.     )
    417. 

  417.   "*List of available Waveform viewers and their properties.
    418. 

  418. Each list entry specifies the following items for a waveform viewer:
    419. 

  419. Waveform Viewer:
    420. 

  420.   Wave Viewer Name : name used in variable `spice-waveform-viewer' to choose 
    421. 

  421.                      a waveform viewer
    422. 

  422.   Wave Viewer Command : command including options used for waveform viewer
    423. 

  423.   Extra switches   : extra switches for waveform viewer, after filename
    424. 

  424. 

  425. See also variable `spice-waveform-viewer-switches' to add options to the 
    426. 

  426. waveform viewer command.
    427. 

  427. "
    428. 

  428.   :type '(repeat (list :tag "Waveform Viewer" :indent 2
    429. 

  429. 		       (string :tag "Waveform Viewer Name     ")
    430. 

  430. 		       (string :tag "Waveform Viewing Command ")
    431. 

  431. 		       (string :tag "Extra Switches           ")
    432. 

  432. 		       (choice :tag "How"
    433. 

  433. 			       :value spice-run-silent
    434. 

  434. 			       (function-item spice-run-silent)
    435. 

  435. 			       (function-item spice-run-interactive)
    436. 

  436. 			       (function :tag "Other"))
    437. 

  437. 		       (choice (string :tag "Filename Suffix          ")
    438. 

  438. 			       (function :tag "Function Deriving Filename")
    439. 

  439. 			       (repeat (list :tag "List of Filename Suffixes")))))
    440. 

  440.   :set (lambda (variable value)
    441. 

  441.          (spice-custom-set variable value
    442. 

  442. 			   'spice-menu-init
    443. 

  443. 			   'spice-update-existing-buffers))
    444. 

  444.   :group 'spice-simulate)
    445. 

    446. 

    447. 

  447. ;;;###autoload
    448. 

  448. (defcustom spice-waveform-viewer nil ; example: "ngnutmeg"
    449. 

  449.   "*Spice command, used when starting waveform viewer,
    450. 

  450. see also `spice-waveform-viewer-switches'."
    451. 

  451.   :group 'spice-simulate
    452. 

  452.   :type  'string)
    453. 

    454. 

  454. 

  455. ;;;###autoload
    456. 

  456. (defcustom spice-waveform-viewer-switches "" ; example "-b"
    457. 

  457.   "*Spice waveform viewer command switches,
    458. 

  458. see also `spice-waveform-viewer'."
    459. 

  459.   :group 'spice-simulate
    460. 

  460.   :type  'string)
    461. 

    462. 

    463. 

  463. (defgroup spice-commands nil
    464. 

  464.   "Customizations for commands."
    465. 

  465.   :group 'spice)
    466. 

    467. 

  467. ;;;###autoload
    468. 

  468. (defcustom spice-shell
    469. 

  469.   (if (memq system-type '(ms-dos emx windows-nt))
    470. 

  470.       shell-file-name
    471. 

  471.     "/bin/sh")
    472. 

  472.   "*Name of shell used to parse spice commands."
    473. 

  473.   :group 'spice-commands
    474. 

  474.   :type 'file)
    475. 

    476. 

  476. ;;;###autoload
    477. 

  477. (defcustom spice-shell-command-option
    478. 

  478.   (cond ((memq system-type '(ms-dos emx windows-nt) )
    479. 

  479. 	 (cond ((boundp 'shell-command-option)
    480. 

  480. 		shell-command-option)
    481. 

  481. 	       ((boundp 'shell-command-switch)
    482. 

  482. 		shell-command-switch)
    483. 

  483. 	       (t 
    484. 

  484. 		"/c")))
    485. 

  485. 	(t				;Unix & EMX (Emacs 19 port to OS/2)
    486. 

  486. 	 "-c"))
    487. 

  487.   "*Shell argument indicating that next argument is the command."
    488. 

  488.   :group 'spice-commands
    489. 

  489.   :type 'string)
    490. 

    491. 

    492. 

  492. (defgroup spice-hide nil
    493. 

  493.   "Customizations for hiding of comments."
    494. 

  494.   :group 'spice)
    495. 

    496. 

  496. ;;;###autoload
    497. 

  497. (custom-declare-variable 'spice-hide-line-prefix 
    498. 

  498. 			 '(concat 
    499. 

  499. 			   (regexp-quote 
    500. 

  500. 			    (concat comment-start 
    501. 

  501. 				    (if (boundp 'comment-padding)
    502. 

  502. 					(if (integerp comment-padding)
    503. 

  503. 					    (make-string comment-padding ? )
    504. 

  504. 					  comment-padding)
    505. 

  505. 				      " ")))
    506. 

  506. 				   "[a-z\\*!$0-9+\\.]")
    507. 

  507.   "*Regexp string describing lines that are commented out and will be
    508. 

  508. hidden. The regexp is matched to the beginning of a line, the ^ is
    509. 

  509. added automatically. The initialization of this variable is handled
    510. 

  510. in `spice-hide-init', which is after the setting of `comment-start'
    511. 

  511. and `comment-padding' variables."
    512. 

  512.   :initialize (lambda (variable value)
    513. 

  513. 		(message "Deferring initialization of %s with %s to spice-hide-init" variable value)) ; avoid init now, comment-start and padding aren't set yet.
    514. 

  514.   :group 'spice-hide
    515. 

  515.   :type 'string)
    516. 

    517. 

  517. ;;;###autoload
    518. 

  518. (defcustom spice-auto-hide-comments nil
    519. 

  519.   "*Boolean indicating automatic hiding of all commented regions at load time."
    520. 

  520.   :group 'spice-hide
    521. 

  521.   :type 'boolean)
    522. 

    523. 

    524. 

  524. (defgroup spice-section nil
    525. 

  525.   "Customizations for sections."
    526. 

  526.   :group 'spice)
    527. 

    528. 

  528. ;; sections (entirely different implementation but sections idea has
    529. 

  529. ;; been taken from eldo-mode.el)
    530. 

  530. ;;;###autoload
    531. 

  531. (defcustom spice-section-alist
    532. 

  532.   '(
    533. 

  533.     ;; Libraries
    534. 

  534.     ("Libraries"     "LIBRARIES"              nil) ; 
    535. 

  535.     ;; Netlist
    536. 

  536.     ("Netlist"       "NETLIST"                nil) ;   
    537. 

  537.     ;; Main Circuit
    538. 

  538.     ("Main Circuit"  "MAIN CIRCUIT"           nil) ;   
    539. 

  539.     ;; Options	     
    540. 

  540.     ("Options"       "SIMULATION OPTIONS"     nil) ;
    541. 

  541.     ;; Supplies	     
    542. 

  542.     ("Supplies"      "SUPPLIES/REFERENCES"    nil) ;
    543. 

  543.     ;; Input Signals
    544. 

  544.     ("Input Signals" "INPUT SIGNALS"          nil) ;
    545. 

  545.     ;; DC Analysis
    546. 

  546.     ("DC Analysis"   "DC ANALYSIS"            nil) ;
    547. 

  547.     ;; AC Analysis
    548. 

  548.     ("AC Analysis"   "AC ANALYSIS"            nil) ;
    549. 

  549.     ;; Transient Analysis
    550. 

  550.     ("Transient Analysis" "TRANSIENT ANALYSIS" nil) ;
    551. 

  551.     ;;; Add your site-local spice sections here:
    552. 

  552.     ;; 
    553. 

  553.     )
    554. 

  554.   "*List of valid sections in a Spice file and their options.
    555. 

  555. Each list entry specifies the following items for a section:
    556. 

  556. Section:
    557. 

  557.   Section Name     : name used in to select/create find section, make this 
    558. 

  558.                      name short and descriptive.
    559. 

  559.   Section String   : string used in file to start section (usually all 
    560. 

  560.                      uppercase variant of name). 
    561. 

  561.   Extra switches   : extra switches for a section, unspecified for now."
    562. 

  562.   :type '(repeat (list :tag "Section" :indent 2
    563. 

  563. 		       (string :tag "Section Name        ")
    564. 

  564. 		       (string :tag "Section String      ")
    565. 

  565. 		       (sexp   :tag "Extra Switches (nil)")))
    566. 

  566.   :set (lambda (variable value)
    567. 

  567.          (spice-custom-set variable value
    568. 

  568. 			   'spice-keywords-init
    569. 

  569. 			   'spice-font-lock-init
    570. 

  570. 			   'spice-menu-init
    571. 

  571. 			   'spice-imenu-init
    572. 

  572. 			   'spice-update-existing-buffers))
    573. 

  573.   :group 'spice-section)
    574. 

    575. 

    576. 

  576. (defgroup spice-faces nil
    577. 

  577.   "Customizations for highlighting."
    578. 

  578.   :group 'spice)
    579. 

    580. 

  580. ;;;###autoload
    581. 

  581. (defcustom spice-highlight-keywords t
    582. 

  582.   "*Non-nil means highlight SPICE keywords and other standardized words.
    583. 

  583. The following faces are used:
    584. 

  584.   `spice-title-face'		: title (first line in a spice file)
    585. 

  585.   `spice-doc-face'		: doc strings
    586. 

  586.   `spice-analysis-face'		: analyses
    587. 

  587.   `spice-instance-name-face'	: instance/element names
    588. 

  588.   `spice-model-name-face'	: subckt model names
    589. 

  589.   `spice-layla-function-name-face': layla function names
    590. 

  590.   `spice-include-file-face'	: include files and libraries
    591. 

  591.   `font-lock-keyword-face'	: keywords
    592. 

  592.   `font-lock-warning-face'	: warnings
    593. 

  593.   `font-lock-comment-face'	: comment
    594. 

  594.   `font-lock-function-name-face': subcircuit references / names of objects
    595. 

  595.   `font-lock-type-face'		: types
    596. 

  596.   `font-lock-string-face'	: strings & include files
    597. 

  597.   `font-lock-constant-face'	: simulator's options
    598. 

  598.   `font-lock-variable-name-face': names of .param's & variables
    599. 

  599. NOTE: Activate the new setting in a spice buffer by re-fontifying it (menu
    600. 

  600.       entry \"Fontify Buffer\").  XEmacs: turn off and on font locking."
    601. 

  601.   :type 'boolean
    602. 

  602.   :group 'spice-faces)
    603. 

    604. 

  604. ;; We try to use usual/standard font-lock faces, plus a few specific ones:
    605. 

  605. (custom-add-to-group
    606. 

  606.  'spice-faces 'font-lock-comment-face 'custom-face)
    607. 

  607. (custom-add-to-group
    608. 

  608.  'spice-faces 'font-lock-keyword-face 'custom-face)
    609. 

  609. (custom-add-to-group
    610. 

  610.  'spice-faces 'font-lock-type-face 'custom-face)
    611. 

  611. (custom-add-to-group
    612. 

  612.  'spice-faces 'font-lock-function-name-face 'custom-face)
    613. 

  613. (custom-add-to-group
    614. 

  614.  'spice-faces 'font-lock-variable-name-face 'custom-face)
    615. 

  615. (custom-add-to-group
    616. 

  616.  'spice-faces 'font-lock-warning-face 'custom-face)
    617. 

  617. (custom-add-to-group
    618. 

  618.  'spice-faces 'font-lock-string-face 'custom-face)
    619. 

    620. 

  620. 

  621. (defgroup spice-output nil
    622. 

  622.   "Customizations for spice output file handling."
    623. 

  623.   :group 'spice)
    624. 

    625. 

  625. ;;;###autoload
    626. 

  626. (defcustom spice-output-filename-alist
    627. 

  627.   '(
    628. 

  628.     ;; Libraries
    629. 

  629.     (eldo         (concat (file-name-sans-extension (buffer-file-name)) ".chi")) ; 
    630. 

  630.     (hspice       (concat (file-name-sans-extension (buffer-file-name)) ".lis")) ; 
    631. 

  631.     (hspice       (concat (file-name-sans-extension (buffer-file-name)) ".spout")) ; 
    632. 

  632.     (hspice       (concat (file-name-sans-extension (buffer-file-name)) ".hspout")) ; 
    633. 

  633.     (spice2g6     (concat (file-name-sans-extension (buffer-file-name)) ".out")) ; 
    634. 

  634.     )
    635. 

  635.   "*List of valid output names depending on selected spice standard:
    636. 

  636.   Spice Standard   : one of spice2g6, hspice, eldo or layla
    637. 

  637.   Expression       : expression calculating the output filename
    638. 

  638. "
    639. 

  639.   :type '(repeat (list :tag "Output Filenames" :indent 2
    640. 

  640. 		       (symbol :tag "Spice Standard      ")
    641. 

  641. 		       (sexp   :tag "Expression          ")))
    642. 

  642.   :group 'spice-output)
    643. 

    644. 

  644. 

  645. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    646. 

  646. ;; buffer local vars for spice-mode
    647. 

  647. 

  648. ;;(defvar spice-standard-local nil
    649. 

  649. ;;  "buffer local version of spice-standard.")
    650. 

  650. 

  651. (defvar spice-output-local nil
    652. 

  652.   "buffer local version of spice-output.")
    653. 

  653. 

  654. (defun spice-standard-p (standard)
    655. 

  655.   "Check if STANDARD is specified as used standard on local variable."
    656. 

  656.   (or (eq standard (car spice-standard))
    657. 

  657.       (memq standard (cadr spice-standard))))
    658. 

  658. 

  659. 

  660. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    661. 

  661. ;; regexps for spice mode
    662. 

  662. 

  663. (defconst spice-continuation-prefix "+"
    664. 

  664.   "Continuation prefix for normal spice line")
    665. 

  665. 

  666. (defconst spice-line-break "\\(\n\\s-*\\+\\s-*\\)*"
    667. 

  667.   "Regexp that matches a (possible) line break (\n+)")
    668. 

  668. 

  669. (defconst spice-model-name "\\([a-z][^ \t\n=]*\\)" ; "\\([a-z]\\sw*[^ \t\n=]*\\)"
    670. 

  670.   "Regexp that describes a syntactically correct model or subckt name")
    671. 

  671. 

  672. (defconst spice-library-regexp-start
    673. 

  673.   "^\\.\\(inc\\|include\\|verilog\\|use_veriloga\\|lib\\(\\s-+key=\\w+\\)?\\|libfas\\|subckt\\s-+lib\\|model\\s-+lib\\)\\s-+[\"']?"
    674. 

  674.   "Regexp that matches the beginning of library or include filename")
    675. 

  675. 

  676. (defconst spice-library-regexp-end
    677. 

  677.   "\\([^ \t\n\"']*\\)"
    678. 

  678.   "Regexp that matches the end of library or include filename") ; doesn't catch end of buffer 
    679. 

    680. 

  680. (defconst spice-section-regexp-start "\\(^[*!$]\\s-*\\)"
    681. 

  681.   "spice mode section header start regexp.")
    682. 

  682. 

  683. (defconst spice-spice2g6-keywords
    684. 

  684.   '(
    685. 

  685.     "subckt"
    686. 

  686.     "print" "plot"
    687. 

  687.     "opt" ; opt is actually a spice3 keyword, not 2g6
    688. 

  688.     "nodeset"
    689. 

  689.     "model" "macro" "include" ; include is actually a spice3 keyword, not 2g6
    690. 

  690.     "ends" "end"
    691. 

  691.     )
    692. 

  692.   "List of Spice2g6 keywords")
    693. 

  693. 

  694. (defconst spice-spice2g6-analyses
    695. 

  695.   '(
    696. 

  696.     "tran" "op" "noise" "four" "disto" "dc" "ac"
    697. 

  697.     )
    698. 

  698.   "List of Spice2g6 analysis keywords")
    699. 

  699. 

  700. (defconst spice-spice2g6-analysis-modifiers
    701. 

  701.   '(
    702. 

  702.     "dec" "lin" "oct" ;; the ubiquitous spice2g6 ac modifiers
    703. 

  703.     "pol" "zer" "pz" "cur" "vol" ;; pz analysis spice3
    704. 

  704.     "ac" ;; .sens analysis spice3
    705. 

  705.     )
    706. 

  706.   "List of Spice2g6 analysis modifier keywords")
    707. 

  707. 

  708. (defconst spice-eldo-keywords
    709. 

  709.   '(
    710. 

  710.     "width" "use" "unprotect" "tvinclude" "topcell"
    711. 

  711.     "table" "subdup" "solve" "sinus" "sigbus" 
    712. 

  712.     "setsoa" "setbus" "save" "restart" "ramp"
    713. 

  713.     "protect" "probe" "plotbus"
    714. 

  714.     "param" "overwrite_input" "optwind" "optpwl" "optnoise" "options"
    715. 

  715.     "option" "optfour"
    716. 

  716.     "notrc" "nocom" "modlogic" 
    717. 

  717.     "moddup" "meas" "mcmod" "lotgroup" "loop" "load" 
    718. 

  718.     "libfas" "lib" "init" "include" "ic" "hier" "guess" "global"
    719. 

  719.     "extract" "endl" "enddata" "dspf_include" "distrib" "del" 
    720. 

  720.     "defwave" "defplotdig" "defmac" "data" "d2a" "comchar" "conso" "connect" 
    721. 

  721.     "chrsim" "chrent" "chrand" "checksoa" "checkbus" "alter" "addlib" "a2d"
    722. 

  722.     )
    723. 

  723.   "List of Eldo keywords")
    724. 

  724. 

  725. (defconst spice-eldo-colon-keywords
    726. 

  726.   '(
    727. 

  727.     "param" "pin" "model"
    728. 

  728.     )
    729. 

  729.   "List of Eldo colon keywords")
    730. 

  730. 

  731. (defconst spice-eldo-macromodel-keywords
    732. 

  732.   '(
    733. 

  733.     "opamp0" "opamp0d" "opamp1" "opamp1d" "opamp2" "opamp2d" 
    734. 

  734.     "satr" "satv" "vswitch" "cswitch"
    735. 

  735.     "tri2sin" "stairgen" "sawgen" "trigen" 
    736. 

  736.     "amm" "pam" 
    737. 

  737.     "sa_ho" "tr_ho" 
    738. 

  738.     "pwm" "vco" 
    739. 

  739.     "peak_d" "lev_d"
    740. 

  740.     "logamp" "expamp" 
    741. 

  741.     "diff" "integ"
    742. 

  742.     "add" "sub" "mult" "div"
    743. 

  743.     "sc_ideal" "sc_i" "sc_n" "sc_p" "sc_s1" "sc_s2" 
    744. 

  744.     "sc_sp1" "sc_sp2" "sc_b" "sc_u" 
    745. 

  745.     )
    746. 

  746.   "List of Eldo macromodels")
    747. 

  747. 

  748. (defconst spice-eldo-analyses
    749. 

  749.   '(
    750. 

  750.     "wcase" "tf" "temp" 
    751. 

  751.     "step" "snf" "sens" "pz"
    752. 

  752.     "noisetran" "mc"  
    753. 

  753.     )
    754. 

  754.   "List of Eldo analysis keywords")
    755. 

  755. 

  756. (defconst spice-eldo-analysis-modifiers
    757. 

  757.   '(
    758. 

  758.     )
    759. 

  759.   "List of Eldo analysis modifier keywords")
    760. 

  760. 

  761. (defconst spice-eldorf-keywords
    762. 

  762.   '(
    763. 

  763.     "sst"
    764. 

  764.     )
    765. 

  765.   "List of Eldo RF keywords")
    766. 

  766. 

  767. (defconst spice-eldovloga-keywords
    768. 

  768.   '(
    769. 

  769.     "verilog" "use_veriloga"
    770. 

  770.     )
    771. 

  771.   "List of Eldo Verilog-A keywords")
    772. 

  772. 

  773. (defconst spice-eldovloga-colon-keywords
    774. 

  774.   '(
    775. 

  775.     "port" "generic"
    776. 

  776.     )
    777. 

  777.   "List of Eldo Verilog-A colon keywords")
    778. 

  778. 

  779. (defconst spice-eldorf-analyses
    780. 

  780.   '(
    781. 

  781.     "sstac" "sstxf" "sstnoise"  
    782. 

  782.     )
    783. 

  783.   "List of Eldo RF keywords")
    784. 

  784. 

  785. (defconst spice-hspice-keywords
    786. 

  786.   '(
    787. 

  787.     "width" "unprot" "unprotect" "uic" 
    788. 

  788.     "title" "sys" "system" "save"
    789. 

  789.     "sample" "prot" "protect"
    790. 

  790.     "probe" "pc" "parameter"
    791. 

  791.     "param" "options" "option" 
    792. 

  792.     "nomod"
    793. 

  793.     "measure" "meas" "macro"
    794. 

  794.     "load" "lib" "include" "inc" "ic" "graph" "global" 
    795. 

  795.     "eom" "enddata" "dellib" "delete" 
    796. 

  796.     "del" "dcvolt" "data" "control" "comment"
    797. 

  797.     "alter" 
    798. 

  798.     "fsoptions" "layerstack" "material" "shape" ; FEM solver for W elements
    799. 

  799.     )
    800. 

  800.   "List of Hspice keywords")
    801. 

  801. 

  802. (defconst spice-hspice-analyses
    803. 

  803.   '(
    804. 

  804.     "disto"
    805. 

  805.     "fft"
    806. 

  806.     "tf" "temp" 
    807. 

  807.     "net" ;; S, Z, Y and H parameters
    808. 

  808.     "sample"
    809. 

  809.     "sens"
    810. 

  810.     "pz"
    811. 

  811.     "noise" 
    812. 

  812.     )
    813. 

  813.   "List of Hspice analysis keywords")
    814. 

  814. 

  815. (defconst spice-hspice-analysis-modifiers
    816. 

  816.   '(
    817. 

  817.     "sweep" "poi" 
    818. 

  818.     )
    819. 

  819.   "List of Hspice analysis modifier keywords")
    820. 

  820. 

  821. (defconst spice-fasthenry-keywords
    822. 

  822.   '(
    823. 

  823.     "units" "default" "external" "equiv"
    824. 

  824.     )
    825. 

  825.   "List of FastHenry keywords")
    826. 

  826. 

  827. (defconst spice-fasthenry-analyses
    828. 

  828.   '(
    829. 

  829.     "freq" 
    830. 

  830.     )
    831. 

  831.   "List of FastHenry analysis keywords")
    832. 

  832. 

  833. (defconst spice-fasthenry-analysis-modifiers
    834. 

  834.   '(
    835. 

  835.     )
    836. 

  836.   "List of FastHenry analysis modifier keywords")
    837. 

  837. 

  838. (defconst spice-layla-keywords
    839. 

  839.   '(
    840. 

  840.     "stop" "start"
    841. 

  841.     "port" "performance" "parameter" 
    842. 

  842.     "param" "options" "option"
    843. 

  843.     "net" 
    844. 

  844.     "model" "matching" 
    845. 

  845.     "include" "inc" 
    846. 

  846.     "bus"
    847. 

  847.     )
    848. 

  848.   "List of Layla keywords")
    849. 

  849. 

  850. (defconst spice-mondriaan-keywords
    851. 

  851.   '(
    852. 

  852.     "master" "routingarea" "routingchannel" "ports" "portgrid" "net"
    853. 

  853.     )
    854. 

  854.   "List of Mondriaan keywords")
    855. 

  855. 

  856. (defconst spice-draccdl-keywords
    857. 

  857.   '(
    858. 

  858.     "bipolar" "busdelimiter" "capa" "caparea" "capval" "default" "dioarea" 
    859. 

  859.     "dioperi" "diode" "edifdelimiter" "busdelimiter" "equation" "equiv" 
    860. 

  860.     "gnonswap" "ldd" "mega" "nonswap" "nopin" "nosub" "pin" "pininfo" 
    861. 

  861.     "resi" "ressize" "resval" "reverse" "scale" "spice" "unspec" 
    862. 

  862.     "eom" "global" "param" "macro" "swap" 
    863. 

  863.     )
    864. 

  864.   "List of Dracula CDL keywords")
    865. 

  865. 

  866. (defconst spice-spice2g6-types
    867. 

  867.   '(
    868. 

  868.     "ac" "dc" "exp" "pulse" "pwl" "sffm" "sin" 
    869. 

  869.     )
    870. 

  870.   "List of types in spice2g6")
    871. 

  871. 

  872. (defconst spice-hspice-types
    873. 

  873.   '(
    874. 

  874.     "metal" "dielectric" "pec" "rectangle" "circle" "strip" "polygon" ;; ""
    875. 

  875.     )
    876. 

  876.   "List of types in hspice")
    877. 

  877. 

  878. (defconst spice-eldo-types
    879. 

  879.   '(
    880. 

  880.     "pattern" 
    881. 

  881.     )
    882. 

  882.   "List of source types in eldo")
    883. 

  883. 

  884. (defconst spice-eldorf-types
    885. 

  885.   '(
    886. 

  886.     "fpulse" "four" "probe" 
    887. 

  887.     )
    888. 

  888.   "List of source types in eldorf")
    889. 

  889. 

  890. (defconst spice-fasthenry-types
    891. 

  891.   '(
    892. 

  892.     "point" "rect" "circle" 
    893. 

  893.     "user1" "user2" "user3" "user4" "user5" "user6" "user7"
    894. 

  894.     )
    895. 

  895.   "List of source types in fasthenry")
    896. 

  896. 

  897. (defconst spice-special-model-type-names
    898. 

  898.   '(
    899. 

  899.     "d" "npn" "pnp" "nmos" "pmos" 
    900. 

  900.     )
    901. 

  901.   "List of model type names which are excluded for imenu")
    902. 

  902. 

  903. (defconst spice-spice2g6-model-type-names
    904. 

  904.   '(
    905. 

  905.     "r" "c" "urc" "ltra" 
    906. 

  906.     "njf" "pjf" 
    907. 

  907.     "nmf" "pmf" 
    908. 

  908.     "sw" "csw"
    909. 

  909.     )
    910. 

  910.   "List of model type names in spice2g6")
    911. 

  911. 

  912. (defconst spice-eldo-model-type-names
    913. 

  913.   '(
    914. 

  914.     "res" "cap" "ind"
    915. 

  915.     "rn" "rp" "lpnp"
    916. 

  916.     )
    917. 

  917.   "List of model type names extra in eldo")
    918. 

  918. 

  919. (defconst spice-eldo-vloga-model-type-names
    920. 

  920.   '(
    921. 

  921.     "macro"
    922. 

  922.     )
    923. 

  923.   "List of model type names extra in Eldo Verilog-A")
    924. 

  924. 

  925. (defconst spice-hspice-model-type-names
    926. 

  926.   '(
    927. 

  927.     "l" "core" "w" "plot"
    928. 

  928.     )
    929. 

  929.   "List of model type names extra in hspice")
    930. 

  930. 

  931. (defconst spice-spice2g6-output-keywords
    932. 

  932.   '("print" "plot")
    933. 

  933.   "List of output keywords in spice2g6")
    934. 

  934. 

  935. (defconst spice-spice2g6-output-types
    936. 

  936.   '("ac" "dc" "tran")
    937. 

  937.   "List of output types in spice2g6")
    938. 

  938. 

  939. (defconst spice-eldo-output-keywords
    940. 

  940.   '("extract" "meas")
    941. 

  941.   "List of output keywords in eldo")
    942. 

  942. 

  943. (defconst spice-eldo-output-types
    944. 

  944.   '("dcac" "dcsweep" "dctran" "noise" "four" "sweep")
    945. 

  945.   "List of output types in eldo")
    946. 

  946. 

  947. (defconst spice-eldorf-output-types
    948. 

  948.   '("fsst" "tsst" "sstac" "sstxf" "ssnoise" )
    949. 

  949.   "List of output types in eldo")
    950. 

  950. 

  951. (defconst spice-hspice-output-keywords
    952. 

  952.   '("probe" "graph" "measure")
    953. 

  953.   "List of output keywords in hspice")
    954. 

  954.   
    955. 

  955. (defconst spice-hspice-output-types
    956. 

  956.   '("noise" "disto")
    957. 

  957.   "List of output types in hspice")
    958. 

  958.   
    959. 

  959. (defconst spice-spice2g6-options-keywords
    960. 

  960.   '("trytocompact")
    961. 

  961.   "List of spice2g6/3 options keywords.")
    962. 

  962. 

  963. (defconst spice-eldo-options-keywords 
    964. 

  964.   '("wsf" "wsfascii" "sda"
    965. 

  965.     "precise" "spi3asc" "spi3bin" "spicedc" "spiout" "libfas" "nolib"
    966. 

  966.     "ammeter" "msgbias" "nowarn" "ulogic" "aspec" "mod4pins" "modwl" "wl"
    967. 

  967.     "captab" "coustep" "input" "lcapop" "list" "noascii" "ascii"
    968. 

  968.     "autostop" "nobound_phase" "nocou" "node" "nomod" "nopage" "nosizechk"
    969. 

  969.     "notrc" "trap" "smooth" "be" "gear" "newton" "iem" "analog" "digital"
    970. 

  970.     "osr" "mixed" "pstran" "dptran" "itl6" "itl7" "itl8" "nmaxsize"
    971. 

  971.     "noconvassist" "nolat" "pivrel" "pivtol" "qtrunc" "noconvassist"
    972. 

  972.     "nolat" "pivrel" "pivtol" "qtrunc" "relvar" "splitc" "noswitch"
    973. 

  973.     "unbound" "randmc" "usedefap" "engnot" "nodcpart" "probeop"
    974. 

  974.     "noprobeop" "histlim" "wbulk" "noinit" "nonoise" "tempcouk" "nofnsiem"
    975. 

  975.     "icdc" "icdev" "carlo_gauss" "cteprec" "d2dmvl9bit" "defconvmsg"
    976. 

  976.     "maxnodeord" "notrclib" "motorola" "aex")
    977. 

  977.   "List of eldo options keywords.")
    978. 

  978. 

  979. (defconst spice-eldorf-options-keywords 
    980. 

  980.   '("sst_freqdiv")
    981. 

  981.   "List of Eldo RF options keywords.")
    982. 

  982. 

  983. (defconst spice-hspice-options-keywords 
    984. 

  984.   '("acct" "converge"
    985. 

  985.     "absh" "acout" "cds" "scale" "cshdc" "alt999" "alt9999" "csdf"
    986. 

  986.     "accurate" "dvdt" "measout" "acout" "brief" "cshunt" "gshunt" "probe"
    987. 

  987.     "kcltest" "dctran" "di" "itl5" "list" "sda" "gshunt" "cshunt" "post"
    988. 

  988.     "node" "noelck" "gshunt" "maxamp" "nomod" "aspec" "icsweep" "relh"
    989. 

  989.     "nopage" "newtol" "reli" "notop" "parhier" "off" "spice" "wl"
    990. 

  990.     "dvtr" "nxx" "seed" "risetime" "imax" "nopiv" "imin" "opts" "cscal"
    991. 

  991.     "vntol" "absv" "pathnum" "badchr" "fmax" "plim" "diagnostic" "pivref"
    992. 

  992.     "fscal" "autostop" "nowarn" "gscal" "search" "lscal" "bypass" "verify"
    993. 

  993.     "sparse" "pivot" "pzabs" "cpu" "pztol" "fast" "interp" "h9007" "expli"
    994. 

  994.     "ritol" "itlpz" "itrprt" "unwrap" "captab" "newtol" "dccap")
    995. 

  995.   "List of hspice options keywords.")
    996. 

  996. 

  997. (defconst spice-spice2g6-options-parameters
    998. 

  998.   '("gmin" "reltol" "abstol" "vntol" "trtol" "chgtol" "pivtol" "pivrel"
    999. 

  999.     "tnom" "temp" "lvlcod" "itl1" "itl2" "itl3" "itl4" "itl5" "defl"
    1000. 

  1000.     "defw" "defad" "defas" "method")
    1001. 

  1001.   "List of spice2g6/3 options parameters.")
    1002. 

  1002. 

  1003. (defconst spice-eldo-options-parameters 
    1004. 

  1004.   '("cptime" "msgnode" "zoomtime" "bsim3ver" "defnrd" "defnrs" "defpd" "defps"
    1005. 

  1005.     "gramp" "scale" "scalebsim" "scalm" "soiback" "flicker_noise"
    1006. 

  1006.     "thermal_noise" "cousmp" "limprobe" "ascii" "savetime" "simudiv"
    1007. 

  1007.     "stat" "timediv" "maxord" "bloc" "epsdig" "absvar" "capanw" "chgtol"
    1008. 

  1008.     "dvdt" "eps" "fluxtol" "freqsmp" "ft" "hmin" "hmax" "itol" "lvltim"
    1009. 

  1009.     "maxnodes" "maxtran" "maxv" "netsize" "ngtol" "ratprint" "reltrunc"
    1010. 

  1010.     "sample" "startsmp" "step" "trtol" "tuning" "vmin" "vntol" "xa"
    1011. 

  1011.     "numdgt" "dcpart" "couresol" "defa2d" "defd2a" "vbcsat" "dclog" "epso"
    1012. 

  1012.     "optype")
    1013. 

  1013.   "List of eldo options parameters.")
    1014. 

  1014. 

  1015. (defconst spice-eldorf-options-parameters 
    1016. 

  1016.   '("sst_start" "sst_stop" "sst_nper"
    1017. 

  1017.     "sst_npt" "sst_ovrsmp" "sst_spectrum" "sst_uic"
    1018. 

  1018.     "sst_max_liniter" "sst_verbose")
    1019. 

  1019.   "List of Eldo RF options parameters.")
    1020. 

  1020. 

  1021. (defconst spice-hspice-options-parameters 
    1022. 

  1022.   '("artist" "dcap" "absh" "absvar" "absi" "absv" "delmax" "absmos"
    1023. 

  1023.     "dcfor" "dchold" "fs" "mentor" "absvdc" "dcon" "ft" "co" "reltol" ; "post"
    1024. 

  1024.     "cvtol" "di" "dcstep" "imin" "ingold" "imax" "lennam" "psf" "maxamp"
    1025. 

  1025.     "dv" "defl" "relh" "gmax" "relvar" "measdgt" "zuken" "defnrd" "reli"
    1026. 

  1026.     "gmindc" "rmax" "defnrs" "relmos" "gramp" "rmin" "defpd" "relv"
    1027. 

  1027.     "slopetol" "defps" "relvdc" "timeres" "limpts" "scalm" "relq" "numdgt"
    1028. 

  1028.     "resmin" "optlst" "trtol" "genk" "pivot" "sparse" "lvltim" "klim"
    1029. 

  1029.     "maxord" "post_version" "bkpsiz" "mu" "xmu" "warnlimit" "expli"
    1030. 

  1030.     "bytol" "cptime" "epsmin" "mbypass" "expmax" "limtim" "vfloor")
    1031. 

  1031.   "List of hspice options parameters.")
    1032. 

  1032. 

  1033. (defconst spice-layla-options-parameters 
    1034. 

  1034.   '("begin_temp_iterations" "begin_acc_prob" "min_temp_scale_factor"
    1035. 

  1035.     "max_temp_scale_factor" "max_inner_loop_delta" "max_cost_delta"
    1036. 

  1036.     "min_range_scale_factor" "nr_temp_steps"
    1037. 

  1037.     "min_stable_inner_loops" "min_local_iterations" "max_local_iterations"
    1038. 

  1038.     "max_iterations" "bank_min_ar" "bank_max_ar" "bank_orientations"
    1039. 

  1039.     "bank_routing_space" "bus_sides" "bus_layer" "bus_port_width"
    1040. 

  1040.     "bus_port_height" "bus_port_distance" "bus_routing_space" "cap_min_ar"
    1041. 

  1041.     "cap_max_ar" "cap_orientations" "cap_routing_space" "cap_ar_step"
    1042. 

  1042.     "coil_orientations" "coil_routing_space" "alfa_area"
    1043. 

  1043.     "alfa_performance" "alfa_aspect_ratio" "alfa_overlap" "alfa_overlap_min"
    1044. 

  1044.     "alfa_overlap_max" "kappa_overlap" "device_min_ar" "device_max_ar"
    1045. 

  1045.     "device_orientations" "device_routing_space" "device_current"
    1046. 

  1046.     "diode_min_ar" "diode_max_ar" "diode_orientations"
    1047. 

  1047.     "diode_routing_space" "diode_current" "matching_compute_method"
    1048. 

  1048.     "dummy_min_ar" "dummy_max_ar" "dummy_orientations"
    1049. 

  1049.     "dummy_routing_space" "dummy_ar_step"
    1050. 

  1050.     "mos_min_ar" "mos_max_ar" "mos_orientations" "mos_routing_space"
    1051. 

  1051.     "mos_current" "prob_reshape" "prob_reorientation"
    1052. 

  1052.     "prob_symmetric_translation" "prob_symmetric_swap"
    1053. 

  1053.     "prob_symmetric_flip" "prob_symmetric_flip" "prob_symmetric_shift"
    1054. 

  1054.     "prob_independent_translation" "prob_independent_swap"
    1055. 

  1055.     "prob_independent_flip" "min_move_range" "net_compute_method"
    1056. 

  1056.     "write_init" "write_int" "int_write_interval" "write_fin" "write_final"
    1057. 

  1057.     "mentor_write_ipc" "gds2_write_ipc" "construct_net_performance"
    1058. 

  1058.     "construct_matching_performance" "aspect_ratio" "field_grow_factor"
    1059. 

  1059.     "field_aspect_ratio" "disable_symmetry" "disable_matching"
    1060. 

  1060.     "do_kul_routing" "kul_router_program" "kul_router_directives_file"
    1061. 

  1061.     "number_of_randomize_loops" "port_inherit_terminals" "bus_priority"
    1062. 

  1062.     "port_sides" "port_layer" "port_width" "port_height" "port_distance"
    1063. 

  1063.     "port_abutment" "port_routing_space" "port_no_routing" "port_current"
    1064. 

  1064.     "res_ar_step" "res_min_ar" "res_max_ar" "res_orientations" 
    1065. 

  1065.     "res_routing_space" "res_width" "res_current" "disable_couple_flipping"
    1066. 

  1066.     "symmetry_max_offset_factor" "print_cost" "placement_name" 
    1067. 

  1067.     "write_final_ample" "write_final_skill" "write_final_gds2_bin"
    1068. 

  1068.     "write_final_gds2_cells" "write_final_tud"
    1069. 

  1069.     "write_final_ample_generators" "write_final_ample_cells"
    1070. 

  1070.     "write_final_cif" "write_final_rose" "write_final_kul"
    1071. 

  1071.     "write_final_text" 
    1072. 

  1072.     "write_int_ample" "write_int_skill" "write_int_gds2_bin"
    1073. 

  1073.     "write_int_gds2_cells" "write_int_tud" "write_int_ample_generators"
    1074. 

  1074.     "write_int_ample_cells" "write_int_cif" "write_int_rose"
    1075. 

  1075.     "write_int_kul" "write_int_text"  
    1076. 

  1076.     "write_init_ample" "write_init_skill" "write_init_gds2_bin"
    1077. 

  1077.     "write_init_gds2_cells" "write_init_tud" "write_init_ample_generators"
    1078. 

  1078.     "write_init_ample_cells" "write_init_cif" "write_init_rose"
    1079. 

  1079.     "write_init_kul" "write_init_text" "time_out" 
    1080. 

  1080.     "random_seed" "anneal_rs" )
    1081. 

  1081.   "List of LAYLA options parameters.")
    1082. 

  1082. 

  1083. (defconst spice-layla-functions
    1084. 

  1084.   '(
    1085. 

  1085.     "bus_double_param" "bus_integer_param" "bus_string_param" 
    1086. 

  1086.     "device_double_param" "device_integer_param" "device_string_param" 
    1087. 

  1087.     "net_double_param" "net_integer_param" "net_string_param" 
    1088. 

  1088.     "placement_double_param" "placement_integer_param" "placement_string_param"
    1089. 

  1089.     "port_double_param" "port_integer_param" "port_string_param"
    1090. 

  1090.     "symmetry_double_param" "symmetry_integer_param" "symmetry_string_param"
    1091. 

  1091.     )
    1092. 

  1092.   "List of functions in Layla mode")
    1093. 

  1093. 

  1094. (defconst spice-draccdl-device-keywords 
    1095. 

  1095.   '("nonswap" )
    1096. 

  1096.   "List of Dracula CDL device keywords.")
    1097. 

  1097. 

  1098. (defconst spice-draccdl-device-parameters 
    1099. 

  1099.   '("w" "l" "sub" "ea" ;; CDL parameters
    1100. 

  1100.     "x" "y") ;; added X&Y, dracula extracts them (not CDL!)
    1101. 

  1101.   "List of Dracula & CDL device parameters.")
    1102. 

  1102. 

  1103. (defconst spice-spice2g6-entity-start-keywords
    1104. 

  1104.   '(
    1105. 

  1105.     "ends" "macro" "subckt"
    1106. 

  1106.     )
    1107. 

  1107.   "List of spice2g6 entity start keywords")
    1108. 

  1108. 

  1109. (defconst spice-eldo-entity-start-keywords
    1110. 

  1110.   '(
    1111. 

  1111.     "endl"
    1112. 

  1112.     )
    1113. 

  1113.   "List of eldo entity start keywords")
    1114. 

  1114. 

  1115. (defconst spice-hspice-entity-start-keywords
    1116. 

  1116.   '(
    1117. 

  1117.     "endl" "eom" 
    1118. 

  1118.     "fsoptions" "layerstack" "material" "shape" ; FEM solver for W elements
    1119. 

  1119.     )
    1120. 

  1120.   "List of hspice entity start keywords")
    1121. 

  1121. 

  1122. (defconst spice-layla-entity-start-keywords
    1123. 

  1123.   '(
    1124. 

  1124.     "bus" "net" "symmetry" "performance" "port"
    1125. 

  1125.     )
    1126. 

  1126.   "List of layla entity start keywords")
    1127. 

  1127. 

  1128. (defconst spice-mondriaan-entity-start-keywords
    1129. 

  1129.   '(
    1130. 

  1130.     "routingarea" "routingchannel" ;; "net" ; already in layla
    1131. 

  1131.     )
    1132. 

  1132.   "List of mondriaan entity start keywords")
    1133. 

  1133. 

  1134. (defconst spice-draccdl-entity-start-keywords
    1135. 

  1135.   '(
    1136. 

  1136.     "eom" 
    1137. 

  1137.     )
    1138. 

  1138.   "List of DracCDL entity start keywords")
    1139. 

  1139. 

  1140. (defvar spice-keywords nil
    1141. 

  1141.   "List of spice mode keywords.")
    1142. 

  1142. 

  1143. (defvar spice-colon-keywords nil
    1144. 

  1144.   "List of spice mode colon keywords.")
    1145. 

  1145. 

  1146. (defvar spice-analyses nil
    1147. 

  1147.   "List of spice mode analyses.")
    1148. 

  1148. 

  1149. (defvar spice-analysis-modifiers nil
    1150. 

  1150.   "List of spice mode analysis modifiers.")
    1151. 

  1151. 

  1152. (defvar spice-types nil
    1153. 

  1153.   "List of spice mode standardized types.")
    1154. 

  1154. 

  1155. (defvar spice-functions nil
    1156. 

  1156.   "List of spice mode functions.")
    1157. 

  1157. 

  1158. (defvar spice-section-headings nil
    1159. 

  1159.   "List of spice mode section headings.")
    1160. 

  1160. 

  1161. (defvar spice-misc-model-type-names nil
    1162. 

  1162.   "List of miscellaneous model type name.")
    1163. 

  1163. 

  1164. (defvar spice-model-type-names nil
    1165. 

  1165.   "List of all model type name.")
    1166. 

  1166. 

  1167. (defvar spice-output-keywords nil
    1168. 

  1168.   "List of all output keywords.")
    1169. 

  1169. 

  1170. (defvar spice-output-types nil
    1171. 

  1171.   "List of all output types.")
    1172. 

  1172. 

  1173. (defvar spice-options-keywords nil
    1174. 

  1174.   "List of all output options keywords.")
    1175. 

  1175. 

  1176. (defvar spice-options-parameters nil
    1177. 

  1177.   "List of all output options parameters.")
    1178. 

  1178. 

  1179. (defvar spice-entity-start-keywords nil
    1180. 

  1180.   "List of entity definition keywords.")
    1181. 

  1181. 

  1182. (defvar spice-keywords-regexp nil
    1183. 

  1183.   "Regexp for keywords.")
    1184. 

  1184. 

  1185. (defvar spice-colon-keywords-regexp nil
    1186. 

  1186.   "Regexp for colon keywords.")
    1187. 

  1187. 

  1188. (defvar spice-analyses-regexp nil
    1189. 

  1189.   "Regexp for analyses.")
    1190. 

  1190. 

  1191. (defvar spice-analysis-modifiers-regexp nil
    1192. 

  1192.   "Regexp for analysis modifiers.")
    1193. 

  1193. 

  1194. (defvar spice-layla-keywords-regexp nil
    1195. 

  1195.   "Regexp for layla keywords.")
    1196. 

  1196. 

  1197. (defvar spice-mondriaan-keywords-regexp nil
    1198. 

  1198.   "Regexp for mondriaan keywords.")
    1199. 

  1199. 

  1200. (defvar spice-draccdl-keywords-regexp nil
    1201. 

  1201.   "Regexp for dracula CDL keywords.")
    1202. 

  1202. 

  1203. (defvar spice-types-regexp nil
    1204. 

  1204.   "Regexp for spice mode types.")
    1205. 

  1205. 

  1206. (defvar spice-functions-regexp nil
    1207. 

  1207.   "Regexp for spice mode functions (Layla).")
    1208. 

  1208. 

  1209. (defvar spice-section-headings-regexp nil
    1210. 

  1210.   "Regexp for spice mode section headings.")
    1211. 

  1211. 

  1212. (defvar spice-xinstance-regexp nil
    1213. 

  1213.   "Regexp for x instances.")
    1214. 

  1214. 

  1215. (defvar spice-model-name-regexp nil
    1216. 

  1216.   "Regexp model names of elements.")
    1217. 

  1217. 

  1218. (defvar spice-entity-start-regexp nil
    1219. 

  1219.   "Regexp for start of entity definition.")
    1220. 

  1220. 

  1221. (require 'font-lock)
    1222. 

    1223. 

  1223. (defvar spice-instance-name-face	 'spice-instance-name-face
    1224. 

  1224.   "Face name to use spice instances.")
    1225. 

  1225. 

  1226. (defface spice-instance-name-face
    1227. 

  1227.   '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
    1228. 

  1228.     (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
    1229. 

  1229.     (((class color) (background light)) (:foreground "ForestGreen" :bold t))
    1230. 

  1230.     (((class color) (background dark)) (:foreground "Yellow" :bold t))
    1231. 

  1231.     (t (:bold t)))
    1232. 

  1232.   "Spice mode face used to highlight instances."
    1233. 

  1233.   :group 'spice-faces)
    1234. 

    1235. 

  1235. (defvar spice-model-name-face	 'spice-model-name-face
    1236. 

  1236.   "Face name to use spice instances.")
    1237. 

  1237. 

  1238. (defface spice-model-name-face
    1239. 

  1239.   '((((class grayscale) (background light)) (:foreground "LightGray"))
    1240. 

  1240.     (((class grayscale) (background dark)) (:foreground "DimGray"))
    1241. 

  1241.     (((class color) (background light)) (:foreground "Red3"))
    1242. 

  1242.     (((class color) (background dark)) (:foreground "LightSteelBlue"))
    1243. 

  1243.     (t (:bold t)))
    1244. 

  1244.   "Spice mode face used to highlight models."
    1245. 

  1245.   :group 'spice-faces)
    1246. 

    1247. 

  1247. (defvar spice-title-face	'spice-title-face
    1248. 

  1248.   "Face name for title string.")
    1249. 

  1249. 

  1250. (defface spice-title-face
    1251. 

  1251.   '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
    1252. 

  1252.     (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
    1253. 

  1253.     (((class color) (background light)) 
    1254. 

  1254.      (:foreground "Yellow" :background "black" :bold t))
    1255. 

  1255.     (((class color) (background dark)) 
    1256. 

  1256.      (:foreground "green3":background "lightyellow" :bold t))
    1257. 

  1257.     (t (:bold t)))
    1258. 

  1258.   "Spice mode face used for title string."
    1259. 

  1259.   :group 'spice-faces)
    1260. 

    1261. 

  1261. (defvar spice-layla-function-name-face       'spice-layla-function-name-face
    1262. 

  1262.   "Face name to use for layla function names.")
    1263. 

  1263. 

  1264. (defface spice-layla-function-name-face
    1265. 

  1265.   '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
    1266. 

  1266.     (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
    1267. 

  1267.     (((class color) (background light)) 
    1268. 

  1268.      (:foreground "Darkgreen"))
    1269. 

  1269.     (((class color) (background dark)) (:foreground "green"))
    1270. 

  1270.     (t (:bold t)))
    1271. 

  1271.   "Spice mode face used to higlight layla functions."
    1272. 

  1272.   :group 'spice-faces)
    1273. 

    1274. 

  1274. 

  1275. (defvar spice-analysis-face 'spice-analysis-face
    1276. 

  1276.   "Face name to highlight spice mode analysis commands.")
    1277. 

  1277. 

  1278. (defface spice-analysis-face
    1279. 

  1279.   '((((class color) (background light)) (:foreground "Magenta" :bold t :underline t))
    1280. 

  1280.     (((class color) (background dark)) (:foreground "Lightgreen" :bold t :underline t))
    1281. 

  1281.     (t (:bold t)))
    1282. 

  1282.   "Spice mode face used to highlight analysis commands."
    1283. 

  1283.   :group 'spice-faces)
    1284. 

    1285. 

  1285. (defvar spice-doc-face	(if spice-running-xemacs
    1286. 

  1286. 			    'font-lock-doc-string-face
    1287. 

  1287. 			  'font-lock-string-face)
    1288. 

  1288.   "Face name to use for doc strings.")
    1289. 

  1289. 

  1290. (custom-add-to-group
    1291. 

  1291.  'spice-faces (if spice-running-xemacs
    1292. 

  1292. 		  'font-lock-doc-string-face
    1293. 

  1293. 		'font-lock-string-face)
    1294. 

  1294.  'custom-face)
    1295. 

    1296. 

  1296. 

  1297. (defvar spice-constant-face	(if spice-running-xemacs
    1298. 

  1298. 				    'font-lock-reference-face
    1299. 

  1299. 				  (if (facep 'font-lock-constant-face)
    1300. 

  1300. 				      'font-lock-constant-face
    1301. 

  1301. 				    'font-lock-reference-face)) ; old emacs20.1
    1302. 

  1302.   "Face name to use for constants.")
    1303. 

  1303. 

  1304. (custom-add-to-group
    1305. 

  1305.  'spice-faces (if spice-running-xemacs
    1306. 

  1306. 		  'font-lock-reference-face
    1307. 

  1307. 		(if (facep 'font-lock-constant-face)
    1308. 

  1308. 		    'font-lock-constant-face
    1309. 

  1309. 		  'font-lock-reference-face))
    1310. 

  1310.  'custom-face)
    1311. 

    1312. 

  1312. (defvar spice-include-file-face	(if spice-running-xemacs
    1313. 

  1313. 				    'font-lock-preprocessor-face
    1314. 

  1314. 				  'font-lock-string-face)
    1315. 

  1315.   "Face name to use for include files and libraries.")
    1316. 

  1316. 

  1317. (custom-add-to-group
    1318. 

  1318.  'spice-faces (if spice-running-xemacs
    1319. 

  1319. 		  'font-lock-preprocessor-face
    1320. 

  1320. 		'font-lock-string-face)
    1321. 

  1321.  'custom-face)
    1322. 

    1323. 

  1323. (if (not spice-running-xemacs)
    1324. 

  1324.     (custom-add-to-group
    1325. 

  1325.      'spice-faces 'font-lock-builtin-face 'custom-face)
    1326. 

  1326.   
    1327. 

  1327.   (defface spice-builtin-face
    1328. 

  1328.     '((((class grayscale) (background light)) (:foreground "LightGray"))
    1329. 

  1329.       (((class grayscale) (background dark)) (:foreground "DimGray"))
    1330. 

  1330.       (((class color) (background light)) (:foreground "Orchid" :bold t))
    1331. 

  1331.       (((class color) (background dark)) (:foreground "LightBlue" :bold t))
    1332. 

  1332.       (t (:bold t)))
    1333. 

  1333.     "Spice mode face used for builtin types."
    1334. 

  1334.     :group 'spice-faces))
    1335. 

    1336. 

  1336. (defvar spice-builtin-face	 (if spice-running-xemacs
    1337. 

  1337. 				     'spice-builtin-face
    1338. 

  1338. 				   'font-lock-builtin-face)
    1339. 

  1339.   "Face name for builtin types.")
    1340. 

  1340. 

  1341. 

  1342. 

  1343. (defun spice-keywords-init ()
    1344. 

  1344.   "Initialize reserved words."
    1345. 

  1345.   (setq spice-keywords
    1346. 

  1346. 	(append spice-spice2g6-keywords
    1347. 

  1347. 		(when (spice-standard-p 'hspice) 
    1348. 

  1348. 		  spice-hspice-keywords)
    1349. 

  1349. 		(when (spice-standard-p 'eldo) 
    1350. 

  1350. 		  spice-eldo-keywords)
    1351. 

  1351. 		(when (spice-standard-p 'eldorf) 
    1352. 

  1352. 		  spice-eldorf-keywords)
    1353. 

  1353. 		(when (spice-standard-p 'fasthenry) 
    1354. 

  1354. 		  spice-fasthenry-keywords)))
    1355. 

  1355.   (setq spice-colon-keywords
    1356. 

  1356. 	(append (when (spice-standard-p 'eldo) 
    1357. 

  1357. 		  spice-eldo-colon-keywords)
    1358. 

  1358. 		(when (spice-standard-p 'eldovloga) 
    1359. 

  1359. 		  spice-eldovloga-colon-keywords)))
    1360. 

  1360.   (setq spice-analyses
    1361. 

  1361. 	(append spice-spice2g6-analyses
    1362. 

  1362. 		(when (spice-standard-p 'hspice) 
    1363. 

  1363. 		  spice-hspice-analyses)
    1364. 

  1364. 		(when (spice-standard-p 'eldo) 
    1365. 

  1365. 		  spice-eldo-analyses)
    1366. 

  1366. 		(when (spice-standard-p 'eldorf) 
    1367. 

  1367. 		  spice-eldorf-analyses)
    1368. 

  1368. 		(when (spice-standard-p 'fasthenry) 
    1369. 

  1369. 		  spice-fasthenry-analyses)))
    1370. 

  1370.   (setq spice-analysis-modifiers
    1371. 

  1371. 	(append spice-spice2g6-analysis-modifiers
    1372. 

  1372. 		(when (spice-standard-p 'hspice) 
    1373. 

  1373. 		  spice-hspice-analysis-modifiers)
    1374. 

  1374. 		(when (spice-standard-p 'eldo) 
    1375. 

  1375. 		  spice-eldo-analysis-modifiers)
    1376. 

  1376. 		(when (spice-standard-p 'fasthenry) 
    1377. 

  1377. 		  spice-fasthenry-analysis-modifiers)))
    1378. 

  1378.   (setq spice-misc-model-type-names
    1379. 

  1379. 	(append spice-spice2g6-model-type-names
    1380. 

  1380. 		(when (spice-standard-p 'hspice) 
    1381. 

  1381. 		  spice-hspice-model-type-names)
    1382. 

  1382. 		(when (spice-standard-p 'eldovloga) 
    1383. 

  1383. 		  spice-eldo-vloga-model-type-names)
    1384. 

  1384. 		(when (s…
    1385.

Large files are truncated, but you can click here to view the full file