Hm ....
it works only if I use the x64 PB version.
With x86 I get CRC errors.
I will have a look.
Conversion UnLZX (LZX decompress ) in C to PB Nativ
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Oh. That's strange. I haven't tested it with the PB x86 yet and i'm coding this in the 64-bit version.infratec wrote: Thu Feb 09, 2023 8:02 pm Hm ....
it works only if I use the x64 PB version.
With x86 I get CRC errors.
I will have a look.
Thank you for looking at this and for your time.
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Code: Select all
If ( count = (*p\temp - *p\source + 16384) )Code: Select all
count = (*p\temp - *p\source + 16384)
If count
Code: Select all
Procedure crc_calc(*Memory.CRC_Memory, *UnLZX.LZX_ARCHIVE, length.i, *FileCalc.ascii = #Null, Modus.i = 0)
Protected *mem.Ascii, temp.q, *crc_table.CRC
Select Modus
Case 0
*mem = *Memory
Case 1
*mem = *FileCalc
EndSelect
;
; Die CRC Summe berechnen
*crc_table = ?CRC_TABLE
If length > 0
Select Modus
Case 0
temp = ~*UnLZX\sum ; /* was (sum ^ 4294967295) */
Case 1
temp = ~*UnLZX\FileData()\sum
EndSelect
;Debug "temp: " + Hex(temp, #PB_Long)
Repeat
;Debug Hex(*mem\a) + " " + Str((*mem\a ! temp) & 255) + " " + Hex(temp)
temp = *crc_table\crc[(*mem\a ! temp) & 255] ! ((temp & $FFFFFFFF) >> 8)
*mem + 1
Length - 1
Until Length = 0
Select Modus
Case 0
*UnLZX\sum = ~temp & $FFFFFFFF; /* was (temp ^ 4294967295) */
Case 1
*UnLZX\FileData()\sum = ~temp & $FFFFFFFF; /* was (temp ^ 4294967295) */
EndSelect
;Debug "sum: " + Hex(*UnLZX\sum, #PB_Long)
EndIf
EndProcedure
Code: Select all
DataSection
CRC_TABLE:
Data.l $00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F
...
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
I really curious to see if you will successfully uncompress a file
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
You need also to save the locations:
And you need to seek the location:
Code: Select all
AddElement( *UnLZX\FileData() )
With *UnLZX\FileData()
\loc = Loc(*UnLZX\pbData)
\Count = *UnLZX\TotalFiles
Code: Select all
Procedure.i Extract_Archive(*UnLZX.LZX_ARCHIVE)
ResetList( *UnLZX\FileData() )
While NextElement( *UnLZX\FileData() )
FileSeek(*UnLZX\pbData, *UnLZX\FileData()\Loc, #PB_Absolute)
Select *UnLZX\FileData()\PackMode
Case 0 ;/* store */
Case 2 ;/* normal */
Extract_Normal(*UnLZX)
Default ;/* unknown */
EndSelect
Wend
EndProcedure
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Do you mean Routine Extràct Normal?infratec wrote: Thu Feb 09, 2023 10:54 pmShould beCode: Select all
If ( count = (*p\temp - *p\source + 16384) )The corrected crc_calc:Code: Select all
count = (*p\temp - *p\source + 16384) If countI also changed the datatype of the crc table to Data.lCode: Select all
Procedure crc_calc(*Memory.CRC_Memory, *UnLZX.LZX_ARCHIVE, length.i, *FileCalc.ascii = #Null, Modus.i = 0) Protected *mem.Ascii, temp.q, *crc_table.CRC Select Modus Case 0 *mem = *Memory Case 1 *mem = *FileCalc EndSelect ; ; Die CRC Summe berechnen *crc_table = ?CRC_TABLE If length > 0 Select Modus Case 0 temp = ~*UnLZX\sum ; /* was (sum ^ 4294967295) */ Case 1 temp = ~*UnLZX\FileData()\sum EndSelect ;Debug "temp: " + Hex(temp, #PB_Long) Repeat ;Debug Hex(*mem\a) + " " + Str((*mem\a ! temp) & 255) + " " + Hex(temp) temp = *crc_table\crc[(*mem\a ! temp) & 255] ! ((temp & $FFFFFFFF) >> 8) *mem + 1 Length - 1 Until Length = 0 Select Modus Case 0 *UnLZX\sum = ~temp & $FFFFFFFF; /* was (temp ^ 4294967295) */ Case 1 *UnLZX\FileData()\sum = ~temp & $FFFFFFFF; /* was (temp ^ 4294967295) */ EndSelect ;Debug "sum: " + Hex(*UnLZX\sum, #PB_Long) EndIf EndProcedureCode: Select all
DataSection CRC_TABLE: Data.l $00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F ...
i think this code is used for the next loop run check whether count is the same as *p\temp - *p\source + 16384.!?!
original code
Code: Select all
if(count = temp - source + 16384)
{
printf("Temp %d, count %d\n", temp, count);
do /* copy the remaining overrun to the start of the buffer */
{
*temp++ = *source++;
} while(--count);
}
source = read_buffer;
count = source - temp + 16384;
The CRC Calc is for X86? I tried on X64 and it doenst works. No Archive file listing and breaks with crc error on 64bit
greetings
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
LZX Pack archives are opened and read by code with no read error memory address or other memory error. However, this does not work properly because the files are written, something is not right yet.
Although the reading and the position and size to be read are correct, a few characters are missing when reading my code or are interpreted incorrectly.
The Visual Studio debug version can be seen on the screenshot of the command line. For example at 135 this is the character "|" Read at the beginning. This is missing in my code, although the position and number of characters are correct, but then I suddenly get more characters read out.
The beginning is then suddenly no longer correct.
Visual Studio
My Output
PB memory Output
Strange that it still doesn't work. I went step by step through the Vusual Studio code and the Purebaisc code. The variable values are correct but the result is not.
The Original Source is on the First. In case anyone asks
My Source: https://github.com/MartyShepard/LHvSyst ... hiveLZX.pb
greetings
Although the reading and the position and size to be read are correct, a few characters are missing when reading my code or are interpreted incorrectly.
The Visual Studio debug version can be seen on the screenshot of the command line. For example at 135 this is the character "|" Read at the beginning. This is missing in my code, although the position and number of characters are correct, but then I suddenly get more characters read out.
The beginning is then suddenly no longer correct.
Visual Studio
My Output
PB memory Output
Strange that it still doesn't work. I went step by step through the Vusual Studio code and the Purebaisc code. The variable values are correct but the result is not.
The Original Source is on the First. In case anyone asks
My Source: https://github.com/MartyShepard/LHvSyst ... hiveLZX.pb
greetings
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
It looks like it works:
Code: Select all
DeclareModule PackLZX
Declare.i Process_Archive(File.s) ; Init and Open Lzx File
Declare.i Examine_Archive(*LzxMemory) ; List Content
Declare.i Extract_Archive(*LzxMemory, TargetDirectory$="") ; Extract Content
Declare.i Close_Archive(*LzxMemory) ; Close Archive and Free
EndDeclareModule
Module PackLZX
EnableExplicit
Structure ArchiveFormat
dateiname.s
dateipath.s
size.i
*image
EndStructure
Structure AsciiArray
a.a[0]
EndStructure
Structure UnicodeArray
u.u[0]
EndStructure
Structure LongArray
l.l[0]
EndStructure
Structure LZX_FILEDATA
Count.i ; Aktulle Datei Nummer
File.s ; filename
Comment.s
PackMode.a ; pack mode
attributes.a
TimeDate.i
crcFile.l
crc.l ; crc archive header
sum.l ; crc calculated
TotalFiles.i
SizePacked.i
SizeUnpack.i
PackedByte.b
MergedSize.i
SeekPosition.i
isMerged.i
ErrorMessage.s
loc.i
EndStructure
Structure LZX_ARCHIVE
Path.s
File.s
Full.s
TargetDirectory.s
Size.q
pbData.i
sum.l ; ist die Globale Varibale sum und nutzt "variable temp" in crc_calc
crc.l ; Abgleich und Vergleich
TotalFiles.i
TotalPacked.i
TotalUnpack.i
MergedSize.i
info_header.a[10]
archiv_header.a[31]
header_filename.a[256]
header_comment.a[256]
List FileData.LZX_FILEDATA()
EndStructure
Structure LZX_LITERAL
decrunch_length.i ; unsigned int decrunch_length
decrunch_method.i ; unsigned int decrunch_method
*destination.ascii ; unsigned char *destination
*destination_end.Ascii ; unsigned char *destination_end
last_offset.i ; unsigned int last_offset
global_control.i ; unsigned int global_control
global_shift.i ; global_shift
pack_size.i
*pos.ascii ; unsigned char *pos
*content.ascii ; unsigned char copy from *pos for file saving
*source.ascii ; unsigned char *source
*source_end.ascii ; unsigned char *source_end
*temp.ascii ; unsigned char *temp
unpack_size.i
offset_len.a[8] ; unsigned char offset_len[8]
offset_table.u[128] ; unsigned short offset_table[128]
huffman20_len.a[20] ; unsigned char huffman20_len[20]
huffman20_table.u[96] ; unsigned short huffman20_table[96]
literal_len.a[768] ; unsigned char literal_len[768]
literal_table.u[5120] ; unsigned short literal_table[5120]
EndStructure
DataSection
CRC_TABLE:
Data.l $00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F
Data.l $E963A535,$9E6495A3,$0EDB8832,$79DCB8A4,$E0D5E91E,$97D2D988
Data.l $09B64C2B,$7EB17CBD,$E7B82D07,$90BF1D91,$1DB71064,$6AB020F2
Data.l $F3B97148,$84BE41DE,$1ADAD47D,$6DDDE4EB,$F4D4B551,$83D385C7
Data.l $136C9856,$646BA8C0,$FD62F97A,$8A65C9EC,$14015C4F,$63066CD9
Data.l $FA0F3D63,$8D080DF5,$3B6E20C8,$4C69105E,$D56041E4,$A2677172
Data.l $3C03E4D1,$4B04D447,$D20D85FD,$A50AB56B,$35B5A8FA,$42B2986C
Data.l $DBBBC9D6,$ACBCF940,$32D86CE3,$45DF5C75,$DCD60DCF,$ABD13D59
Data.l $26D930AC,$51DE003A,$C8D75180,$BFD06116,$21B4F4B5,$56B3C423
Data.l $CFBA9599,$B8BDA50F,$2802B89E,$5F058808,$C60CD9B2,$B10BE924
Data.l $2F6F7C87,$58684C11,$C1611DAB,$B6662D3D,$76DC4190,$01DB7106
Data.l $98D220BC,$EFD5102A,$71B18589,$06B6B51F,$9FBFE4A5,$E8B8D433
Data.l $7807C9A2,$0F00F934,$9609A88E,$E10E9818,$7F6A0DBB,$086D3D2D
Data.l $91646C97,$E6635C01,$6B6B51F4,$1C6C6162,$856530D8,$F262004E
Data.l $6C0695ED,$1B01A57B,$8208F4C1,$F50FC457,$65B0D9C6,$12B7E950
Data.l $8BBEB8EA,$FCB9887C,$62DD1DDF,$15DA2D49,$8CD37CF3,$FBD44C65
Data.l $4DB26158,$3AB551CE,$A3BC0074,$D4BB30E2,$4ADFA541,$3DD895D7
Data.l $A4D1C46D,$D3D6F4FB,$4369E96A,$346ED9FC,$AD678846,$DA60B8D0
Data.l $44042D73,$33031DE5,$AA0A4C5F,$DD0D7CC9,$5005713C,$270241AA
Data.l $BE0B1010,$C90C2086,$5768B525,$206F85B3,$B966D409,$CE61E49F
Data.l $5EDEF90E,$29D9C998,$B0D09822,$C7D7A8B4,$59B33D17,$2EB40D81
Data.l $B7BD5C3B,$C0BA6CAD,$EDB88320,$9ABFB3B6,$03B6E20C,$74B1D29A
Data.l $EAD54739,$9DD277AF,$04DB2615,$73DC1683,$E3630B12,$94643B84
Data.l $0D6D6A3E,$7A6A5AA8,$E40ECF0B,$9309FF9D,$0A00AE27,$7D079EB1
Data.l $F00F9344,$8708A3D2,$1E01F268,$6906C2FE,$F762575D,$806567CB
Data.l $196C3671,$6E6B06E7,$FED41B76,$89D32BE0,$10DA7A5A,$67DD4ACC
Data.l $F9B9DF6F,$8EBEEFF9,$17B7BE43,$60B08ED5,$D6D6A3E8,$A1D1937E
Data.l $38D8C2C4,$4FDFF252,$D1BB67F1,$A6BC5767,$3FB506DD,$48B2364B
Data.l $D80D2BDA,$AF0A1B4C,$36034AF6,$41047A60,$DF60EFC3,$A867DF55
Data.l $316E8EEF,$4669BE79,$CB61B38C,$BC66831A,$256FD2A0,$5268E236
Data.l $CC0C7795,$BB0B4703,$220216B9,$5505262F,$C5BA3BBE,$B2BD0B28
Data.l $2BB45A92,$5CB36A04,$C2D7FFA7,$B5D0CF31,$2CD99E8B,$5BDEAE1D
Data.l $9B64C2B0,$EC63F226,$756AA39C,$026D930A,$9C0906A9,$EB0E363F
Data.l $72076785,$05005713,$95BF4A82,$E2B87A14,$7BB12BAE,$0CB61B38
Data.l $92D28E9B,$E5D5BE0D,$7CDCEFB7,$0BDBDF21,$86D3D2D4,$F1D4E242
Data.l $68DDB3F8,$1FDA836E,$81BE16CD,$F6B9265B,$6FB077E1,$18B74777
Data.l $88085AE6,$FF0F6A70,$66063BCA,$11010B5C,$8F659EFF,$F862AE69
Data.l $616BFFD3,$166CCF45,$A00AE278,$D70DD2EE,$4E048354,$3903B3C2
Data.l $A7672661,$D06016F7,$4969474D,$3E6E77DB,$AED16A4A,$D9D65ADC
Data.l $40DF0B66,$37D83BF0,$A9BCAE53,$DEBB9EC5,$47B2CF7F,$30B5FFE9
Data.l $BDBDF21C,$CABAC28A,$53B39330,$24B4A3A6,$BAD03605,$CDD70693
Data.l $54DE5729,$23D967BF,$B3667A2E,$C4614AB8,$5D681B02,$2A6F2B94
Data.l $B40BBE37,$C30C8EA1,$5A05DF1B,$2D02EF8D
EndDataSection
DataSection
TABLE_ONE:
Data.a 0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14
EndDataSection
DataSection
TABLE_TWO:
Data.u 0,1,2,3,4,6,8,12,16,24,32,48,64,96,128,192,256,384,512,768,1024
Data.u 1536,2048,3072,4096,6144,8192,12288,16384,24576,32768,49152
EndDataSection
DataSection
TABLE_THREE:
Data.u 0,1,3,7,15,31,63,127,255,511,1023,2047,4095,8191,16383,32767
EndDataSection
DataSection
TABLE_FOUR:
Data.a 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
Data.a 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
EndDataSection
Procedure LogicalAND(a, b) ; Conversion from &&
If a = 0 And b = 0
ProcedureReturn 0
ElseIf a = 0 And b = 1
ProcedureReturn 0
ElseIf a = 1 And b = 0
ProcedureReturn 0
ElseIf a = 1 And b = 1
ProcedureReturn 1
EndIf
EndProcedure
;
;
;
; Modus: 0 - Berechne die CRC für das gesamte Archiv
; Modus: 1 - Nur für die jeweilge Datei
;
Procedure crc_calc(*Memory.AsciiArray, *UnLZX.LZX_ARCHIVE, length.i, *FileCalc.ascii = #Null, Modus.i = 0)
Protected *mem.Ascii, temp.q, *crc_table.LongArray
Select Modus
Case 0
*mem = *Memory
Case 1
*mem = *FileCalc
EndSelect
*crc_table = ?CRC_TABLE
If length > 0
Select Modus
Case 0
temp = ~*UnLZX\sum ; was (sum ^ 4294967295)
Case 1
temp = ~*UnLZX\FileData()\sum
EndSelect
Repeat
temp = *crc_table\l[(*mem\a ! temp) & 255] ! ((temp & $FFFFFFFF) >> 8)
*mem + 1
Length - 1
Until Length = 0
Select Modus
Case 0
*UnLZX\sum = ~temp & $FFFFFFFF ; was (temp ^ 4294967295)
Case 1
*UnLZX\FileData()\sum = ~temp & $FFFFFFFF ; was (temp ^ 4294967295)
EndSelect
EndIf
EndProcedure
;
;
;
Procedure.s Get_Unpack(size.i)
Protected result.s
If size = 0
result = "n/a"
Else
result = Str(size)
EndIf
ProcedureReturn result
EndProcedure
;
;
;
Procedure.s Get_Packed(size.i, c.a)
Protected result.s
If c & 1
result = "n/a"
Else
result = Str(size)
EndIf
ProcedureReturn result
EndProcedure
;
;
;
Procedure.s Get_Clock(TimeDate.i)
ProcedureReturn FormatDate("%hh:%ii:%ss", TimeDate)
EndProcedure
;
;
;
Procedure.s Get_Date(TimeDate.i)
ProcedureReturn FormatDate("%dd-%mm-%yyyy", TimeDate)
EndProcedure
;
;
;
Procedure.s Get_Attrib(attributes.a)
Protected Attributes$
Attributes$ = "--------"
If attributes & 32
ReplaceString(Attributes$, "-", "h", #PB_String_InPlace, 1, 1)
EndIf
If attributes & 64
ReplaceString(Attributes$, "-", "s", #PB_String_InPlace, 2, 1)
EndIf
If attributes & 128
ReplaceString(Attributes$, "-", "p", #PB_String_InPlace, 3, 1)
EndIf
If attributes & 16
ReplaceString(Attributes$, "-", "a", #PB_String_InPlace, 4, 1)
EndIf
If attributes & 1
ReplaceString(Attributes$, "-", "r", #PB_String_InPlace, 5, 1)
EndIf
If attributes & 2
ReplaceString(Attributes$, "-", "w", #PB_String_InPlace, 6, 1)
EndIf
If attributes & 8
ReplaceString(Attributes$, "-", "e", #PB_String_InPlace, 7, 1)
EndIf
If attributes & 4
ReplaceString(Attributes$, "-", "d", #PB_String_InPlace, 8, 1)
EndIf
ProcedureReturn Attributes$
EndProcedure
;
;
;
Procedure.s Get_File(*UnLZX.LZX_ARCHIVE)
ProcedureReturn PeekS(@*UnLZX\header_filename[0], -1, #PB_Ascii)
EndProcedure
;
;
;
Procedure.s Get_Comment(*UnLZX.LZX_ARCHIVE)
ProcedureReturn PeekS(@*UnLZX\header_comment[0], -1, #PB_Ascii)
EndProcedure
;
;
;
Procedure.i Make_decode_table(number_symbols.i, table_size.i, *length.AsciiArray, *table.UnicodeArray)
Protected.i bit_num, symbol, leaf
Protected.i table_mask, bit_mask, pos, fill, next_symbol, reverse, abort
table_mask = 1 << table_size
bit_mask = table_mask
bit_mask >> 1 ; don't do the first number
bit_num + 1
While abort = 0 And bit_num <= table_size
For symbol = 0 To number_symbols - 1
If *length\a[symbol] = bit_num
;Debug "reverse the order of the position's bits"
reverse = pos
leaf = 0
fill = table_size
;Debug "reverse the position"
Repeat
leaf = (leaf << 1) + (reverse & 1)
reverse >> 1
fill - 1
Until fill = 0
pos + bit_mask
If pos > table_mask
Debug "we will overrun the table abort!" + " pos: " + Str(pos) + " table_mask: " + Str(table_mask)
abort = 1
Break
EndIf
fill = bit_mask
next_symbol = 1 << bit_num
Repeat
*table\u[leaf] = symbol
leaf + next_symbol
fill - 1
Until fill = 0
EndIf
Next symbol
bit_mask >> 1
bit_num + 1
Wend
If abort = 0 And pos <> table_mask
For symbol = pos To table_mask - 1 ; clear the rest of the table
;Debug "reverse the order of the position's bits"
reverse = symbol
leaf = 0
fill = table_size
;Debug "reverse the position"
Repeat
leaf = (leaf << 1) + (reverse & 1)
reverse >> 1
fill - 1
Until fill = 0
*table\u[leaf] = 0
Next symbol
next_symbol = table_mask >> 1
pos << 16
table_mask << 16
bit_mask = 32768
While abort = 0 And bit_num <= 16
For symbol = 0 To number_symbols - 1
If *length\a[symbol] = bit_num
;Debug "reverse the order of the position's bits"
reverse = pos >> 16
leaf = 0
fill = table_size
;Debug "reverse the position"
Repeat
leaf = (leaf << 1) + (reverse & 1)
reverse >> 1
fill - 1
Until fill = 0
For fill = 0 To bit_num - table_size - 1
If *table\u[leaf] = 0
*table\u[(next_symbol << 1)] = 0
*table\u[(next_symbol << 1) + 1] = 0
*table\u[leaf] = next_symbol
next_symbol + 1
EndIf
leaf = *table\u[leaf] << 1
leaf + (pos >> (15 - fill)) & 1
Next fill
*table\u[leaf] = symbol
pos + bit_mask
If pos > table_mask
Debug "we will overrun the table abort!"
abort = 1
Break
EndIf
EndIf
Next symbol
bit_mask >> 1
bit_num + 1
Wend
EndIf
If pos <> table_mask
Debug "the table is incomplete!"
abort = 1
EndIf
ProcedureReturn abort
EndProcedure
;
;
;
Macro MacroLiteralShift_16_8
shift + 16
control + (*p\source\a << (8 + shift))
*p\source + 1
control + (*p\source\a << shift)
*p\source + 1
control & $FFFFFFFF
EndMacro
;
;
;
Macro MacroLiteralShift_16_24
shift + 16
control + (*p\source\a << 24)
*p\source + 1
control + (*p\source\a << 16)
*p\source + 1
control & $FFFFFFFF
EndMacro
;
;
;
Procedure.i Read_Literal_Table(*p.LZX_LITERAL)
Protected *Table_Three.UnicodeArray
Protected *Table_Four.AsciiArray
Protected.i temp, pos, count, fix, max_symbol, symbol, shift, abort
Protected.q control
*Table_Three = ?TABLE_THREE
*Table_Four = ?TABLE_FOUR
control = *p\global_control
shift = *p\global_shift
;Debug "fix the control word If necessary"
If shift < 0
MacroLiteralShift_16_8
EndIf
;Debug "Read the decrunch method"
*p\decrunch_method = control & 7
control >> 3
shift - 3
If shift < 0
MacroLiteralShift_16_8
EndIf
;Debug "Read And build the offset huffman table"
If abort = 0 And *p\decrunch_method = 3
For temp = 0 To 7
*p\offset_len[temp] = control & 7
control >> 3
;Debug "Offset = " + RSet( Str( *p\OffsetLen\c[temp] ),2,"0") + " - Char:" + Chr(*p\OffsetLen\c[temp]) + ": Control: " + Str( *p\control ) + ": Shift: " + Str( *p\shift )
shift - 3
If shift < 0
MacroLiteralShift_16_8
EndIf
Next temp
abort = Make_decode_table(8, 7, @*p\offset_len[0], @*p\offset_table[0])
EndIf
;Debug "Read decrunch length"
If abort = 0
*p\decrunch_length = (control & 255) << 16
control >> 8
shift - 8
If shift < 0
MacroLiteralShift_16_8
EndIf
; Debug " Control: " + Str( *p\control ) + ": Shift: " + Str( *p\shift )
*p\decrunch_length + ((control & 255) << 8)
control >> 8
shift - 8
If shift < 0
MacroLiteralShift_16_8
EndIf
; Debug " Control: " + Str( *p\control ) + ": Shift: " + Str( *p\shift )
*p\decrunch_length + (control & 255)
control >> 8
shift - 8
If shift < 0
MacroLiteralShift_16_8
EndIf
;Debug " Control: " + Str( *p\control ) + ": Shift: " + Str( *p\shift )
EndIf
;Debug "Read And build the huffman literal table"
If abort = 0 And *p\decrunch_method <> 1
pos = 0
fix = 1
max_symbol = 256
Repeat
For temp = 0 To 19
*p\huffman20_len[temp] = control & 15
control >> 4
shift - 4
If shift < 0
MacroLiteralShift_16_8
EndIf
;Debug "Temp: " + Str(temp) + " Control: " + Hex(control) + " Shift: " + Str(shift ) + " Huffm20 Len: " + Str(*p\huffman20_len[temp])
Next temp
abort = Make_decode_table(20, 6, @*p\huffman20_len[0], @*p\huffman20_table[0])
If abort = 1
Debug "argh table is corrupt!"
Break
EndIf
Repeat
;Debug "S" + Str(shift) + " T" + Str(temp) + " C" + Hex(control)
symbol = *p\huffman20_table[control & 63]
If symbol >= 20
;Debug "symbol is longer than 6 bits"
Repeat
symbol = *p\huffman20_table[((control >> 6) & 1) + (symbol << 1)]
If shift = 0
shift - 1
MacroLiteralShift_16_24
Else
shift - 1
EndIf
control >> 1
Until Not symbol >= 20
temp = 6
Else
temp = *p\huffman20_len[symbol]
EndIf
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
Select symbol
Case 17, 18
If symbol = 17
temp = 4
count = 3
Else ; symbol = 18
temp = 6 - fix
count = 19
EndIf
count + ((control & *Table_Three\u[temp] ) + fix)
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
While pos < max_symbol And count <> 0
*p\literal_len[pos] = 0
pos + 1
count - 1
Wend
Case 19
count = (control & 1) + 3 + fix
If shift = 0
shift - 1
MacroLiteralShift_16_24
Else
shift - 1
EndIf
control >> 1
symbol = *p\huffman20_table[control & 63]
If symbol >= 20
;Debug "symbol is longer than 6 bits"
Repeat
symbol = *p\huffman20_table[((control >> 6) & 1) + (symbol << 1)]
If shift = 0
shift - 1
MacroLiteralShift_16_24
Else
shift - 1
EndIf
control >> 1
Until Not symbol >= 20
temp = 6
Else
temp = *p\huffman20_len[symbol]
EndIf
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
symbol = *Table_Four\a[*p\literal_len[pos] + 17 - symbol]
While pos < max_symbol And count > 0
*p\literal_len[pos] = symbol
pos + 1
count - 1
Wend
Default
symbol = *Table_Four\a[*p\literal_len[pos] + 17 - symbol]
*p\literal_len[pos] = symbol
pos + 1
EndSelect
;Debug "Repeat: Position "+ Str(pos) +": Max Symbol: "+ Str(max_symbol) +": Control: "+ StrU(*p\control) +": Shift: "+ Str(*p\shift)
Until Not pos < max_symbol
fix - 1
max_symbol + 512
; Debug " Fix : " + Str(fix) + ": Max Symbol: " + Str(max_symbol)
Until Not max_symbol = 768
If abort = 0
abort = Make_decode_table(768, 12, @*p\literal_len[0], @*p\literal_table[0])
EndIf
EndIf
*p\global_control = control
*p\global_shift = shift
ProcedureReturn abort
EndProcedure
;
;
;
Procedure Debug_Decrunch_Buffer(*buffer)
Protected sz.i, szString.s, szSign.s
Protected *ptr.Ascii
Debug "========================================================================= ; DEMO ;"
For *ptr = *buffer To *buffer + MemorySize(*buffer) - 1
If *ptr\a > 0
Select *ptr\a
Case #LF
szSign = "\n"
Default
szSign = Chr(*ptr\a)
EndSelect
Debug "Decrunch Buffer [" +RSet( Str(*ptr), 8, " ") + "] " + RSet(Str(*ptr\a),3, " ") + " '" + szSign + "'"
EndIf
szString + Chr(*ptr\a)
Next *ptr
Debug "========================================================================= ; DEMO ;"
Debug ""
Debug szString.s
Debug "========================================================================= ; DEMO ;"
EndProcedure
;
;
;
Procedure Decrunch(*p.LZX_LITERAL, *decrunch_buffer)
Protected *Table_One.AsciiArray
Protected *Table_Two.UnicodeArray
Protected *Table_Three.UnicodeArray
Protected *string.Ascii
Protected.i temp, count, symbol, shift
Protected.q control
*Table_One = ?TABLE_ONE
*Table_Two = ?TABLE_TWO
*Table_Three = ?TABLE_THREE
control = *p\global_control
shift = *p\global_shift
Repeat
symbol = *p\literal_table[control & 4095]
If symbol >= 768
control >> 12
shift - 12
If shift < 0
MacroLiteralShift_16_8
EndIf
;Debug "literal is longer than 12 bits"
Repeat
symbol = *p\literal_table[(control & 1) + (symbol << 1)]
If shift = 0
shift - 1
MacroLiteralShift_16_24
Else
shift - 1
EndIf
control >> 1
Until Not symbol >= 768
Else
temp = *p\literal_len[symbol]
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
EndIf
If symbol < 256
*p\destination\a = symbol
*p\destination + 1
Else
symbol - 256
temp = symbol & 31
count = *Table_Two\u[temp]
temp = *Table_One\a[temp]
If temp >= 3 And *p\decrunch_method = 3
temp - 3
count + ((control & *Table_Three\u[temp]) << 3)
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
temp = *p\offset_table[control & 127]
count + temp
temp = *p\offset_len[temp]
Else
count + (control & *Table_Three\u[temp])
If count = 0
count = *p\last_offset
EndIf
EndIf
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
*p\last_offset = count
temp = (symbol >> 5) & 15
count = *Table_Two\u[temp] + 3
temp = *Table_One\a[temp]
count + (control & *Table_Three\u[temp])
control >> temp
shift - temp
If shift < 0
MacroLiteralShift_16_8
EndIf
If *decrunch_buffer + *p\last_offset < *p\destination
*string = *p\destination - *p\last_offset
Else
*string = *p\destination + 65536 - *p\last_offset
EndIf
Repeat
*p\destination\a = *string\a
*p\destination + 1
*string + 1
count - 1
Until count = 0
EndIf
;Debug "Destination: " + Str(*p\destination) + " End " + Str(*p\destination_end) + " Source:" + Str(*p\source) + " End " + Str(*p\source_end)
Until Not ((*p\destination < *p\destination_end) And (*p\source < *p\source_end))
;Debug_Decrunch_Buffer(*DecrBuffer)
*p\global_control = control
*p\global_shift = shift
EndProcedure
;
;
;
Procedure.i open_output(Filename$, ArchiveName$)
Protected szDestination.s, subdir_count.i, i.i
szDestination.s = GetPathPart(ArchiveName$) + GetFilePart(ArchiveName$, #PB_FileSystem_NoExtension) + "/"
CreateDirectory(szDestination)
If FindString(Filename$, "/")
subdir_count = CountString(Filename$, "/")
For i = 1 To subdir_count
szDestination + StringField(Filename$, i, "/") + "/"
CreateDirectory(szDestination)
Next i
EndIf
ProcedureReturn CreateFile(#PB_Any, szDestination + GetFilePart(Filename$))
EndProcedure
;
;
;
Procedure .i Extract_Normal(*UnLZX.LZX_ARCHIVE)
Protected *p.LZX_LITERAL
Protected *read_buffer.AsciiArray
Protected *decrunch_buffer.AsciiArray
Protected.i count, out_file, x, size, abort
*p = AllocateStructure(LZX_LITERAL)
*read_buffer = AllocateMemory(16384)
*decrunch_buffer = AllocateMemory(258 + 65536 + 258)
count = 0
*p\global_control = 0 ; initial control word
*p\global_shift = -16
*p\last_offset = 1
*p\decrunch_length = 0
*p\unpack_size = 0
*p\source = *read_buffer + 16384
*p\source_end = *p\source - 1024
*p\destination = *decrunch_buffer + 258 + 65536
*p\destination_end = *p\destination
*p\pos = *p\destination_end
With *UnLZX\FileData()
Debug "Extracting File: " + \File
out_file = open_output(\File, *UnLZX\TargetDirectory)
;Debug "reset CRC"
*UnLZX\FileData()\sum = 0
*p\unpack_size = \SizeUnpack
*p\pack_size = \SizePacked
While *p\unpack_size > 0
;Debug "time To fill the buffer?"
If *p\pos = *p\destination
;Debug "check If we have enough Data And Read some If Not"
If *p\source >= *p\source_end
;Debug "have we exhausted the current Read buffer?"
*p\temp = *read_buffer
count = *p\temp - *p\source + 16384
If count
;Debug "copy the remaining overrun To the start of the buffer"
Repeat
*p\temp\a = *p\source\a
*p\temp + 1
*p\source + 1
count - 1
Until count = 0
EndIf
*p\source = *read_buffer
count = *p\source - *p\temp + 16384
If *p\pack_size < count
;Debug "make sure we don't read too much"
count = *p\pack_size
EndIf
;Debug "Read: " + Str(count)
If ReadData(*UnLZX\pbData, *p\temp, count) <> count
abort = 1
Break
EndIf
*p\pack_size - count
*p\temp + count
If *p\source >= *p\temp
Debug "argh no more data!"
Break
EndIf
EndIf
;Debug "check if we need to read the tables"
If *p\decrunch_length <= 0
;Debug "read_literal_table"
abort = read_literal_table(*p)
If abort = 1
Debug "argh can't make huffman tables!"
Break
EndIf
EndIf
;Debug "unpack some Data"
If *p\destination >= (*decrunch_buffer + 258 + 65536)
count = *p\destination - *decrunch_buffer - 65536
If count > 0
*p\destination = *decrunch_buffer
*p\temp = *p\destination + 65536
;Debug "copy the overrun to the start of the buffer. count: " + Str(count)
Repeat
*p\destination\a = *p\temp\a
*p\destination + 1
*p\temp + 1
count - 1
Until count = 0
EndIf
*p\pos = *p\destination
EndIf
*p\destination_end = *p\destination + *p\decrunch_length
If *p\destination_end > *decrunch_buffer + 258 + 65536
*p\destination_end = *decrunch_buffer + 258 + 65536
EndIf
*p\temp = *p\destination
decrunch(*p, *decrunch_buffer)
*p\decrunch_length - (*p\destination - *p\temp)
EndIf
;Debug "calculate amount of data we can use before we need to fill the buffer again"
count = *p\destination - *p\pos
If count > *p\unpack_size
;Debug "take only what we need"
count = *p\unpack_size
EndIf
crc_calc(0, *UnLZX, count, *p\pos, 1)
;Debug "Calculated CRC : " + Hex(\sum) + " :: (sollte sein) " + Hex(\crc)
If IsFile(out_file)
If WriteData(out_file, *p\pos, count) <> count
CloseFile(out_file)
out_file = 0
EndIf
EndIf
*p\unpack_size - count
*p\pos + count
;Debug "decrunch_length: " + Str(*p\decrunch_length)
;Debug "unpack_size: " + Str(*p\unpack_size)
Wend
If IsFile(out_file)
CloseFile(out_file)
If abort = 0
If \crc = \sum
Debug "crc good"
Else
Debug "crc bad"
EndIf
EndIf
EndIf
EndWith
FreeMemory(*decrunch_buffer)
FreeMemory(*read_buffer)
FreeStructure(*p)
ProcedureReturn abort
EndProcedure
;
;
;
Procedure.i extract_store(*UnLZX.LZX_ARCHIVE)
Protected.i out_file, count, abort, unpack_size, pack_size
Protected *read_buffer
*read_buffer = AllocateMemory(16384)
If *read_buffer
With *UnLZX\FileData()
Debug "Extracting File: " + \File
out_file = open_output(\File, *UnLZX\TargetDirectory)
If out_file
\sum = 0 ; reset CRC
pack_size = \SizePacked
unpack_size = \SizeUnpack
If unpack_size > \SizePacked
unpack_size = \SizePacked
EndIf
While unpack_size > 0
If unpack_size > 16384
count = 16384
Else
count = unpack_size
EndIf
If ReadData(*UnLZX\pbData, *read_buffer, count) <> count
abort = 1
Break ; fatal error
EndIf
pack_size - count
crc_calc(#Null, *UnLZX, count, *read_buffer, 1)
If IsFile(out_file) ; Write the Data To the file
If WriteData(out_file, *read_buffer, count) <> count
CloseFile(out_file)
out_file = 0
EndIf
EndIf
unpack_size - count
Wend
If out_file
CloseFile(out_file)
If abort = 0
If \sum = \crc
Debug "crc good"
Else
Debug "crc bad"
EndIf
EndIf
EndIf
EndIf
EndWith
FreeMemory(*read_buffer)
EndIf
ProcedureReturn abort
EndProcedure
;
;
;
Procedure.i Extract_Archive(*UnLZX.LZX_ARCHIVE, TargetDirectory$="")
If TargetDirectory$ <> ""
If Right(TargetDirectory$, 1) <> "/" Or Right(TargetDirectory$, 1) <> "\"
TargetDirectory$ + "/"
EndIf
*UnLZX\TargetDirectory = TargetDirectory$ + GetFilePart(*UnLZX\Full)
Else
*UnLZX\TargetDirectory = *UnLZX\Full
EndIf
ResetList(*UnLZX\FileData())
While NextElement(*UnLZX\FileData())
FileSeek(*UnLZX\pbData, *UnLZX\FileData()\Loc, #PB_Absolute)
Select *UnLZX\FileData()\PackMode
Case 0 ; store
Debug #LF$ + "store"
extract_store(*UnLZX)
Case 2 ; normal
Debug #LF$ + "normal"
Extract_Normal(*UnLZX)
Default ; unknown
Debug #LF$ + "unknown"
EndSelect
Wend
EndProcedure
;
;
;
Procedure.i View_Archive(*UnLZX.LZX_ARCHIVE)
Protected temp
Protected total_pack
Protected total_unpack
Protected actual
Protected abort
Protected result
Protected.i x, unpack_size, pack_size, DatePosition
Protected.i year, month, day, hour, minute, second
Protected attributes.a
result = 1 ; assume an error
;Debug ("Unpacked" + #Tab$ +" Packed" + #Tab$ + " CRC Calc " + #Tab$ + " CRC Summe " + #Tab$ +" Time " + #Tab$ + " Date " + #Tab$ + " Attrib " + #Tab$ + "Dir/File" )
;Debug ("--------" + #Tab$ +"--------" + #Tab$ + "-----------"+ #Tab$ + "-----------" + #Tab$ +"--------" + #Tab$ + "--------" + #Tab$ + "--------" + #Tab$ + "--------" )
Repeat
abort = 1; assume an error
actual = ReadData(*UnLZX\pbData, @*UnLZX\archiv_header[0], 31)
If actual > 0 ; 0 is normal And means EOF
If actual = 31
*UnLZX\crc = (*UnLZX\archiv_header[29] << 24) + (*UnLZX\archiv_header[28] << 16) + (*UnLZX\archiv_header[27] << 8) + *UnLZX\archiv_header[26] ; header crc
*UnLZX\archiv_header[29] = 0 ; Must set the field to 0 before calculating the crc
*UnLZX\archiv_header[28] = 0 ;
*UnLZX\archiv_header[27] = 0 ;
*UnLZX\archiv_header[26] = 0 ;
*UnLZX\sum = 0 ; reset CRC
crc_calc(@*UnLZX\archiv_header[0], *UnLZX, 31)
;--------------------------------------------------------------------------------------------------------------------------------------------
;
temp = *UnLZX\archiv_header[30] ; filename length
If temp = 0
; no more files
Break
EndIf
actual = ReadData(*UnLZX\pbData, @*UnLZX\header_filename[0], temp)
If actual = temp
*UnLZX\header_filename[temp] = 0
;Debug PeekS(@*UnLZX\header_filename[0], -1, #PB_Ascii)
crc_calc(@*UnLZX\header_filename[0], *UnLZX, temp)
;--------------------------------------------------------------------------------------------------------------------------------------------
;
temp = *UnLZX\archiv_header[14] ; comment length
actual = ReadData(*UnLZX\pbData, @*UnLZX\header_comment[0], temp)
If actual = temp
crc_calc(@*UnLZX\header_comment[0], *UnLZX, temp)
If *UnLZX\sum = *UnLZX\crc
;Debug "CRC: " + Hex(*UnLZX\crc)
attributes = *UnLZX\archiv_header[0] ; file protection modes
unpack_size = (*UnLZX\archiv_header[5] << 24) + (*UnLZX\archiv_header[4] << 16) + (*UnLZX\archiv_header[3] << 8) + *UnLZX\archiv_header[2] ; unpack size
pack_size = (*UnLZX\archiv_header[9] << 24) + (*UnLZX\archiv_header[8] << 16) + (*UnLZX\archiv_header[7] << 8) + *UnLZX\archiv_header[6] ; packed size
DatePosition = (*UnLZX\archiv_header[18] << 24) + (*UnLZX\archiv_header[19] << 16) + (*UnLZX\archiv_header[20] << 8) + *UnLZX\archiv_header[21] ; date
year = ((DatePosition >> 17) & 63) + 1970
month = ((DatePosition >> 23) & 15) + 1
day = (DatePosition >> 27) & 31
hour = (DatePosition >> 12) & 31
minute = (DatePosition >> 6) & 63
second = DatePosition & 63
*UnLZX\TotalPacked + pack_size
*UnLZX\TotalUnpack + unpack_size
*UnLZX\TotalFiles + 1
*UnLZX\MergedSize + unpack_size
;
; Sammle Infos
AddElement(*UnLZX\FileData())
With *UnLZX\FileData()
\loc = Loc(*UnLZX\pbData)
\Count = *UnLZX\TotalFiles
\File = Get_File (*UnLZX)
\Comment = Get_Comment(*UnLZX)
\PackMode = *UnLZX\archiv_header[11]
\attributes = attributes
\sum = *UnLZX\sum
\crcFile = *UnLZX\crc
\crc = (*UnLZX\archiv_header[25] << 24) + (*UnLZX\archiv_header[24] << 16) + (*UnLZX\archiv_header[23] << 8) + *UnLZX\archiv_header[22] ; data crc
\TimeDate = Date(Year, month, day, hour, minute, second)
\SizePacked = pack_size
\PackedByte = *UnLZX\archiv_header[12]
\SizeUnpack = unpack_size
\isMerged = #False
\ErrorMessage = ""
EndWith
;
; Dateien 'merged'
If *UnLZX\archiv_header[12] & 1 And pack_size > 0
;Debug RSet(Str(*UnLZX\MergedSize),8,Chr(32)) + #Tab$ + RSet(Get_Packed(pack_size,LogicalAnd( (*UnLZX\Archiv\c[12] & 1) , pack_size)),8,Chr(32)) + #Tab$ + "Merged"
AddElement(*UnLZX\FileData())
With *UnLZX\FileData()
\MergedSize = *UnLZX\MergedSize
\SizePacked = Val(Get_Packed(pack_size, LogicalAnd((*UnLZX\archiv_header[12] & 1), pack_size)))
\isMerged = #True
EndWith
EndIf
If pack_size > 0 ; seek past the packed Data
*UnLZX\MergedSize = 0
FileSeek(*UnLZX\pbData, pack_size, #PB_Relative)
*UnLZX\FileData()\SeekPosition = Loc(*UnLZX\pbData)
EndIf
Else
Debug "CRC Mismatch / Archiv Corrupt"
Debug "CRC calc: " + Hex(*UnLZX\sum) + " CRC file: "+ Hex(*UnLZX\crc)
*UnLZX\crc = 0
*UnLZX\sum = 0
AddElement(*UnLZX\FileData())
With *UnLZX\FileData()
\Count + 1
\ErrorMessage = "CRC Mismatch / Archiv Corrupt"
EndWith
Break
EndIf
abort = 0
Else
;Debug "End Of File: Header_Comment"
EndIf
Else
;Debug "End Of File: Header_Filename"
;Break
EndIf
Else
;Debug "End Of File: Archive_Header"
EndIf
;Else
; Break
EndIf
;result = 0; normal termination
Until abort = 1
EndProcedure
;
;
;
Procedure.i Process_Header(*UnLZX.LZX_ARCHIVE)
Protected actual.i, result.i
actual = ReadData(*UnLZX\pbData, @*UnLZX\info_header[0], 10)
If actual = 10
If (*UnLZX\info_header[0] = 'L') And (*UnLZX\info_header[1] = 'Z') And (*UnLZX\info_header[2] = 'X') ; LZX
Debug "LZX found"
result = #True
EndIf
EndIf
ProcedureReturn result
EndProcedure
;
;
;
Procedure.s Files_CountDesc(TotalFiles.i)
Protected result.s
If TotalFiles = 1
result = ""
Else
result = "s"
EndIf
ProcedureReturn result
EndProcedure
;
;
;
Procedure.i Debug_View_Archiv(*UnLZX.LZX_ARCHIVE)
Protected.s szSizeUnpack, szSizePacked, szCRCCalc, szCRC, szFileTime, szFileDate, szFileAttrib, szFileName, szMergedSize, szComment, FileNummer
Debug "Nr " + "Unpacked" + #TAB$ +" Packed" + #TAB$ + " CRC Calc " + #TAB$ + " CRC Summe " + #TAB$ +" Time " + #TAB$ + " Date " + #TAB$ + " Attrib " + #TAB$ + "Dir/File"
Debug "---" + "--------" + #TAB$ +"--------" + #TAB$ + "-----------"+ #TAB$ + "-----------" + #TAB$ +"--------" + #TAB$ + "----------" + #TAB$ + "--------" + #TAB$ + "------------------------------------------------"
ResetList(*UnLZX\FileData())
With *UnLZX\FileData()
While NextElement(*UnLZX\FileData())
If Len(\ErrorMessage) > 0
Debug \ErrorMessage
Continue
EndIf
If \isMerged = #True
FileNummer = " "
szMergedSize = RSet(Str(\MergedSize) ,8, " ")
szSizePacked = RSet(Str(\SizePacked) ,8, " ")
Debug FileNummer + szMergedSize + #TAB$ + szSizePacked + #TAB$ + "Merged"
Continue
Else
FileNummer = RSet(Str(\Count), 2, " ")
szSizeUnpack = RSet(Get_Unpack(\SizeUnpack), 8, " ")
szSizePacked = RSet(Get_Packed(\SizePacked, \PackedByte), 8, " ")
szCRCCalc = RSet(Hex(\sum, #PB_Long), 10, " ")
szCRC = RSet(Hex(\crcFile, #PB_Long), 10, " ")
szFileTime = Get_Clock(\TimeDate)
szFileDate = Get_Date(\TimeDate)
szFileAttrib = Get_Attrib(\attributes)
szFileName = \File
szComment = \Comment
Debug FileNummer + szSizeUnpack + #TAB$ + szSizePacked+ #TAB$ + szCRCCalc + #TAB$ + szCRC + #TAB$ + szFileTime + #TAB$ + szFileDate + #TAB$ + szFileAttrib + #TAB$ + szFileName
If Len(szComment) > 0
Debug "Comment: "+ szComment
EndIf
EndIf
Wend
EndWith
Debug "----------" + #TAB$ +"--------" + #TAB$ + "-----------"+ #TAB$ + "-----------" + #TAB$ +"--------" + #TAB$ + "----------" + #TAB$ + "--------" + #TAB$ + "------------------------------------------------"
Debug " " + RSet(Str(*UnLZX\TotalUnpack),8, " ") + #TAB$ + RSet(Str(*UnLZX\TotalPacked),8, " ") + #TAB$ + " File"+ Files_CountDesc(*UnLZX\TotalFiles) + ": " + Str(*UnLZX\TotalFiles)
Debug ""
Debug "File: " + *UnLZX\Full
Debug "Size: " + *UnLZX\Size
EndProcedure
;
;
;
Procedure.i Close_Archive(*UnLZX.LZX_ARCHIVE)
If *UnLZX
If IsFile(*UnLZX\pbData)
CloseFile(*UnLZX\pbData)
EndIf
ClearList(*UnLZX\FileData())
ClearStructure(*UnLZX, LZX_ARCHIVE)
FreeMemory(*UnLZX)
*UnLZX = #Null
EndIf
ProcedureReturn *UnLZX
EndProcedure
;
;
;
Procedure.i Examine_Archive(*UnLZX.LZX_ARCHIVE)
If *UnLZX > 0
Debug_View_Archiv(*UnLZX)
EndIf
EndProcedure
;
;
;
Procedure.i Process_Archive(File.s)
Protected *UnLZX.LZX_ARCHIVE
If FileSize(File) > 0
*UnLZX = AllocateMemory(SizeOf(LZX_ARCHIVE))
*UnLZX\Size = FileSize(File)
*UnLZX\Full = File
*UnLZX\Path = GetPathPart(*UnLZX\Path)
*UnLZX\File = GetFilePart(*UnLZX\File , #PB_FileSystem_NoExtension)
*UnLZX\TotalFiles = 0
*UnLZX\pbData = ReadFile(#PB_Any, *UnLZX\Full)
NewList *UnLZX\FileData.LZX_FILEDATA()
If Process_Header(*UnLZX) = #True
View_Archive(*UnLZX)
ProcedureReturn *UnLZX
EndIf
EndIf
EndProcedure
EndModule
CompilerIf #PB_Compiler_IsMainFile
;-Demo
EnableExplicit
Debug "UnLZX Purebasic Module v0.2 based on Amiga PowerPC Elf UnLZX 1.0 (22.2.98)"
Debug "Convertet by Martin Schäfer"
Debug ""
Define File.s, Pattern.s, *LzxMemory
Pattern = "LZX (*.lzx)|*.lzx|Alle Dateien (*.*)|*.*"
File = OpenFileRequester("LZX Tester", "", Pattern, 0)
If File
;
; Lzx File Öffne und Inbtialisieren
*LzxMemory = PackLZX::Process_Archive(File)
;
; Archive Auflisten
PackLZX::Examine_Archive(*LzxMemory)
;
;
PackLZX::Extract_Archive(*LzxMemory)
;PackLZX::Extract_Archive(*LzxMemory, "c:\tmp"")
;
; Free File and Free Memory
*LzxMemory = PackLZX::Close_Archive(*LzxMemory)
EndIf
CompilerEndIf
Last edited by infratec on Sun Feb 12, 2023 10:33 pm, edited 7 times in total.
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Changed the code above:
output_file creates now all files in a directory parallel to the lzx file.
output_file creates now all files in a directory parallel to the lzx file.
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Changed the code above:
fixed a bug if comments are abailable.
fixed a bug if comments are abailable.
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Changed the code above:
added the posibility to add a target directory (directory have to exist)
added the posibility to add a target directory (directory have to exist)
Code: Select all
PackLZX::Extract_Archive(*LzxMemory, "c:\tmp")
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Changed the code above:
removed some unneeded struct variables and did some code cleanup.
removed some unneeded struct variables and did some code cleanup.
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Whoa.... how did you manage that so quickly?. I fall right off the chair. 
I looked and searched for days.
Yes. The crc calc worked now.
PS:
ok?
I looked and searched for days.
Yes. The crc calc worked now.
PS:
Code: Select all
Debug "UnLZX Purebasic Module v0.2 based on Amiga PowerPC Elf UnLZX 1.0 (22.2.98)"
Debug "Convertet by Infratec & Marty2PB"
Debug ""
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
There were 2 points which took hours to find out:
1. One endif was placed wrong.
This resulted in only decode the first turn.
Small files were Ok, large files were only decoded up to 15k.
2. The right conversion from
to
Isn't it better to rename it from PackLZX to UnLZX?
1. One endif was placed wrong.
This resulted in only decode the first turn.
Small files were Ok, large files were only decoded up to 15k.
2. The right conversion from
Code: Select all
if(!shift--)
{
shift += 16;
control += *source++ << 24;
control += *source++ << 16;
}
Code: Select all
If shift = 0
shift - 1
MacroLiteralShift_16_24
Else
shift - 1
EndIf
Isn't it better to rename it from PackLZX to UnLZX?
Re: Conversion UnLZX (LZX decompress ) in C to PB Nativ
Yes. That's correct. That makes more sense.infratec wrote: Mon Feb 13, 2023 8:05 am There were 2 points which took hours to find out:
1. One endif was placed wrong.
This resulted in only decode the first turn.
Small files were Ok, large files were only decoded up to 15k.
2. The right conversion fromtoCode: Select all
if(!shift--) { shift += 16; control += *source++ << 24; control += *source++ << 16; }Code: Select all
If shift = 0 shift - 1 MacroLiteralShift_16_24 Else shift - 1 EndIf
Isn't it better to rename it from PackLZX to UnLZX?
Have a possibility to unpack individual files (as example for later a ListViewGadget).
Changed code at github
https://github.com/MartyShepard/LHvSyst ... hiveLZX.pb