Hojun-Cho
8539343de4
hton/ntoh -> network.ww (ref/hare/endian/network.ha:5-36); be* byte get/put -> big.ww (ref/hare/endian/big.ha:5-48); le* -> little.ww (ref/hare/endian/little.ha:5-48). ww does not port endian.ha's host dispatch, so no host file appears. Pure move: every fn is byte-identical; the three section banner lines are deleted (file names now carry them). The module-doc header rides with network.ww — its amd64-is-LE sentence is the WHY for hton being a swap. Consumers: Makefile WWFIXTURE_SRC entry replaced in place. The byteid roster is untouched: lib/endian is enrolled as an import-probe keyed on `package endian;`, which every new file still declares.
52 lines
1.4 KiB
Plaintext
52 lines
1.4 KiB
Plaintext
package endian;
|
|
|
|
export fn begetu16(buf: []u8) u16 = {
|
|
let b0: u16 = buf[0]: u16;
|
|
let b1: u16 = buf[1]: u16;
|
|
return (b0 << 8u16) | b1;
|
|
};
|
|
|
|
export fn beputu16(buf: []u8, in: u16) void = {
|
|
buf[0] = ((in >> 8u16) & 0xffu16): u8;
|
|
buf[1] = (in & 0xffu16): u8;
|
|
};
|
|
|
|
export fn begetu32(buf: []u8) u32 = {
|
|
let b0: u32 = buf[0]: u32;
|
|
let b1: u32 = buf[1]: u32;
|
|
let b2: u32 = buf[2]: u32;
|
|
let b3: u32 = buf[3]: u32;
|
|
return (b0 << 24u32) | (b1 << 16u32) | (b2 << 8u32) | b3;
|
|
};
|
|
|
|
export fn beputu32(buf: []u8, in: u32) void = {
|
|
buf[0] = ((in >> 24u32) & 0xffu32): u8;
|
|
buf[1] = ((in >> 16u32) & 0xffu32): u8;
|
|
buf[2] = ((in >> 8u32) & 0xffu32): u8;
|
|
buf[3] = (in & 0xffu32): u8;
|
|
};
|
|
|
|
export fn begetu64(buf: []u8) u64 = {
|
|
let b0: u64 = buf[0]: u64;
|
|
let b1: u64 = buf[1]: u64;
|
|
let b2: u64 = buf[2]: u64;
|
|
let b3: u64 = buf[3]: u64;
|
|
let b4: u64 = buf[4]: u64;
|
|
let b5: u64 = buf[5]: u64;
|
|
let b6: u64 = buf[6]: u64;
|
|
let b7: u64 = buf[7]: u64;
|
|
return (b0 << 56u64) | (b1 << 48u64) | (b2 << 40u64) | (b3 << 32u64)
|
|
| (b4 << 24u64) | (b5 << 16u64) | (b6 << 8u64) | b7;
|
|
};
|
|
|
|
export fn beputu64(buf: []u8, in: u64) void = {
|
|
buf[0] = ((in >> 56u64) & 0xffu64): u8;
|
|
buf[1] = ((in >> 48u64) & 0xffu64): u8;
|
|
buf[2] = ((in >> 40u64) & 0xffu64): u8;
|
|
buf[3] = ((in >> 32u64) & 0xffu64): u8;
|
|
buf[4] = ((in >> 24u64) & 0xffu64): u8;
|
|
buf[5] = ((in >> 16u64) & 0xffu64): u8;
|
|
buf[6] = ((in >> 8u64) & 0xffu64): u8;
|
|
buf[7] = (in & 0xffu64): u8;
|
|
};
|