MountUFS revision 1.1.1.1
1 REM >Mountufs 2 REM $NetBSD: MountUFS,v 1.1.1.1 2002/05/09 20:03:59 jdolecek Exp $ 3 REM 4 REM Copyright (c) 1997 Mark Brinicombe 5 REM All rights reserved 6 REM 7 REM Redistribution and use in source and binary forms, with or without 8 REM modification, are permitted provided that the following conditions 9 REM are met: 10 REM 1. Redistributions of source code must retain the above copyright 11 REM notice, this list of conditions and the following disclaimer. 12 REM 2. Redistributions in binary form must reproduce the above copyright 13 REM notice, this list of conditions and the following disclaimer in the 14 REM documentation and/or other materials provided with the distribution. 15 REM 3. All advertising materials mentioning features or use of this software 16 REM must display the following acknowledgement: 17 REM This product includes software developed by Mark Brinicombe. 18 REM 4. The name of the company nor the name of the author may be used to 19 REM endorse or promote products derived from this software without specific 20 REM prior written permission. 21 REM 22 REM THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 23 REM IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 24 REM OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 25 REM IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 26 REM INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 27 REM BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS 28 REM OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 29 REM ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 30 REM OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF 31 REM THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH 32 REM DAMAGE. 33 REM 34 REM Created : 26/01/97 35 REM Last updated : 26/01/97 36 REM 37 REM Decodes filesystem and device arguments and mounts the correct 38 REM FFS partition with unixfs 39 REM 40 41 REM Get environment 42 SYS "OS_GetEnv" TO env$ 43 44 REM Skipprogram path etc. 45 IF (INSTR(env$, "-quit")) THEN 46 I% = INSTR(env$, """") 47 I% = INSTR(env$, """", I% + 1) 48 REPEAT 49 I% += 1 50 UNTIL MID$(env$, I%, 1) <> " " 51 env$ = MID$(env$, I%) 52 ENDIF 53 54 REM Extract the first argument as the filesystem 55 I% = INSTR(env$, " ") 56 filesys$ = FNupper(LEFT$(env$, I% - 1)) 57 58 REM Skip to the next argument 59 REPEAT 60 I% += 1 61 UNTIL MID$(env$, I%, 1) <> " " 62 env$ = MID$(env$, I%) 63 64 REM The drive is the next argument 65 I% = INSTR(env$, " ") 66 IF (I% = 0) THEN 67 drive$ = env$ 68 part$ = "a" : REM partition a 69 ELSE 70 drive$ = LEFT$(env$, I% - 1) 71 REM Skip to the next argument 72 REPEAT 73 I% += 1 74 UNTIL MID$(env$, I%, 1) <> " " 75 env$ = MID$(env$, I%) 76 part$ = env$ 77 ENDIF 78 79 drive% = VAL(drive$) 80 part% = ASC(FNupper(part$))-ASC("A") 81 unit% = drive% - 4 82 83 REM Lookup the SWI Number for the DiscOp SWI 84 swi$ = filesys$ + "_DiscOp" 85 SYS "OS_SWINumberFromString",, swi$ TO swi% 86 87 REM Assemble the unixfs_mount argument 88 REM Assumes the filesystem is on the a partition 89 swi% = swi% AND NOT(&3F) 90 swi% += drive% * 8 + part% 91 92 REM Mount the filesystem 93 OSCLI("<BtNetBSD$Dir>.native.unixfs_res") 94 OSCLI("unixfs_mount " + STR$~(swi%)) 95 END 96 97 REM Convert a string to upper case 98 DEF FNupper(A$) 99 R$ = "" 100 FOR A% = 1 TO LEN(A$) 101 R$ = R$ + CHR$(ASC(MID$(A$, A%, 1)) AND &DF) 102 NEXT 103 104 = R$ 105
Indexes created Wed Mar 18 00:23:26 UTC 2026