Changeset 39836 in project

Timestamp:

04/05/21 01:12:33 (2 weeks ago)

Author:

Kon Lovett

Message:

fix example in somment, reflow

File:

• release/5/string-utils/trunk/string-utils.scm (modified) (3 diffs)

release/5/string-utils/trunk/string-utils.scm

@@ -19 +19 @@
 
 (import scheme
-        (only utf8 string-length make-string substring) ;string-append
+        utf8
         (chicken base)
         (chicken type)
@@ -34 +34 @@
 ;;
 
+(: string-unzip (string string -> (list-of string) (list-of string)))
+(: string-zip   ((list-of string) (list-of string) -> string))
+
+(: string-trim-whitespace-both  (string -> string))
+(: list-as-string               (list -> string))
+(: number->padded-string        (number fixnum #!optional char fixnum -> string))
+(: string-fixed-length          (string fixnum #!rest -> string))
+
+(: *string-longest-common-prefix  ((list-of (list-of char)) -> (list-of char)))
+(: string-longest-common-prefix   ((list-of string) -> string))
+(: string-longest-common-suffix   ((list-of string) -> string))
+
+(: *string-longest-prefix (string (list-of string) procedure -> *))
+(: string-longest-prefix  (string (list-of string) -> (or boolean string)))
+(: string-longest-suffix  (string (list-of string) -> (or boolean string)))
+
+;;
+
 ;(binary-predicate-reduce p? ls)
 ;=> (and (p? (1st ls) (2nd ls)) (p? (2nd ls) (3rd ls)) ...)
@@ -47 +65 @@
 ;;
 
-(: string-unzip (string string -> (list-of string) (list-of string)))
-(: string-zip ((list-of string) (list-of string) -> string))
-
-(: string-trim-whitespace-both (string -> string))
-(: list-as-string (list -> string))
-(: number->padded-string (number fixnum #!optional char fixnum -> string))
-(: string-fixed-length (string fixnum #!rest -> string))
-
-(: *string-longest-common-prefix ((list-of (list-of char)) -> (list-of char)))
-(: string-longest-common-prefix ((list-of string) -> string))
-(: string-longest-common-suffix ((list-of string) -> string))
-
-(: *string-longest-prefix (string (list-of string) procedure -> *))
-(: string-longest-prefix (string (list-of string) -> (or boolean string)))
-(: string-longest-suffix (string (list-of string) -> (or boolean string)))
-
-;;
-
 ;NOTE irregex-split doesn't preserve "missing" so punct vs parts is ambiguous
 
 ;"..." => parts punct
-;"a.b.c" => ("." ".") + ("a" "b" "c")
+;"a.b,c" => ("a" "b" "c") ("." ",")
 (define (string-unzip str punct-str)
   (let (