kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

add namedGroup function to nodejs RMatch

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-11-29 16:20:31 -07:00
parent c896f98e78
commit e0603097e3
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
projects/re-flex/src/re_flex/R.hx
View File

@@ -15,6 +15,7 @@ typedef RMatch = {
#if hxnodejs #if hxnodejs
groups:Array<String>, groups:Array<String>,
namedGroups:DynamicAccess<String>, namedGroups:DynamicAccess<String>,
namedGroup:String->String,
#end #end
group:Int->String group:Int->String
}; };

5
projects/re-flex/src/re_flex/R.kiss
View File

@@ -6,6 +6,7 @@
(var capitalLetter "[A-Z]") (var capitalLetter "[A-Z]")
(var smallLetter "[a-z]") (var smallLetter "[a-z]")
(var anyLetter "[A-Za-z]") (var anyLetter "[A-Za-z]")
(var anyDigit "[0-9]")
(function :String _group [:Array<Dynamic> exprs] (function :String _group [:Array<Dynamic> exprs]
(+ "(" (apply + (assert exprs)) ")")) (+ "(" (apply + (assert exprs)) ")"))
@@ -59,7 +60,9 @@
groups groups
match match
namedGroups namedGroups
match.groups)) match.groups
namedGroup
->name (dictGet match.groups name)))
(let [r (new EReg regex /*TODO use or for this once fixed */(if flags flags ""))] (let [r (new EReg regex /*TODO use or for this once fixed */(if flags flags ""))]
(if (r.match textToSearch) (if (r.match textToSearch)
(object (object