src/JavaMathSupport.st
branchjk_new_structure
changeset 990 5e4818e67471
parent 988 414a2c9a6a9e
child 1152 040cba55a7d2
--- a/src/JavaMathSupport.st	Wed Sep 07 16:39:44 2011 +0000
+++ b/src/JavaMathSupport.st	Wed Sep 07 16:43:31 2011 +0000
@@ -97,8 +97,12 @@
 
 !JavaMathSupport class methodsFor:'java-style FP functions'!
 
-cos:arg
-    self shouldImplement
+cos:f
+
+%{
+	RETURN ( _MKFLOAT( jcos ( __floatVal ( f ) ) ) );
+%}
+
 
     "Created: / 07-09-2011 / 17:34:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -112,20 +116,29 @@
     "Created: / 07-09-2011 / 17:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-expm1:arg
-    self shouldImplement
+expm1:f
+
+%{
+	RETURN ( _MKFLOAT( jexpm1 ( __floatVal ( f ) ) ) );
+%}
 
     "Created: / 07-09-2011 / 17:34:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-floor:arg
-    self shouldImplement
+floor:f
+
+%{
+	RETURN ( _MKFLOAT( jfloor ( __floatVal ( f ) ) ) );
+%}
 
     "Created: / 07-09-2011 / 17:33:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-sin:arg
-    self shouldImplement
+sin:f
+
+%{
+	RETURN ( _MKFLOAT( jsin ( __floatVal ( f ) ) ) );
+%}
 
     "Created: / 07-09-2011 / 17:32:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -140,8 +153,12 @@
     "Created: / 07-09-2011 / 17:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-tanh:arg
-    self shouldImplement
+tanh:f
+
+%{
+	RETURN ( _MKFLOAT( jtanh ( __floatVal ( f ) ) ) );
+%}
+
 
     "Created: / 07-09-2011 / 17:32:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !