ô > NetFSUtl/s 0.10 ,ô 01-May-1999 v0.10 JGH: Initial version ô (Dô Veneer for network commands adjusting for FileSwitch oddities. 2Gô On RISC OS 3+, FileSwitch preprocess many filing system commands. ]":EQUB 13 v EQUB 0 €.NetFSUtils_Help ŠIEQUS "NetFSUtils translates *Free, *Ex and *Rename on NetFS.":EQUB 13 ” EQUB 0 ž ALIGN ¨: ²: ¼.Initialise Æstmfd (sp)!,{link} Ðmov r0,#6 Úmov r3,#128 ä6swi "OS_Module" ; Claim 128 bytes of workspace î3str r2,[r12] ; Save pointer to workspace ø: &mov r0,#15 ; FSControlVec adr r1,SJFSControl ldr r2,[r12] 0swi "OS_Claim" ; Hook into OS_FSControl *: 4adr r0,SetAlias >/swi "XOS_CLI" ; Claim '*FREE' command Hmov r0,#0 R*cmp r0,r0 ; Clear flags, etc \ldmfd (sp)!,{pc} f: p: z .Finalise „stmfd (sp)!,{link} Žadr r0,UnSetAlias ˜1swi "XOS_CLI" ; Release '*FREE' command ¢: ¬&mov r0,#15 ; FSControlVec ¶adr r1,SJFSControl Àldr r2,[r12] Ê.swi "OS_Release" ; Release OS_FSControl Ô: Þ2ldr r2,[r12] ; Get pointer to workspace ècmp r2,#0 òmovne r0,#7 ü1swine "OS_Module" ; Release it if it exists mov r0,#0 'str r0,[r12] ; Clear pointer *cmp r0,r0 ; Clear flags, etc $ldmfd (sp)!,{pc} . .SetAlias 8.EQUS "Set Alias$Free NetFree %*0":EQUB 13 B.UnSetAlias L#EQUS "UnSet Alias$Free":EQUB 13 V ALIGN `: j: t2.NetFree ; *NetFree [] ~*stmfd (sp)!,{r0,link} ; r0=>parameters ˆ0bl CheckNetFS ; If current FS NetFS? ’bne NotNetFree œ8adr r0,RunFree ; If NetFS, point to '/%.Free' ¦5swi "OS_CLI" ; Issue replacement command °ldmfd (sp)!,{r0,pc} º: Ä.NotNetFree Î3ldmfd (sp)!,{r1} ; Get r1=>parameters back Ø1ldr r12,[r12] ; Get workspace pointer â-adr r0,ROMFree ; Point to '%Free ' ì5bl CommandReplace ; Build replacement command ö5swi "OS_CLI" ; Issue replacement command ldmfd (sp)!,{pc} .RunFree EQUS "/%.Free":EQUB 13 .ROMFree (EQUS "%Free " 2 ALIGN <: F: P.SJFSControl Zcmp r0,#6 dbeq SJEx ncmp r0,#25 xbeq SJRename ‚#movs pc,link ; Pass on Œ: –: .SJEx ª/stmfd (sp)!,{r0-r4,link} ; r1=>parameters ´bl CheckNetPath ¾5ldmnefd (sp)!,{r0-r4,link} ; Restore if not NetFS È5movnes pc,link ; Pass on if not NetFS Ò+adr r0,NetEX ; R0=>'/EX ' Ü;bl CommandReplace ; Create replacement command æ:swi "OS_CLI" ; Issue replacement command ð(ldmfd (sp)!,{r0-r4,link} ; Restore ú&ldmfd (sp)!,{pc} ; Claim .NetEX EQUS "net:/EX " ALIGN ": ,: 6 .SJRename @8stmfd (sp)!,{r0-r9,link} ; r1=>oldname, r2=newname J4mov r0,#3 ; File being modified T>mov r6,#7 ; No special field, r1=>oldname ^>mov r7,#0 ; No special field, r2=>newname h?ldr r8,NetFSWord ; Filing system information word r'mov r9,#520 ; Rename |Bswi "OS_UpCall" ; Warn Filer about rename operation †: ,mov r5,r2 ; r5=>oldname šbl CheckNetPath ¤1ldmnefd (sp)!,{r0-r9,link} ; Not NET, restore ®1movnes pc,link ; Not NET, pass on ¸,mov r4,r1 ; r4=>oldname Âmov r1,r5 Ìbl CheckNetPath Ö1ldmnefd (sp)!,{r0-r9,link} ; Not NET, restore à1movnes pc,link ; Not NET, pass on ê9mov r5,r1 ; r5=>newname, r4=>oldname ô: þ.adr r0,NetRename ; r0=>'RENAME ' ,mov r1,r4 ; r1=>oldname Dbl CommandReplace ; Create start of replacement command mov r4,#—" " &8strb r4,[r2,#-1] ; Replace with 0,mov r1,r5 ; r1=>newname :/bl CommandLp2 ; Add to command D: N9mov r1,r0 ; r1=>command in workspace X-mov r0,#0 ; r0=NetOp_Cmd berror in workspace swi "XOS_GenerateError" *-ldmfd (sp)!,{pc} ; Return error 4.NetFSWord >EQUD &86C60505 H.NetRename REQUS "RENAME " \ ALIGN f.errUnknown p1EQUD 254:EQUS "Unexpected FSOp result":EQUB 0 z ALIGN „: Ž: ˜; On entry, R1=>pathname ¢0; On exit, R1=>pathname, net prefix skipped ¬; R0,R2 corrupted ¶&; EQ=NetFS, NE=not NetFS À; Ê.CheckNetPath Ôstmfd (sp)!,{r1,link} Þmov r0,#13 èmov r2,#0 ò/swi "XOS_FSControl" ; Check for fs prefix ü; bad prefix - VS ; no prefix - 13,r1,0 ; unknown - 13,r1,0 ; net prefix - 13,5,non-zero $;movvs r2,#0 ; Flawed prefix, force to unknown .cmp r2,#0 87beq CheckNetFS1 ; No prefix, check current FS Bcmp r1,#5 L3ldmfd (sp)!,{r1} ; Get r1=>parameters back V4ldmnefd (sp)!,{pc} ; NE=not NET filing system `.CheckNetPrefix j,ldrb r0,[r1],#1 ; Step past prefix tcmp r0,#—":" ~bne CheckNetPrefix ˆ0ldmfd (sp)!,{pc} ; EQ=NET filing system ’: œ.CheckNetFS ¦stmfd (sp)!,{r1,link} °.CheckNetFS1 ºmov r0,#0 Ämov r1,#0 Î6swi "OS_Args" ; Find current filing system Ø.CheckNetFS2 âcmp r0,#5 ì0ldmfd (sp)!,{r1,pc} ; EQ=NET filing system ö: : '; On entry, R0=>replacement command ; R1=>command line '; On exit, R0=>newly built command (0; R1=>after in source command 2.; R2=>after in dest command <(; R3=remaining buffer size F; R4= P; Z.CommandReplace d&mov r2,r12 ; R2=>workspace n&mov r3,#127 ; Buffer size-1 x.CommandLp1 ‚1ldrb r4,[r0],#1 ; Copy replacement command Œstrb r4,[r2],#1 –(sub r3,r3,#1 ; Decrement count cmp r4,#—" " ª)bne CommandLp1 ; Loop until space ´.CommandLp2 ¾*ldrb r4,[r1],#1 ; Copy command line Èstrb r4,[r2],#1 Ò(subs r3,r3,#1 ; Decrement count Übeq CommandEnd æcmp r4,#—"!" ð9bcs CommandLp2 ; Loop until space or control code ú.CommandEnd mov r4,#13 /strb r4,[r2,#-1] ; Ensure terminator 1mov r0,r12 ; R0=>command in workspace "mov pc,link ,: 6]í @)ÿ"SAVE NetFSUtils "+Ã~mcode%+" "+Ã~O% J*SetType NetFSUtils Module T*Stamp NetFSUtils ÿ