shithub: mc

Info  •  Files  •  Log  •  Branches

Add float bit conversion routines.

--- a/libstd/Makefile

+++ b/libstd/Makefile

@@ -12,6 +12,7 @@

     execvp.myr \

     extremum.myr \

     fmt.myr \

+    floatbits.myr \

     hashfuncs.myr \

     hasprefix.myr \

     hassuffix.myr \

--- /dev/null

+++ b/libstd/floatbits.myr

@@ -1,0 +1,10 @@

+pkg std =

+	const float64bits	: (flt : float64 -> uint64)

+	const float32bits	: (flt : float32 -> uint32)

+	const float64frombits	: (bits : uint64 -> float64)

+	const float32frombits	: (bits : uint32 -> float32)

+;;

+const float64bits	= {flt;	-> (&flt castto(uint64#))#}

+const float32bits	= {flt;	-> (&flt castto(uint32#))#}

+const float64frombits	= {bits;	-> (&bits castto(float64#))#}

+const float32frombits	= {bits;	-> (&bits castto(float32#))#}