First pass at [string length]

partcl · Dec 17, 2009 · 598e336 · 598e336
1 parent c60d4cf
commit 598e336
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Partcl/commands/string.pm b/src/Partcl/commands/string.pm
@@ -80,7 +80,11 @@ our sub string(*@args) {
         }
         return($test_pos);
     } elsif $cmd eq 'length' {
-        return '';
+        if +@args != 1 {
+            error('wrong # args: should be "string length string"');
+        }
+
+        return pir::bytelength__is(~@args[0]);
     } elsif $cmd eq 'map' {
         return '';
     } elsif $cmd eq 'match' {