summaryrefslogtreecommitdiff
path: root/lib/std/getint.myr
diff options
context:
space:
mode:
Diffstat (limited to 'lib/std/getint.myr')
-rw-r--r--lib/std/getint.myr64
1 files changed, 64 insertions, 0 deletions
diff --git a/lib/std/getint.myr b/lib/std/getint.myr
new file mode 100644
index 0000000..cd3d50b
--- /dev/null
+++ b/lib/std/getint.myr
@@ -0,0 +1,64 @@
+pkg std =
+ generic getle64 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getbe64 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getle32 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getbe32 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getle16 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getbe16 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getle8 : (buf : byte[:] -> @a::(numeric,integral))
+ generic getbe8 : (buf : byte[:] -> @a::(numeric,integral))
+;;
+
+generic getbe64 = {buf -> @a::(numeric,integral)
+ -> ((buf[0] castto(@a::(numeric,integral))) << 56) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 48) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 40) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 32) | \
+ ((buf[4] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[5] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[6] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[7] castto(@a::(numeric,integral))) << 0)
+}
+
+generic getle64 = {buf
+ -> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[4] castto(@a::(numeric,integral))) << 32) | \
+ ((buf[5] castto(@a::(numeric,integral))) << 40) | \
+ ((buf[6] castto(@a::(numeric,integral))) << 48) | \
+ ((buf[7] castto(@a::(numeric,integral))) << 56)
+}
+
+generic getbe32 = {buf
+ -> ((buf[0] castto(@a::(numeric,integral))) << 24) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 0)
+}
+
+generic getle32 = {buf
+ -> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[2] castto(@a::(numeric,integral))) << 16) | \
+ ((buf[3] castto(@a::(numeric,integral))) << 24)
+}
+
+generic getbe16 = {buf
+ -> ((buf[0] castto(@a::(numeric,integral))) << 8) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 0)
+}
+
+generic getle16 = {buf
+ -> ((buf[0] castto(@a::(numeric,integral))) << 0) | \
+ ((buf[1] castto(@a::(numeric,integral))) << 8)
+}
+
+generic getbe8 = {buf
+ -> (buf[0] castto(@a::(numeric,integral))) << 0
+}
+
+generic getle8 = {buf
+ -> (buf[0] castto(@a::(numeric,integral))) << 0
+}