emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/textmodes/dns-mode.el [emacs-unicode


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/textmodes/dns-mode.el [emacs-unicode-2]
Date: Wed, 15 Sep 2004 05:22:57 -0400

Index: emacs/lisp/textmodes/dns-mode.el
diff -c /dev/null emacs/lisp/textmodes/dns-mode.el:1.1.2.1
*** /dev/null   Wed Sep 15 09:00:22 2004
--- emacs/lisp/textmodes/dns-mode.el    Wed Sep 15 08:59:53 2004
***************
*** 0 ****
--- 1,198 ----
+ ;;; dns-mode.el --- a mode for viewing/editing Domain Name System master files
+ ;; Copyright (c) 2000, 2001, 2003, 2004 Free Software Foundation, Inc.
+ 
+ ;; Author: Simon Josefsson <address@hidden>
+ ;; Keywords: DNS master zone file SOA
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;; Use M-x dns-mode RET to invoke in master files.
+ ;;
+ ;; C-c C-s  Increment SOA serial.
+ ;;          Understands YYYYMMDDNN, Unix time, and serial number formats,
+ ;;          and complains if it fail to find SOA serial.
+ ;;
+ ;; Put something similar to the following in your ~/.emacs to use this file:
+ ;;
+ ;; (load "~/path/to/dns-mode.el")
+ ;; (setq auto-mode-alist (cons '("\\.soa\\'" . dns-mode) auto-mode-alist))
+ 
+ ;;; References:
+ 
+ ;; RFC 1034, "DOMAIN NAMES - CONCEPTS AND FACILITIES", P. Mockapetris.
+ ;; RFC 1035, "DOMAIN NAMES - IMPLEMENTATION AND SPECIFICATION", P. 
Mockapetris.
+ 
+ ;;; Release history:
+ 
+ ;; 2004-09-11  Posted on gnu.emacs.sources.
+ ;; 2004-09-13  Ported to XEmacs.
+ ;; 2004-09-14  Installed in Emacs CVS.
+ 
+ ;;; Code:
+ 
+ (defgroup dns-mode nil
+   "DNS master file mode configuration.")
+ 
+ (defconst dns-mode-classes '("IN" "CS" "CH" "HS")
+   "List of strings with known DNS classes.")
+ 
+ (defconst dns-mode-types '("A" "NS" "MD" "MF" "CNAME" "SOA" "MB" "MG" "MR"
+                          "NULL" "WKS" "PTR" "HINFO" "MINFO" "MX" "TXT"
+                          "RP" "AFSDB" "X25" "ISDN" "RT" "NSAP" "NSAP"
+                          "SIG" "KEY" "PX" "GPOS" "AAAA" "LOC" "NXT"
+                          "EID" "NIMLOC" "SRV" "ATMA" "NAPTR" "KX" "CERT"
+                          "A6" "DNAME" "SINK" "OPT" "APL" "DS" "SSHFP"
+                          "RRSIG" "NSEC" "DNSKEY" "UINFO" "UID" "GID"
+                          "UNSPEC" "TKEY" "TSIG" "IXFR" "AXFR" "MAILB"
+                          "MAILA")
+   "List of strings with known DNS types.")
+ 
+ ;; Font lock.
+ 
+ (defvar dns-mode-control-entity-face 'font-lock-keyword-face
+   "Name of face used for control entities, e.g. $ORIGIN.")
+ 
+ (defvar dns-mode-bad-control-entity-face 'font-lock-warning-face
+   "Name of face used for non-standard control entities, e.g. $FOO.")
+ 
+ (defvar dns-mode-type-face 'font-lock-type-face
+   "Name of face used for DNS types, e.g., SOA.")
+ 
+ (defvar dns-mode-class-face 'font-lock-constant-face
+   "Name of face used for DNS classes, e.g., IN.")
+ 
+ (defcustom dns-mode-font-lock-keywords
+   `(("^$ORIGIN" 0 ,dns-mode-control-entity-face)
+     ("^$INCLUDE" 0 ,dns-mode-control-entity-face)
+     ("^$[a-z0-9A-Z]+" 0 ,dns-mode-bad-control-entity-face)
+     (,(regexp-opt dns-mode-classes) 0 ,dns-mode-class-face)
+     (,(regexp-opt dns-mode-types) 0 ,dns-mode-type-face))
+   "Font lock keywords used to highlight text in DNS master file mode."
+   :type 'sexp
+   :group 'dns-mode)
+ 
+ ;; Syntax table.
+ 
+ (defvar dns-mode-syntax-table
+   (let ((table (make-syntax-table)))
+     (modify-syntax-entry ?\; "<   " table)
+     (modify-syntax-entry ?\n ">   " table)
+     table)
+   "Syntax table in use in DNS master file buffers.")
+ 
+ ;; Keymap.
+ 
+ (defvar dns-mode-map
+   (let ((map (make-sparse-keymap)))
+     (define-key map "\C-c\C-s" 'dns-mode-soa-increment-serial)
+     map)
+   "Keymap for DNS master file mode.")
+ 
+ ;; Menu.
+ 
+ (defvar dns-mode-menu nil
+   "Menubar used in DNS master file mode.")
+ 
+ (easy-menu-define dns-mode-menu dns-mode-map
+   "DNS Menu."
+   '("DNS"
+     ["Increment SOA serial" dns-mode-soa-increment-serial t]))
+ 
+ ;; Mode.
+ 
+ ;;;###autoload
+ (define-derived-mode dns-mode text-mode "DNS"
+   "Major mode for viewing and editing DNS master files.
+ This mode is inherited from text mode.  It add syntax
+ highlighting, and some commands for handling DNS master files.
+ Its keymap inherits from `text-mode' and it has the same
+ variables for customizing indentation.  It has its own abbrev
+ table and its own syntax table.
+ 
+ Turning on DNS mode runs `dns-mode-hook'."
+   (set (make-local-variable 'comment-start) ";")
+   (set (make-local-variable 'comment-end) "")
+   (set (make-local-variable 'comment-start-skip) ";+ *")
+   (unless (featurep 'xemacs)
+     (set (make-local-variable 'font-lock-defaults)
+        '(dns-mode-font-lock-keywords nil nil ((?_ . "w")))))
+   (easy-menu-add dns-mode-menu dns-mode-map))
+ 
+ ;; Tools.
+ 
+ ;;;###autoload
+ (defun dns-mode-soa-increment-serial ()
+   "Locate SOA record and increment the serial field."
+   (interactive)
+   (save-excursion
+     (goto-char (point-min))
+     (unless (re-search-forward
+            (concat "^\\(\\(\\([^ \t]+[ \t]+\\)?[^ \t]+"
+                    "[ \t]+\\)?[^ \t]+[ \t]+\\)?SOA") nil t)
+       (error "Cannot locate SOA record"))
+     (if (re-search-forward (concat "\\<\\("
+                                  ;; year
+                                  "\\(198\\|199\\|20[0-9]\\)[0-9]"
+                                  ;; month
+                                  "\\(0[0-9]\\|10\\|11\\|12\\)"
+                                  ;; day
+                                  "\\([012][0-9]\\|30\\|31\\)"
+                                  ;; counter
+                                  "\\([0-9]\\{1,3\\}\\)"
+                                  "\\)\\>")
+                          nil t)
+       ;; YYYYMMDDIII format, one to three I's.
+       (let* ((serial (match-string 1))
+              (counterstr (match-string 5))
+              (counter (string-to-number counterstr))
+              (now (format-time-string "%Y%m%d"))
+              (nowandoldserial (concat now counterstr)))
+         (if (string< serial nowandoldserial)
+             (let ((new (format "%s00" now)))
+               (replace-match new nil nil nil 1)
+               (message "Replaced old serial %s with %s" serial new))
+           (if (string= serial nowandoldserial)
+               (let ((new (format (format "%%s%%0%dd" (length counterstr))
+                                  now (1+ counter))))
+                 (replace-match new nil nil nil 1)
+                 (message "Replaced old serial %s with %s" serial new))
+             (error "Current SOA serial is in the future"))))
+       (if (re-search-forward "\\<\\([0-9]\\{9,10\\}\\)\\>" nil t)
+         ;; Unix time
+         (let* ((serial (match-string 1))
+                (new (format-time-string "%s")))
+           (if (not (string< serial new))
+               (error "Current SOA serial is in the future")
+             (replace-match new nil nil nil 1)
+             (message "Replaced old serial %s with %s" serial new)))
+       (if (re-search-forward "\\<\\([0-9]+\\)\\>" nil t)
+           ;; Just any serial number.
+           (let* ((serial (match-string 1))
+                  (new (format "%d" (1+ (string-to-number serial)))))
+             (replace-match new nil nil nil 1)
+             (message "Replaced old serial %s with %s" serial new))
+         (error "Cannot locate serial number in SOA record"))))))
+ 
+ ;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode))
+ 
+ (provide 'dns-mode)
+ 
+ ;; arch-tag: 6a179f0a-072f-49db-8b01-37b8f23998c0
+ ;;; dns-mode.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]