Commit | Line | Data |
---|---|---|
78adbf9c CY |
1 | ;;; srecode-template.wy --- Semantic Recoder Template parser |
2 | ||
acaf905b | 3 | ;; Copyright (C) 2005-2012 Free Software Foundation, Inc. |
78adbf9c CY |
4 | |
5 | ;; Author: Eric Ludlam <zappo@gnu.org> | |
6 | ;; Keywords: syntax | |
7 | ;; X-RCS: $Id: srecode-template.wy,v 1.10 2009-01-09 23:01:54 zappo Exp $ | |
8 | ||
9 | ;; This file is part of GNU Emacs. | |
10 | ||
11 | ;; GNU Emacs is free software: you can redistribute it and/or modify | |
12 | ;; it under the terms of the GNU General Public License as published by | |
13 | ;; the Free Software Foundation, either version 3 of the License, or | |
14 | ;; (at your option) any later version. | |
15 | ||
16 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
20 | ||
21 | ;; You should have received a copy of the GNU General Public License | |
22 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
23 | ||
24 | ;;; Commentary: | |
25 | ;; | |
26 | ;; Parser for the Semantic Recoder template language | |
27 | ;; | |
28 | ;; Semantic Recoder templates are based on Google Templates | |
29 | ;; and are at the bottom of the Semantic Recoder API. | |
30 | ||
62a81506 CY |
31 | %package srecode-template-wy |
32 | %provide srecode/srt-wy | |
33 | ||
78adbf9c CY |
34 | %languagemode srecode-mode |
35 | ||
36 | %start template_file | |
37 | ||
38 | ;;; KEYWORDS | |
39 | %type <keyword> | |
40 | %keyword SET "set" | |
41 | %put SET summary "set <name> <value>" | |
42 | %keyword SHOW "show" | |
43 | %put SHOW summary "show <name> ; to show a section" | |
44 | %keyword MACRO "macro" | |
45 | %put MACRO summary "... macro \"string\" ..." | |
46 | %keyword CONTEXT "context" | |
47 | %put CONTEXT summary "context <name>" | |
48 | %keyword TEMPLATE "template" | |
49 | %put TEMPLATE summary "template <name>\\n <template definition>" | |
50 | %keyword SECTIONDICTIONARY "sectiondictionary" | |
51 | %put SECTIONDICTIONARY summary "sectiondictionary <name>\\n <dictionary entries>" | |
62a81506 CY |
52 | |
53 | %keyword SECTION "section" | |
54 | %put SECTION summary | |
55 | "section <name>\\n <dictionary entries>\\n end" | |
56 | ||
57 | %keyword END "end" | |
58 | %put END summary | |
59 | "section ... end" | |
60 | ||
78adbf9c CY |
61 | %keyword PROMPT "prompt" |
62 | %keyword DEFAULT "default" | |
63 | %keyword DEFAULTMACRO "defaultmacro" | |
64 | %keyword READ "read" | |
65 | %put { PROMPT DEFAULT DEFAULTMACRO READ } summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]" | |
66 | %keyword BIND "bind" | |
67 | %put BIND summary "bind \"<letter>\"" | |
68 | ||
69 | ;;; Punctuation Types | |
70 | %type <punctuation> syntax "\\s.+" | |
71 | %type <newline> | |
72 | %token <newline> newline | |
73 | ||
74 | %token <separator> TEMPLATE_BLOCK "^----" | |
75 | ||
76 | ;;; Bland default types | |
62a81506 | 77 | %type <property> syntax ":\\(\\w\\|\\s_\\)*" |
78adbf9c CY |
78 | %token <property> property |
79 | ||
80 | %type <symbol> | |
81 | %token <symbol> symbol | |
82 | ||
83 | %type <string> | |
84 | %token <string> string | |
85 | ||
86 | %type <number> | |
87 | %token <number> number | |
88 | ||
89 | %% | |
90 | ||
91 | template_file | |
92 | : newline ( ) | |
93 | | context | |
94 | | prompt | |
95 | | variable | |
96 | | template | |
97 | ; | |
98 | ||
99 | context | |
100 | : CONTEXT symbol newline | |
101 | (TAG $2 'context) | |
102 | ; | |
103 | ||
104 | prompt | |
105 | : PROMPT symbol string opt-default-fcn opt-read-fcn newline | |
106 | (TAG $2 'prompt :text (read $3) :default $4 :read $5) | |
107 | ; | |
108 | ||
109 | opt-default-fcn | |
110 | : DEFAULT symbol | |
111 | (progn (read $2)) | |
112 | | DEFAULT string | |
113 | (progn (read $2)) | |
114 | | DEFAULTMACRO string | |
115 | (progn (cons 'macro (read $2))) | |
116 | | () | |
117 | ; | |
118 | ||
119 | opt-read-fcn | |
120 | : READ symbol | |
121 | (progn (read $2)) | |
122 | | () | |
123 | ; | |
124 | ||
125 | variable | |
126 | : SET symbol insertable-string-list newline | |
127 | (VARIABLE-TAG $2 nil $3) | |
128 | | SHOW symbol newline | |
129 | (VARIABLE-TAG $2 nil t) | |
130 | ; | |
131 | ||
132 | insertable-string-list | |
133 | : insertable-string | |
134 | (list $1) | |
135 | | insertable-string-list insertable-string | |
136 | (append $1 (list $2)) | |
137 | ; | |
138 | ||
139 | insertable-string | |
140 | : string | |
141 | (read $1) | |
142 | | MACRO string | |
143 | (cons 'macro (read $2)) | |
144 | ; | |
145 | ||
146 | template | |
147 | : TEMPLATE templatename opt-dynamic-arguments newline | |
148 | opt-string | |
62a81506 | 149 | section-dictionary-list |
78adbf9c CY |
150 | TEMPLATE_BLOCK newline |
151 | opt-bind | |
152 | (FUNCTION-TAG $2 nil $3 :documentation $5 :code $7 | |
153 | :dictionaries $6 :binding $9 ) | |
154 | ; | |
155 | ||
156 | templatename | |
157 | : symbol | |
158 | | PROMPT | |
159 | | CONTEXT | |
160 | | TEMPLATE | |
161 | | DEFAULT | |
162 | | MACRO | |
163 | | DEFAULTMACRO | |
164 | | READ | |
165 | | SET | |
166 | ; | |
167 | ||
168 | opt-dynamic-arguments | |
169 | : property opt-dynamic-arguments | |
170 | (cons $1 $2) | |
171 | | () | |
172 | ; | |
173 | ||
174 | opt-string | |
175 | : string newline | |
176 | ( read $1 ) | |
177 | | () | |
178 | ; | |
179 | ||
78adbf9c | 180 | section-dictionary-list |
62a81506 CY |
181 | : ;; empty |
182 | () | |
183 | | section-dictionary-list flat-section-dictionary | |
184 | (append $1 (list $2)) | |
185 | | section-dictionary-list section-dictionary | |
78adbf9c CY |
186 | (append $1 (list $2)) |
187 | ; | |
188 | ||
62a81506 | 189 | flat-section-dictionary |
78adbf9c | 190 | : SECTIONDICTIONARY string newline |
62a81506 CY |
191 | flat-dictionary-entry-list |
192 | (cons (read $2) $4) | |
193 | ; | |
194 | ||
195 | flat-dictionary-entry-list | |
196 | : ;; empty | |
197 | () | |
198 | | flat-dictionary-entry-list flat-dictionary-entry | |
199 | (append $1 $2) | |
200 | ; | |
201 | ||
202 | flat-dictionary-entry | |
203 | : variable | |
204 | (EXPANDTAG $1) | |
205 | ; | |
206 | ||
207 | section-dictionary | |
208 | : SECTION string newline | |
209 | dictionary-entry-list | |
210 | END newline | |
78adbf9c CY |
211 | (cons (read $2) $4) |
212 | ; | |
213 | ||
62a81506 CY |
214 | dictionary-entry-list |
215 | : ;; emtpy | |
216 | () | |
217 | | dictionary-entry-list dictionary-entry | |
218 | (append $1 $2) | |
219 | ; | |
220 | ||
221 | dictionary-entry | |
78adbf9c CY |
222 | : variable |
223 | (EXPANDTAG $1) | |
62a81506 CY |
224 | | section-dictionary |
225 | (list $1) | |
78adbf9c CY |
226 | ; |
227 | ||
228 | opt-bind | |
229 | : BIND string newline | |
230 | ( read $2 ) | |
231 | | () | |
232 | ; | |
233 | ||
234 | %% | |
235 | (define-lex-simple-regex-analyzer srecode-template-property-analyzer | |
236 | "Detect and create a dynamic argument properties." | |
237 | ":\\(\\w\\|\\s_\\)*" 'property 0) | |
238 | ||
239 | (define-lex-regex-analyzer srecode-template-separator-block | |
240 | "Detect and create a template quote block." | |
241 | "^----\n" | |
242 | (semantic-lex-push-token | |
243 | (semantic-lex-token | |
244 | 'TEMPLATE_BLOCK | |
245 | (match-end 0) | |
246 | (semantic-lex-unterminated-syntax-protection 'TEMPLATE_BLOCK | |
247 | (goto-char (match-end 0)) | |
248 | (re-search-forward "^----$") | |
249 | (match-beginning 0)))) | |
250 | (setq semantic-lex-end-point (point))) | |
251 | ||
252 | ||
253 | (define-lex wisent-srecode-template-lexer | |
254 | "Lexical analyzer that handles SRecode Template buffers. | |
255 | It ignores whitespace, newlines and comments." | |
256 | semantic-lex-newline | |
257 | semantic-lex-ignore-whitespace | |
258 | semantic-lex-ignore-newline | |
259 | semantic-lex-ignore-comments | |
260 | srecode-template-separator-block | |
261 | srecode-template-wy--<keyword>-keyword-analyzer | |
262 | srecode-template-property-analyzer | |
263 | srecode-template-wy--<symbol>-regexp-analyzer | |
264 | srecode-template-wy--<number>-regexp-analyzer | |
265 | srecode-template-wy--<string>-sexp-analyzer | |
266 | srecode-template-wy--<punctuation>-string-analyzer | |
267 | semantic-lex-default-action | |
268 | ) | |
269 | ||
62a81506 | 270 | ;;; srecode-template.wy ends here |