init.simos.sample

来自「一个用在mips体系结构中的操作系统」· SAMPLE 代码 · 共 90 行

#
# Copyright (C) 1996-1998 by the Board of Trustees
#    of Leland Stanford Junior University.
# 
# This file is part of the SimOS distribution. 
# See LICENSE file for terms of the license. 
#
###
### setup the search path to find scripts
###

lappend simosPath $env(SIMOS_DIR)/src/apps/tcl

###
### ALWAYS source this file first. It sets up a number of annotation types.
###
source "tcl_support.tcl"

###
### setup default parameters
###

source "defaults.tcl"

###
### override any of the default parameters
###

if {!$SIMOS(RestoringCpt)} {
    set PARAM(MEMSYS.MemSize) 64
}

###
### load your kernel's symbols - required by most scripts
###

set KERNEL $env(SIMOS_DIR)/kernels/irix-mp-5.3

symbol load kernel $KERNEL

proc loginScript {} {
# stream anything that you want to run at login time
}

###
### the support script has necessary routines in it
###

if {$PARAM(CPU.Model) == "EMBRA_PAGE"} {
    set detailLevel 1
}


###
### Make sure this is sourced after all parameters are set
###
source "standard.tcl"

###
### catch annotation errors here
###
### this sample prints a backtrace and then goes into interactive mode,
### alternatively we could just print a warning message, ignore, or exit
###

handler {
    console "TCL ERROR:\n" $errorInfo "\n"
    exit
}

annotation set simos sigusr {
    console "sigusr caught, and then ignored\n"
}


###
### boot line
###

expect {simosboot (1)> } {
    type "b $KERNEL initstate=s\n"
}


###
### finally list useful info
###

console "SIMOS: pid [pid]\n"
log "[annotation info]\n"