NOS2-expect/stage2.exp at main · wschaub/NOS2-expect · GitHub

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
91
92
93
94
95
96
97
#!/usr/bin/expect -f
::tcl::tm::path add .
package require DtCyber;
namespace import DtCyber::*
trap int_handler { SIGINT }

proc int_handler {} {
    error_condition "sigint recieved"
}
system "rm -f stage1/Disks/*"
system "rm -f stage1/PersistStore/*"
system "(cd tools; make)"
system "(cd stage2jobs; ./build-tape.sh)"
set DtCyber::profile "stage2"
set DtCyber::printer_file "LP5xx_C12_E5"
DtCyber::init
#error_condition "test"
dsd "o!"
dsd "p!"
dsd "i=0"
dsd "d=yes"
dsd ""
dsd "next."
dsd "\]\]\]!"
dsd "initialize,al,6,7."
dsd "go."
dsd "#1000#%year%%mon%%day%;%hour%%min%!"
dsd "%sec%"
mount "13,0,1" "original-tapes/nos287-1.tap"
mount "13,0,2" "original-tapes/nos287-2.tap"
mount "13,0,3" "original-tapes/nos287-3.tap"
mount "13,0,4" "built-tapes/termdefs.tap"
expect -i $printer "QUEUE FILE UTILITY COMPLETE"
dsd "vsn054,trmdef."
send_user "\rDeadstart complete now launching sysgen(full)\r\r"
dsd "x.sysgen(full)"
expect -i $printer "E N D   F U L L"
send_user "\r Full sysgen complete now launching sysgen(source)\r\r"
dsd "xsysgen(source)"
expect -i $printer "E N D   S O U R C E"
console "lc 11,7,stage2jobs/termlib.txt"
check_job termlib
dsd "x.dis."
dsd "sui(1)"
dsd "attach(pfgtlib)"
dsd "user(library,library)"
dsd "copybf(pfgtlib,termlib)"
dsd "replace(termlib)"
dsd "attach(tdufile/m=w)"
dsd "evict(tdufile)"
dsd "copybf(pfgtlib,tdufile)"
dsd "drop."
dsd "unload,050."
mount "13,0,0" "original-tapes/y2k.tap"
send_user "\r\rSysgen Complete\r\r"
dsd "x.dis."
dsd "user(install,install)"
dsd "settl(*)"
dsd "setjsl(*)"
dsd ",_load,tn=y2k871,un=ns2871"
dsd "load,fn=*,un=ns2871"
dsd "opl871,nam5871"
dsd "end"
dsd "^^dis."
dsd "els.reclaim."
dsd "change,opl871/ct=pu,ac=y."
dsd {[drop.}
expect -i $printer "Y2KNOS  I 99/05/20  99/05/20      11   NS2871    Y2K871   1   8"
expect -i $printer "OPL871  D 99/12/09  99/12/09   87369   NS2871    BC004P   1  51"
expect -i $printer "RECLAIM COMPLETE."
expect -i $printer "CHANGE,OPL871/CT=PU,AC=Y."
dsd "unload,050."
mount "13,0,0" "original-tapes/cy871b.tap"
dsd "vsn050,cy871b."
dsd "x.dis."
dsd "user(install,install)"
dsd "els.label(tape,vsn=cy871b,lb=ku,f=i,po=r)"
dsd "define(cy871b)"
dsd "copyei(tape,cy871b,v)"
dsd "** cy871b loaded"
dsd "dayfile."
dsd "exit."
dsd "** cy871b failed"
dsd "dayfile."
dsd {[drop.}
expect  {
    -i $printer "\\*\\* CY871B FAILED" { error_condition "cy871b job failed" }
    -i $printer "\\*\\* CY871B LOADED" {}
}
console "rp 12,5,logs/stage2.txt"
sleep 3
dsd  "idle,mag."
dsd "\[unlock."
dsd "che"
sleep 4
dsd "step."
console "shutdown"