|
0
|
1 ;;; psgml-api.el --- Extra API functions for PSGML
|
|
70
|
2 ;; $Id: psgml-api.el,v 1.1.1.1 1996/12/18 22:43:36 steve Exp $
|
|
0
|
3
|
|
|
4 ;; Copyright (C) 1994 Lennart Staflin
|
|
|
5
|
|
|
6 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
|
|
|
7
|
|
|
8 ;; This program is free software; you can redistribute it and/or
|
|
|
9 ;; modify it under the terms of the GNU General Public License
|
|
|
10 ;; as published by the Free Software Foundation; either version 2
|
|
|
11 ;; of the License, or (at your option) any later version.
|
|
|
12 ;;
|
|
|
13 ;; This program is distributed in the hope that it will be useful,
|
|
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
16 ;; GNU General Public License for more details.
|
|
|
17 ;;
|
|
|
18 ;; You should have received a copy of the GNU General Public License
|
|
|
19 ;; along with this program; if not, write to the Free Software
|
|
|
20 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
21
|
|
|
22
|
|
|
23 ;;; Commentary:
|
|
|
24
|
|
|
25 ;; Provides some extra functions for the API to PSGML.
|
|
|
26
|
|
|
27
|
|
|
28 ;;; Code:
|
|
|
29
|
|
|
30 (provide 'psgml-api)
|
|
|
31 (require 'psgml)
|
|
|
32 (require 'psgml-parse)
|
|
|
33
|
|
|
34
|
|
|
35 ;;;; Mapping: map and modify
|
|
|
36
|
|
|
37 (defun sgml-map-element-modify (el-fun element)
|
|
|
38 "Apply EL-FUN to ELEMENT and the elements in its content.
|
|
|
39 The EL-FUN may change the buffer. But if it changes the buffer and
|
|
|
40 leaves the element with no start-tag some elements may be ignored."
|
|
|
41 (let ((level ; level in the element tree
|
|
|
42 0)
|
|
|
43 next
|
|
|
44 (tick ; change counter
|
|
|
45 (buffer-modified-tick)))
|
|
|
46 (while element
|
|
|
47 (funcall el-fun element)
|
|
|
48 ;; If the function has modified the buffer, a fresh parse is needed
|
|
|
49 (when (/= tick (buffer-modified-tick))
|
|
|
50 (setq element (sgml-find-element-of (sgml-element-start element)))
|
|
|
51 (setq tick (buffer-modified-tick)))
|
|
|
52 (cond
|
|
|
53 ;; Map content if any
|
|
|
54 ((setq next (sgml-element-content element))
|
|
|
55 (incf level))
|
|
|
56 ;; If in a sub-tree, move to next element
|
|
|
57 (t
|
|
|
58 (while (and (> level 0)
|
|
|
59 (null (setq next (sgml-element-next element))))
|
|
|
60 (setq element (sgml-element-parent element))
|
|
|
61 (decf level))))
|
|
|
62 (setq element next))))
|
|
|
63
|
|
|
64 ;;;; Map content
|
|
|
65
|
|
|
66 (defun sgml-map-content (element element-fun
|
|
|
67 &optional data-fun pi-fun entity-fun)
|
|
|
68 "Map content of ELEMENT, calling ELEMENT-FUN for every element.
|
|
|
69 Also calling DATA-FUN, if non-nil, with data in content."
|
|
|
70 (sgml-pop-all-entities)
|
|
|
71 (sgml-need-dtd)
|
|
|
72 (sgml-element-end element) ; Make sure all content is parsed
|
|
2
|
73 (let ((main-buffer-max (point-max)))
|
|
|
74 (save-excursion
|
|
|
75 (sgml-set-parse-state element 'start)
|
|
|
76 (when (eobp) (sgml-pop-entity))
|
|
|
77 (when (eolp) (forward-char 1))
|
|
|
78 (sgml-parse-data main-buffer-max data-fun pi-fun entity-fun)
|
|
|
79 (let ((c (sgml-tree-content element)))
|
|
|
80 (while c
|
|
|
81 (sgml-pop-all-entities)
|
|
|
82 (funcall element-fun c)
|
|
|
83 (sgml-set-parse-state c 'after)
|
|
|
84 (sgml-parse-data main-buffer-max data-fun pi-fun entity-fun)
|
|
|
85 (setq c (sgml-tree-next c)))))
|
|
|
86 )
|
|
0
|
87 (sgml-pop-all-entities))
|
|
|
88
|
|
|
89 (defun sgml-parse-data (sgml-goal sgml-data-function sgml-pi-function
|
|
|
90 sgml-entity-function)
|
|
|
91 (let ((sgml-throw-on-element-change 'el-done))
|
|
|
92 (catch sgml-throw-on-element-change
|
|
|
93 (sgml-with-parser-syntax
|
|
|
94 (sgml-parser-loop nil)))))
|
|
|
95
|
|
|
96 ;;;; Entity management
|
|
|
97
|
|
|
98 (defun sgml-push-to-string (string)
|
|
|
99 "Create an entity from STRING and push it on the top of the entity stack.
|
|
|
100 After this the current buffer will be a scratch buffer containing the text
|
|
|
101 of the new entity with point at the first character.
|
|
|
102 Use `sgml-pop-entity' to exit from this buffer."
|
|
|
103 (sgml-push-to-entity (sgml-make-entity "#STRING" 'text string)))
|
|
|
104
|
|
|
105
|
|
|
106
|
|
|
107 ;;; psgml-api.el ends here
|
