projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d11d6cc
)
r7794: add whitespace trim functions
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 10 Sep 2003 05:44:04 +0000
(
05:44
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 10 Sep 2003 05:44:04 +0000
(
05:44
+0000)
strings.lisp
patch
|
blob
|
history
diff --git
a/strings.lisp
b/strings.lisp
index 03d9b66a82dca873377e855c24ce2c6af7fcfcae..87d325425c8e7902b9ea06542952e31836aa408e 100644
(file)
--- a/
strings.lisp
+++ b/
strings.lisp
@@
-153,6
+153,8
@@
(defun is-string-empty (str)
(zerop (length str)))
(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)
(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))
"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)))
(defun replaced-string-length (str repl-alist)
(declare (simple-string str)
(optimize (speed 3) (safety 0) (space 0)))