diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/data/text/escape.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux index d34c91d70..7e02459e1 100644 --- a/stdlib/source/library/lux/data/text/escape.lux +++ b/stdlib/source/library/lux/data/text/escape.lux @@ -68,7 +68,7 @@ (def: ascii_bottom (hex "20")) (def: ascii_top (hex "7E")) -(def: #export (escapable? char) +(def: .public (escapable? char) (-> Char Bit) (case char (^template [<char>] @@ -109,7 +109,7 @@ ("lux text clip" post_offset post_limit current) post_limit])) -(def: #export (escape text) +(def: .public (escape text) {#.doc (doc "Yields a escaped version of the text.")} (-> Text Text) (loop [offset 0 @@ -141,18 +141,18 @@ (recur (inc offset) previous current limit))) (format previous current)))) -(exception: #export (dangling_escape {text Text}) +(exception: .public (dangling_escape {text Text}) (exception.report ["In" (%.text text)] ["At" (%.nat (dec (//.size text)))])) -(exception: #export (invalid_escape {text Text} {offset Nat} {sigil Char}) +(exception: .public (invalid_escape {text Text} {offset Nat} {sigil Char}) (exception.report ["In" (%.text text)] ["At" (%.nat offset)] ["Name" (%.text (//.of_char sigil))])) -(exception: #export (invalid_unicode_escape {text Text} {offset Nat}) +(exception: .public (invalid_unicode_escape {text Text} {offset Nat}) (exception.report ["In" (%.text text)] ["At" (%.nat offset)])) @@ -191,7 +191,7 @@ (#try.Failure error) (exception.except ..invalid_unicode_escape [current offset]))) -(def: #export (un_escape text) +(def: .public (un_escape text) {#.doc (doc "Yields an un-escaped text." "Fails if it was improperly escaped.")} (-> Text (Try Text)) @@ -238,7 +238,7 @@ "" current _ (format previous current)))))) -(syntax: #export (escaped {literal <code>.text}) +(syntax: .public (escaped {literal <code>.text}) {#.doc (doc "If given a escaped text literal, expands to an un-escaped version.")} (case (..un_escape literal) (#try.Success un_escaped) |