zebra.el

zebra测试源代码用于 SOCKET 通信

;; -*- lisp -*-
;;; zebra-mode.el -- major mode for editing zebra configuration file.

;; Copyright (C) 1998 Kunihiro Ishiguro

;; Author:     1998 Kunihiro Ishiguro
;;                  SeonMeyong HEO
;; Maintainer: [e-mail]
;;             [e-mail]
;; Created:    Jan 28 1998
;; Version:    Alpha 0.2
;; Keywords:   zebra bgpd ripd ripngd languages

;; You can get the latest version of zebra from
;;
;;    http://www.zebra.org/
;;
;; Install this Emacs Lisp code
;;
;; Compile zebra.el
;;   % $(EMACS) -batch -f batch-byte-compile zebra.el
;; Install zebra.el,zebra.elc to Emacs-load-path
;;   % cp zebra.el zebra.elc $(emacs-load-path)
;; Add .emacs or (site-load.el | site-start.el)
;;   (auto-load 'zebra-mode "zebra" nil t)
;;   (auto-load 'bgp-mode "zebra" nil t)
;;   (auto-load 'rip-mode "zebra" nil t)
;;

;;; Code:

;; Set keywords

(defvar zebra-font-lock-keywords
  (list
   '("#.*$" . font-lock-comment-face)
   '("!.*$" . font-lock-comment-face)
   '("no\\|interface" . font-lock-type-face)
   '("ip6\\|ip\\|route\\|address" . font-lock-function-name-face)
   '("ipforward\\|ipv6forward" . font-lock-keyword-face)
   '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
  "Default value to highlight in zebra mode.")

(defvar bgp-font-lock-keywords
  (list
   '("#.*$" . font-lock-comment-face)
   '("!.*$" . font-lock-comment-face)
   '("no\\|router" . font-lock-type-face)
   '("bgp\\|router-id\\|neighbor\\|network" . font-lock-function-name-face)
   '("ebgp\\|multihop\\|next\\|zebra\\|remote-as" . font-lock-keyword-face)
   '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
  "Default value to highlight in bgp mode.")

(defvar rip-font-lock-keywords
  (list
   '("#.*$" . font-lock-comment-face)
   '("!.*$" . font-lock-comment-face)
   '("no\\|router\\|interface\\|ipv6\\|ip6\\|ip" . font-lock-type-face)
   '("ripng\\|rip\\|recive\\|advertize\\|accept" . font-lock-function-name-face)
   '("version\\|network" . font-lock-function-name-face)
   '("default\\|none\\|zebra" . font-lock-keyword-face)
   '("hostname\\|password\\|enable\\|logfile\\|no" . font-lock-keyword-face))
  "Default value to highlight in bgp mode.")

;; set font-lock-mode

(defun zebra-font-lock ()
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(zebra-font-lock-keywords nil t)))

(defun bgp-font-lock ()
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(bgp-font-lock-keywords nil t)))

(defun rip-font-lock ()
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(rip-font-lock-keywords nil t)))

;; define Major mode

(defun major-mode-define ()
  (interactive)
  (progn
    (setq comment-start "[#!]"
	  comment-end ""
	  comment-start-skip "!+ ")
    (run-hooks 'zebra-mode-hook)
    (cond
     ((string< "20" emacs-version)
      (font-lock-mode)))))

(defun zebra-mode ()
  (progn
    (setq mode-name "zebra")
    (zebra-font-lock))
  (major-mode-define))

(defun bgp-mode ()
  (progn
    (setq mode-name "bgp") 
    (bgp-font-lock))
  (major-mode-define))

(defun rip-mode ()
  (progn
    (setq mode-name "rip")
    (rip-font-lock))
  (major-mode-define))