Changeset 4287 for trunk/ProjectFortress/src

Timestamp:

10/26/09 07:31:06 (4 weeks ago)

Author:

chf

Message:

birdcount0

Files:

• trunk/ProjectFortress/src/com/sun/fortress/interpreter/glue/prim/FlatString.java (modified) (3 diffs)

trunk/ProjectFortress/src/com/sun/fortress/interpreter/glue/prim/FlatString.java

@@ -27 +27 @@
 
 import java.util.List;
-
+import java.util.regex.Pattern;
 
 public class FlatString extends NativeConstructor {
@@ -118 +118 @@
     }
 
+    private static abstract class ssI2s extends NativeMeth2 {
+        protected abstract java.lang.String f(java.lang.String s1, java.lang.String s2, int i);
+
+        @Override
+            public final FString applyMethod(FObject self, FValue s, FValue i) {
+            return FString.make(f(((FString) self).getString(), ((FString) s).getString(), ((FInt) i).getInt()));
+        }
+    }
+
+
     public static final class Size extends s2I {
         @Override
@@ -181 +191 @@
     }
 
+    public static final class javaRegExpMatches extends ss2B {
+        @Override
+        protected boolean f(java.lang.String self, java.lang.String match) {
+            return Pattern.matches(match, self);
+        }
+    }
+    
+    public static final class javaRegExpSplit extends ssI2s {
+        protected String f(java.lang.String self, java.lang.String match, int index) {
+            Pattern p = Pattern.compile(match);
+            java.lang.String[] temp = p.split(self);
+            return temp[index];
+        }
+    }
 }