Return to zebra.el CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tools

Annotation of embedaddon/quagga/tools/zebra.el, revision 1.1

1.1     ! misho       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))