操作系统开发

开发平台：
DOS

MAIN.C：源码内容
							
/****************************************************************/
/*                                                              */
/*                           main.c                             */
/*                            DOS-C                             */
/*                                                              */
/*                    Main Kernel Functions                     */
/*                                                              */
/*                   Copyright (c) 1995, 1996                   */
/*                      Pasquale J. Villani                     */
/*                      All Rights Reserved                     */
/*                                                              */
/* This file is part of DOS-C.                                  */
/*                                                              */
/* DOS-C is free software; you can redistribute it and/or       */
/* modify it under the terms of the GNU General Public License  */
/* as published by the Free Software Foundation; either version */
/* 2, or (at your option) any later version.                    */
/*                                                              */
/* DOS-C is distributed in the hope that it will be useful, but */
/* WITHOUT ANY WARRANTY; without even the implied warranty of   */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See    */
/* the GNU General Public License for more details.             */
/*                                                              */
/* You should have received a copy of the GNU General Public    */
/* License along with DOS-C; see the file COPYING.  If not,     */
/* write to the Free Software Foundation, 675 Mass Ave,         */
/* Cambridge, MA 02139, USA.                                    */
/****************************************************************/
#define MAIN
#include "../../hdr/portab.h"
#include "globals.h"
/* $Logfile:   C:/dos-c/src/kernel/main.c_v  $ */
#ifdef VERSION_STRINGS
static BYTE *mainRcsId = "$Header:   C:/dos-c/src/kernel/main.c_v   1.11   22 Jan 1998  4:09:24   patv  $";
#endif
/* $Log:   C:/dos-c/src/kernel/main.c_v  $
 * 
 *    Rev 1.11   22 Jan 1998  4:09:24   patv
 * Fixed pointer problems affecting SDA
 * 
 *    Rev 1.10   04 Jan 1998 23:15:20   patv
 * Changed Log for strip utility
 * 
 *    Rev 1.9   04 Jan 1998 17:26:16   patv
 * Corrected subdirectory bug
 * 
 *    Rev 1.8   03 Jan 1998  8:36:48   patv
 * Converted data area to SDA format
 * 
 *    Rev 1.7   06 Feb 1997 21:35:46   patv
 * Modified to support new version format and changed debug message to
 * output drive letter instead of number.
 * 
 *    Rev 1.6   22 Jan 1997 13:05:02   patv
 * Now does correct default drive initialization.
 * 
 *    Rev 1.5   16 Jan 1997 12:47:00   patv
 * pre-Release 0.92 feature additions
 * 
 *    Rev 1.3   29 May 1996 21:03:32   patv
 * bug fixes for v0.91a
 * 
 *    Rev 1.2   19 Feb 1996  3:21:36   patv
 * Added NLS, int2f and config.sys processing
 * 
 *    Rev 1.1   01 Sep 1995 17:54:18   patv
 * First GPL release.
 * 
 *    Rev 1.0   02 Jul 1995  8:33:18   patv
 * Initial revision.
 */
/* $EndLog$ */
static COUNT BlockIndex = 0;
VOID    configDone(VOID);
VOID init_kernel(VOID), signon(VOID), kernel(VOID);
static COUNT p_0(VOID);
VOID FsConfig(VOID);
VOID 
main (void)
{
#ifdef KDB
	BootDrive = 1;
#endif
        init_kernel();
#ifdef DEBUG
	/* Non-portable message kludge alert!				*/
        printf("KERNEL: Boot drive = %cn", 'A' + BootDrive - 1);
#endif
        signon();
        kernel();
}
VOID 
reinit_k (void)
{
        REG COUNT i;
        UWORD FAR *stack = (UWORD FAR *)&error_tos;
        /* Re-initialize drivers                        */
        syscon = &con_dev;
        /* Re-initialize stacks                         */
        api_sp = FP_OFF(stack);
        api_ss = FP_SEG(stack);
        /* Test ram for sane mcb's                      */
        if(DosMemCheck() != SUCCESS)
                panic("Memory corrupted");
}
static VOID 
init_kernel (void)
{
        REG struct dhdr FAR *dhp = (struct dhdr FAR *)&nul_dev;
        UWORD FAR *stack;
        COUNT i;
        
        cu_psp = DOS_PSP;    
        nblkdev = 0;
        maxbksize = 0x200;
        switchar = '/';
        
        /* initialize stack                                     */
        stack = (UWORD FAR *)&error_tos;
        /* Init oem hook - returns memory size in KB    */
        ram_top = init_oem();
        /* Initialize driver chain                                      */
        dhp = link_dhdr(dhp, (struct dhdr FAR *)&con_dev, NULL);
        dhp = link_dhdr(dhp, (struct dhdr FAR *)&clk_dev, NULL);
        dhp = link_dhdr(dhp, (struct dhdr FAR *)&blk_dev, NULL);
        syscon = (struct dhdr FAR *)&con_dev;
        clock = (struct dhdr FAR *)&clk_dev;
#ifndef KDB
	for (i = 0x20; i <= 0x3f; i++)
	     setvec(i, empty_handler);
	/* set interrupt vectors                                        */
	setvec(0x20, int20_handler);
	setvec(0x21, int21_handler);
	setvec(0x22, int22_handler);
	setvec(0x23, int23_handler);
	setvec(0x24, int24_handler);
	setvec(0x25, (VOID (INRPT FAR *)())low_int25_handler);
	setvec(0x26, (VOID (INRPT FAR *)())low_int26_handler);
	setvec(0x27, int27_handler);
	setvec(0x28, int28_handler);
	setvec(0x29, int29_handler);    /* Requires Fast Con Driver     */
	setvec(0x2f, int2f_handler);
#endif
	/* Initialize stacks                                            */
        api_sp = FP_OFF(stack);
        api_ss = FP_SEG(stack);
        /* Initialize the screen handler for backspaces                 */
        scr_pos = 0;
        break_ena = TRUE;
        /* Do first initialization of system variable buffers so that   */
        /* we can read config.sys later.                                */
	lastdrive = Config.cfgLastdrive;
	PreConfig();
	/* Now config the temporary file system                         */
	FsConfig();
#ifndef KDB
	/* Now process CONFIG.SYS                                       */
	DoConfig();
	lastdrive = Config.cfgLastdrive;
	if (lastdrive < nblkdev)
		lastdrive = nblkdev;
        /* and do final buffer allocation.                              */
        PostConfig();
        
        /* Now config the final file system                             */
        FsConfig();
        /* and process CONFIG.SYS one last time to load device drivers. */
        DoConfig();
	configDone();
#endif
        /* Now to initialize all special flags, etc.                    */
        mem_access_mode = FIRST_FIT;
        verify_ena = FALSE;
        InDOS = 0;
        version_flags = 0;
        pDirFileNode = 0;
}
VOID FsConfig(VOID)
{
        REG COUNT i;
        /* Initialize the file tables                                   */
        for(i = 0; i < Config.cfgFiles; i++)
                f_nodes[i].f_count = 0;
        /* The system file tables need special handling and are "hand   */
        /* built. Included is the stdin, stdout, stdaux and atdprn.     */
        sfthead -> sftt_next = (sfttbl FAR *)-1;
        sfthead -> sftt_count = Config.cfgFiles;
        for(i = 0; i < sfthead -> sftt_count ; i++)
        {
                sfthead -> sftt_table[i].sft_count = 0;
                sfthead -> sftt_table[i].sft_status = -1;
        }
        /* 0 is /dev/con (stdin)                                        */
        sfthead -> sftt_table[0].sft_count = 1;
        sfthead -> sftt_table[0].sft_mode = SFT_MREAD;
        sfthead -> sftt_table[0].sft_attrib = 0;
        sfthead -> sftt_table[0].sft_flags =
          (con_dev.dh_attr & ~SFT_MASK) | SFT_FDEVICE | SFT_FEOF | SFT_FSTDIN | SFT_FSTDOUT;
        sfthead -> sftt_table[0].sft_psp = DOS_PSP;
        fbcopy(
                (VOID FAR *)"CON        ",
                (VOID FAR *)sfthead -> sftt_table[0].sft_name, 11);
        sfthead -> sftt_table[0].sft_dev = (struct dhdr FAR *)&con_dev;
        /* 1 is /dev/con (stdout)                                       */
        sfthead -> sftt_table[1].sft_count = 1;
        sfthead -> sftt_table[1].sft_mode = SFT_MWRITE;
        sfthead -> sftt_table[1].sft_attrib = 0;
        sfthead -> sftt_table[1].sft_flags = 
          (con_dev.dh_attr & ~SFT_MASK) | SFT_FDEVICE | SFT_FEOF | SFT_FSTDIN  | SFT_FSTDOUT;
        sfthead -> sftt_table[1].sft_psp = DOS_PSP;
        fbcopy(
                (VOID FAR *)"CON        ",
                (VOID FAR *)sfthead -> sftt_table[1].sft_name, 11);
        sfthead -> sftt_table[1].sft_dev = (struct dhdr FAR *)&con_dev;
        /* 2 is /dev/con (stderr)                                       */
        sfthead -> sftt_table[2].sft_count = 1;
        sfthead -> sftt_table[2].sft_mode = SFT_MWRITE;
        sfthead -> sftt_table[2].sft_attrib = 0;
        sfthead -> sftt_table[2].sft_flags = 
          (con_dev.dh_attr & ~SFT_MASK) | SFT_FDEVICE | SFT_FEOF | SFT_FSTDIN  | SFT_FSTDOUT;
        sfthead -> sftt_table[2].sft_psp = DOS_PSP;
        fbcopy(
                (VOID FAR *)"CON        ",
                (VOID FAR *)sfthead -> sftt_table[2].sft_name, 11);
        sfthead -> sftt_table[2].sft_dev = (struct dhdr FAR *)&con_dev;
        /* 3 is /dev/aux (/dev/null for now)                            */
        sfthead -> sftt_table[3].sft_count = 1;
        sfthead -> sftt_table[3].sft_mode = SFT_MWRITE;
        sfthead -> sftt_table[3].sft_attrib = 0;
        sfthead -> sftt_table[3].sft_flags = 
          (nul_dev.dh_attr & ~SFT_MASK) | SFT_FDEVICE | SFT_FNUL;
        sfthead -> sftt_table[3].sft_psp = DOS_PSP;
        fbcopy(
                (VOID FAR *)"NUL        ",
                (VOID FAR *)sfthead -> sftt_table[3].sft_name, 11);
        sfthead -> sftt_table[3].sft_dev = (struct dhdr FAR *)&nul_dev;
        /* 4 is /dev/prn (/dev/null for now)                            */
        sfthead -> sftt_table[4].sft_count = 1;
        sfthead -> sftt_table[4].sft_mode = SFT_MWRITE;
        sfthead -> sftt_table[4].sft_attrib = 0;
        sfthead -> sftt_table[4].sft_flags =
          (nul_dev.dh_attr & ~SFT_MASK) | SFT_FDEVICE | SFT_FNUL;
        sfthead -> sftt_table[4].sft_psp = DOS_PSP;
        fbcopy(
                (VOID FAR *)"NUL        ",
                (VOID FAR *)sfthead -> sftt_table[4].sft_name, 11);
        sfthead -> sftt_table[4].sft_dev = (struct dhdr FAR *)&nul_dev;
        /* Log-in the default drive.                                    */
        /* Get the boot drive from the ipl and use it for default.      */
        default_drive = BootDrive - 1;
        /* Initialzie the current directory structures                  */
        for(i = 0; i < NDEVS; i++)
                scopy("\", blk_devices[i].dpb_path);
        /* Initialze the disk buffer management functions               */
        init_buffers();
}
static VOID signon()
{
        printf("nDOS-C compatibility %d.%02dn%sn",
                os_major, os_minor, copyright);
        printf(os_release,
         REVISION_MAJOR, REVISION_MINOR, REVISION_SEQ,
         BUILD);
}
static VOID kernel()
{
        seg asize;
        BYTE FAR *ep, *sp;
        COUNT ret_code;
#ifndef KDB
        static BYTE *path = "PATH=";
#endif
#ifdef KDB
        kdb();
#else
        /* create the master environment area                           */
        if(DosMemAlloc(0x20, FIRST_FIT, (seg FAR *)&master_env, (seg FAR *)&asize) < 0)
                fatal("cannot allocate master environment space");
        /* populate it with the minimum environment                     */
        ++master_env;       
        ep = MK_FP(master_env, 0);   
        
        for(sp = path; *sp != 0; )
                *ep++ = *sp++;
        *ep++ = '';
        *ep++ = '';
        *((int FAR *)ep) = 0;
        ep += sizeof(int);    
#endif
        ret_code = p_0();
        exit(ret_code);
}
/* process 0                                                            */
static COUNT
p_0(VOID)
{
        exec_blk exb;
        CommandTail Cmd;
        BYTE FAR *szfInitialPrgm = (BYTE FAR *)Config.cfgInit;
        int     rc;
        /* Execute command.com /P from the drive we just booted from    */
        exb.exec.env_seg = master_env;
        strcpy(Cmd.ctBuffer, Config.cfgInitTail);
        
        for (Cmd.ctCount = 0; Cmd.ctCount < 127; Cmd.ctCount++)
            if (Cmd.ctBuffer[Cmd.ctCount] == 'r') break;
        exb.exec.cmd_line = (CommandTail FAR *)&Cmd;
        exb.exec.fcb_1 = exb.exec.fcb_2 = (fcb FAR *)0;
#ifdef DEBUG
        printf("Process 0 starting: %snn", (BYTE *)szfInitialPrgm);
#endif 
        if((rc = DosExec(0, (exec_blk FAR *)&exb, szfInitialPrgm)) != SUCCESS)
        {
                printf("nBad or missing Command Interpreter: %dn", rc);
                return -1;
        }
        else
        {
                printf("nSystem shutdown completenReboot now.n");
                return 0;
        }
}
extern BYTE FAR *lpBase;
/* If cmdLine is NULL, this is an internal driver */
VOID 
init_device (struct dhdr FAR *dhp, BYTE FAR *cmdLine)
{
        request rq;
        ULONG memtop = ((ULONG)ram_top) << 10;
        ULONG maxmem = memtop - ((ULONG)FP_SEG(dhp) << 4);
        if (maxmem >= 0x10000) maxmem = 0xFFFF;
        rq.r_unit = 0;
        rq.r_status = 0;
        rq.r_command = C_INIT;
        rq.r_length = sizeof(request);
        rq.r_endaddr = MK_FP(FP_SEG(dhp), maxmem);
        rq.r_bpbptr = (void FAR *)(cmdLine? cmdLine : "n");
        rq.r_firstunit = nblkdev;
        execrh((request FAR *)&rq, dhp);
        
        if (cmdLine) lpBase = rq.r_endaddr;
        
        /* check for a block device and update  device control block    */
        if(!(dhp -> dh_attr & ATTR_CHAR) && (rq.r_nunits != 0))
        {
                REG COUNT Index;
                
                for(Index = 0; Index < rq.r_nunits; Index++, BlockIndex++)
                {
                        if (nblkdev)
                            blk_devices[nblkdev - 1].dpb_next = &blk_devices[nblkdev];
                        blk_devices[nblkdev].dpb_unit = nblkdev;
                        blk_devices[nblkdev].dpb_subunit = Index;
                        blk_devices[nblkdev].dpb_device = dhp;
                        blk_devices[nblkdev].dpb_flags = M_CHANGED;
                        
                        ++nblkdev;
                }
                blk_devices[nblkdev - 1].dpb_next = (void FAR *)0xFFFFFFFF;
        }
        DPBp = &blk_devices[0];
}
            
struct dhdr FAR *link_dhdr(struct dhdr FAR *lp, struct dhdr FAR *dhp, BYTE FAR *cmdLine)
{
        lp -> dh_next = dhp;
        init_device(dhp, cmdLine);
        return dhp;
}

						