init.simos.sample
1.5 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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"