> UpdateHTML v0.39
EQ%=:ctrl%127,name%127,data%511:A$=OS_GetEnv:X%=ctrl%:Y%=X%256
ver$="0.38"
(Lquit$=cl(" -q",1):debug%=cl("-d",0):"Spool"::Close_All:exit():
2]cl("-?",0):"Syntax: "run$" -path -home -navbar -quit quitcmd":exit(0):
"":file(sfx$,5)<>1:"Suffix file '"sfx$"' not found":exit(214)
Bsfx$<>"":sfx% X%!10:sfx%?(X%!10)=13:"Load "+sfx$+" "+~sfx%
dir$<>"":"Dir "+dir$
%site$,2)<>"::":site$=site$+"::"
Gpath$="":path$=Path_Name:path$=s(gbpb(5))+path$,path$,"$")-1)
path$="""""":path$=""
ver$="0.39"
ver_Scan
*IdxHeadr$="Automatic BBC Tree Crawler"
mos%<6:ver_mos$="ElectronBBCMasterCompact","010909121218",os%*2+1,2),"833667",os%+1,1))+" "+ver_mos$
.index$="index/htm":out$=index$+"_":dirs%=0
Bf$="."+path$:f$=f$,2):f$,".")=0:path$=path$,path$-f$-1)
EA%=1:home$="/.."+home$:A%=path$,".",A%+1):A%=0:home$=home$,5)
#fs%=fs::15:DoDir:exit(0):
"!Scan(f%,path$):p%,t%,r%,f$
,.:f$=gbpb8(p%):p%=X%!9:r%=f$:r%:RdName
6 r%=0:
@RdName:f$=46:
J*f$=95f$=index$f$,1)="_"f$=out$:
T?t%=file(f$,5):l%=X%!2:e%=X%!6:n%=X%!10:a%=X%!14:t%=3:t%=1
^3fs%=5:A%=NetFS_Op(&12,64+f$):X%?9=a%:a%=X%!9
h%X%!2=l%:X%!6=e%:X%!10=n%:X%!14=a%
r f$<>"$":t%=2(X%?148):
| t%=1:(X%?14&13)<>&11:
t%=1:(X%?14&10)<>&10:
t%=2:f$,1)="!":t%=3
&t%=1t%=2:DoObject:f%:f%<>t%:
verbose%:t$(t%)": ";f$
t%=1:DoFile:
-1:path$;".";f$:
t%<>2:
:dirs%=dirs%+1:"Dir "+f$:DoDir:"Dir ^":dirs%=dirs%-1
ݤCheckIndex
$A%=file("@."+index$,5):A%=0:=
笤RdTop(index$):=
@A%=data%::A%=A%+1+$A%:$A%=0$A%,IdxHeadr$)A%>data%+510
$A%=0:=
$A%,IdxHeadr$)=0:=
A%=A%+$A%,IdxHeadr$)
&A%=A%+$A%,"""")-3
0?A%=";":=$(A%+1)=
:3ݤRdTop(A$):in%=(A$):#in%<256:#in%:in%=0:=
D=A%=0511:#in%:data%?A%=#in%:data%?A%=10:data%?A%=13
N!:#in%:in%=0:data%?511=13:=
X8ݤNoRoot(A$):A%=A$,".$"):A%:A$=A$,A%-1)+A$,A%+2)
bA$,2)="..":A$=A$,3)
l=A$
v DoDir
:path$;".";f$
)index%=CheckIndex:index%:ScanIndex
$Scan(2,path$+"."+f$):DoDirPost
ScanIndex
:index%=-1:DoDirPre:Scan(1,path$+"."+f$):DoDirMid:
index%=2:ScanAddrs:
ScanAddrs
soft%=0:"Spool "+out$
in%=("@."+index$)
8:A$=rd(in%):A$,"application/riscos;"):ScanAddr2
&A$;lf;:#in%:#in%:in%=0:*Spool
DoDirMidUpdate(,soft%=0,)
ScanAddr2
?B$=A$:A%=A$,"a href="""):F$=A$,A%+10):F$=F$,F$,"""")-1)
*file(F$,5)<>1:
4L%=X%!2:E%=X%!6
>IA%=B$,"load=&"):B%=B$," ",A%):A%:B$=B$,A%+9)+~L%+";"+B$,B%)
HJA%=B$,"exec=&"):B%=B$,"""",A%):A%:A$=B$,A%+9)+~E%+";"+B$,B%)
RA$<>B$:soft%=soft%+1
\
fDoObject:f%<>1:
p
f1$=f$
z
FileType
%f2$=unixname(fn_sfx(f1$,type%))
'type%=&FC0:Linkf$=f$+f2$,f$+1)
MimeType
]" ",mime$="");:mime$<>"":" TYPE="""+mime$+""">";
f$;" ",html%);
bas%=0
6bas%=0:bas%=f2$,4)=".bbc":bas%:f2$=f2$,f2$-4)
5bas%=0:bas%=f2$,3)=".bb":bas%:f2$=f2$,f2$-3)
?bas%=0:bas%=f2$,2)=".b"type%=&1C7:bas%:f2$=f2$,f2$-2)
>bas%=0:bas%=f2$,1)="."type%=&1C7:bas%:f2$=f2$,f2$-1)
@bas%=bas%type%=&1C7type%=&FFBmime$,"exec=&FFFF7B00")
Dbas%:html%:"(L)";spc(3);
#spc(13-f$);:x%=(x%+1)(x%<4)
:"DL/"+spc(1),t%=2)"wr/R",t%<>2);"
",x%=0);cr;
!mime$<>""bas%:soft%=soft%+1
$ DoFile
.
8DoDirPre
B"Spool "+out$:htmlHdr
Lsoft%=0:x%=0:
V&DoDirMid:"";:nav%:navbot
`%""cr"