Commit | Line | Data |
---|---|---|
8cd39fb3 MH |
1 | ;;; nxml-ns.el --- XML namespace processing |
2 | ||
acaf905b | 3 | ;; Copyright (C) 2003, 2007-2012 Free Software Foundation, Inc. |
8cd39fb3 MH |
4 | |
5 | ;; Author: James Clark | |
6 | ;; Keywords: XML | |
7 | ||
341543da | 8 | ;; This file is part of GNU Emacs. |
8cd39fb3 | 9 | |
4936186e | 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
341543da | 11 | ;; it under the terms of the GNU General Public License as published by |
4936186e GM |
12 | ;; the Free Software Foundation, either version 3 of the License, or |
13 | ;; (at your option) any later version. | |
8cd39fb3 | 14 | |
341543da GM |
15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
4936186e | 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
8cd39fb3 MH |
22 | |
23 | ;;; Commentary: | |
24 | ||
25 | ;; This file uses a prefix of `nxml-ns'. | |
26 | ||
27 | ;;; Code: | |
28 | ||
29 | (require 'nxml-util) | |
30 | ||
31 | (defvar nxml-ns-state nil | |
10545bd8 JB |
32 | "Contains the state of namespace processing. |
33 | The state is never modified destructively and so can be saved and | |
34 | restored without copying. | |
35 | ||
36 | The value is a stack represented by a list. The list has length | |
37 | N + 1 where N is the number of open elements. Each member of the | |
38 | list represents the bindings in effect for a particular element. | |
39 | Each member is itself a list whose car is the default namespace | |
8cd39fb3 MH |
40 | \(a symbol or nil) and whose cdr is an alist of (PREFIX . NS) pairs |
41 | where PREFIX is a string (never nil) and NS is the namespace URI | |
42 | symbol.") | |
43 | ||
44 | (defconst nxml-ns-initial-state | |
45 | (list (list nil (cons "xml" nxml-xml-namespace-uri))) | |
10545bd8 JB |
46 | "A list to be used as the initial value of `nxml-ns-state'. |
47 | This represents the state with no open elements and with the default | |
8cd39fb3 MH |
48 | namespace bindings (no default namespace and only the xml prefix bound).") |
49 | ||
50 | (defsubst nxml-ns-state () nxml-ns-state) | |
51 | ||
52 | (defsubst nxml-ns-set-state (state) | |
53 | (setq nxml-ns-state state)) | |
54 | ||
55 | (defsubst nxml-ns-state-equal (state) | |
56 | (equal nxml-ns-state state)) | |
57 | ||
58 | (defmacro nxml-ns-save (&rest body) | |
59 | `(let ((nxml-ns-state nxml-ns-initial-state)) | |
60 | ,@body)) | |
61 | ||
62 | (put 'nxml-ns-save 'lisp-indent-function 0) | |
63 | (def-edebug-spec nxml-ns-save t) | |
64 | ||
65 | (defun nxml-ns-init () | |
66 | (setq nxml-ns-state nxml-ns-initial-state)) | |
67 | ||
68 | (defun nxml-ns-push-state () | |
10545bd8 JB |
69 | "Change the state by starting a new element. |
70 | Namespace declarations are inherited from the parent state." | |
8cd39fb3 MH |
71 | (setq nxml-ns-state (cons (car nxml-ns-state) nxml-ns-state))) |
72 | ||
73 | (defun nxml-ns-pop-state () | |
10545bd8 JB |
74 | "Change the state by ending an element. |
75 | The behavior is undefined if there is no open element." | |
8cd39fb3 MH |
76 | (setq nxml-ns-state (cdr nxml-ns-state))) |
77 | ||
78 | (defun nxml-ns-get-prefix (prefix) | |
10545bd8 JB |
79 | "Return the symbol for namespace bound to PREFIX. |
80 | Return nil if PREFIX is unbound. PREFIX is a string, never nil." | |
8cd39fb3 MH |
81 | (let ((binding (assoc prefix (cdar nxml-ns-state)))) |
82 | (and binding (cdr binding)))) | |
83 | ||
84 | (defun nxml-ns-set-prefix (prefix ns) | |
10545bd8 JB |
85 | "Change the binding of PREFIX. |
86 | PREFIX is a string (never nil). NS is a symbol (never nil). | |
87 | The change will be in effect until the end of the current element." | |
8cd39fb3 MH |
88 | (setq nxml-ns-state |
89 | (let ((bindings (car nxml-ns-state))) | |
90 | (cons (cons (car bindings) | |
91 | (cons (cons prefix ns) (cdr bindings))) | |
92 | (cdr nxml-ns-state))))) | |
93 | ||
94 | (defun nxml-ns-get-default () | |
10545bd8 JB |
95 | "Return the current default namespace as a symbol. |
96 | Return nil if there is no default namespace." | |
8cd39fb3 MH |
97 | (caar nxml-ns-state)) |
98 | ||
99 | (defun nxml-ns-set-default (ns) | |
10545bd8 JB |
100 | "Changes the current default namespace. |
101 | The change will be in effect until the end of the current element. | |
8cd39fb3 MH |
102 | NS is a symbol or nil." |
103 | (setq nxml-ns-state | |
104 | (cons (cons ns (cdar nxml-ns-state)) | |
105 | (cdr nxml-ns-state)))) | |
106 | ||
107 | (defun nxml-ns-get-context () | |
108 | (car nxml-ns-state)) | |
109 | ||
110 | (defun nxml-ns-prefixes-for (ns &optional attributep) | |
111 | (let ((current (car nxml-ns-state)) | |
112 | prefixes) | |
113 | (when (if attributep | |
114 | (not ns) | |
115 | (eq (car current) ns)) | |
116 | (setq prefixes '(nil))) | |
117 | (setq current (cdr current)) | |
118 | (while (let ((binding (rassq ns current))) | |
119 | (when binding | |
120 | (when (eq (nxml-ns-get-prefix (car binding)) ns) | |
121 | (add-to-list 'prefixes | |
122 | (car binding))) | |
123 | (setq current | |
124 | (cdr (member binding current)))))) | |
125 | prefixes)) | |
126 | ||
127 | (defun nxml-ns-prefix-for (ns) | |
128 | (car (rassq ns (cdar nxml-ns-state)))) | |
129 | ||
130 | (defun nxml-ns-changed-prefixes () | |
131 | (let ((old (cadr nxml-ns-state)) | |
132 | (new (car nxml-ns-state)) | |
133 | changed) | |
134 | (if (eq old new) | |
135 | nil | |
136 | (unless (eq (car new) (car old)) | |
137 | (setq changed '(nil))) | |
138 | (setq new (cdr new)) | |
139 | (setq old (cdr old)) | |
140 | (while (not (eq new old)) | |
141 | (setq changed | |
142 | (cons (caar new) changed)) | |
143 | (setq new (cdr new)))) | |
144 | changed)) | |
10545bd8 | 145 | |
8cd39fb3 MH |
146 | (provide 'nxml-ns) |
147 | ||
148 | ;;; nxml-ns.el ends here |