aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/srecode
diff options
context:
space:
mode:
authorPaul Eggert2011-12-10 16:56:50 -0800
committerPaul Eggert2011-12-10 16:56:50 -0800
commit8f50130c565eaf0ad7c49e4ad044c3291ecdfa71 (patch)
treec8129448cbbf387fe82667ccac02983592c688f1 /lisp/cedet/srecode
parent85a83e2e2585a1906dec5168ed96ad521b5849ed (diff)
parent7b9d523a07395ecea505be88f45c33d73aea7038 (diff)
downloademacs-8f50130c565eaf0ad7c49e4ad044c3291ecdfa71.tar.gz
emacs-8f50130c565eaf0ad7c49e4ad044c3291ecdfa71.zip
Merge from trunk.
Diffstat (limited to 'lisp/cedet/srecode')
-rw-r--r--lisp/cedet/srecode/args.el3
-rw-r--r--lisp/cedet/srecode/ctxt.el2
-rw-r--r--lisp/cedet/srecode/dictionary.el2
-rw-r--r--lisp/cedet/srecode/document.el4
-rw-r--r--lisp/cedet/srecode/fields.el2
-rw-r--r--lisp/cedet/srecode/find.el2
-rw-r--r--lisp/cedet/srecode/insert.el4
-rw-r--r--lisp/cedet/srecode/srt-wy.el33
-rw-r--r--lisp/cedet/srecode/texi.el2
9 files changed, 26 insertions, 28 deletions
diff --git a/lisp/cedet/srecode/args.el b/lisp/cedet/srecode/args.el
index d8e02f978b2..73445fbf13d 100644
--- a/lisp/cedet/srecode/args.el
+++ b/lisp/cedet/srecode/args.el
@@ -32,7 +32,7 @@
32;;; :blank 32;;; :blank
33;; 33;;
34;; Using :blank means that the template should force blank lines 34;; Using :blank means that the template should force blank lines
35;; before and after the template, reguardless of where the insertion 35;; before and after the template, regardless of where the insertion
36;; is occurring. 36;; is occurring.
37(defun srecode-semantic-handle-:blank (dict) 37(defun srecode-semantic-handle-:blank (dict)
38 "Add macros into the dictionary DICT specifying blank line spacing. 38 "Add macros into the dictionary DICT specifying blank line spacing.
@@ -185,4 +185,3 @@ do not contain any text from preceding or following text."
185(provide 'srecode/args) 185(provide 'srecode/args)
186 186
187;;; srecode/args.el ends here 187;;; srecode/args.el ends here
188
diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el
index f392379347a..11d84e96f41 100644
--- a/lisp/cedet/srecode/ctxt.el
+++ b/lisp/cedet/srecode/ctxt.el
@@ -64,7 +64,7 @@ Some useful context values used by the provided srecode templates are:
64 \"comment\" - In a comment in a block of code 64 \"comment\" - In a comment in a block of code
65 -- these items show up at the end of the context list. -- 65 -- these items show up at the end of the context list. --
66 \"public\", \"protected\", \"private\" - 66 \"public\", \"protected\", \"private\" -
67 In or near a section of public/pritected/private entries. 67 In or near a section of public/protected/private entries.
68 \"code\" - In a block of code. 68 \"code\" - In a block of code.
69 \"string\" - In a string in a block of code 69 \"string\" - In a string in a block of code
70 \"comment\" - In a comment in a block of code 70 \"comment\" - In a comment in a block of code
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index 62ceff82448..1575ce7ae3b 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -437,7 +437,7 @@ The root dictionary is usually for a current or active insertion."
437;;; COMPOUND VALUE METHODS 437;;; COMPOUND VALUE METHODS
438;; 438;;
439;; Compound values must provide at least the toString method 439;; Compound values must provide at least the toString method
440;; for use in converting the compound value into sometehing insertable. 440;; for use in converting the compound value into something insertable.
441 441
442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) 442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value)
443 function 443 function
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index caf1ddebdb2..e25905ead83 100644
--- a/lisp/cedet/srecode/document.el
+++ b/lisp/cedet/srecode/document.el
@@ -122,7 +122,7 @@ RESULT is a string."
122 ("read" . "Reads from") 122 ("read" . "Reads from")
123 ("reset" . "Resets the parameters and returns") 123 ("reset" . "Resets the parameters and returns")
124 ("scan" . "Scans the ") 124 ("scan" . "Scans the ")
125 ("setup\\|init\\(iallize\\)?" . "Initializes the ") 125 ("setup\\|init\\(ialize\\)?" . "Initializes the ")
126 ("select" . "Chooses the ") 126 ("select" . "Chooses the ")
127 ("send" . "Sends a") 127 ("send" . "Sends a")
128 ("re?c\\(v\\|ieves?\\)" . "Receives a ") 128 ("re?c\\(v\\|ieves?\\)" . "Receives a ")
@@ -698,7 +698,7 @@ allocating something based on its type."
698 (cdr (car al))))) 698 (cdr (car al)))))
699 (setq al nil))) 699 (setq al nil)))
700 (setq al (cdr al))) 700 (setq al (cdr al)))
701 ;; add tailers to names which are obviously returning something. 701 ;; add trailers to names which are obviously returning something.
702 (if tailit 702 (if tailit
703 (progn 703 (progn
704 (setq al srecode-document-autocomment-return-last-alist) 704 (setq al srecode-document-autocomment-return-last-alist)
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index f13fb17ca8f..f4d34a0f2ab 100644
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -324,7 +324,7 @@ Try to use this to provide useful completion when available.")
324 ) 324 )
325 325
326(defvar srecode-field-replication-max-size 100 326(defvar srecode-field-replication-max-size 100
327 "Maximum size of a field before cancelling replication.") 327 "Maximum size of a field before canceling replication.")
328 328
329(defun srecode-field-mod-hook (ol after start end &optional pre-len) 329(defun srecode-field-mod-hook (ol after start end &optional pre-len)
330 "Modification hook for the field overlay. 330 "Modification hook for the field overlay.
diff --git a/lisp/cedet/srecode/find.el b/lisp/cedet/srecode/find.el
index d9765ebd449..b947c63f4dd 100644
--- a/lisp/cedet/srecode/find.el
+++ b/lisp/cedet/srecode/find.el
@@ -238,7 +238,7 @@ Optional argument HASH is the hash table to fill in."
238 (tabs (when mt (oref mt :tables))) 238 (tabs (when mt (oref mt :tables)))
239 ) 239 )
240 (while tabs 240 (while tabs
241 ;; Exclude templates for a perticular application. 241 ;; Exclude templates for a particular application.
242 (when (and (not (oref (car tabs) :application)) 242 (when (and (not (oref (car tabs) :application))
243 (srecode-template-table-in-project-p (car tabs))) 243 (srecode-template-table-in-project-p (car tabs)))
244 (maphash (lambda (key temp) 244 (maphash (lambda (key temp)
diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el
index 9fbfc5dc042..bbf8b881c4d 100644
--- a/lisp/cedet/srecode/insert.el
+++ b/lisp/cedet/srecode/insert.el
@@ -312,7 +312,7 @@ occur in your template.")
312 (setq doit nil))) 312 (setq doit nil)))
313 (goto-char pm) 313 (goto-char pm)
314 ) 314 )
315 ;; Do indentation reguardless of the newline. 315 ;; Do indentation regardless of the newline.
316 (when (and (eq i t) inbuff) 316 (when (and (eq i t) inbuff)
317 (indent-according-to-mode) 317 (indent-according-to-mode)
318 (goto-char pm)) 318 (goto-char pm))
@@ -946,7 +946,7 @@ with the dictionaries found in the dictionary."
946;; It will first insert the included template, then insert the embedded 946;; It will first insert the included template, then insert the embedded
947;; template wherever the $^$ in the included template was. 947;; template wherever the $^$ in the included template was.
948;; 948;;
949;; Since it uses dual inheretance, it will magically get the end-matching 949;; Since it uses dual inheritance, it will magically get the end-matching
950;; behavior of #, with the including feature of >. 950;; behavior of #, with the including feature of >.
951;; 951;;
952(defclass srecode-template-inserter-include-wrap (srecode-template-inserter-include srecode-template-inserter-section-start) 952(defclass srecode-template-inserter-include-wrap (srecode-template-inserter-include srecode-template-inserter-section-start)
diff --git a/lisp/cedet/srecode/srt-wy.el b/lisp/cedet/srecode/srt-wy.el
index 2fb8e7665e9..5bd202093e9 100644
--- a/lisp/cedet/srecode/srt-wy.el
+++ b/lisp/cedet/srecode/srt-wy.el
@@ -18,13 +18,12 @@
18;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 18;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
19 19
20;;; Commentary: 20;;; Commentary:
21 21;;
22;; Generated from srecode-template.wy in the CEDET repository. 22;; This file was generated from admin/grammars/srecode-template.wy.
23 23
24;;; Code: 24;;; Code:
25 25
26(require 'semantic/lex) 26(require 'semantic/lex)
27
28 27
29;;; Prologue 28;;; Prologue
30;; 29;;
@@ -206,10 +205,12 @@
206 205
207 206
208;;; Analyzers 207;;; Analyzers
209;; 208
210(define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer 209(define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer
211 "keyword analyzer for <keyword> tokens." 210 "string analyzer for <punctuation> tokens."
212 "\\(\\sw\\|\\s_\\)+") 211 "\\s.+"
212 nil
213 'punctuation)
213 214
214(define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer 215(define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer
215 "regexp analyzer for <symbol> tokens." 216 "regexp analyzer for <symbol> tokens."
@@ -217,22 +218,20 @@
217 nil 218 nil
218 'symbol) 219 'symbol)
219 220
220(define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer
221 "sexp analyzer for <string> tokens."
222 "\\s\""
223 'string)
224
225(define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer 221(define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer
226 "regexp analyzer for <number> tokens." 222 "regexp analyzer for <number> tokens."
227 semantic-lex-number-expression 223 semantic-lex-number-expression
228 nil 224 nil
229 'number) 225 'number)
230 226
231(define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer 227(define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer
232 "string analyzer for <punctuation> tokens." 228 "sexp analyzer for <string> tokens."
233 "\\s.+" 229 "\\s\""
234 nil 230 'string)
235 'punctuation) 231
232(define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer
233 "keyword analyzer for <keyword> tokens."
234 "\\(\\sw\\|\\s_\\)+")
236 235
237 236
238;;; Epilogue 237;;; Epilogue
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el
index acfc2486711..df90f6c464f 100644
--- a/lisp/cedet/srecode/texi.el
+++ b/lisp/cedet/srecode/texi.el
@@ -244,7 +244,7 @@ that class.
244 `function' => @dfn{function} 244 `function' => @dfn{function}
245 `variable' => @code{variable} 245 `variable' => @code{variable}
246 `class' => @code{class} @xref{class} 246 `class' => @code{class} @xref{class}
247 `unknown' => @code{unknonwn} 247 `unknown' => @code{unknown}
248 \"text\" => ``text'' 248 \"text\" => ``text''
249 'quoteme => @code{quoteme} 249 'quoteme => @code{quoteme}
250 non-nil => non-@code{nil} 250 non-nil => non-@code{nil}