projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Write white
[elisp/flim.git]
/
ew-parse.scm
diff --git
a/ew-parse.scm
b/ew-parse.scm
index
7f628d6
..
7abdedf
100644
(file)
--- a/
ew-parse.scm
+++ b/
ew-parse.scm
@@
-1,4
+1,4
@@
-(define message-grammar
+(define field-grammar
'(
; Terminal symbols
*anchor*
'(
; Terminal symbols
*anchor*
@@
-12,53
+12,60
@@
tag-address+
tag-phrase*
tag-phrase-msg-id*
tag-phrase*
tag-phrase-msg-id*
-lt
-gt
-at
-comma
-semicolon
-colon
+;; S : STD11 structured field
+;; M : MIME structured field
+;; U : Unstructured field
+;; N : Non-scanning field
-dot ; for STD11
-atom ; for STD11
+lt ; S/M
+gt ; S/M
+at ; S/M
+comma ; S/M
+semicolon ; S/M
+colon ; S/M
-slash ; for MIME
-question ; for MIME
-equal ; for MIME
-token ; for MIME
+dot ; S
+atom ; S
-us-texts ; for UNSTRUCTURED
-us-wsp ; for UNSTRUCTURED
-us-fold ; for UNSTRUCTURED
+slash ; M
+question ; M
+equal ; M
+token ; M
-wsp
-fold
+qs-begin ; S/M
+qs-end ; S/M
+qs-texts ; S/M
+qs-wsp ; S/M
+qs-fold ; S/M
+qs-qfold ; S/M
+qs-qpair ; S/M
-qs-begin
-qs-end
-qs-texts
-qs-wsp
-qs-fold
-qs-qfold
-qs-qpair
+dl-begin ; S/M
+dl-end ; S/M
+dl-texts ; S/M
+dl-wsp ; S/M
+dl-fold ; S/M
+dl-qfold ; S/M
+dl-qpair ; S/M
-dl-begin
-dl-end
-dl-texts
-dl-wsp
-dl-fold
-dl-qfold
-dl-qpair
+cm-begin ; S/M
+cm-end ; S/M
+cm-nested-begin ; S/M
+cm-nested-end ; S/M
+cm-texts ; S/M
+cm-wsp ; S/M
+cm-fold ; S/M
+cm-qfold ; S/M
+cm-qpair ; S/M
-cm-begin
-cm-end
-cm-nested-begin
-cm-nested-end
-cm-texts
-cm-wsp
-cm-fold
-cm-qfold
-cm-qpair
+wsp ; S/M
+fold ; S/M
+
+us-texts ; U
+us-wsp ; U
+us-fold ; U
+
+n-body ; N
; Productions
(start (tag-mailbox gap mailbox) : ()
; Productions
(start (tag-mailbox gap mailbox) : ()
@@
-160,7
+167,7
@@
cm-qpair
))
))
-(gen-lalr1 message-grammar "ew-parse.el"
+(gen-lalr1 field-grammar "ew-parse.el"
"(provide 'ew-parse)
(require 'ew-data)
"
"(provide 'ew-parse)
(require 'ew-data)
"
@@
-171,7
+178,8
@@
cm-qpair
(put 'ew:cm-qpair 'decode 'ew-decode-comment)
(put 'ew:us-texts 'decode 'ew-decode-unstructured)
(put 'ew:us-wsp 'decode 'ew-decode-unstructured)
(put 'ew:cm-qpair 'decode 'ew-decode-comment)
(put 'ew:us-texts 'decode 'ew-decode-unstructured)
(put 'ew:us-wsp 'decode 'ew-decode-unstructured)
-(put 'ew:us-fold 'decode 'ew-decode-unstructured)"
+(put 'ew:us-fold 'decode 'ew-decode-unstructured)
+"
'ew)
(print-states)
'ew)
(print-states)