~eda-qa/leaflang/cpp

@import("sprintf") multi sprintf : ( : raw_array｢abi_char｣, : raw_array｢abi_char｣, : abi_var_args ) -> ( : abi_int ) raw no_throw

 

@export defn print = (x : float) -> {

        print( float_to_ascii(x) )

}

 

@export defn float_to_ascii = (x : float)-> {

        var buf = type｢ array｢abi_char｣ ｣(128)

        var q = type｢ array｢abi_char｣ ｣(3)

        q#0 = lossy(code_val('%'))

        q#1 = lossy(code_val('g'))

        q#2 = 0

        ignore sprintf( buf, q, [x] )

        

        var len = abi_strlen(buf)

        var str = type｢ array｢char｣ ｣(len)

        for at in range(0,len) {

                str#at = char_val(buf#at)

        }

        

        return str

}

 

var abi_strlen = (buf : array｢abi_char｣) -> {

        var x = 0

        loop buf#x != 0 ? {

                x = x + 1

        }

        return x

}

 

@import("frexp") defn frexp : ( : abi_double, : abi_int value_ptr ) -> ( : abi_double ) raw no_throw

@import("ldexp") defn ldexp : ( : abi_double, : abi_int ) -> ( : abi_double ) raw no_throw

@import("nextafter") defn nextafter : ( : abi_double, : abi_double ) -> ( : abi_double ) raw no_throw

 

@export defn split_float = (x : float) -> ( significand : float, exponent : integer ) {

        var xa = (x : abi_double)

        var exp : abi_int

        var sig = frexp( xa, exp )

        return ( sig, exp )

}

 

@export defn pow2 = ( x: float, e : integer ) -> ( : float ) {

        return ldexp( x, lossy(e) )

}

 

@export defn next_float = ( x : float, direction : float ) -> ( : float ) {

        return nextafter( x, direction )

}