XeNTaX

Code: Select all

// MexCom - Recreation of pak.bms
// THIS IS AN AUTOMATED SPECIFICATION
// READ WITH CARE
// ----------------------------
// LEGEND
// ----------------------------
// ==> (Jump to offset)
// #DECLARE (Set variable to value)
// $$ CALCULATE (Calculate a new value)
// ** (Section that repeats itself on condition)
// // (Comment)
// uint32{4} (Unsigned 32-bit value, 4 bytes)
// uint16{2} (Unsigned 16-bit value, 2 bytes)
// ubyte{1} (Unsigned 8-bit value, 1 byte)
// char{n} (String value, n bytes in length
// ----------------------------


// Format Specification


FileID   		'PACK'
uint32{4}		Version
uint32{4}		FileNum
uint32{4}		TableEnd


** Start Repeated entry (T) {FileNum}
#DECLARE CSO = CURRENT OFFSET
uint32{4}		CompressedSize
#DECLARE UCO = CURRENT OFFSET
uint32{4}		UncompressedSize
#DECLARE FOO = CURRENT OFFSET
uint32{4}		Offset
uint32{4}		FilenameOffset
uint32{4}		CRC
uint32{4}		Method
#DECLARE NextEntry = CURRENT OFFSET


==>FilenameOffset
char{}   		Filename


// Resources have a name (Filename), are located at Offset and have a size of CompressedSize


==>NextEntry
** End Repeated entry (T)
// ----------------------------
// MexCom - Recreation complete 

Code: Select all

ImpType Standard ;
IDString 0 PACK ;
Get Version Long 0 ;
Get FileNum Long 0 ;
Get TableEnd Long 0 ;
For T = 1 To FileNum ;
SavePos CSO 0 ;
Get CompressedSize Long 0 ;
SavePos UCO 0 ;
Get UncompressedSize Long 0 ;
SavePos FOO 0 ;
Get Offset Long 0 ;
Get FilenameOffset Long 0 ;
Get CRC Long 0 ;
Get Method Long 0 ;
SavePos NextEntry 0 ;
GoTo FilenameOffset 0 ;
Get Filename String 0 ;
Log Filename Offset CompressedSize FOO CSO ;
GoTo NextEntry 0 ;
Next T ;