Showing the changes to java (4 of 4 files). Show all
Unified · Split
| @@ -0,0 +1,66 @@ | |||
| 1 | implement Double_L; | ||
| 2 | |||
| 3 | # javal v1.3 generated file: edit with care | ||
| 4 | |||
| 5 | include "jni.m"; | ||
| 6 | jni : JNI; | ||
| 7 | ClassModule, | ||
| 8 | JString, | ||
| 9 | JArray, | ||
| 10 | JArrayI, | ||
| 11 | JArrayC, | ||
| 12 | JArrayB, | ||
| 13 | JArrayS, | ||
| 14 | JArrayJ, | ||
| 15 | JArrayF, | ||
| 16 | JArrayD, | ||
| 17 | JArrayZ, | ||
| 18 | JArrayJObject, | ||
| 19 | JArrayJClass, | ||
| 20 | JArrayJString, | ||
| 21 | JClass, | ||
| 22 | JThread, | ||
| 23 | JObject : import jni; | ||
| 24 | |||
| 25 | #>> extra pre includes here | ||
| 26 | |||
| 27 | #<< | ||
| 28 | |||
| 29 | include "Double_L.m"; | ||
| 30 | |||
| 31 | #>> extra post includes here | ||
| 32 | math : Math; | ||
| 33 | #<< | ||
| 34 | |||
| 35 | init( jni_p : JNI ) | ||
| 36 | { | ||
| 37 | # save java native inteface mod instance | ||
| 38 | jni = jni_p; | ||
| 39 | #>>extra initialization here | ||
| 40 | math = jni->math; | ||
| 41 | #<< | ||
| 42 | } | ||
| 43 | |||
| 44 | doubleToRawLongBits_D_J( p0 : real) : big | ||
| 45 | {#>> | ||
| 46 | return( math->realbits64(p0) ); | ||
| 47 | }#<< | ||
| 48 | |||
| 49 | longBitsToDouble_J_D( p0 : big) : real | ||
| 50 | {#>> | ||
| 51 | return( math->bits64real( p0 ) ); | ||
| 52 | }#<< | ||
| 53 | |||
| 54 | valueOf0_rString_D( p0 : JString) : real | ||
| 55 | {#>> | ||
| 56 | return( real p0.str ); | ||
| 57 | }#<< | ||
| 58 | |||
| 59 | mkstring_D_rString( p0 : real) : JString | ||
| 60 | {#>> | ||
| 61 | s := string p0; | ||
| 62 | if(p0 == 0.0) | ||
| 63 | s += ".0"; | ||
| 64 | return( jni->NewString( s ) ); | ||
| 65 | }#<< | ||
| 66 | |||
| @@ -0,0 +1,17 @@ | |||
| 1 | # javal v1.3 generated file: edit with care | ||
| 2 | |||
| 3 | Double_L : module | ||
| 4 | { | ||
| 5 | Double_obj : adt | ||
| 6 | { | ||
| 7 | cl_mod : ClassModule; | ||
| 8 | value : real; | ||
| 9 | }; | ||
| 10 | |||
| 11 | init : fn( jni_p : JNI ); | ||
| 12 | doubleToRawLongBits_D_J : fn( p0 : real) : big; | ||
| 13 | longBitsToDouble_J_D : fn( p0 : big) : real; | ||
| 14 | valueOf0_rString_D : fn( p0 : JString) : real; | ||
| 15 | mkstring_D_rString : fn( p0 : real) : JString; | ||
| 16 | |||
| 17 | }; | ||
| @@ -0,0 +1,60 @@ | |||
| 1 | implement Float_L; | ||
| 2 | |||
| 3 | # javal v1.3 generated file: edit with care | ||
| 4 | |||
| 5 | include "jni.m"; | ||
| 6 | jni : JNI; | ||
| 7 | ClassModule, | ||
| 8 | JString, | ||
| 9 | JArray, | ||
| 10 | JArrayI, | ||
| 11 | JArrayC, | ||
| 12 | JArrayB, | ||
| 13 | JArrayS, | ||
| 14 | JArrayJ, | ||
| 15 | JArrayF, | ||
| 16 | JArrayD, | ||
| 17 | JArrayZ, | ||
| 18 | JArrayJObject, | ||
| 19 | JArrayJClass, | ||
| 20 | JArrayJString, | ||
| 21 | JClass, | ||
| 22 | JThread, | ||
| 23 | JObject : import jni; | ||
| 24 | |||
| 25 | #>> extra pre includes here | ||
| 26 | |||
| 27 | #<< | ||
| 28 | |||
| 29 | include "Float_L.m"; | ||
| 30 | |||
| 31 | #>> extra post includes here | ||
| 32 | math : Math; | ||
| 33 | #<< | ||
| 34 | |||
| 35 | init( jni_p : JNI ) | ||
| 36 | { | ||
| 37 | # save java native inteface mod instance | ||
| 38 | jni = jni_p; | ||
| 39 | #>>extra initialization here | ||
| 40 | math = jni->math; | ||
| 41 | #<< | ||
| 42 | } | ||
| 43 | |||
| 44 | floatToRawIntBits_F_I( p0 : real) : int | ||
| 45 | {#>> | ||
| 46 | return( math->realbits32(p0) ); | ||
| 47 | }#<< | ||
| 48 | |||
| 49 | intBitsToFloat_I_F( p0 : int) : real | ||
| 50 | {#>> | ||
| 51 | return( math->bits32real(p0) ); | ||
| 52 | }#<< | ||
| 53 | |||
| 54 | mkstring_F_rString( p0 : real) : JString | ||
| 55 | {#>> | ||
| 56 | s := string p0; | ||
| 57 | if(p0 == 0.0) | ||
| 58 | s += ".0"; | ||
| 59 | return( jni->NewString( s ) ); | ||
| 60 | }#<< | ||
| @@ -0,0 +1,16 @@ | |||
| 1 | # javal v1.3 generated file: edit with care | ||
| 2 | |||
| 3 | Float_L : module | ||
| 4 | { | ||
| 5 | Float_obj : adt | ||
| 6 | { | ||
| 7 | cl_mod : ClassModule; | ||
| 8 | value : real; | ||
| 9 | }; | ||
| 10 | |||
| 11 | init : fn( jni_p : JNI ); | ||
| 12 | floatToRawIntBits_F_I : fn( p0 : real) : int; | ||
| 13 | intBitsToFloat_I_F : fn( p0 : int) : real; | ||
| 14 | mkstring_F_rString : fn( p0 : real) : JString; | ||
| 15 | |||
| 16 | }; | ||