aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data')
-rw-r--r--stdlib/source/library/lux/data/text.lux8
1 files changed, 0 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/data/text.lux b/stdlib/source/library/lux/data/text.lux
index 096c25a9a..70b0360b1 100644
--- a/stdlib/source/library/lux/data/text.lux
+++ b/stdlib/source/library/lux/data/text.lux
@@ -20,7 +20,6 @@
["." i64]]]]])
(type: .public Char
- {#.doc (example "A character code number.")}
Nat)
... TODO: Instead of ints, chars should be produced fron nats.
@@ -45,7 +44,6 @@
)
(def: .public line_feed
- {#.doc (example "Same as 'new_line'.")}
..new_line)
(def: .public size
@@ -53,7 +51,6 @@
(|>> "lux text size"))
(def: .public (char index input)
- {#.doc (example "Yields the character at the specified index.")}
(-> Nat Text (Maybe Char))
(if (n.< ("lux text size" input) index)
(#.Some ("lux text char" index input))
@@ -126,12 +123,10 @@
("lux text concat" subject param))
(def: .public (enclosed [left right] content)
- {#.doc "Surrounds the given content text with left and right side additions."}
(-> [Text Text] Text Text)
($_ "lux text concat" left content right))
(def: .public (enclosed' boundary content)
- {#.doc "Surrounds the given content text with the same boundary text."}
(-> Text Text Text)
(enclosed [boundary boundary] content))
@@ -140,14 +135,12 @@
(..enclosed' ..double_quote))
(def: .public (clip offset size input)
- {#.doc (example "Clips a chunk of text from the input at the specified offset and of the specified size.")}
(-> Nat Nat Text (Maybe Text))
(if (|> size (n.+ offset) (n.<= ("lux text size" input)))
(#.Some ("lux text clip" offset size input))
#.None))
(def: .public (clip' offset input)
- {#.doc (example "Clips the remaining text from the input at the specified offset.")}
(-> Nat Text (Maybe Text))
(let [size ("lux text size" input)]
(if (n.<= size offset)
@@ -314,7 +307,6 @@
" ")
(def: .public (space? char)
- {#.doc "Checks whether the character is white-space."}
(-> Char Bit)
(with_expansions [<options> (template [<char>]
[(^ (.char (~~ (static <char>))))]