--- 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>"
! !