Apple-2-SW/a2server
1
0
Fork 0
mirror of https://github.com/RasppleII/a2server.git synced 2024-06-12 06:29:32 +00:00
Code Issues Projects Releases Wiki Activity

cppo appends "+" to extended files during ordinary -cat of SHK archives

Browse Source
This commit is contained in:
Ivan X 2016-01-04 01:02:42 -05:00
parent 4a0d574f8a
commit 8327a5eb8d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/tools/cppo.txt
View File

@ -520,8 +520,14 @@ def processEntry(arg1, arg2):
eTargetName = None
g.exFileData = None
g.outFileData = bytearray(b'')
g.shk_rfork = (1 if (g.SHK and (arg2[-1:] == "r")) else 0)
g.shk_hasrf = ""
g.shk_rfork = False
if g.SHK: # ShrinkIt archive
if (arg2[-1:] == "r" and os.path.isfile(os.path.join(arg1,arg2[:-1]))):
g.shk_rfork = True
elif (not g.EX and not g.AD and
os.path.isfile(os.path.join(arg1, (arg2 + "r")))):
g.shk_hasrf = "+"
g.activeFileName = (arg2 if g.EX else arg2.split('#')[0])
origFileName = g.activeFileName
else: # ProDOS or DOS 3.3 image
@ -556,7 +562,7 @@ def processEntry(arg1, arg2):
(os.path.basename(g.extractFile) ==
origFileName.split('#')[0])):
if (not (g.DIR and (g.shk_rfork and not g.EX and not g.AD))):
print(" " + g.activeFileName +
print(" " + g.activeFileName + g.shk_hasrf +
((" [" + origFileName + "] ")
if (g.PNAME and (origFileName != g.activeFileName))
else "") +