(index ("make-string+" 0) ("string+" 269) ("global-string" 520) ("make-string*" 628) ("string->hex" 710) ("hex->string" 989) ("ascii-codepoint?" 1210) ("unicode-char->string" 1293) ("unicode-string" 1642) ("*unicode-string" 2004) ("unicode-make-string" 2186) ("unicode-surrogate?" 2633) ("unicode-surrogates->codepoint" 2719) ("string-copy-over!" 2970) ("string-count*" 3416) ("string-any*" 3608) ("string-every*" 3807) ("str_to_hex" 4010) ("blob_to_hex" 4393) ("u8vec_to_hex" 4549) ("s8vec_to_hex" 4711) ("mem_to_hex" 4873) ("hex_to_str" 5032) ("hex_to_blob" 5414) ("string-interpolate" 5595) ("set-sharp-string-interpolation-syntax" 6253))
(def (sig (procedure "(make-string+ COUNT [FILL]) -> string" (id make-string+))) (p "A " (i "tabling") " " (tt "make-string") ".") (p (tt "FILL") " is any valid " (tt "char") ", including codepoints outside of the ASCII range. As such UTF-8 strings can be memoized."))
(def (sig (procedure "(string+ [CHAR...]) -> string" (id string+))) (p "A " (i "tabling") " " (tt "string") ".") (p (tt "CHAR") " is any valid " (tt "char") ", including codepoints outside of the ASCII range. As such UTF-8 strings can be memoized."))
(def (sig (procedure "(global-string STR) -> string" (id global-string))) (p "Share common string space."))
(def (sig (procedure "(make-string* COUNT [FILL]) -> string" (id make-string*))))
(def (sig (procedure "(string->hex STRING [START [END]]) -> string" (id string->hex))) (p "Returns a hexadecimal represenation of " (tt "STRING") ". " (tt "START") " and " (tt "END") " are substring limits.") (p (tt "STRING") " is treated as a string of bytes, a byte-vector."))
(def (sig (procedure "(hex->string STRING [START [END]]) -> string" (id hex->string))) (p "Returns the binary representation of a hexadecimal" (tt "STRING") ". " (tt "START") " and " (tt "END") " are substring limits."))
(def (sig (procedure "(ascii-codepoint? CHAR) -> boolean" (id ascii-codepoint?))))
(def (sig (procedure "(unicode-char->string CHAR) -> string" (id unicode-char->string))) (p "Returns a string formed from Unicode codepoint " (tt "CHAR") ".") (p (i "Note") " that the " (tt "(string-length)") " (except under " (int-link "utf-8") ") may not be equal to " (tt "1") ".") (p "Generates an error should the codepoint be out-of-range."))
(def (sig (procedure "(unicode-string [CHAR...]) -> string" (id unicode-string))) (p "Returns a string formed from Unicode codepoints " (tt "CHAR...")) (p (i "Note") " that the " (tt "(string-length)") " (except under " (int-link "utf-8") ") may not be equal to the length of " (tt "CHAR...") ".") (p "Generates an error should the codepoint be out-of-range."))
(def (sig (procedure "(*unicode-string CHARS) -> string" (id *unicode-string))) (p "Returns a string formed from Unicode codepoints " (tt "CHARS") ", a " (tt "(list-of char)") "."))
(def (sig (procedure "(unicode-make-string COUNT [FILL]) -> string" (id unicode-make-string))) (p "Returns a string formed from " (tt "COUNT") " occurrences of the Unicode codepoint " (tt "FILL") ". The " (tt "FILL") " default is " (tt "#\\space") ".") (p (i "Note") " that the " (tt "(string-length)") " (except under " (int-link "utf-8") ") may not be equal to " (tt "COUNT") ".") (p "Generates an error should the codepoint be out-of-range."))
(def (sig (procedure "(unicode-surrogate? NUM) -> boolean" (id unicode-surrogate?))))
(def (sig (procedure "(unicode-surrogates->codepoint HIGH LOW) -> (or boolean fixnum)" (id unicode-surrogates->codepoint))) (p "Returns the codepoint for the valid surrogate pair " (tt "HIGH") " and " (tt "LOW") ". Otherwise returns " (tt "#f") "."))
(def (sig (procedure "(string-copy-over! FROM TO [START [END]]) -> string" (id string-copy-over!))) (p "Copies a substring of " (tt "FROM") ", determined by " (tt "START") " & " (tt "END") ". Returns the modified " (tt "TO") ".") (p ": " (tt "FROM") " ; " (tt "string") " ; : " (tt "TO") " ; " (tt "string") " ; : " (tt "START") " ; " (tt "fixnum") " ; default " (tt "0") " : " (tt "END") " ; " (tt "fixnum") " ; default " (tt "string-length")))
(def (sig (procedure "(string-count* PRED? [STR ...]) -> fixnum" (id string-count*))) (p ": " (tt "STR") " ; " (tt "string") " ; : " (tt "PRED?") " ; " (tt "(#!rest char --> boolean)") " ;"))
(def (sig (procedure "(string-any* PRED? [STR ...]) -> (or boolean char)" (id string-any*))) (p ": " (tt "STR") " ; " (tt "string") " ; : " (tt "PRED?") " ; " (tt "(#!rest char --> boolean)") " ;"))
(def (sig (procedure "(string-every* PRED? [STR ...]) -> (or boolean char)" (id string-every*))) (p ": " (tt "STR") " ; " (tt "string") " ; : " (tt "PRED?") " ; " (tt "(#!rest char --> boolean)") " ;"))
(def (sig (procedure "(str_to_hex OUT IN OFF LEN)" (id str_to_hex))) (p "Writes the ASCII hexadecimal representation of " (tt "IN") " to " (tt "OUT") ".") (p (tt "IN") " is a " (tt "nonnull-string") ".") (p (tt "OFF") " is the byte offset.") (p (tt "LEN") " is the length of the bytes at " (tt "OFF") ".") (p (tt "OUT") " is a " (tt "string") " of length >= " (tt "(+ LEN 2)") "."))
(def (sig (procedure "(blob_to_hex OUT IN OFF LEN)" (id blob_to_hex))) (p "Like " (tt "str_to_hex") " except " (tt "IN") " is a " (tt "nonnull-blob") "."))
(def (sig (procedure "(u8vec_to_hex OUT IN OFF LEN)" (id u8vec_to_hex))) (p "Like " (tt "str_to_hex") " except " (tt "IN") " is a " (tt "nonnull-u8vector") "."))
(def (sig (procedure "(s8vec_to_hex OUT IN OFF LEN)" (id s8vec_to_hex))) (p "Like " (tt "str_to_hex") " except " (tt "IN") " is a " (tt "nonnull-s8vector") "."))
(def (sig (procedure "(mem_to_hex OUT IN OFF LEN)" (id mem_to_hex))) (p "Like " (tt "str_to_hex") " except " (tt "IN") " is a " (tt "nonnull-c-pointer") "."))
(def (sig (procedure "(hex_to_str OUT IN OFF LEN)" (id hex_to_str))) (p "Reads the ASCII hexadecimal representation of " (tt "IN") " to " (tt "OUT") ".") (p (tt "IN") " is a " (tt "nonnull-string") ".") (p (tt "OFF") " is the byte offset.") (p (tt "LEN") " is the length of the bytes at " (tt "OFF") ".") (p (tt "OUT") " is a " (tt "string") " of length >= " (tt "(/ LEN 2)") "."))
(def (sig (procedure "(hex_to_blob OUT IN OFF LEN)" (id hex_to_blob))) (p "Like " (tt "hex_to_str") " except " (tt "OUT") " is a " (tt "blob") " of size >= " (tt "(/ LEN 2)") "."))
(def (sig (procedure "(string-interpolate STR [eval-tag: EVAL-TAG] [eval-env: EVAL-ENV]) -> string" (id string-interpolate))) (p "Performs substitution of embedded Scheme expressions, evaluated in the " (tt "EVAL-ENV") ", prefixed with " (tt "EVAL-TAG") " and optionally enclosed in curly brackets. Two consecutive " (tt "EVAL-TAG") "s are translated to a single " (tt "EVAL-TAG") ".") (p "Similar to the " (tt "#<#") " multi-line string.") (p (tt "STR") " is a " (tt "string") ".") (p (tt "EVAL-TAG") " is a " (tt "character") ", default " (tt "#\\#") ".") (p (tt "EVAL-ENV") " is an " (tt "environment") ", default " (tt "(interaction-environment)") "."))
(def (sig (procedure "(set-sharp-string-interpolation-syntax PROC)" (id set-sharp-string-interpolation-syntax))) (p "Extends the read-syntax with #\"...\" where the " (tt "\"...\"") " is evaluated using " (tt "(PROC \"...\")") ". When " (tt "PROC") " is " (tt "#f") " the read-syntax is cleared. When " (tt "PROC") " is " (tt "#t") " then " (tt "PROC") " is " (tt "identity") ".") (highlight scheme "(use string-interpolation-syntax utf8-string-interpolation)\n\n(set-sharp-string-interpolation-syntax string-interpolate)\n;#\"foo #(+ 1 2)bar #{(and 1 2)} baz\"\n;=> \"foo 3bar 2 baz\""))
