 
Т > Deleter1 ,Т v1.00 20-Nov-2001 JGH: Initial version 7Т Goes through Zip file, comparing to dir structure (<Т Produces a deletefile to remove objects not in zipfile 2Т Needs a better name <4Т Needs to strip terminal "." from dir leafnames F: P: ZEч ctrl%30,data%80,extra%128,zp%6:A$=єOS_GetEnv:in%=0:out%=0:sj%=0 dч info% 39,metadata% 127 n7quit$=єcl(" -q",1):debug%=єcl("-de",0):Н ┘ Ж:Я:Рend xSГ єcl("-?",0):Я"Syntax: *Deleter infile -d path -f -u -v -X -quit command":Рend ┌Gfsh%=єcl("-f",0):upd%=єcl("-u",0):dest$=єcl("-d",1):vb%=єcl("-v",0) ▄"xtr%=єcl("-X",0):in$=єcl("",0) √└Г debug%:Я" run$='"run$"'"'"quit$='"quit$"'"'"  in$='"in$"'"'"dest$='"dest$"'"'"freshen=";fsh%;"  update=";upd%;"  verbose=";vb% ═: ╙'Н ┘ Ж:РCloseAll:Я" at line ";·:Рend ЄX%=ctrl%:Y%=X%│256:fln%=11 Ў)max%=⌠-▓-6000:ч mem% max%:wr%=2:rd%=4 хlГ in$="":Х"Zipfile to reference: "in$:Г dest$="":Х"Destination path: "dest$:Х"Output deletefile: "dfile$ р5in%=▌(in$):Г in%=0:Я"File '"in$"' not found":Рend э:Г єget32<>&04034B50:Я"Not a ZIP file":ы#in%:in%=0:Рend Фpath$=dest$ ПEout%=ў(dfile$):у#out%,"| Deletefile to remove unreferenced files" З	РScan,ы#out%:out%=0:Ъ"SetType "+dfile$+" Obey"ы#in%:in%=0Ю":,
щРScan6Й index%,num%@=х≥ "OS_GBPB",9,path$,info%,1,index%,39,0 ╦ ,,,num%,index%J+Т info%=>load,exec,len,attr,type,name+0TГnum%<>0:РObject^Щ num%=0:Аh:rщРObject|7info%?39=13:fn$=$(info%+20):fn$=юfn$,їfn$+Ґ0,Ґ0)-1)├#id%=єget32:Гid%=&04034B50:Рfile░ єў╦блжЮ:done%=╧Й"  Г id%=&02014B50:Рdir:done%=╧Т"  Г id%=&06054B50:Рeof:done%=╧Ч6  Г ╛done%:о#in%=▐#in%-5:Я"Damaged ZIP file?";Ґ13;+Щ id%=&02014B50 └ id%=&06054B50 └ е#in%ы#in%:in%=0
Рend:Ю&:0щРCloseAll:*Exec:#in%=in%:Г in%:A%=in%:in%=0:ы#A%D(out%=out%:Г out%:A%=out%:out%=0:ы#A%N#md%=md%:Г md%:A%=md%:md%=0:ы#A%XАb:l
щРfilev4verneeded%=єget16:flags%=єget16:comptype%=єget16─+mtime%=єget16:mdate%=єget16:crc%=єget32┼%compsize%=єget32:filesize%=єget32■$namelen%=єget16:extralen%=єget16·*name$="":Ц x%=0 ╦ 127 ┬4:extra%!x%=0:М╗6Г namelen%:Ц x%=1 ╦ namelen%:name$=name$+Ґ  #in%:М╡6Г extralen%:Ц x%=0 ╦ extralen%-1:extra%?x%= #in%:М╪!hdrid%=єex16(0):dsz%=єex16(2)ф@sig%=extra%!4:load%=extra%!8:exec%=extra%!12:attr%=extra%!16пCctime%=єex16(24):cdate%=єex16(26):acc%=єex16(28):aux%=єex16(30)з/Т hdrid%=&4341 -> Created on Acorn computerД2Т dsz% usually =&14, ie 20 bytes of extra dataНТ sig%='ARC0'  -> ArchiveЬ*name$=єconvertname(name$):Я name$;" "; *РexMeta:Я:А4:>:HщРunzipfileRщРexMeta\Рensurepath(dest$+name$)fpath$=dest$+name$pA%=╘ path$:Уz%A%=A%-1:Щ аpath$,A%,1)="." └ A%<2└>leaf$=аpath$,A%+1):Г бleaf$,1)=".":leaf$=юleaf$,╘ leaf$-1)▌path$=юpath$,A%)≤Т MetaData contents:╒DТ NAME+SPC TAB LOAD EXEC LEN ACC mDATE mTIME cDATE cTIME ACC AUX╛CТ    10     1   4    4    4   1    2     3     2     3    2   2І.Т Dates and times are in fileserver formatю:й2Т cdate, ctime, mdate, mtime are in ZIP formatт/Т Need to be outputted in fileserver formatч:Х@info%!0=load%:info%!4=exec%:info%!8=filesize%:info%!12=attr%Р5info%!13=єfsDate(mdate%):info%!15=єfsTime(mtime%)Э5info%!18=єfsDate(cdate%):info%!20=єfsTime(ctime%)*info%!23=acc%:info%!25=aux%:info%!28=0: filename$=leaf$:mpath$=path$$РSetExtras(27,crc%).4о#in%=▐#in%+compsize%:Г(flags%─8):о#in%=▐#in%+128АB#Я"Write to ";path$;"!!MetaData"L Я юleaf$+"         ",10);Ґ9;V;Я єh0(load%,8)єh0(exec%,8)єh0(filesize%,8)єh0(attr%,2);`3Я єh0(єfsDate(mdate%),4)єh0(єfsTime(mtime%),6);j3Я єh0(єfsDate(cdate%),4)єh0(єfsTime(ctime%),6);tЯ єh0(acc%,4)єh0(aux%,4)~А┬;▓7щєfsDate(A%):Т Convert ZIP format date to FS format°Й yr%,mn%,dy%і>dy%=A% ─ &1F:mn%=(A% ─ &1E0)│32:yr%=1980+(A% ─ &FE00)│&200╟;yr%=yr%-1981:=dy%└ mn%*256 └(yr%─15)*&1000 └(yr%─&70)*2╨:д7щєfsTime(A%):Т Convert ZIP format time to FS formatнЙ hr%,mn%,sc%ь7sc%=(A%─&1F)*2:mn%=(A%─&3E0)│32:hr%=(A%─&F800)│&800Б=hr%+256*mn%+65536*sc%Л:Ж+Г бname$,1)=".":А:Т Should set dir info 8Ъ"Save "+dest$+name$+" 0+"+ц~(єmin(filesize%,&F000))
*out%=0:Г filesize%:out%=ў(dest$+name$)3Г comptype%=0:Рextract ▀ Г comptype%=8:РinflateГ(flags%─8):о#in%=▐#in%+12()О8,8,8:Я"Done.";:Г out%:ы#out%:out%=02LГ hdrid%=&4341:X%!2=load%:X%!6=exec%:X%!14=attr%:A%=єfile(dest$+name$,1)<.Г dsz%<25 └xtr%=0:А:Т No additional extrasFТ PRINT"mTime: ";~mtime%PТ PRINT"mDate: ";~mdate%ZТ PRINT"cTime: ";~ctime%dТ PRINT"cDate: ";~cdate%n?Г(sj%─3):Ъ"Account "+dest$+name$+" "+ц~acc%+" ("+ц~aux%+")"xА┌:▄ щРextract:Я"Extracting ...";√Рtrans:А═:╙щРinflate:Я"Inflating ...";Єо#in%=▐#in%+compsize%:АЎ:х/щєconvertname(A$):Г їA$,".")+їA$,"/")=0:=A$рJЦ A%=1╦╘ A$:B%=≈ аA$,A%,1):Г(B%─&FE)=46:A$=юA$,A%-1)+Ґ(B%┌1)+аA$,A%+1)э!М:A%=0:У:B%=їA$+".",".",A%+1)Ф1Г B%-A%>fln%:A$=юA$,A%+10)+аA$,B%):B%=A%+fln%ПA%=B%:Щ B%>=╘ A$:=A$З:FщРensurepath(A$):Т A$="FILE" or ="DIR.DIR.DIR.FILE" or ="DIR.DIR."Г їA$,".")=0:А:A$=A$+".":У A$=юA$,╘ A$-1):Щ бA$,1)=".":A$=юA$,╘ A$-1)"Г єfile(A$,5)=2:А,B$=A$:A$="":У6FГ B$<>"":A%=їB$+".","."):A$=A$+ю".",A$<>"")+юB$,A%-1):B$=аB$,A%+1)@ Г єfile(A$,5)<>2:Ъ"CDir "+A$JЩ B$="":АT:^щРdir:АhщРeof:Аr:|5щРCheckFS:Й X%,Y%:X%=data%:Y%=X%│256:sj%=0:A%=єfs├Г A%=16:sj%=1:А░Г A%<>5:А &!X%=&19002000:X%!4=0:A%=&14:ж&FFF1єГ ї$(X%+4),"SJ"):sj%=2:АўА╦:бщєget32л9zp%?0= #in%:zp%?1= #in%:zp%?2= #in%:zp%?3= #in%:=!zp%жщєget16Ю= #in%+(&100* #in%)Й:Т6щєsofar(A%,B%):О8,8,8:Я єd0(100*A%│ B%,2);"%";:=""Ч$щєd0(A%,N%)=б"00000000"+ц A%,N%)#щєh0(A%,N%)=б"0000000"+ц~A%,N%)"щєmin(A%,B%):Г A%<B%:=A% ▀ =B%:&"щРtrans:crc%=0:Г filesize%=0:А0.crc%=-1:ptr%=0:У:Я єsofar(ptr%,filesize%);:7len%=max%:Г ptr%+len%>filesize%:len%=filesize%-ptr%D/Рgbpb(rd%,in%,mem%,len%,ptr%):Т PROCCalcCRCN$Рgbpb(wr%,out%,mem%,len%,▐#out%)X>ptr%=ptr%+len%:Щ ptr%>=filesize%:Т crc%=FNrev32(crc%)EOR-1bАl:v#щРgbpb(A%,chn%,addr%,num%,ptr%)─5!X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ж &FFD1:А┼!щєfs:Й A%,Y%,E%:=(╨&FFDA)─&FF■:·щРput32(A%):!&70=A%╗5у#out%,?&70:у#out%,?&71:у#out%,?&72:у#out%,?&73:А╡щРput16(A%):!&70=A%╪у#out%,?&70:у#out%,?&71:Аф:п/щРend:Г quit$<>"":A$=quit$:quit$="":Рos(A$)зЮ:АДBщєfile(A$,A%):$data%=A$:?X%=data%:X%?1=data%│256:=(╨&FFDD)─&FFН7щєOS_GetEnv:Й A$:A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256ЬBГ os%=6─░>&8000:х≥"OS_GetEnv"╦A$:A$=аA$,1+їA$," ",1+їA$," ")))Г os%=32:A$=$&1006Г ╘ A$=0:Г?(╦P-3):A$=$&600 ▀ Г ╘ A$=0:A$=$(░+&300)HA%=0:У A%=A%+1:Щ A%=╘ A$└≈ аA$,A%)<32└≈ аA$,A%)>126:Г A%<>╘ A$:A$="" 8A%=їA$+" "," "):run$=юA$,A%-1):Г run$<>"":=аA$,A%+1)*uX%=ctrl%:Y%=X%│256:A%=9:?X%=0:X%!1=data%:!data%=0:ж&FFD1:Г!data%─?data%+data%?2<>8:data%?(1+data%)=13:=$(data%+1)4="">Iщєcl(l$,n%):Г l$="":I%=їA$+" "," "):l$=юA$,I%-1):A$=єs(аA$,I%+1)):=l$H Г ≈ l$=32 ─ A$<>"":A$=" "+A$RdI%=їA$,l$):l$="":Г I%>0─n%>0:l$=аA$,їA$+" "," ",I%+1)+1):Г аA$,I%,1)<>" ":l$=юl$,їl$+" "," ")-1)\vГ I%:Г аA$,I%,1)=" ":A$=аA$,2+(≈ A$<>32),I%-2-(I%=1)) ▀ Г I%:A$=юA$,I%-1)+аA$,їA$+" "," ",їA$+" "," ",I%)+╘ l$)+1)f#A$=єs(A$):Г n%:=єs(l$) ▀ =I%<>0p,щРos(A$):Г A$=""└≈ A$=42:Ъ A$:А ▀ в A$:Аz2щєs(A$):Г юA$,1)=" ":У A$=аA$,2):Щ юA$,1)<>" "└/Г бA$,1)=" ":У A$=юA$,╘ A$-1):Щ бA$,1)<>" "▌=A$≤:╒:╛:І:ю:йТ > ArcRead2f 30-01-2000тТчТ v2b 12-01-2000 JJR:ХТ v2c - add SCAN, INFO, DELР1Т v2d - Try Ack packets, some Beeb conversionЭ,Т v2e - DeBeebed, Uses MetaData, PROCdir	!Т v2f - PROCdir, general tidy	:	Н ┘ РError	$AckType%=27	.+К27:maxmem%=1024*1024:Ю=╦P+maxmem%+6144	8/defaultRoot$="raFS::Raven.$.Root":Т "ram:$"	B!Я"Default root: "defaultRoot$	LЪ"Dir "+defaultRoot$	V?ч file maxmem%,info% 127,txbuf% 127,name% 127,metadata% 127	`
*FX7,8	j
*FX8,8	t
*FX2,1	~ start%=▒:totlen%=0:LastSp%=1	┬У	▓Ц A%=0╦127 ┬4:info%!A%=0:М	°=Т PRINT"Command   : ";:command$ =FNReadStr:PRINT command$	і>Т PRINT"Filename  : ";:filename$=FNReadStr:PRINT filename$	╟3Я"Command   : ";:command$ =єReadStr:Я command$;	╨'filename$=єReadStr:Я ┼17);filename$	дblklen%=╔	н+Г blklen%:Ц A%=0╦blklen%-1:info%?A%=╔:М	ьload%  =info%!0	Бexec%  =info%!4	Лlength%=info%!8	Жattr%  =info%!12
 РDoCommand

Щ ё
Ю
:
(щРDoCommand
2 Г command$="FILE":Рreceive:А
<Г command$="DIR" :Рdir:А
F%Г command$="UP"  :Ъ"Dir ^":РAck:А
P Г command$="SET" :РSetInfo:А
ZГ command$="SCAN":РScan:А
dГ command$="INFO":РInfo:А
nГ command$="DEL" :РDel:А
xА
┌:
▄щРError:х≥"Hourglass_Smash"
√*FX2
═*FX3
╙Ж:Я" at line ";·" ";
ЄРCloseMD
ЎЯ:Ю
х:
р#щєReadStr:Й a$,b$,c$:b$=Ґ13+Ґ10
э#c$=Ў:х∙ їb$,c$)=0:a$+=c$:c$=Ў:н
Ф=a$
П:
ЗщРreceiveРAckRЯ "Receiving : "filename$" ";length%" bytes. ETA ";length%│ LastSp%" seconds."dЙ ┘:Н ┘ Й х≥ "OS_File",0,filename$,load%,exec%,file,file+length%:Я"Saved buffer to disk.":РError"&Г length%>maxmem%:РBufferOverrun:А,T%=▒6Г length% ▄@х≥ "Hourglass_On"Jtotlen%+=length%TЦ A%=0╦length%-1^file?A%=╔hDГ(A%─&FF)=0:Г length%:х≥ "Hourglass_Percentage",(100/length%)*A%rМ|х≥ "Hourglass_Off"├м░-х≥ "XOS_CLI","SetType "+filename$+" Data" $х≥ "XOS_CLI","Access "+filename$є:х≥ "OS_File",0,filename$,load%,exec%,file,file+length%ў1х≥ "XOS_File",4,filename$,,,,attr%:РSetExtras╦'Я "File      : ";filename$" saved."б(T%=▒-T%:Г T%:LastSp%=100*length%│ T%лXГ T%:Я"This file : ";100*length%│ T%" cps.  All files: ";100*(totlen%│(▒-start%))"."жРAckЮВ ┘ЙАТ:ЧщРBufferOverrun+О7:Я"Buffer overrun!  Discarding data";х≥ "Hourglass_On"RЦ A%=0 ╦ length%-1:B%=╔:Г(A%─&FF)=0:х≥ "Hourglass_Percentage",(100/length%)*A%&!М:х≥ "Hourglass_Off":РAck:Я:А0::	щРdirD<Г юfilename$,1)="$" filename$=defaultRoot$+аfilename$,2)N/Т PRINT "Changing to / Creating ";filename$XГ їfilename$,".")=0 ▄b$  х≥ "XOS_CLI","CDIR "+filename$l=  х≥ "XOS_File",1,filename$,load%,exec%,,attr%:РSetExtrasvм─!х≥ "XOS_CLI","DIR "+filename$┼РAck■А·:╗щРSetInfo╡0х≥ "XOS_File",1,filename$,load%,exec%,,attr%╪РSetExtrasфРAckпАз:ДщРSetExtras(num%,crc%)НKГ crc%:info%!num%=crc%:num%=num%+4:Т info%!(num%-4)=0:REM temp'y bugfixЬptr%=єmdata(filename$)0Г ptr%=-1:Г md%=0:md%=ў(mpath$+"!!MetaData")Г ptr%=-1:о#md%=╒#md%$A$=юfilename$+"         ",10)+Ґ9 %Ц A%=1 ╦ ╘ A$:у#md%,≈ аA$,A%,1):М*5Т BPUT#md%,LEFT$(filename$+"         ",10)+CHR$9;4AЦ A%=0╦num%-1:у#md%,≈ єh0(info%?A%,2):у#md%,≈ єh0(info%?A%,1)>!Г crc%:Г A%=num%-5:у#md%,≈":"HМ:у#md%,13:РCloseMDR,Т Attempt to set cdate/ctime/acc/aux/etc\Аfpщєmdata(name$)z&Й ptr%,found%:name$=єs(єup(name$))└md%=ґ(mpath$+"!!MetaData")▌Г md%=0:=-1≤У╒ptr%=▐#md%╛CA%=0:У metadata%?A%= #md%:A%=A%+1:Щ е#md% └ metadata%?(A%-1)<32І4metadata%?(A%-1)=13:Т $metadata%=GET$#md%+CHR$13юmetadata%?10=13й$found%=єs(єup($metadata%))=name$тЩ е#md% └ found%чГ ╛found%:=-1Хо#md%=ptr%Р	=ptr%Э:щРCloseMDmd%=md%:Г md%:ы#md%:md%=0А$:.	щРDel8Я "Deleting  : "filename$B,х≥ "XOS_CLI","Wipe "+filename$+" R~CF~V"LРAckVА`:j
щРInfot?х≥ "XOS_File",5,filename$ ╦ r0,r1,load%,exec%,length%,attr%~#ptr%=єmdata(filename$):РCloseMD┬%txbuf%?14=attr% └ ((4*attr%)─&44)▓Г ptr%<>-1 ▄°  mdata$=$(metadata%+11)і:  Ц A%=0 ╦ 31:txbuf%?(A%+2)=═("&"+аmdata$,A%*2+1,2)):М╟м╨>!txbuf%=r0:txbuf%!2=load%:txbuf%!6=exec%:txbuf%!10=length%д'РTxReply(txbuf%,15-15*(ptr%<>-1)):Ан:ь
щРScanБТ 'load%'=index to scanЛТ PRINT "index:";load%ЖУ 2х≥ "OS_GBPB",8,0,name%,1,load% ╦ ,,,ret%,load%
name%?(1+?name%)=13(Щ $(name%+1)<>"!!MetaData" └ ret%<>06!txbuf%=load%:txbuf%!4=ret%:$(txbuf%+8)=$(name%+1)($РTxReply(txbuf%,9+╘$(name%+1)):А2:<(щРAck:Г AckType%<>27:РTxReply(0,0):АF
*FX3,3PО27Z*FX3dАn:xщРTxReply(Addr%,Len%)┌
*FX3,3▄
О Len%√'Г Len%:Ц A%=0 ╦ Len%-1:О Addr%?A%:М═*FX3╙АЄ:Ўщєup(A$):Г A$="":=""хЙ A%,B$,c%р Ц A%=1 ╦ ╘ A$:c%=≈ аA$,A%,1)эГ c%>96─c%<123:c%=c%-32ФB$=B$+Ґ c%:М:=B$П:Зщєs(A$):Г A$="":=""Й c%:х∙ юA$,1)=" ":c%+=1:н=аA$,c%+1,їA$+" "," ")-1):"#щєh0(A%,N%)=б"0000000"+ц~A%,N%)Ъ