From b63abea0b53984f96a17b89011e9ca7e6b98602e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 10 Sep 2003 05:44:04 +0000 Subject: [PATCH] r7794: add whitespace trim functions --- strings.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/strings.lisp b/strings.lisp index 03d9b66..87d3254 100644 --- a/strings.lisp +++ b/strings.lisp @@ -153,6 +153,8 @@ (defun is-string-empty (str) (zerop (length str))) +(defvar *whitespace-chars* '(#\space #\tab #\return #\linefeed)) + (defun is-char-whitespace (c) (declare (character c) (optimize (speed 3) (safety 0))) (or (char= c #\Space) (char= c #\Tab) (char= c #\Return) @@ -162,6 +164,15 @@ "Return t if string is all whitespace" (every #'is-char-whitespace str)) +(defun string-right-trim-whitespace (str) + (string-right-trim *whitespace-chars* str)) + +(defun string-left-trim-whitespace (str) + (string-left-trim *whitespace-chars* str)) + +(defun string-trim-whitespace (str) + (string-trim *whitespace-chars* str)) + (defun replaced-string-length (str repl-alist) (declare (simple-string str) (optimize (speed 3) (safety 0) (space 0))) -- 2.34.1