298 lines
6.6 KiB
C
298 lines
6.6 KiB
C
|
/*
|
||
|
|
* Mach Operating System
|
||
|
|
* Copyright (c) 1992, 1991 Carnegie Mellon University
|
||
|
|
* All Rights Reserved.
|
||
|
|
*
|
||
|
|
* Permission to use, copy, modify and distribute this software and its
|
||
|
|
* documentation is hereby granted, provided that both the copyright
|
||
|
|
* notice and this permission notice appear in all copies of the
|
||
|
|
* software, derivative works or modified versions, and any portions
|
||
|
|
* thereof, and that both notices appear in supporting documentation.
|
||
|
|
*
|
||
|
|
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
|
||
|
|
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
|
||
|
|
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
|
||
|
|
*
|
||
|
|
* Carnegie Mellon requests users of this software to return to
|
||
|
|
*
|
||
|
|
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
|
||
|
|
* School of Computer Science
|
||
|
|
* Carnegie Mellon University
|
||
|
|
* Pittsburgh PA 15213-3890
|
||
|
|
*
|
||
|
|
* any improvements or extensions that they make and grant Carnegie Mellon
|
||
|
|
* the rights to redistribute these changes.
|
||
|
|
*
|
||
|
|
* from: Mach, Revision 2.2 92/04/04 11:36:34 rpd
|
||
|
|
* $Id: sys.c,v 1.11 1996/04/07 14:28:03 bde Exp $
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Ported to PC-9801 by Yoshio Kimura
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "boot.h"
|
||
|
|
#include <sys/dir.h>
|
||
|
|
#include <sys/reboot.h>
|
||
|
|
|
||
|
|
#ifdef 0
|
||
|
|
/* #define BUFSIZE 4096 */
|
||
|
|
#define BUFSIZE MAXBSIZE
|
||
|
|
|
||
|
|
char buf[BUFSIZE], fsbuf[SBSIZE], iobuf[MAXBSIZE];
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static char biosdrivedigit;
|
||
|
|
|
||
|
|
#define BUFSIZE 8192
|
||
|
|
#define MAPBUFSIZE BUFSIZE
|
||
|
|
char buf[BUFSIZE], fsbuf[BUFSIZE], iobuf[BUFSIZE];
|
||
|
|
|
||
|
|
char mapbuf[MAPBUFSIZE];
|
||
|
|
int mapblock;
|
||
|
|
|
||
|
|
void
|
||
|
|
xread(char *addr, int size)
|
||
|
|
{
|
||
|
|
int count = BUFSIZE;
|
||
|
|
while (size > 0) {
|
||
|
|
if (BUFSIZE > size)
|
||
|
|
count = size;
|
||
|
|
read(buf, count);
|
||
|
|
pcpy(buf, addr, count);
|
||
|
|
size -= count;
|
||
|
|
addr += count;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
read(char *buffer, int count)
|
||
|
|
{
|
||
|
|
int logno, off, size;
|
||
|
|
int cnt2, bnum2;
|
||
|
|
|
||
|
|
while (count) {
|
||
|
|
off = blkoff(fs, poff);
|
||
|
|
logno = lblkno(fs, poff);
|
||
|
|
cnt2 = size = blksize(fs, &inode, logno);
|
||
|
|
bnum2 = fsbtodb(fs, block_map(logno)) + boff;
|
||
|
|
cnt = cnt2;
|
||
|
|
bnum = bnum2;
|
||
|
|
if ( (!off) && (size <= count))
|
||
|
|
{
|
||
|
|
iodest = buffer;
|
||
|
|
devread();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
iodest = iobuf;
|
||
|
|
size -= off;
|
||
|
|
if (size > count)
|
||
|
|
size = count;
|
||
|
|
devread();
|
||
|
|
bcopy(iodest+off,buffer,size);
|
||
|
|
}
|
||
|
|
buffer += size;
|
||
|
|
count -= size;
|
||
|
|
poff += size;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int
|
||
|
|
find(char *path)
|
||
|
|
{
|
||
|
|
char *rest, ch;
|
||
|
|
int block, off, loc, ino = ROOTINO;
|
||
|
|
struct direct *dp;
|
||
|
|
int list_only = 0;
|
||
|
|
|
||
|
|
if (strcmp("?", path) == 0)
|
||
|
|
list_only = 1;
|
||
|
|
loop: iodest = iobuf;
|
||
|
|
cnt = fs->fs_bsize;
|
||
|
|
bnum = fsbtodb(fs,ino_to_fsba(fs,ino)) + boff;
|
||
|
|
devread();
|
||
|
|
bcopy((void *)&((struct dinode *)iodest)[ino % fs->fs_inopb],
|
||
|
|
(void *)&inode.i_din,
|
||
|
|
sizeof (struct dinode));
|
||
|
|
if (!*path)
|
||
|
|
return 1;
|
||
|
|
while (*path == '/')
|
||
|
|
path++;
|
||
|
|
if (!inode.i_size || ((inode.i_mode&IFMT) != IFDIR))
|
||
|
|
return 0;
|
||
|
|
for (rest = path; (ch = *rest) && ch != '/'; rest++) ;
|
||
|
|
*rest = 0;
|
||
|
|
loc = 0;
|
||
|
|
do {
|
||
|
|
if (loc >= inode.i_size) {
|
||
|
|
if (list_only) {
|
||
|
|
printf("\n");
|
||
|
|
return -1;
|
||
|
|
} else {
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!(off = blkoff(fs, loc))) {
|
||
|
|
block = lblkno(fs, loc);
|
||
|
|
cnt = blksize(fs, &inode, block);
|
||
|
|
bnum = fsbtodb(fs, block_map(block)) + boff;
|
||
|
|
iodest = iobuf;
|
||
|
|
devread();
|
||
|
|
}
|
||
|
|
dp = (struct direct *)(iodest + off);
|
||
|
|
loc += dp->d_reclen;
|
||
|
|
if (dp->d_ino && list_only)
|
||
|
|
printf("%s ", dp->d_name);
|
||
|
|
} while (!dp->d_ino || strcmp(path, dp->d_name));
|
||
|
|
ino = dp->d_ino;
|
||
|
|
*(path = rest) = ch;
|
||
|
|
goto loop;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
int
|
||
|
|
block_map(int file_block)
|
||
|
|
{
|
||
|
|
if (file_block < NDADDR)
|
||
|
|
return(inode.i_db[file_block]);
|
||
|
|
if ((bnum=fsbtodb(fs, inode.i_ib[0])+boff) != mapblock) {
|
||
|
|
iodest = mapbuf;
|
||
|
|
cnt = fs->fs_bsize;
|
||
|
|
devread();
|
||
|
|
mapblock = bnum;
|
||
|
|
}
|
||
|
|
return (((int *)mapbuf)[(file_block - NDADDR) % NINDIR(fs)]);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
int
|
||
|
|
openrd(void)
|
||
|
|
{
|
||
|
|
char **devp, *cp = name;
|
||
|
|
int biosdrive, ret;
|
||
|
|
|
||
|
|
#ifdef PC98
|
||
|
|
int i;
|
||
|
|
unsigned char disk_equips;
|
||
|
|
int sdunit = 0;
|
||
|
|
#endif
|
||
|
|
/*******************************************************\
|
||
|
|
* If bracket given look for preceding device name *
|
||
|
|
\*******************************************************/
|
||
|
|
while (*cp && *cp!='(')
|
||
|
|
cp++;
|
||
|
|
if (!*cp)
|
||
|
|
{
|
||
|
|
cp = name;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* Look for a BIOS drive number (a leading digit followed
|
||
|
|
* by a colon).
|
||
|
|
*/
|
||
|
|
if (*(name + 1) == ':' && *name >= '0' && *name <= '9') {
|
||
|
|
biosdrivedigit = *name;
|
||
|
|
name += 2;
|
||
|
|
} else
|
||
|
|
biosdrivedigit = '\0';
|
||
|
|
|
||
|
|
if (cp++ != name)
|
||
|
|
{
|
||
|
|
for (devp = devs; *devp; devp++)
|
||
|
|
if (name[0] == (*devp)[0] &&
|
||
|
|
name[1] == (*devp)[1])
|
||
|
|
break;
|
||
|
|
if (!*devp)
|
||
|
|
{
|
||
|
|
printf("Unknown device\n");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
maj = devp-devs;
|
||
|
|
}
|
||
|
|
/*******************************************************\
|
||
|
|
* Look inside brackets for unit number, and partition *
|
||
|
|
\*******************************************************/
|
||
|
|
/*
|
||
|
|
* Allow any valid digit as the unit number, as the BIOS
|
||
|
|
* will complain if the unit number is out of range.
|
||
|
|
* Restricting the range here prevents the possibilty of using
|
||
|
|
* BIOSes that support more than 2 units.
|
||
|
|
* XXX Bad values may cause strange errors, need to check if
|
||
|
|
* what happens when a value out of range is supplied.
|
||
|
|
*/
|
||
|
|
if (*cp >= '0' && *cp <= '9')
|
||
|
|
unit = *cp++ - '0';
|
||
|
|
if (!*cp || (*cp == ',' && !*++cp))
|
||
|
|
return 1;
|
||
|
|
if (*cp >= 'a' && *cp <= 'p')
|
||
|
|
part = *cp++ - 'a';
|
||
|
|
while (*cp && *cp++!=')') ;
|
||
|
|
if (!*cp)
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
if (biosdrivedigit != '\0')
|
||
|
|
biosdrive = biosdrivedigit - '0';
|
||
|
|
else {
|
||
|
|
biosdrive = unit;
|
||
|
|
#if BOOT_HD_BIAS > 0
|
||
|
|
/* XXX */
|
||
|
|
if (maj == 4)
|
||
|
|
biosdrive += BOOT_HD_BIAS;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
switch(maj)
|
||
|
|
{
|
||
|
|
case 4: /* sd */
|
||
|
|
#ifdef PC98
|
||
|
|
dosdev = unit | 0xa0;
|
||
|
|
disk_equips = *(unsigned char *)0x11482;
|
||
|
|
for (i = 0; i < unit; i++)
|
||
|
|
sdunit += ((disk_equips >> i) & 0x01);
|
||
|
|
unit = sdunit;
|
||
|
|
#else /* IBM-PC */
|
||
|
|
dosdev = biosdrive | 0x80;
|
||
|
|
#endif
|
||
|
|
break;
|
||
|
|
case 0:
|
||
|
|
case 2:
|
||
|
|
#ifdef PC98
|
||
|
|
dosdev = (maj << 3) | unit | 0x80;
|
||
|
|
#else
|
||
|
|
dosdev = biosdrive;
|
||
|
|
#endif
|
||
|
|
break;
|
||
|
|
case 3:
|
||
|
|
printf("Unknown device\n");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
printf("dosdev = %x, biosdrive = %d, unit = %d, maj = %d\n",
|
||
|
|
dosdev, biosdrive, unit, maj);
|
||
|
|
inode.i_dev = dosdev;
|
||
|
|
|
||
|
|
/***********************************************\
|
||
|
|
* Now we know the disk unit and part, *
|
||
|
|
* Load disk info, (open the device) *
|
||
|
|
\***********************************************/
|
||
|
|
if (devopen())
|
||
|
|
return 1;
|
||
|
|
|
||
|
|
/***********************************************\
|
||
|
|
* Load Filesystem info (mount the device) *
|
||
|
|
\***********************************************/
|
||
|
|
iodest = (char *)(fs = (struct fs *)fsbuf);
|
||
|
|
cnt = SBSIZE;
|
||
|
|
bnum = SBLOCK + boff;
|
||
|
|
devread();
|
||
|
|
/***********************************************\
|
||
|
|
* Find the actual FILE on the mounted device *
|
||
|
|
\***********************************************/
|
||
|
|
ret = find(cp);
|
||
|
|
if (ret <= 0)
|
||
|
|
return (ret == 0) ? 1 : -1;
|
||
|
|
poff = 0;
|
||
|
|
name = cp;
|
||
|
|
return 0;
|
||
|
|
}
|