Return to builtin.c CVS log

Up to [MW Coherent from dump] / coherent / d / conf / old_tboot

coherent

/* builtin.c -- builtin routines for tboot.
 *
 * Add new ones by adding a check for them in interpret().
 *
 * La Monte H. Yarroll <[email protected]>, September 1991
 */

#include <string.h>
#include <sys/inode.h>
#include <sys/ino.h>
#include <sys/dir.h>
#include "tboot.h"

/* If possible, execute "command".
 * Return "true" if the command exists, "false" otherwise.
 */
int
interpret(command)
	char *command;
{
	if (0 == strcmp(command, "info")) {
		dpb();
		return(TRUE);
	} else if ((0 == strcmp(command, "dir")) ||
		   (0 == strcmp(command, "ls") ) ||
		   (0 == strcmp(command, "lc") )) {
		dir();
		return(TRUE);
	} else if ( (0 == strncmp(command, "sys_base", strlen("sys_base")) ) ||
		   (0 == strncmp(command, "scs", strlen("scs")) )
		) {
		char lbuf[5]; /* 5 == strlen("0000") + 1 */
		if (NULL != strchr(command, '=')){
			puts("Setting sys_base.\r\n");
			sys_base_set = (1==1);
			sys_base = (uint16)
				basetoi(1 + strchr(command, '='), 16);
		}
		if (!sys_base_set) {
			puts("sys_base will default to ");
			print16(DEF_SYS_BASE);
			puts(" for l.out executables,\r\n and to ");
			print16(COFF_SYS_BASE);
			puts(" for COFF executables.\r\n");
		} else {
			puts("sys_base is ");
			itobase((uint16) sys_base, lbuf, 16);
			puts(lbuf);
			puts("\r\n");
		}
		return(TRUE);
	} else if (0 == strcmp(command, "monitor")) {
		monitor();
		return(TRUE);
	} else if ((0 == strcmp(command, "gift"))) {
		dump_gift();	/* Dump boot_gift.  */
		return(TRUE);
	} else if ((0 == strcmp(command, "test arg"))) {
		if (arg_exist("arg")) {
			puts("Yep.\r\n");
		} else {
			puts("Nope.\r\n");
		}
		return(TRUE);
	} else if ((0 == strcmp(command, "help")) ||
		   (0 == strcmp(command, "?")) ) {
		   puts("info          Print disk information.\r\n");
		   puts("dir|ls        List contents of /.\r\n");
		   puts("?|help        Print this list.\r\n");
		   return(TRUE);
	} else if (0 == strcmp(command, "mon_on")) {
		want_monitor = TRUE;
		puts("Mini-monitor will autoinvoke before running kernel.\r\n");
		return(TRUE);
	} else if (0 == strcmp(command, "??")) {
		   puts("UNSUPPORTED FEATURES:  (don't call :-)\r\n");
		   puts("sys_base|scs  Print current load segment.\r\n");
		   puts("sys_base=tttt Set current load segment to 0xtttt.\r\n");
		   puts("test arg      Test for the presence of arg.\r\n");
		   puts("monitor       Invoke the mini-monitor.\r\n");
		   puts("mon_on        Autoinvoke the mini-monitor before kernel.\r\n");
		   return(TRUE);
	} else {
		return(FALSE);
	}
	puts("\r\nUNREACHABLE CODE IN interpret() EXECUTED.\r\n");
	puts("There is probably a missing return() in interpret().\r\n");
	return(FALSE);	/* This should be an unreachable line.  */
} /* interpret() */

/* Display the BIOS parameters loaded up by the startup code.  */
void
dpb()
{
	char buffer[BLOCK];
	int i;
	int num_of_drives;
	struct reg r;
	
	
	num_of_drives = get_num_of_drives();

	puts("\r\nHere are the BIOS parameters for your hard drive");
	if (num_of_drives > 1) { putchar('s'); }
	puts(".\r\n");
	puts("Write them down for use during installation.\r\n");
	
	for (i = 0; i < num_of_drives; ++i) {
	 
		r.r_ax = DISK_PARAMS;
		r.r_dx = HARD_DRIVE + i;
	
		intcall(&r, &r, DISKINT);	/* Ask the BIOS.  */

		puts("Drive ");
		itobase((uint16) i, buffer, 10);
		puts(buffer);
	

		/* ch is the lower 8 bits of number of cylinders.
		 * The high two bits of cl are the top two bits of
		 * 10 bit number of cylinders.
		 *
		 * The cylinder count is actually 1 short.
		 */
		puts(":  Cylinders=");
		itobase((uint16) (
			  ((LOW(r.r_cx) >> 6) * 256) + /* Top two bits...  */
			  (HIGH(r.r_cx) + 1)
			),
			buffer, 10);
		puts(buffer);
	
		/* The head count is actually 1 short.  */
		puts("  Heads=");
		itobase((uint16) HIGH(r.r_dx) + 1, buffer, 10);
		puts(buffer);
	
		/* Only the lower 6 bits of cl are the sectors per track.  */
		puts("  Sectors per track=");
		itobase((uint16) SIXBITS & LOW(r.r_cx), buffer, 10);
		puts(buffer);
	
		puts("\r\n");
	} /* for i = 0 to num_of_drives - 1 */
} /* dpb() */


/* Ask the BIOS how many drives are attached.  */
int get_num_of_drives()
{
	struct reg r;

	r.r_ax = DISK_PARAMS;	/* ah = 8 -- Return disk drive parameters */
	r.r_dx = HARD_DRIVE;	/* set bit 7 of dl for hard disk info.  */
	
	intcall(&r, &r, DISKINT);

	return(LOW(r.r_dx));
} /* get_num_of_drives() */

/* Create a listing of file names in /.  */
void
dir()
{
	int i, j;
	char outbuff[LINESIZE];	/* Buffer for outputing numbers.  */
	struct inode rootinode;
	struct direct dirent;

	/* Open "/" and print out the direct block file entries.  */
	iopen(&rootinode, (ino_t) 2);

	/* Read each directory entry one at a time.  */
	/* We are careful to print an even fraction of 80 for each
	 * directory entry, so that everything lines up nicely.
	 */
	for (i = 0; i < rootinode.i_size; i += sizeof(struct direct)) {

		iread(&rootinode, (char *) &dirent, (fsize_t) i,
		      (uint16) sizeof(struct direct));
		
		/* If the entry is not active, skip the rest.  */
		if (0 == dirent.d_ino) {
			continue;
		}
		
		/* NUL terminate the name.  */
		strncpy(outbuff,
			dirent.d_name,
			DIRSIZ);
		outbuff[DIRSIZ] = '\0';
		/* Print the file name.  */
		puts(outbuff);
		for (j = DIRSIZ - strlen(outbuff); j > 0; --j) {
			putchar(' ');
		}
		puts(" :"); /* Bring total to 16 (80/5) characters.  */
	}
	puts("\r\n");
	
} /* dir() */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.