admin/grammars/srecode-template.wy

   1 ;;; srecode-template.wy --- Semantic Recoder Template parser
   2
   3 ;; Copyright (C) 2005-2012 Free Software Foundation, Inc.
   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
  31 %languagemode  srecode-mode
  32
  33 %start template_file
  34
  35 ;;; KEYWORDS
  36 %type    <keyword>
  37 %keyword SET  "set"
  38 %put     SET  summary "set <name> <value>"
  39 %keyword SHOW "show"
  40 %put     SHOW summary "show <name>   ; to show a section"
  41 %keyword MACRO "macro"
  42 %put     MACRO summary "... macro \"string\" ..."
  43 %keyword CONTEXT "context"
  44 %put     CONTEXT summary "context <name>"
  45 %keyword TEMPLATE  "template"
  46 %put     TEMPLATE  summary "template <name>\\n <template definition>"
  47 %keyword SECTIONDICTIONARY "sectiondictionary"
  48 %put     SECTIONDICTIONARY summary "sectiondictionary <name>\\n <dictionary entries>"
  49 %keyword PROMPT "prompt"
  50 %keyword DEFAULT "default"
  51 %keyword DEFAULTMACRO "defaultmacro"
  52 %keyword READ "read"
  53 %put     { PROMPT DEFAULT DEFAULTMACRO READ } summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]"
  54 %keyword BIND "bind"
  55 %put     BIND summary "bind \"<letter>\""
  56
  57 ;;; Punctuation Types
  58 %type <punctuation> syntax "\\s.+"
  59 %type <newline>
  60 %token <newline> newline
  61
  62 %token <separator> TEMPLATE_BLOCK "^----"
  63
  64 ;;; Bland default types
  65 %type <property> ":\\(\\w\\|\\s_\\)*"
  66 %token <property> property
  67
  68 %type  <symbol>
  69 %token <symbol> symbol
  70
  71 %type  <string>
  72 %token <string> string
  73
  74 %type  <number>
  75 %token <number> number
  76
  77 %%
  78
  79 template_file
  80   : newline ( )
  81   | context
  82   | prompt
  83   | variable
  84   | template
  85   ;
  86
  87 context
  88   : CONTEXT symbol newline
  89     (TAG $2 'context)
  90   ;
  91
  92 prompt
  93   : PROMPT symbol string opt-default-fcn opt-read-fcn newline
  94     (TAG $2 'prompt :text (read $3) :default $4 :read $5)
  95   ;
  96
  97 opt-default-fcn
  98   : DEFAULT symbol
  99     (progn (read $2))
 100   | DEFAULT string
 101     (progn (read $2))
 102   | DEFAULTMACRO string
 103     (progn (cons 'macro (read $2)))
 104   | ()
 105   ;
 106
 107 opt-read-fcn
 108   : READ symbol
 109     (progn (read $2))
 110   | ()
 111   ;
 112
 113 variable
 114   : SET symbol insertable-string-list newline
 115     (VARIABLE-TAG $2 nil $3)
 116   | SHOW symbol newline
 117     (VARIABLE-TAG $2 nil t)
 118   ;
 119
 120 insertable-string-list
 121   : insertable-string
 122     (list $1)
 123   | insertable-string-list insertable-string
 124     (append $1 (list $2))
 125   ;
 126
 127 insertable-string
 128   : string
 129     (read $1)
 130   | MACRO string
 131     (cons 'macro (read $2))
 132   ;
 133
 134 template
 135   : TEMPLATE templatename opt-dynamic-arguments newline
 136     opt-string
 137     opt-section-dictionaries
 138     TEMPLATE_BLOCK newline
 139     opt-bind
 140     (FUNCTION-TAG $2 nil $3 :documentation $5 :code $7
 141                   :dictionaries $6 :binding $9 )
 142   ;
 143
 144 templatename
 145   : symbol
 146   | PROMPT
 147   | CONTEXT
 148   | TEMPLATE
 149   | DEFAULT
 150   | MACRO
 151   | DEFAULTMACRO
 152   | READ
 153   | SET
 154   ;
 155
 156 opt-dynamic-arguments
 157   : property opt-dynamic-arguments
 158     (cons $1 $2)
 159   | ()
 160   ;
 161
 162 opt-string
 163   : string newline
 164     ( read $1 )
 165   | ()
 166   ;
 167
 168 opt-section-dictionaries
 169   : () ;; EMPTY
 170   | section-dictionary-list
 171   ;
 172
 173 section-dictionary-list
 174   : one-section-dictionary
 175     (list $1)
 176   | section-dictionary-list one-section-dictionary
 177     (append $1 (list $2))
 178   ;
 179
 180 one-section-dictionary
 181   : SECTIONDICTIONARY string newline
 182     variable-list
 183     (cons (read $2) $4)
 184   ;
 185
 186 variable-list
 187   : variable
 188     (EXPANDTAG $1)
 189   | variable-list variable
 190     (append $1 (EXPANDTAG $2))
 191   ;
 192
 193 opt-bind
 194   : BIND string newline
 195     ( read $2 )
 196   | ()
 197   ;
 198
 199 %%
 200 (define-lex-simple-regex-analyzer srecode-template-property-analyzer
 201   "Detect and create a dynamic argument properties."
 202   ":\\(\\w\\|\\s_\\)*" 'property 0)
 203
 204 (define-lex-regex-analyzer srecode-template-separator-block
 205   "Detect and create a template quote block."
 206   "^----\n"
 207   (semantic-lex-push-token
 208    (semantic-lex-token
 209     'TEMPLATE_BLOCK
 210     (match-end 0)
 211     (semantic-lex-unterminated-syntax-protection 'TEMPLATE_BLOCK
 212       (goto-char (match-end 0))
 213       (re-search-forward "^----$")
 214       (match-beginning 0))))
 215   (setq semantic-lex-end-point (point)))
 216
 217
 218 (define-lex wisent-srecode-template-lexer
 219   "Lexical analyzer that handles SRecode Template buffers.
 220 It ignores whitespace, newlines and comments."
 221   semantic-lex-newline
 222   semantic-lex-ignore-whitespace
 223   semantic-lex-ignore-newline
 224   semantic-lex-ignore-comments
 225   srecode-template-separator-block
 226   srecode-template-wy--<keyword>-keyword-analyzer
 227   srecode-template-property-analyzer
 228   srecode-template-wy--<symbol>-regexp-analyzer
 229   srecode-template-wy--<number>-regexp-analyzer
 230   srecode-template-wy--<string>-sexp-analyzer
 231   srecode-template-wy--<punctuation>-string-analyzer
 232   semantic-lex-default-action
 233   )
 234
 235 ;;; wisent-dot.wy ends here