carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

core: add useful string functions

Browse Source
This commit is contained in:
hellerve 2018-03-13 11:59:48 +01:00
parent b55bdd8e38
commit da91127563
3 changed files with 149 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
core/Pattern.carp
View File

@ -16,3 +16,41 @@
(register delete (Fn [Pattern] ()))
(register copy (Fn [&Pattern] Pattern))
)
(defmodule String
(defn in? [s sub]
(Pattern.matches? &(Pattern.init sub) s))
(defn upper? [s]
(Pattern.matches? #"^[\u\s\p]*$" s))
(defn lower? [s]
(Pattern.matches? #"^[\l\s\p]*$" s))
(defn num? [s]
(Pattern.matches? #"^[0-9]*$" s))
(defn alpha? [s]
(Pattern.matches? #"^[\u\l]*$" s))
(defn alphanum? [s]
(Pattern.matches? #"^[\w]*$" s))
(defn hex? [s]
(Pattern.matches? #"^[\x]*$" s))
(defn trim-left [s]
(Pattern.substitute #"^\s+" s "" 1))
(defn trim-right [s]
(Pattern.substitute #"\s+$" s "" 1))
(defn trim [s]
(trim-left &(trim-right s)))
(defn chomp [s]
(Pattern.substitute #"\n$" s "" 1))
(defn collapse-whitespace [s]
(Pattern.substitute #"\s+" s " " -1))
)

3
core/carp_pattern.h
View File

@ -622,6 +622,9 @@ string Pattern_substitute(pattern* p, string *s, string *t, int ns) {
else break; /* end of subject */
if (anchor) break;
}
if (!res) return String_copy(&str);
int l = strlen(res)+strlen(str)+1;
res = realloc(res, l);
snprintf(res, l, "%s%s", res, str);

123
test/string.carp
View File

@ -45,10 +45,9 @@
(empty? "lisp")
"empty? returns false on non-empty string"
)
(assert-equal test
true
(empty? "")
"empty? returns true on empty string"
(assert-true test
(empty? "")
"empty? returns true on empty string"
)
(assert-equal test
&[\e \r \i \k]
@ -75,20 +74,114 @@
&(suffix-string "svedang" 3)
"suffix-string works as expected"
)
(assert-equal test
true
(ends-with? "heller" "ler")
"ends-with? works as expected"
(assert-true test
(ends-with? "heller" "ler")
"ends-with? works as expected"
)
(assert-true test
(ends-with? "ller" "ler")
"ends-with? works (regression test for #157)"
)
(assert-true test
(starts-with? "heller" "hell")
"starts-with? works as expected"
)
(assert-true test
(in? "metacarpenter" "carp")
"in? works on matching pattern"
)
(assert-false test
(in? "metabolism" "carp")
"in? works on non-matching pattern"
)
(assert-true test
(upper? "I AM SCREAMING!")
"upper? works on matching pattern"
)
(assert-false test
(upper? "I am not screaming.")
"upper? works on non-matching pattern"
)
(assert-true test
(lower? "i am not screaming.")
"lower? works on matching pattern"
)
(assert-false test
(lower? "I am not screaming!")
"lower? works on non-matching pattern"
)
(assert-true test
(num? "11123456789123")
"num? works on matching pattern"
)
(assert-false test
(num? "111l23456789123")
"num? works on non-matching pattern"
)
(assert-true test
(alpha? "abcdefghijklmz")
"alpha? works on matching pattern"
)
(assert-false test
(alpha? "abcdefghijklm1234567")
"alpha? works on non-matching pattern"
)
(assert-true test
(alphanum? "abcdefghijklm1234567")
"alphanum? works on matching pattern"
)
(assert-false test
(alphanum? "abcdefghijklm1234567?")
"alphanum? works on non-matching pattern"
)
(assert-true test
(hex? "c0ffee")
"hex? works on matching pattern"
)
(assert-false test
(hex? "c0ffeebar")
"hex? works on non-matching pattern"
)
(assert-equal test
true
(ends-with? "ller" "ler")
"ends-with? works (regression test for #157)"
"string "
&(trim-left " string ")
"trim-left works as expected"
)
(assert-equal test
true
(starts-with? "heller" "hell")
"starts-with? works as expected"
" string"
&(trim-right " string ")
"trim-right works as expected"
)
(assert-equal test
"string"
&(trim " string ")
"trim works as expected"
)
(assert-equal test
"string"
&(chomp "string\n")
"chomp works as expected I"
)
(assert-equal test
"string\n"
&(chomp "string\n\n")
"chomp works as expected II"
)
(assert-equal test
"string"
&(chomp "string\r\n")
"chomp works as expected III"
)
(assert-equal test
"string"
&(chomp "string\r")
"chomp works as expected IV"
)
(assert-equal test
"too much whitespace."
&(collapse-whitespace "too much whitespace.")
"collapse-whitespace works as expected"
)
(print-test-results test)
))
)
)