Add basic args handling to [regexp]

partcl · Nov 30, 2009 · 8dbbda6 · 8dbbda6
1 parent 0241721
commit 8dbbda6
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -271,7 +271,14 @@ our sub puts(*@args) {
     '';
 }
 
-our sub regexp($exp, $string) {
+our sub regexp(*@args) {
+    if +@args <2 {
+        error('wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"')
+    }
+
+    my $exp := @args.shift();
+    my $string := @args.shift();
+
     ## my &dumper := Q:PIR { %r = get_root_global ['parrot'], '_dumper' };
     ## &dumper(ARE::Compiler.compile($exp, :target<parse>));
     my $regex := ARE::Compiler.compile($exp);