"ô > BLib.FileIO 1.03 15Feb2008 <ô v1.03 15Feb2008 JGH: Add veneer functions in f_ domain <ô v1.01 07Sep2006 JGH: FNargs avoid zero page on RISC OS (*ô v1.00 09Aug1988 JGH: Initial version 2: <%ô General File Interface Routines F%ô =============================== P: Z,ô Returns file type, file info in X%!... d,ô -------------------------------------- nBݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF x: ‚ô General OSGBPB call Œô ------------------- –4Ýòf_gbpb(A%,C%,D%,N%,P%):ògbpb(A%,C%,D%,N%,P%):á  UÝògbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Ö &FFD1:á ª: ´@ô Return current disk (5), directory (6) or library (7) name ¾@ô ---------------------------------------------------------- Èݤf_thing(A%)=¤gbpb(A%) ÒBݤgbpb(A%):X%!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(A%)=¤gbpb8(A%) Eݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" #A%=name%:A%?(1+?A%)=13:=$(A%+1) ": ,6ô OSARGS call with data. Returns any returned data 66ô ------------------------------------------------ @&ݤf_args(A%,B%,C%)=¤args(A%,B%,C%) J4ݤargs(A%,Y%,ptr%):ê X%,E%:ç?(¸P-3)=0:E%=Y%:Y%=0 T/ç<&8000:ê !&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X% ^)È™"OS_Args",A%,Y%,ptr% ¸ ,,ptr%:=ptr% h: r'ô OSARGS call ignoring X, returns A |'ô --------------------------------- †ݤf_argsA(A%)=¤argsA(A%) =ݤargsA(A%):ç<&8000:ê X%,Y%,E%,!&70:X%=&70:=(º&FFDA)€&FF šÈ™"OS_Args",A% ¸ A%:=A% ¤: ®&ô Get current filing system number ¸&ô -------------------------------- Â!ݤfs:ê A%,Y%,E%:=(º&FFDA)€&FF ÿ