LZ4 decompressor in pure Pascal

[Tomxe]

Pure pascal decoder for LZ4 files/data
https://github.com/Xelitan/LZ4-decompressor-in-pure-Pascal/

Usage example:

Code: Pascal  [Select][+][-]

1. var F,P: TFileStream;
2. begin
3.   F := TFileStream.Create('test.lz4', fmOpenRead);
4.   P := TFileStream.Create('test.txt', fmCreate);
5.  
6.   LZ4DecodeStream(F, P);
7.  
8.   p.Free;
9.   F.Free;
10. end;

Also:

Code: Pascal  [Select][+][-]

1. var InData, OutData: TBytes;
2.     F: TFileStream;
3.     Str: String;
4. begin
5.   F := TFileStream.Create('test.lz4', fmOpenRead);
6.   SetLength(InData, F.Size);
7.   F.Read(InData[0], F.Size);
8.   F.Free;
9.  
10.   OutData := LZ4Decode(InData);
11.   SetLength(Str, Length(OutData));
12.   Move(OutData[0], Str[1], Length(Str));
13.  
14.   Memo1.Lines.Add(Str);
15. end;

[marcov]

A tip, move the exception.create's on error to an own procedures e.g. something

Code: Pascal  [Select][+][-]

1. procedure lz4errror(const Message:string);
2. begin
3.   raise Exception.Create(message);
4. end;
5.  

it saves the need for exception frames, at least on targets that don't have tabled based exceptions.

[Tomxe]

Okay, but which targets don't have tabled based exceptions?

[ALLIGATOR]

🆒

[marcov]

Okay, but which targets don't have tabled based exceptions?

I'm not sure about open source *nix.  Just compile and inspect the assembler if you want to know.

Afaik OS X and Windows do implement them.