summaryrefslogtreecommitdiff
path: root/libbio/puti.myr
diff options
context:
space:
mode:
authorOri Bernstein <ori@eigenstate.org>2015-08-26 12:20:58 -0700
committerOri Bernstein <ori@eigenstate.org>2015-08-26 12:20:58 -0700
commit2bc852bda98762d3bc01548bf972e3f1b137fbfb (patch)
tree74831deed3c9057c5fe0cbb8790d220e855bc792 /libbio/puti.myr
parent3de952510eb2a23350d24ed926f19c0cf72a12f2 (diff)
downloadmc-2bc852bda98762d3bc01548bf972e3f1b137fbfb.tar.gz
Move Myrddin libs to lib/ subdirectory.
Diffstat (limited to 'libbio/puti.myr')
-rw-r--r--libbio/puti.myr62
1 files changed, 0 insertions, 62 deletions
diff --git a/libbio/puti.myr b/libbio/puti.myr
deleted file mode 100644
index 16f014a..0000000
--- a/libbio/puti.myr
+++ /dev/null
@@ -1,62 +0,0 @@
-use std
-
-use "bio.use"
-
-pkg bio =
- /* unsigned big endian */
- generic putbe8 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putbe16 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putbe32 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putbe64 : (f : file#, v : @a::(numeric,integral) -> std.size)
-
- /* unsigned little endian */
- generic putle8 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putle16 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putle32 : (f : file#, v : @a::(numeric,integral) -> std.size)
- generic putle64 : (f : file#, v : @a::(numeric,integral) -> std.size)
-;;
-
-generic putbe8 = {f, v; -> putbe(f, v castto(uint64), 1)}
-generic putbe16 = {f, v; -> putbe(f, v castto(uint64), 2)}
-generic putbe32 = {f, v; -> putbe(f, v castto(uint64), 4)}
-generic putbe64 = {f, v; -> putbe(f, v castto(uint64), 8)}
-
-generic putle8 = {f, v; -> putle(f, v castto(uint64), 1)}
-generic putle16 = {f, v; -> putle(f, v castto(uint64), 2)}
-generic putle32 = {f, v; -> putle(f, v castto(uint64), 4)}
-generic putle64 = {f, v; -> putle(f, v castto(uint64), 8)}
-
-const putle = {f, v, n
- var buf : byte[8]
-
- if !ensurewrite(f, n)
- -> 0
- ;;
- buf[0] = (v >> 0) & 0xff castto(byte)
- buf[1] = (v >> 8) & 0xff castto(byte)
- buf[2] = (v >> 16) & 0xff castto(byte)
- buf[3] = (v >> 24) & 0xff castto(byte)
- buf[4] = (v >> 32) & 0xff castto(byte)
- buf[5] = (v >> 40) & 0xff castto(byte)
- buf[6] = (v >> 48) & 0xff castto(byte)
- buf[7] = (v >> 56) & 0xff castto(byte)
- -> write(f, buf[:n])
-}
-
-const putbe = {f, v, n
- var buf : byte[8]
-
- if !ensurewrite(f, n)
- -> 0
- ;;
- buf[0] = (v >> 56) & 0xff castto(byte)
- buf[1] = (v >> 48) & 0xff castto(byte)
- buf[2] = (v >> 40) & 0xff castto(byte)
- buf[3] = (v >> 32) & 0xff castto(byte)
- buf[4] = (v >> 24) & 0xff castto(byte)
- buf[5] = (v >> 16) & 0xff castto(byte)
- buf[6] = (v >> 8) & 0xff castto(byte)
- buf[7] = (v >> 0) & 0xff castto(byte)
- -> write(f, buf[8-n:])
-}
-