From ef8ea30ef0c5094cb07edc1a17fbeb2ff68da6b2 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 18:11:29 +0000 Subject: [PATCH] (std11-lexical-analyze): New function. --- std11-parse.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/std11-parse.el b/std11-parse.el index 200008e..57d9353 100644 --- a/std11-parse.el +++ b/std11-parse.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Keywords: mail, news, RFC 822, STD 11 -;; Version: $Id: std11-parse.el,v 0.7 1996-08-28 18:07:03 morioka Exp $ +;; Version: $Id: std11-parse.el,v 0.8 1996-08-28 18:11:29 morioka Exp $ ;; This file is part of tl (Tiny Library). @@ -114,6 +114,24 @@ (substring str p)) ))) +(defun std11-lexical-analyze (str) + (let (dest ret) + (while (not (string-equal str "")) + (setq ret + (or (std11-analyze-quoted-string str) + (std11-analyze-domain-literal str) + (std11-analyze-comment str) + (std11-analyze-spaces str) + (std11-analyze-special str) + (std11-analyze-atom str) + '((error) . "") + )) + (setq dest (cons (car ret) dest)) + (setq str (cdr ret)) + ) + (nreverse dest) + )) + ;;; @ end ;;; -- 1.7.10.4