Groups | Search | Server Info | Login | Register

Groups > comp.sys.acorn.programmer > #6585

Re: SYS "XOS_Find",&80

Show all headers | View raw

In message <2fccda935c.Paul@phorefaux>
          Paul Stewart <phorefaux@gmail.com> wrote:

>>> "XOS_Find",&80,fname$ TO fhandle%;flags%

>> Using RISC OS 5.31 on a Titanium, I get the expected
>>   Error  : &00000113
>>   Message: The filing system Resources: is read only

>> Maybe an old bug in RISC OS 4.42?
> Indeed it does appear to be a bug in 4.42.  Works okay on my Pinebook and
> under RISC OS 6 on VRPC.

Before asking if anyone could recommend another way of doing this, I have 
looked up OS_File, which I am using to test if object exists.

Have found this does the job ok:

SYS"XOS_File",11,fname$,&dfe,,0 TO fhandle%;flags%

Bit of code I am testing with: -

ON ERROR PROCmessage_box(0,REPORT$+" at line "+STR$ ERL,2,"Test"):END
fname$="resources:$.Export"
REM fname$="CDFS::$.Export"
REM fname$="Share::A9_Directory.$.Export": REM read only
REM fname$="Mem::MemphisA9.$.Export"

REM this errors when attempting to write to resoucefs.  Bug if 4.42
REM SYS "XOS_Find",&80,fname$ TO fhandle%;flags%
REM

SYS"XOS_File",11,fname$,&dfe,,0 TO fhandle%;flags%: REM create a file with 
filetype CSV (&dfe) that is 0 bytes in size
IF (flags% AND 1)<>0  THEN
errmess$=""
    addr%=4
    WHILE fhandle%?addr%<>0
         errmess$+=CHR$ fhandle%?addr%
         addr%+=1
    ENDWHILE
    PROCmessage_box(0, errmess$,2,"Test")
ELSE
REM MODE MODE: PRINT fhandle%
ENDIF
END
:
DEF PROCmessage_box(faultcode%,message$,type%,title$)
    REM
    REM response: 0 if no key click, 1 if OK selected, 2 if Cancel 
selected
    LOCAL fault%()
    DIM fault% 100
    !fault%=faultcode%
    $(fault%+4)=message$
    SYS"Wimp_ReportError",fault%,type%,title$ TO ,response%
ENDPROC
:






-- 
Paul Stewart
Sent from A9home running RISC OS 4.42

Back to comp.sys.acorn.programmer | Previous | Next — Previous in thread | Find similar

Thread

SYS "XOS_Find",&80 Paul Stewart <phorefaux@gmail.com> - 2025-12-30 22:36 +0000
  Re: SYS "XOS_Find",&80 Martin <News04@avisoft.f9.co.uk> - 2025-12-30 23:33 +0000
    Re: SYS "XOS_Find",&80 Paul Stewart <phorefaux@gmail.com> - 2025-12-30 23:57 +0000
    Re: SYS "XOS_Find",&80 Paul Stewart <phorefaux@gmail.com> - 2025-12-31 13:16 +0000
      Re: SYS "XOS_Find",&80 Paul Stewart <phorefaux@gmail.com> - 2025-12-31 13:43 +0000

csiph-web