string
List of symbols:
str, str-bytes, str-cat-list, str-contains, str-empty?, str-lower, str-map, str-push!, str-replace, str-split, str-splitn, str-starts-with, str-sub, str-trim, str-trim!, str-upper
str
Usage: (str arg0 ... argN) -> string
Make a new string with its arguments.
Arguments will be turned into strings. If an argument is a process then the output of the process will be captured and put into the string.
Example:
(test::assert-equal "stringsome" (str "string" "some"))
(test::assert-equal "string" (str "string" ""))
(test::assert-equal "string 50" (str "string" " " 50))
str-bytes
Usage: (str-bytes string) -> int
Return number of bytes in a string (may be more then length).
Strings are utf8 so it chars and bytes may not be a one to one match.
Example:
(test::assert-equal 4 (str-bytes "Stau"))
(test::assert-equal 0 (str-bytes ""))
; Note 5 chars and 6 bytes because of the final char.
(test::assert-equal 6 (str-bytes "StauΣ"))
str-cat-list
Usage: (str-cat-list join-str sequence) -> string
Build a string by concatenating a sequence of strings by join-str.
Example:
(test::assert-equal "stringxxxyyyxxxsome" (str-cat-list "xxx" ["string" "yyy" "some"]))
(test::assert-equal "string yyy some" (str-cat-list " " ["string" "yyy" "some"]))
(test::assert-equal "stringyyysome" (str-cat-list "" ["string" "yyy" "some"]))
str-contains
Usage: (str-contains string pattern) -> #t/#f
True if string contains pattern (pattern will be converted to a string first).
Example:
(test::assert-true (str-contains "Stausomething" "Stau"))
(test::assert-false (str-contains "Stausomething" "StaU"))
(test::assert-true (str-contains "Stausomething" "some"))
(test::assert-false (str-contains "Stausomething" "Some"))
(test::assert-true (str-contains "Stausomething" "thing"))
(test::assert-false (str-contains "Stausomething" "Thing"))
(test::assert-true (str-contains "StausomeΣthing" "someΣ"))
str-empty?
Usage: (str-empty? string) -> #t/#f
Is a string empty? Let's find out...
Example:
(test::assert-true (str-empty? ""))
(test::assert-true (str-empty? (str-trim " ")))
(test::assert-false (str-empty? " "))
(test::assert-false (str-empty? "string"))
str-lower
Usage: (str-lower string) -> string
Get all lower case string from a string.
Example:
(test::assert-equal "stau" (str-lower "STAU"))
(test::assert-equal "stau" (str-lower "stau"))
(test::assert-equal "stau" (str-lower "Stau"))
(test::assert-equal "stau" (str-lower "StaU"))
(test::assert-equal "stau" (str-lower "sTaU"))
str-map
Usage: (str-map string lambda) -> string
Make a new string by applying lambda to each char in input string.
Example:
(test::assert-equal "XstringXstrX" (str-map "xstringxstrx" (fn (ch) (if (= "x" ch) "X" ch))))
(def test-str-map (str-map "xstringxstrx" (fn (ch) (if (= "x" ch) "X" ch))))
(test::assert-equal "XstringXstrX" test-str-map)
(test::assert-true (string? test-str-map))
(def test-str-map (str-map (str "xstringxstrx") (fn (ch) (if (= "x" ch) "X" ch))))
(test::assert-equal "XstringXstrX" test-str-map)
(test::assert-true (string? test-str-map))
str-push!
Usage: (str-push! string arg0 ... argN) -> string
Push the args (as strings) onto the string. This is a destructive form.
Arguments will be turned into strings. Returns the string it was given.
Example:
(test::assert-equal "stringsome" (str-push! (str "string") "some"))
(def test-str-push (str "def-string"))
(test::assert-equal "def-stringsome" (str-push! test-str-push "some"))
(test::assert-equal "def-stringsome" test-str-push)
str-replace
Usage: (str-replace string old-pattern new-pattern) -> string
Replace occurrences of second string with third in the first string.
Example:
(test::assert-equal "some yyy string" (str-replace "some xxx string" "xxx" "yyy"))
(test::assert-equal "some yyy string yyy" (str-replace "some xxx string xxx" "xxx" "yyy"))
(test::assert-equal "yyy some yyy string yyy" (str-replace "xxx some xxx string xxx" "xxx" "yyy"))
str-split
Usage: (str-split string split-pattern) -> vector
Use a pattern to split a string (:whitespace to split on whitespace).
Example:
(test::assert-equal ["some" "yyy" "string"] (str-split "somexxxyyyxxxstring" "xxx"))
(test::assert-equal ["some" "yyy" "string" ""] (str-split "somexxxyyyxxxstringxxx" "xxx"))
(test::assert-equal ["" "some" "yyy" "string" ""] (str-split "xxxsomexxxyyyxxxstringxxx" "xxx"))
(test::assert-equal ["some" "yyy" "string"] (str-split "some yyy string" :whitespace))
(test::assert-equal ["somexxxyyyxxxstring"] (str-split "somexxxyyyxxxstring" :whitespace))
(test::assert-equal ["somexxxyyyxxxstring"] (str-split "somexxxyyyxxxstring" "zzz"))
str-splitn
Usage: (str-splitn n split-pattern string) -> vector
Use a pattern to split a string with at most n items.
Example:
(test::assert-equal ["some" "yyy" "string"] (str-splitn 3 "xxx" "somexxxyyyxxxstring"))
(test::assert-equal ["some" "yyy" "string"] (str-splitn 4 "xxx" "somexxxyyyxxxstring"))
(test::assert-equal ["some" "yyy" "stringxxxother"] (str-splitn 3 "xxx" "somexxxyyyxxxstringxxxother"))
(test::assert-equal ["somexxxyyyxxxstringxxxother"] (str-splitn 1 "xxx" "somexxxyyyxxxstringxxxother"))
(test::assert-equal [] (str-splitn 0 "xxx" "somexxxyyyxxxstringxxxzero"))
str-starts-with
Usage: (str-starts-with string pattern) -> #t/#f
True if string start with pattern.
Example:
(test::assert-true (str-starts-with "Stausomething" "Stau"))
(test::assert-false (str-starts-with "Stausomething" "StaU"))
str-sub
Usage: (str-sub string start [length]) -> string
Return a substring from a string given start (0 based) and optional length. If length is 0 or not provided produces the rest of the string from start to string end.
Example:
(test::assert-equal "string" (str-sub "stringxxxyyyxxxsome" 0 6))
(test::assert-equal "some" (str-sub "stringxxxyyyxxxsome" 15 4))
(test::assert-equal "yyy" (str-sub "stringxxxyyyxxxsome" 9 3))
(test::assert-equal "some" (str-sub "stringxxxyyyxxxsome" 15))
str-trim
Usage: (str-trim string [:right | :left]) -> string
Trim right and/or left whitespace from string. With no optional keywork trims both, otherwise :right or :left specify right or left trimming.
Example:
(test::assert-equal "some string" (str-trim " some string"))
(test::assert-equal "some string" (str-trim " some string "))
(test::assert-equal "some string" (str-trim (str " some string ")))
(test::assert-equal "some string" (str-trim "some string "))
(test::assert-equal "some string" (str-trim "some string"))
(test::assert-equal " some string" (str-trim " some string" :right))
(test::assert-equal " some string" (str-trim " some string " :right))
(test::assert-equal " some string" (str-trim (str " some string ") :right))
(test::assert-equal "some string" (str-trim "some string " :right))
(test::assert-equal "some string" (str-trim "some string" :right))
(test::assert-equal "some string" (str-trim " some string" :left))
(test::assert-equal "some string " (str-trim " some string " :left))
(test::assert-equal "some string " (str-trim (str " some string ") :left))
(test::assert-equal "some string " (str-trim "some string " :left))
(test::assert-equal "some string" (str-trim "some string" :left))
str-trim!
Usage: (str-trim! string [:right | :left]) -> string
Trim right and/or left whitespace from string in place. With no optional keywork trims both, otherwise :right or :left specify right or left trimming.
This is a destructive operation (unlike str-trim) and requires an actual non-const string as it's first argument. It returns this string on success.
Example:
(test::assert-equal "some string" (str-trim! (str " some string")))
(test::assert-equal "some string" (str-trim! (str " some string ")))
(test::assert-equal "some string" (str-trim! (str (str " some string "))))
(test::assert-equal "some string" (str-trim! (str "some string ")))
(test::assert-equal "some string" (str-trim! (str "some string")))
(test::assert-equal " some string" (str-trim! (str " some string") :right))
(test::assert-equal " some string" (str-trim! (str " some string ") :right))
(test::assert-equal " some string" (str-trim! (str (str " some string ")) :right))
(test::assert-equal "some string" (str-trim! (str "some string ") :right))
(test::assert-equal "some string" (str-trim! (str "some string") :right))
(test::assert-equal "some string" (str-trim! (str " some string") :left))
(test::assert-equal "some string " (str-trim! (str " some string ") :left))
(test::assert-equal "some string " (str-trim! (str (str " some string ")) :left))
(test::assert-equal "some string " (str-trim! (str "some string ") :left))
(test::assert-equal "some string" (str-trim! (str "some string") :left))
str-upper
Usage: (str-upper string) -> string
Get all upper case string from a string.
Example:
(test::assert-equal "STAU" (str-upper "STAU"))
(test::assert-equal "STAU" (str-upper "stau"))
(test::assert-equal "STAU" (str-upper "Stau"))
(test::assert-equal "STAU" (str-upper "StaU"))
(test::assert-equal "STAU" (str-upper "sTaU"))