This commit was manufactured by cvs2svn to create branch

[elisp/flim.git] / ew-scan-u.el

diff --git a/ew-scan-u.el b/ew-scan-u.el
deleted file mode 100644 (file)
index 92c240f..0000000
--- a/ew-scan-u.el
+++ /dev/null
@@ -1,66 +0,0 @@
-(require 'lex)
-(require 'automata)
-(require 'ew-data)
-(require 'ew-parse)
-(provide 'ew-scan-u)
-
-(defmacro ew-scan-unstructured (scan col str)
-  `(let ((res (ew-make-anchor col str))
-        (p 0)
-        (q (length str))
-        r
-        type)
-     (while (< p q)
-       (setq r p)
-       (setq
-       type
-       (,scan
-        str p q
-        ([" \t"] 'ew:us-wsp)
-        (((* [^ " \t\r"])
-          (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-          (* ?\r)
-          (?\r ?\n [" \t"]))
-         (when (< r (- p 3))
-           (ew-add-frag res r (- p 3) 'ew:us-texts)
-           (setq r (- p 3)))
-         'ew:us-fold)
-        (((* [^ " \t\r"])
-          (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-          (* ?\r)
-          (?\r ?\n [^ " \t"]))
-         (when (< r (- p 3))
-           (ew-add-frag res r (- p 3) 'ew:us-texts)
-           (setq r (- p 3)))
-         (setq p q) 'ew:*err*)
-        (((* [^ " \t\r"])
-          (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
-          (* ?\r))
-         (if (< r p)
-             'ew:us-texts
-           (progn (setq p q) 'ew:*err*)))))
-       (ew-add-frag res r p type))
-     (ew-terminate res)
-     res))
-
-(defun ew-scan-unibyte-unstructured (col str)
-  (ew-scan-unstructured lex-scan-unibyte col str))
-(defun ew-scan-multibyte-unstructured (col str)
-  (ew-scan-unstructured lex-scan-multibyte col str))
-
-'(     
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-unstructured
-    0 " Hello! =?US-ASCII?Q?Hello!?="))))
-
-(npp
- (mapcar
-  (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
-  (ew-frag-list
-   (ew-scan-unibyte-unstructured
-    0 " \r\na"))))
-
-)