From 689651888c8128cfb2c8361640a9e9ceba87ae8f Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 17:15:33 +0000 Subject: [PATCH] (std11-analyze-atom): New function. --- std11-parse.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/std11-parse.el b/std11-parse.el index aaea3da..d56b4ff 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.2 1996-08-28 17:06:45 morioka Exp $ +;; Version: $Id: std11-parse.el,v 0.3 1996-08-28 17:15:33 morioka Exp $ ;; This file is part of tl (Tiny Library). @@ -34,6 +34,8 @@ (defconst std11-space-chars " \t\n") (defconst std11-spaces-regexp (concat "^[" std11-space-chars "]+")) (defconst std11-special-chars "][()<>@,;:\\<>.\"") +(defconst std11-atom-regexp + (concat "^[^" std11-special-chars std11-space-chars "]+")) (defun std11-analyze-spaces (str) (if (string-match std11-spaces-regexp str) @@ -50,6 +52,13 @@ (substring str 1) ))) +(defun std11-analyze-atom (str) + (if (string-match std11-atom-regexp str) + (let ((end (match-end 0))) + (cons (cons 'atom (substring str 0 end)) + (substring str end) + )))) + ;;; @ end ;;; -- 1.7.10.4