Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/planix-v0/sys/lib/dist/pc/inst/defs – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
nl='
2 
'
3 
tab='	'
4 
if(~ $#distname 0)
5 
	distname=plan9
6 
 
7 
wctl=/dev/null
8 
if(test -w /dev/wctl)
9 
	wctl=/dev/wctl
10 
 
11 
fn log {
12 
	echo $* >>/srv/log
13 
}
14 
 
15 
fn logprog {
16 
	echo '% '^$"* >>/srv/log
17 
	$* >[2=1] >>/srv/log
18 
}
19 
 
20 
fn sigint {
21 
	# nothing happens
22 
}
23 
 
24 
fn prompt {
25 
	def=()
26 
	what=()
27 
	if(~ $1 -d && ! ~ $#* 1){
28 
		def=$2
29 
		shift
30 
		shift
31 
	}
32 
 
33 
	optstr=()
34 
	if(~ $1 -w && ! ~ $#* 1){
35 
		optstr=$2
36 
		shift
37 
		shift
38 
	}
39 
 
40 
	pr=$1
41 
	shift
42 
 
43 
	opts=($*)
44 
	if(~ $#opts 0) {
45 
		suf=' '
46 
	}
47 
	if not if(! ~ $#optstr 0) {
48 
		if(~ $optstr '')
49 
			suf=' '
50 
		if not {
51 
			pr=$pr^' ('^$"optstr^')'
52 
			suf=''
53 
		}
54 
	}
55 
	if not {
56 
		pr=$pr^' ('^$1
57 
		shift
58 
		for(i)
59 
			pr=$pr^', '^$i
60 
		pr=$pr^')'
61 
		suf=''
62 
	}
63 
 
64 
	if(~ $#def 1)
65 
		pr=$pr^$suf^'['^$def^']'
66 
	if not
67 
		pr=$pr^$suf^'[no default]'
68 
 
69 
	pr=$pr^': '
70 
 
71 
 
72 
	okay=no
73 
	while(~ $okay no) {
74 
		echo -n current >$wctl
75 
		echo -n top >$wctl
76 
		echo -n $pr >[1=2]
77 
		ifs='' {rd=`{read}}
78 
		if(~ $#rd 0)
79 
			exit notdone
80 
		if(~ $rd !*){
81 
			ifs='' {rd=`{echo $rd | sed 's/!//'}}
82 
			echo $rd
83 
			rc -c $rd
84 
			echo !$status
85 
		}
86 
		if not{
87 
			rd=`{echo $rd}
88 
			if(~ $#rd 0 || ~ $rd '')
89 
				rd=$def
90 
 
91 
			switch($#opts){
92 
			case 0
93 
				if(! ~ $rd '')
94 
					okay=yes
95 
			case *
96 
				if(~ $rd $opts)
97 
					okay=yes
98 
			}
99 
		}
100 
	}
101 
	echo -n $rd >/env/rd	# just in case
102 
}
103 
 
104 
fn desc {
105 
	echo -n '	'^$1^'	- '
106 
	grep '^# desc: ' $1 | sed 's/# desc: //'
107 
}
108 
 
109 
fn prereq {
110 
	grep '^# prereq:' $1 | sed 's/# prereq://'
111 
}
112 
 
113 
fn mustdo {
114 
	echo You must `{grep '^# mustdo:' $1 | sed 's/# mustdo://'}
115 
}
116 
 
117 
# there's no easy way to pass shell variables
118 
# up from children to parents; the parents have
119 
# to be coerced into noticing that the environment
120 
# changed, even when in the same environment group.
121 
#
122 
# instead, we explicitly export the variables we want
123 
# to percolate, and the parent calls coherence to reread
124 
# the variables.
125 
#
126 
# we just append to the vars file, so that later exports
127 
# override earlier ones; when we call coherence,
128 
# the duplicates are thrown out.
129 
 
130 
fn export {
131 
	null=()
132 
	nonnull=()
133 
	for(i in $*){
134 
		if(~ $#$i 0)
135 
			null=($null $i)
136 
		if not
137 
			nonnull=($nonnull $i)
138 
	}
139 
	if(! ~ $#nonnull 0)
140 
		whatis $nonnull |grep -v '^\./' >>/tmp/vars >[2]/dev/null
141 
	for(i in $null)
142 
		echo $i^'=()' >>/tmp/vars
143 
}
144 
 
145 
fn coherence {
146 
	if(test -f /tmp/vars) {
147 
		grep '^[a-z]*=' /tmp/vars >/tmp/vars2
148 
		v=`{sed 's/^([a-z]*)=.*/\1/' /tmp/vars2 | sort -u}
149 
		. /tmp/vars2
150 
		rm /tmp/vars2
151 
		rm /tmp/vars
152 
		export $v
153 
	}
154 
}
155 
 
156 
# ip device stats
157 
 
158 
fn isipdevup {
159 
	grep -s $1 /net/ipifc/*/status >[2]/dev/null
160 
}
161 
 
162