diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/rawblock.nim | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/src/rawblock.nim b/src/rawblock.nim new file mode 100644 index 0000000..bdbfc71 --- /dev/null +++ b/src/rawblock.nim | |||
@@ -0,0 +1,40 @@ | |||
1 | # "à-la-gzip" gzip-like LZSS compressor | ||
2 | # Copyright (C) 2018 Pacien TRAN-GIRARD | ||
3 | # | ||
4 | # This program is free software: you can redistribute it and/or modify | ||
5 | # it under the terms of the GNU Affero General Public License as | ||
6 | # published by the Free Software Foundation, either version 3 of the | ||
7 | # License, or (at your option) any later version. | ||
8 | # | ||
9 | # This program is distributed in the hope that it will be useful, | ||
10 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
11 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
12 | # GNU Affero General Public License for more details. | ||
13 | # | ||
14 | # You should have received a copy of the GNU Affero General Public License | ||
15 | # along with this program. If not, see <https://www.gnu.org/licenses/>. | ||
16 | |||
17 | import integers, bitstream | ||
18 | |||
19 | const maxDataBitLength = 100_000_000 * wordBitLength # 100MB | ||
20 | const bitLengthFieldBitLength = 2 * wordBitLength | ||
21 | |||
22 | type RawBlock* = object | ||
23 | bitLength: int | ||
24 | data: seq[uint8] | ||
25 | |||
26 | proc readSerialised*(bitStream: BitStream): RawBlock = | ||
27 | let bitLength = bitStream.readBits(bitLengthFieldBitLength, uint16).int | ||
28 | let data = readSeq(bitStream, bitLength, uint8) | ||
29 | RawBlock(bitLength: bitLength, data: data.data) | ||
30 | |||
31 | proc writeSerialisedTo*(rawBlock: RawBlock, bitStream: BitStream) = | ||
32 | bitStream.writeBits(bitLengthFieldBitLength, rawBlock.bitLength.uint16) | ||
33 | writeSeq(bitStream, rawBlock.bitLength, rawBlock.data) | ||
34 | |||
35 | proc readRaw*(bitStream: BitStream, bits: int = maxDataBitLength): RawBlock = | ||
36 | let data = readSeq(bitStream, bits, uint8) | ||
37 | RawBlock(bitLength: data.bitLength, data: data.data) | ||
38 | |||
39 | proc writeRawTo*(rawBlock: RawBlock, bitStream: BitStream) = | ||
40 | writeSeq(bitStream, rawBlock.bitLength, rawBlock.data) | ||