Merge branch 'main' into optional-list-indexing

1 files changed, 0 insertions, 66 deletions

diff --git a/lib/patterns/patterns.tm b/lib/patterns/patterns.tm
deleted file mode 100644
index c5444b86..00000000
--- a/lib/patterns/patterns.tm
+++ /dev/null
@@ -1,66 +0,0 @@
-use ./patterns.c
-
-struct PatternMatch(text:Text, index:Int, captures:[Text])
-
-lang Pat
-    convert(text:Text -> Pat)
-        return C_code:Pat(Pattern$escape_text(@text))
-
-    convert(n:Int -> Pat)
-        return Pat.from_text("$n")
-
-extend Text
-    func matching_pattern(text:Text, pattern:Pat, pos:Int = 1 -> PatternMatch?)
-        result : PatternMatch
-        if C_code:Bool(Pattern$match_at(@text, @pattern, @pos, (void*)&@result))
-            return result
-        return none
-
-    func matches_pattern(text:Text, pattern:Pat -> Bool)
-        return C_code:Bool(Pattern$matches(@text, @pattern))
-
-    func pattern_captures(text:Text, pattern:Pat -> [Text]?)
-        return C_code:[Text]?(Pattern$captures(@text, @pattern))
-
-    func replace_pattern(text:Text, pattern:Pat, replacement:Text, backref="@", recursive=yes -> Text)
-        return C_code:Text(Pattern$replace(@text, @pattern, @replacement, @backref, @recursive))
-
-    func translate_patterns(text:Text, replacements:{Pat=Text}, backref="@", recursive=yes -> Text)
-        return C_code:Text(Pattern$replace_all(@text, @replacements, @backref, @recursive))
-
-    func has_pattern(text:Text, pattern:Pat -> Bool)
-        return C_code:Bool(Pattern$has(@text, @pattern))
-
-    func find_patterns(text:Text, pattern:Pat -> [PatternMatch])
-        return C_code:[PatternMatch](Pattern$find_all(@text, @pattern))
-
-    func by_pattern(text:Text, pattern:Pat -> func(->PatternMatch?))
-        return C_code:func(->PatternMatch?)(Pattern$by_match(@text, @pattern))
-
-    func each_pattern(text:Text, pattern:Pat, fn:func(m:PatternMatch), recursive=yes)
-        C_code { Pattern$each(@text, @pattern, @fn, @recursive); }
-
-    func map_pattern(text:Text, pattern:Pat, fn:func(m:PatternMatch -> Text), recursive=yes -> Text)
-        return C_code:Text(Pattern$map(@text, @pattern, @fn, @recursive))
-
-    func split_pattern(text:Text, pattern:Pat -> [Text])
-        return C_code:[Text](Pattern$split(@text, @pattern))
-
-    func by_pattern_split(text:Text, pattern:Pat -> func(->Text?))
-        return C_code:func(->Text?)(Pattern$by_split(@text, @pattern))
-
-    func trim_pattern(text:Text, pattern=$Pat"{space}", left=yes, right=yes -> Text)
-        return C_code:Text(Pattern$trim(@text, @pattern, @left, @right))
-
-func main()
-    >> "Hello world".matching_pattern($Pat'{id}')
-    >> "...Hello world".matching_pattern($Pat'{id}')
-# func main(pattern:Pat, input=(/dev/stdin))
-#     for line in input.by_line()!
-#         skip if not line.has_pattern(pattern)
-#         pos := 1
-#         for match in line.by_pattern(pattern)
-#             say(line.slice(pos, match.index-1), newline=no)
-#             say("\033[34;1m$(match.text)\033[m", newline=no)
-#             pos = match.index + match.text.length
-#         say(line.from(pos), newline=yes)