annotate lisp/textmodes/dns-mode.el @ 108712:056a00ed4b81

Use terminfo rather than termcap on recent NetBSD. * configure.in: On NetBSD, if terminfo is found, use it in preference to termcap. (Bug#6190)
author Glenn Morris <rgm@gnu.org>
date Wed, 19 May 2010 23:37:29 -0700
parents de84b07503b4
children 8d09094063d0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1 ;;; dns-mode.el --- a mode for viewing/editing Domain Name System master files
64751
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106251
diff changeset
3 ;; Copyright (C) 2000, 2001, 2004, 2005, 2006, 2007, 2008, 2009, 2010
79719
dc100f64b2b7 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78225
diff changeset
4 ;; Free Software Foundation, Inc.
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
5
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
6 ;; Author: Simon Josefsson <simon@josefsson.org>
106251
76837abf70c1 * textmodes/dns-mode.el: Add "Keywords: comm". It's only an
Kevin Ryde <user42@zip.com.au>
parents: 105870
diff changeset
7 ;; Keywords: DNS master zone file SOA comm
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
8
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
10
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79719
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79719
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79719
diff changeset
14 ;; (at your option) any later version.
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
15
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
20
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79719
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
23
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
24 ;;; Commentary:
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
25
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
26 ;; Use M-x dns-mode RET to invoke in master files.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
27 ;;
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
28 ;; C-c C-s Increment SOA serial.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
29 ;; Understands YYYYMMDDNN, Unix time, and serial number formats,
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
30 ;; and complains if it fail to find SOA serial.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
31 ;;
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
32 ;; Put something similar to the following in your ~/.emacs to use this file:
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
33 ;;
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
34 ;; (load "~/path/to/dns-mode.el")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
35 ;; (setq auto-mode-alist (cons '("\\.soa\\'" . dns-mode) auto-mode-alist))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
36
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
37 ;;; References:
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
38
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
39 ;; RFC 1034, "DOMAIN NAMES - CONCEPTS AND FACILITIES", P. Mockapetris.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
40 ;; RFC 1035, "DOMAIN NAMES - IMPLEMENTATION AND SPECIFICATION", P. Mockapetris.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
41
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
42 ;;; Release history:
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
43
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
44 ;; 2004-09-11 Posted on gnu.emacs.sources.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
45 ;; 2004-09-13 Ported to XEmacs.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
46 ;; 2004-09-14 Installed in Emacs CVS.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
47
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
48 ;;; Code:
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
49
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
50 (defgroup dns-mode nil
62807
9c7d08864aa8 (dns-mode): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents: 57100
diff changeset
51 "DNS master file mode configuration."
9c7d08864aa8 (dns-mode): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents: 57100
diff changeset
52 :group 'data)
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
53
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
54 (defconst dns-mode-classes '("IN" "CS" "CH" "HS")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
55 "List of strings with known DNS classes.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
56
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
57 (defconst dns-mode-types '("A" "NS" "MD" "MF" "CNAME" "SOA" "MB" "MG" "MR"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
58 "NULL" "WKS" "PTR" "HINFO" "MINFO" "MX" "TXT"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
59 "RP" "AFSDB" "X25" "ISDN" "RT" "NSAP" "NSAP"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
60 "SIG" "KEY" "PX" "GPOS" "AAAA" "LOC" "NXT"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
61 "EID" "NIMLOC" "SRV" "ATMA" "NAPTR" "KX" "CERT"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
62 "A6" "DNAME" "SINK" "OPT" "APL" "DS" "SSHFP"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
63 "RRSIG" "NSEC" "DNSKEY" "UINFO" "UID" "GID"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
64 "UNSPEC" "TKEY" "TSIG" "IXFR" "AXFR" "MAILB"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
65 "MAILA")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
66 "List of strings with known DNS types.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
67
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
68 ;; Font lock.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
69
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
70 (defvar dns-mode-control-entity-face 'font-lock-keyword-face
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
71 "Name of face used for control entities, e.g. $ORIGIN.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
72
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
73 (defvar dns-mode-bad-control-entity-face 'font-lock-warning-face
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
74 "Name of face used for non-standard control entities, e.g. $FOO.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
75
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
76 (defvar dns-mode-type-face 'font-lock-type-face
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
77 "Name of face used for DNS types, e.g., SOA.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
78
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
79 (defvar dns-mode-class-face 'font-lock-constant-face
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
80 "Name of face used for DNS classes, e.g., IN.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
81
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
82 (defcustom dns-mode-font-lock-keywords
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
83 `(("^$ORIGIN" 0 ,dns-mode-control-entity-face)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
84 ("^$INCLUDE" 0 ,dns-mode-control-entity-face)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
85 ("^$[a-z0-9A-Z]+" 0 ,dns-mode-bad-control-entity-face)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
86 (,(regexp-opt dns-mode-classes) 0 ,dns-mode-class-face)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
87 (,(regexp-opt dns-mode-types) 0 ,dns-mode-type-face))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
88 "Font lock keywords used to highlight text in DNS master file mode."
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
89 :type 'sexp
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
90 :group 'dns-mode)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
91
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
92 (defcustom dns-mode-soa-auto-increment-serial t
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
93 "Whether to increment the SOA serial number automatically.
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
94
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
95 If this variable is t, the serial number is incremented upon each save of
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
96 the file. If it is `ask', Emacs asks for confirmation whether it should
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
97 increment the serial upon saving. If nil, serials must be incremented
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
98 manually with \\[dns-mode-soa-increment-serial]."
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
99 :type '(choice (const :tag "Always" t)
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
100 (const :tag "Ask" ask)
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
101 (const :tag "Never" nil))
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
102 :group 'dns-mode)
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
103
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
104 ;; Syntax table.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
105
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
106 (defvar dns-mode-syntax-table
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
107 (let ((table (make-syntax-table)))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
108 (modify-syntax-entry ?\; "< " table)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
109 (modify-syntax-entry ?\n "> " table)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
110 table)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
111 "Syntax table in use in DNS master file buffers.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
112
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
113 ;; Keymap.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
114
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
115 (defvar dns-mode-map
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
116 (let ((map (make-sparse-keymap)))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
117 (define-key map "\C-c\C-s" 'dns-mode-soa-increment-serial)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
118 map)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
119 "Keymap for DNS master file mode.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
120
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
121 ;; Menu.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
122
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
123 (defvar dns-mode-menu nil
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
124 "Menubar used in DNS master file mode.")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
125
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
126 (easy-menu-define dns-mode-menu dns-mode-map
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
127 "DNS Menu."
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
128 '("DNS"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
129 ["Increment SOA serial" dns-mode-soa-increment-serial t]))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
130
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
131 ;; Mode.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
132
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
133 ;;;###autoload
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
134 (define-derived-mode dns-mode text-mode "DNS"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
135 "Major mode for viewing and editing DNS master files.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
136 This mode is inherited from text mode. It add syntax
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
137 highlighting, and some commands for handling DNS master files.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
138 Its keymap inherits from `text-mode' and it has the same
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
139 variables for customizing indentation. It has its own abbrev
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
140 table and its own syntax table.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
141
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
142 Turning on DNS mode runs `dns-mode-hook'."
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
143 (set (make-local-variable 'comment-start) ";")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
144 (set (make-local-variable 'comment-end) "")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
145 (set (make-local-variable 'comment-start-skip) ";+ *")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
146 (unless (featurep 'xemacs)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
147 (set (make-local-variable 'font-lock-defaults)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
148 '(dns-mode-font-lock-keywords nil nil ((?_ . "w")))))
72359
2b576e9ebfa4 (dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72350
diff changeset
149 (add-hook 'before-save-hook 'dns-mode-soa-maybe-increment-serial
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
150 nil t)
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
151 (easy-menu-add dns-mode-menu dns-mode-map))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
152
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
153 ;;;###autoload (defalias 'zone-mode 'dns-mode)
108302
de84b07503b4 * textmodes/dns-mode.el (auto-mode-alist): Add entry for .zone files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
154 ;;;###autoload (add-to-list 'auto-mode-alist (purecopy '("\\.zone\\'" . zone-mode)))
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
155
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
156 ;; Tools.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
157
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
158 ;;;###autoload
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
159 (defun dns-mode-soa-increment-serial ()
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
160 "Locate SOA record and increment the serial field."
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
161 (interactive)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
162 (save-excursion
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
163 (goto-char (point-min))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
164 (unless (re-search-forward
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
165 (concat "^\\(\\(\\([^ \t]+[ \t]+\\)?[^ \t]+"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
166 "[ \t]+\\)?[^ \t]+[ \t]+\\)?SOA") nil t)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
167 (error "Cannot locate SOA record"))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
168 (if (re-search-forward (concat "\\<\\("
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
169 ;; year
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
170 "\\(198\\|199\\|20[0-9]\\)[0-9]"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
171 ;; month
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
172 "\\(0[0-9]\\|10\\|11\\|12\\)"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
173 ;; day
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
174 "\\([012][0-9]\\|30\\|31\\)"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
175 ;; counter
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
176 "\\([0-9]\\{1,3\\}\\)"
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
177 "\\)\\>")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
178 nil t)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
179 ;; YYYYMMDDIII format, one to three I's.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
180 (let* ((serial (match-string 1))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
181 (counterstr (match-string 5))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
182 (counter (string-to-number counterstr))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
183 (now (format-time-string "%Y%m%d"))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
184 (nowandoldserial (concat now counterstr)))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
185 (if (string< serial nowandoldserial)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
186 (let ((new (format "%s00" now)))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
187 (replace-match new nil nil nil 1)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
188 (message "Replaced old serial %s with %s" serial new))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
189 (if (string= serial nowandoldserial)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
190 (let ((new (format (format "%%s%%0%dd" (length counterstr))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
191 now (1+ counter))))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
192 (replace-match new nil nil nil 1)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
193 (message "Replaced old serial %s with %s" serial new))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
194 (error "Current SOA serial is in the future"))))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
195 (if (re-search-forward "\\<\\([0-9]\\{9,10\\}\\)\\>" nil t)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
196 ;; Unix time
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
197 (let* ((serial (match-string 1))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
198 (new (format-time-string "%s")))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
199 (if (not (string< serial new))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
200 (error "Current SOA serial is in the future")
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
201 (replace-match new nil nil nil 1)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
202 (message "Replaced old serial %s with %s" serial new)))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
203 (if (re-search-forward "\\<\\([0-9]+\\)\\>" nil t)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
204 ;; Just any serial number.
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
205 (let* ((serial (match-string 1))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
206 (new (format "%d" (1+ (string-to-number serial)))))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
207 (replace-match new nil nil nil 1)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
208 (message "Replaced old serial %s with %s" serial new))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
209 (error "Cannot locate serial number in SOA record"))))))
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
210
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
211 (defun dns-mode-soa-maybe-increment-serial ()
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
212 "Increment SOA serial if needed.
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
213
72359
2b576e9ebfa4 (dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72350
diff changeset
214 This function is run from `before-save-hook'."
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
215 (when (and (buffer-modified-p)
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
216 dns-mode-soa-auto-increment-serial
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
217 (or (eq dns-mode-soa-auto-increment-serial t)
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
218 (y-or-n-p "Increment SOA serial? ")))
72361
3b5cb5e41d55 Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents: 72359
diff changeset
219 ;; If `dns-mode-soa-increment-serial' signals an error saving will
3b5cb5e41d55 Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents: 72359
diff changeset
220 ;; fail but that probably means that the serial should be fixed to
3b5cb5e41d55 Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents: 72359
diff changeset
221 ;; comply with the RFC anyway! -rfr
72359
2b576e9ebfa4 (dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72350
diff changeset
222 (progn (dns-mode-soa-increment-serial)
72361
3b5cb5e41d55 Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents: 72359
diff changeset
223 ;; We return nil in case this is used in write-contents-functions.
3b5cb5e41d55 Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents: 72359
diff changeset
224 nil)))
72350
45347140c0d0 * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents: 68648
diff changeset
225
105870
26baacb565b0 * textmodes/tex-mode.el (tex-alt-dvi-print-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100908
diff changeset
226 ;;;###autoload(add-to-list 'auto-mode-alist (purecopy '("\\.soa\\'" . dns-mode)))
57100
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
227
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
228 (provide 'dns-mode)
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
229
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
230 ;; arch-tag: 6a179f0a-072f-49db-8b01-37b8f23998c0
3eab555cf92b files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
231 ;;; dns-mode.el ends here