LZMA, LZMA2 and XZ

[Tomxe]

https://github.com/Xelitan/LZMA-LZMA-XZ-in-pure-Pascal-for-Free-Pascal/

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

1. procedure LZMACompress(const InStr, OutStr: TStream);
2. procedure LZMADeCompress(const InStr, OutStr: TStream);
3.  
4. procedure LZMACompressFile(const InFile, OutFile: String);
5. procedure LZMADeCompressFile(const InFile, OutFile: String); //unpacks .lzma
6.  
7. procedure LZMA2CompressFile(const InFile, OutFile: String);
8. procedure LZMA2DeCompressFile(const InFile, OutFile: String); //unpacks .xz
9.  
10. procedure LZMA2Compress(const InStr, OutStr: TStream);
11. procedure LZMA2DeCompress(const InStr, OutStr: TStream);

[Thaddy]

Pure Pascal LZ has been around for... well IONS, centuries, ages...
E.g. Delphi magazine 72, August 2001, Julian Bucknall. (of TurboPower fame)
Even before that I did a version (Zip deflate) in PowerBasic 3 in the 80's but that does not count as Pascal..

All the LZ family is related.

So your A.I. effort is welcome, but we all know this for more than 35 years.

[Tomxe]

Can the LZ from 2001 unpack .LZMA and .XZ archives created by 7zip?

[Thaddy]

No, but the changes are minor, well, not really minor, but doable when knowing the algorithm improvements. There are also multiple Pascal versions of the 7zip suite after the algorithm was published. Much of those are on Torry's. There is also one on the Embarcadero website (also very, very old)

As I wrote: your effort is welcome, especially since it is against known sources written in C.

[Tomxe]

Minor changes for you, impossible work for someone else.
And now it's done and available for anyone via a few nice functions.

[Thaddy]

Agree  But note that it has previous implementations....

[Tomxe]

Very well. This is also not a new implementation but a port of liblzma

[LemonParty]

Wow! LZMA has a great compression ratio.