Return to zebra.el CVS log

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

quagga

    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))