]> git.sommitrealweird.co.uk Git - quagga-debian.git/blob - tools/zebra.el
New upstream version 1.2.4
[quagga-debian.git] / tools / zebra.el
1 ;; -*- lisp -*-
2 ;;; zebra-mode.el -- major mode for editing zebra configuration file.
3
4 ;; Copyright (C) 1998 Kunihiro Ishiguro
5
6 ;; Author:     1998 Kunihiro Ishiguro
7 ;;                  SeonMeyong HEO
8 ;; Maintainer: kunihiro@zebra.org
9 ;;             seirios@Matrix.IRI.Co.JP
10 ;; Created:    Jan 28 1998
11 ;; Version:    Alpha 0.2
12 ;; Keywords:   zebra bgpd ripd ripngd languages
13
14 ;; You can get the latest version of zebra from
15 ;;
16 ;;    http://www.zebra.org/
17 ;;
18 ;; Install this Emacs Lisp code
19 ;;
20 ;; Compile zebra.el
21 ;;   % $(EMACS) -batch -f batch-byte-compile zebra.el
22 ;; Install zebra.el,zebra.elc to Emacs-load-path
23 ;;   % cp zebra.el zebra.elc $(emacs-load-path)
24 ;; Add .emacs or (site-load.el | site-start.el)
25 ;;   (auto-load 'zebra-mode "zebra" nil t)
26 ;;   (auto-load 'bgp-mode "zebra" nil t)
27 ;;   (auto-load 'rip-mode "zebra" nil t)
28 ;;
29
30 ;;; Code:
31
32 ;; Set keywords
33
34 (defvar zebra-font-lock-keywords
35   (list
36    '("#.*$" . font-lock-comment-face)
37    '("!.*$" . font-lock-comment-face)
38    '("no\\|interface" . font-lock-type-face)
39    '("ip6\\|ip\\|route\\|address" . font-lock-function-name-face)
40    '("ipforward\\|ipv6forward" . font-lock-keyword-face)
41    '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
42   "Default value to highlight in zebra mode.")
43
44 (defvar bgp-font-lock-keywords
45   (list
46    '("#.*$" . font-lock-comment-face)
47    '("!.*$" . font-lock-comment-face)
48    '("no\\|router" . font-lock-type-face)
49    '("bgp\\|router-id\\|neighbor\\|network" . font-lock-function-name-face)
50    '("ebgp\\|multihop\\|next\\|zebra\\|remote-as" . font-lock-keyword-face)
51    '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
52   "Default value to highlight in bgp mode.")
53
54 (defvar rip-font-lock-keywords
55   (list
56    '("#.*$" . font-lock-comment-face)
57    '("!.*$" . font-lock-comment-face)
58    '("no\\|router\\|interface\\|ipv6\\|ip6\\|ip" . font-lock-type-face)
59    '("ripng\\|rip\\|recive\\|advertize\\|accept" . font-lock-function-name-face)
60    '("version\\|network" . font-lock-function-name-face)
61    '("default\\|none\\|zebra" . font-lock-keyword-face)
62    '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
63   "Default value to highlight in bgp mode.")
64
65 ;; set font-lock-mode
66
67 (defun zebra-font-lock ()
68   (make-local-variable 'font-lock-defaults)
69   (setq font-lock-defaults '(zebra-font-lock-keywords nil t)))
70
71 (defun bgp-font-lock ()
72   (make-local-variable 'font-lock-defaults)
73   (setq font-lock-defaults '(bgp-font-lock-keywords nil t)))
74
75 (defun rip-font-lock ()
76   (make-local-variable 'font-lock-defaults)
77   (setq font-lock-defaults '(rip-font-lock-keywords nil t)))
78
79 ;; define Major mode
80
81 (defun major-mode-define ()
82   (interactive)
83   (progn
84     (setq comment-start "[#!]"
85           comment-end ""
86           comment-start-skip "!+ ")
87     (run-hooks 'zebra-mode-hook)
88     (cond
89      ((string< "20" emacs-version)
90       (font-lock-mode)))))
91
92 (defun zebra-mode ()
93   (progn
94     (setq mode-name "zebra")
95     (zebra-font-lock))
96   (major-mode-define))
97
98 (defun bgp-mode ()
99   (progn
100     (setq mode-name "bgp") 
101     (bgp-font-lock))
102   (major-mode-define))
103
104 (defun rip-mode ()
105   (progn
106     (setq mode-name "rip")
107     (rip-font-lock))
108   (major-mode-define))