1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(in-package :araneida)
(defun split (string &optional max (ws '(#\Space #\Tab)))
"Split `string' along whitespace as defined by the sequence `ws'.
Whitespace which causes a split is elided from the result. The whole
string will be split, unless `max' is provided, in which case the
string will be split into `max' tokens at most, the last one
containing the whole rest of the given `string', if any."
(flet ((is-ws (char) (find char ws)))
(nreverse
(let ((list nil) (start 0) (words 0) end)
(loop
(when (and max (>= words (1- max)))
(return (cons (subseq string start) list)))
(setf end (position-if #'is-ws string :start start))
(push (subseq string start end) list)
(incf words)
(unless end (return list))
(setf start (1+ end)))))))
;;; this and that may have different behaviour on strings with
;;; repeated whitespace -- e.g. "foo bar"
(defun split-quoted (str &optional max (ws '(#\Space #\Tab)))
"Split `string' along whitespace as defined by the sequence `ws',
but ignoring whitespace in quoted strings. Whitespace which causes a
split is elided from the result. The whole string will be split,
unless `max' is a non-negative integer, in which case the string will
be split into `max' tokens at most, the last one containing the whole
rest of the given `string', if any."
(do ((i 0 (1+ i))
(words '())
(split-allowed-p t)
(word '()))
((>= i (length str))
(reverse (cons (coerce (reverse word) 'string) words)))
(if (eql (elt str i) #\")
(setf split-allowed-p (not split-allowed-p)))
(if (eql (elt str i) #\\)
(setf i (1+ i))) ;advance past escape chars
(if (and split-allowed-p
(or (not max) (< (length words) (1- max)))
(member (elt str i) ws))
(progn
(setf words (cons (coerce (reverse word) 'string) words))
(setf word '()))
(setf word (cons (elt str i) word)))))
#|
(defun join (delim args)
"Join the list ARGS together as a string, with elements separated by DELIMITER"
(labels ((join1 (so-far delim args)
(if args
(join1 (concatenate 'string so-far delim
(princ-to-string (car args)))
delim (cdr args))
so-far)))
(join1 (car args) delim (cdr args))))
(join "," '("uyt" "kjlhlk"))
|#
|
