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 | +}; | |