> WikiConv
$ Convert XML Wiki to media text
:
(in$="AllPages/x"
2!in$="adfs::4.temp.BeebWiki-2"
<out$="AllPages."
F#cmp1$="net::Misc.BeebWiki.jgh."
P&cmp2$="net::Misc.BeebWiki.Others."
Z:
deol$=10:maxstr%=252
n+ ctrl% 31,name% 255:X%=ctrl%:Y%=X%256
x:
:CloseAll: :
+in%=in$:in%=0:"Can't open '"in$"'":
%out$<>"":"CDIR "+out$,out$-1)
1 :A$=rd(in%):A%=A$,""):A% #in%
+ title$=A$,A%+7,A$,"")-A%-7)
title$=subs(title$)
title$;" -> ";
4 leaf$=str(title$): leaf$="":leaf$=~ title$
leaf$=leaf$,10)
ptr0%=#in%:cat$=""
) A$=rd(in%):A%=A$,"[[Category:")
, A%:cat$=A$,A%+11,A$,"]]")-A%-11)
/ A%:cat$=str(cat$,cat$+"|","|")-1))
$ A%=0:A%=A$,"")
" A% #in%:#in%=ptr0%
,! cat$;".",cat$<>"");leaf$;
6, cat$=cat$,10):cat$<>"":cat$=cat$+"."
@, cat$<>"":"CDIR "+out$+cat$,cat$-1)
J out%=(out$+cat$+leaf$)
T* wr(out%,"[[Title:"+title$+"]]"+10)
^9 :A$=rd(in%):len%= A$:A%=A$,"")+1)
r
|C A%=A$,"<"): A%:B%=A$,">",A%): B%:A$=A$,A%-1)+A$,B%+1)
A$=subs(A$)
wr(out%,A$)
' len%")+A$,"")+A$,"")
A% #in%
#out%:out%=0
( "SetType "+out$+cat$+leaf$+" FFF"
[ f_match(out$+cat$+leaf$,cmp1$+cat$+leaf$): " - same";: "Delete "+out$+cat$+leaf$
[ f_match(out$+cat$+leaf$,cmp2$+cat$+leaf$): " - same";: "Delete "+out$+cat$+leaf$
#in%
#in%:in%=0
:
ݤsubs(A$)
subs("&","&")
&subs(""","""")
0subs("<","<")
:subs(">",">")
Dsubs("&","&")
N=A$
X:
bsubs(E$,S$)
l
v2 A%=A$,E$): A%:A$=A$,A%-1)+S$+A$,A%+ E$)
A%=0
:
CloseAll
#in%=in%: in%:A%=in%:in%=0:#A%
(in1%=in1%: in1%:A%=in1%:in1%=0:#A%
(in2%=in2%: in2%:A%=in2%:in2%=0:#A%
(out%=out%: out%:A%=out%:out%=0:#A%
:
ݤstr(A$): B$: A%=1 A$
b "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",A$,A%,1)):B$=B$+A$,A%,1)
:=B$
:
Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF
3gbpb(A%,ch%,X%!1,X%!5,X%!9):?X%=ch%: &FFD1:
Bݤgbpb(A%):X%!1=data%:&FFD1:A%=data%+((1+?data%)((A%-2)=6))
*A%?(1+?A%)=13:=$(A%+1)
4Eݤgbpb8(ptr%):X%!1=data%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:=""
>#A%=data%:A%?(1+?A%)=13:=$(A%+1)
H4ݤargs(A%,Y%,ptr%): X%,E%:?(P-3)=0:E%=Y%:Y%=0
R/<&8000: !&70:X%=&70:!X%=ptr%:&FFDA:=!X%
\)ș"OS_Args",A%,Y%,ptr% ,,ptr%:=ptr%
f=ݤargsA(A%):<&8000: X%,Y%,E%,!&70:X%=&70:=(&FFDA)&FF
pș"OS_Args",A% A%:=A%
z!ݤfs: A%,Y%,E%:=(&FFDA)&FF
:
ݤrd(i%): p%: #i%:=""
0p%=#i%:gbpb(4,i%,name%,256,p%):A$="":A%=-1
)A%=A%+1:name%?A%>31:A$=A$+name%?A%
0name%?A%<32 A%>maxstr%-2:#i%=p%+A%+1:=A$
:
6wr(o%,A$):$name%=A$:gbpb(2,o%,name%,A$,#o%):
:
ݤf_match(f1$,f2$)
diff%
in1%=(f1$): in1%=0:=
)in2%=(f2$): in2%=0:#in1%:in1%=0:=
3 #in1%<>#in2%:#in2%:in2%=0:#in1%:in1%=0:=
#in1%=0:=
+ diff%=#in1%<>#in2%: diff% #in1%
#in2%:in2%=0:#in1%:in1%=0
$ = diff%