Code: Select all
Imptype Standard;
Get Version Long 0;
Get FDO Long 0;
Get DO Long 0;
Get FC Long 0;
For T = 1 to FC;
Goto FDO 0;
Get FN String 0;
SavePos NS 0;
Goto DO 0;
Get UK Long 0;
Get FS Long 0;
Get FP Long 0;
SavePos ND 0;
Next T;
Code: Select all
Imptype Standard;
# Okay, so you tell MexCom that importation is standard. That means that you have info about : The offset of the Offset variable in the archive for each resource, plus the Offset of the Size variable for each resource.
Get Version Long 0;
# Ok, so you get the version number (4bytes) and store it in Version.
Get FDO Long 0;
# You store the next variable in FDO.
Get DO Long 0;
# You store the next 32-bit variable in DO
Get FC Long 0;
# You store the number of resource (I assume) in FC
For T = 1 to FC;
# Good you start the loop
# This is the same as saying "for each resource do" ;)
Goto FDO 0;
# Okay, the first thing in the loop: you go to FDO.
Get FN String 0;
# This is apparently where all the filenames are stored, so you get a string (FN). Note that you get a null-terminated string. This Get statement assumes that the string is null-terminated.
SavePos NS 0;
#Okay, so after this null-terminated string, you save the location in the file and store this in NS.
Goto DO 0;
#Alrightey, now jump to DO (you loaded that from the header).
Get UK Long 0;
# I assume you load UnKompressed size or something ?
Get FS Long 0;
# Then you load the (compressed) filesize of this resource?
Get FP Long 0;
# Then you load the Offset of this resource ? ("FilePointer"?)
SavePos ND 0;
# Okay, very well, but you now save the current location in the file and store this in ND .
# This would be a great place to Log what you found for this resource.
# Assuming resources are not compressed:
Log FN FP FS 0 0 ;
# Note: you should save the position of the FP and FS variable as well to make use of the ImpType Standard you defined! You can do this by adding a SavePos FSO 0 ; before the Get FS Long 0 ; and SavePos FOO 0 ; before the Get FP Long 0 ;
# The Log statement should have to be then:
Log FN FP FS FOO FSO ;
#Anyway, now you will do all the same for the next resource.
# But there's a problem here. Where to jump?
# In your loop you will jump to FDO again. That's not right, is it? You will now get the same filename AGAIN. Should you not jump to NS instead? The Savepos you did just after you loaded the Filename in FN?
# And the same goes for the other jump in the loop: DO. You Savepos the location in the other table in ND, should you not jump there instead?
# So if I'm right, should you not simply change the FDO and DO variable names in NS and ND?
Next T;
.gif "Smile"){kind=small}
Code: Select all
Imptype Standard;
Get Version Long 0;
Get FDO Long 0;
Get DO Long 0;
Get FC Long 0;
For T = 1 to FC;
Goto FDO 0;
Get FN String 0;
SavePos FDO 0;
Goto DO 0;
Get UK Long 0;
SavePos FSO 0;
Get FS Long 0;
SavePos FOO 0;
Get FP Long 0;
SavePos DO 0;
Log FN FP FS FOO FSO;
Next T;