Changeset 4089 for trunk/ProjectFortress/LibraryBuiltin

Timestamp:

08/17/09 19:33:56 (3 months ago)

Author:

jmaessen

Message:

[testing, libraries] Most of the code required by Compiled7fo.fss now
exists. Still waiting on counted loops due to type checking bugs
encountered en route.

Location:

trunk/ProjectFortress/LibraryBuiltin

Files:

• CompilerBuiltin.fsi (modified) (3 diffs)
• CompilerBuiltin.fss (modified) (5 diffs)

trunk/ProjectFortress/LibraryBuiltin/CompilerBuiltin.fsi

@@ -22 +22 @@
 end Object
 
+nanoTime(): RR64
+
 trait String
     asString(): String
@@ -40 +42 @@
 
 trait ZZ64 extends Number
+    asZZ32(): ZZ32
 end
 
 trait ZZ32 extends ZZ64 comprises { IntLiteral }
+    asZZ32(): ZZ32
     asString(): String
     opr |self| : ZZ32
@@ -75 +79 @@
     opr DOT(self, other:RR64): RR64
     opr /(self, other:RR64): RR64
+    opr ^(self, other:RR64): RR64
 end
 

trunk/ProjectFortress/LibraryBuiltin/CompilerBuiltin.fss

@@ -18 +18 @@
 component CompilerBuiltin
 import java com.sun.fortress.nativeHelpers.{simplePrintln.nativePrintln => jPrintln}
-import java com.sun.fortress.nativeHelpers.{simplePrintZZ32.nativePrintZZ32 => jPrintlnZZ32}
 import java com.sun.fortress.nativeHelpers.{simpleConcatenate.nativeConcatenate => jConcatenate}
 import java com.sun.fortress.nativeHelpers.{simpleIntArith.intToString => jIntToString,
@@ -32 +31 @@
                                             simpleIntArith.intNeg => jIntNeg,
                                             simpleIntArith.parseInt => jParseInt,
-                                            simpleIntArith.intAbs => jIntAbs}
+                                            simpleIntArith.intAbs => jIntAbs,
+                                            simpleIntArith.longToInt => jLongToInt}
 import java com.sun.fortress.nativeHelpers.{simpleDoubleArith.doubleToString => jDoubleToString,
                                             simpleDoubleArith.doubleAdd => jDoubleAdd,
@@ -45 +45 @@
                                             simpleDoubleArith.doubleNeg => jDoubleNeg,
                                             simpleDoubleArith.parseDouble => jParseDouble,
-                                            simpleDoubleArith.doubleAbs => jDoubleAbs}
+                                            simpleDoubleArith.doubleAbs => jDoubleAbs,
+                                            simpleDoubleArith.doublePow => jDoublePow,
+                                            simpleDoubleArith.doubleNanoTime => jNanoTime}
 import AnyType.{Any}
 export CompilerBuiltin
+
+nanoTime(): RR64 = jNanoTime()
 
 trait Object extends Any
@@ -70 +74 @@
 
 trait ZZ64 extends Number
+    asZZ32(): ZZ32 = jLongToInt(self)
 end
 
 trait ZZ32 extends ZZ64 comprises { IntLiteral }
+    asZZ32(): ZZ32 = self
     asString(): String = jIntToString(self)
     opr |self| : ZZ32 = jIntAbs(self)
@@ -105 +111 @@
     opr DOT(self, other:RR64): RR64 = jDoubleMul(self,other)
     opr /(self, other:RR64): RR64 = jDoubleDiv(self,other)
+    opr ^(self, other:RR64): RR64 = jDoublePow(self,other)
 end