*Т > BLib.Generic.FileIO 1.05 22Mar2008 0Т v1.05 22Mar2009 Optimised CDIR in FNfile() ,Т v1.04 22Mar2008 FNf_scan strips spaces (7Т v1.03 15Feb2008 Add veneer functions in f_ domain 2KТ v1.02 28Apr2007 Added functions to FNfile on DOS, PROCcdir, FNopenout <7Т v1.01 07Sep2006 FNargs avoid zero page on RISC OS F%Т v1.00 09Aug1988 Initial version P: Z%Т General File Interface Routines d%Т =============================== n: x8Т FNfile(), PROCgbpb(), FNfs are callable on Windows ┌8Т -------------------------------------------------- ▄: √,Т Returns file type, file info in X%!... ═,Т -------------------------------------- ╙Rщєfile(A$,A%):ГA%-8:Г░<&FFFFF:$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF ЄTA$=єf_name(A$):ГA%=255 └ A%=5:X%!14=▌(A$):ГX%!14:X%!10=╒#X%!14:ы#X%!14:X%!14=&33 Ў1ГA%=255:ГX%?6=0:Ъ"LOAD """+A$+""" "+ц~X%!2:=1 хГA%=5:ГX%!14:=1 ▀ ГA%=5:=0 рFГA%=0:Ъ"SAVE """+A$+""" "+ц~X%!10+" "+ц~X%!14:X%!10=X%!14-X%!10:=1 эBГA%=7:Ъ"SAVE """+A$+""" "+ц~░+"+"+ц~X%!10:X%!10=X%!14-X%!10:=1 ФГA%-8:=0 П-Г(os%─-24):A$="mkdir "+A$ ▀ A$="cdir "+A$ ЗГ⌠>&FFFF:Й ┘:Н ┘ Й:=0 ЪA$:=2 : Т General OSGBPB call "Т ------------------- ,%щРf_gbpb(A%,chn%,addr%,num%,ptr%) 6>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А @ГA%=1└A%=3:о#?X%=X%!9 J5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% T5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А ^: h#щРgbpb(A%,chn%,addr%,num%,ptr%) r>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А |ГA%=1└A%=3:о#?X%=X%!9 ├5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% ░5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А : є@Т Return current disk (5), directory (6) or library (7) name ў@Т ---------------------------------------------------------- ╦щєgbpb(A%):Г░>&FFFFF:="" бNX%!1=name%:ж&FFD1:A%=name%+((1+?name%)─((A%─-2)=6)):A%?(1+?A%)=13:=$(A%+1) л: жBТ Returns entry in current directory, or null string if at end ЮBТ ------------------------------------------------------------ Й щєf_scan(ptr%):Г░>&FFFFF:="" Т7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" Ч7A%=name%+1:A%!(A%?-1)=&D20:A%?(ї$A%," ")-1)=13:=$A% : щєgbpb8(ptr%):Г░>&FFFFF:="" 7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" &7A%=name%+1:A%!(A%?-1)=&D20:A%?(ї$A%," ")-1)=13:=$A% 0: :7Т OSARGS call with data. Returns any returned data D7Т ------------------------------------------------- N6щєf_args(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 X Г ё ▄ b&Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% lл v#х≥"OS_Args",A%,Y%,ptr% ╦ ,,ptr% ─м:=ptr% ┼: ■4щєargs(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 · Г ё ▄ ╗&Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% ╡л ╪#х≥"OS_Args",A%,Y%,ptr% ╦ ,,ptr% фм:=ptr% п: з'Т OSARGS call ignoring X, returns A Д'Т --------------------------------- Нщєf_argsA(A%):Г ё ▄ Ь(Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF л х≥"OS_Args",A% ╦ A% м:=A% : *щєargsA(A%):Г ё ▄ 4(Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF >л Hх≥"OS_Args",A% ╦ A% R м:=A% \: f&Т Get current filing system number p&Т -------------------------------- z.щєfs:Г(os%─-32)=0:Й A%,Y%,E%:=(╨&FFDA)─&FF └=29 ▌: ≤Т Delete an object ╒Т ---------------- ╛<щРf_delete(A$):Г(os%─-24):A$="del "+A$ ▀ A$="delete "+A$ І ЪA$:А ю: йТ Select a directory тТ ------------------ ч5щРf_dir(A$):Г(os%─-24):A$="cd "+A$ ▀ A$="dir "+A$ Х ЪA$:А Р: Э1Т Create a directory only if it doesn't exist 1Т ------------------------------------------- щРf_cdir(A$): -Г(os%─-24):A$="mkdir "+A$ ▀ A$="cdir "+A$ $ Г ё ▄ . ЪA$:А 8м BЙ ┘:Н ┘ Й:А LЪA$ VА `: j.Т Open an input file ensuring no extension t.Т ---------------------------------------- ~!щєf_openin(A$)=▌(єf_name(A$)) ┬: ▓/Т Open an output file ensuring no extension °/Т ----------------------------------------- і"щєf_openout(A$)=ў(єf_name(A$)) ╟: ╨/Т Open an update file ensuring no extension д/Т ----------------------------------------- н!щєf_openup(A$)=ґ(єf_name(A$)) ь: БXщєf_name(A$):Г?(╦P-3)=0:ЙA%,B%:УB%=A%:A%=їA$,d$,A%+1):ЩA%=0:ГїA$,".",B%)=0:A$=A$+"." Л=A$ Ъ