1 include "consts.9ps"
2 
3 # 9p protocol
4 
5 proc version(msize, version) {
6 	send(Tversion, notag, msize:u32, version:str)
7 }
8 
9 proc attach(fid, afid, uname, aname) {
10 	send(Tattach, iota(), fid:u32, afid:u32, uname:str, aname:str)
11 }
12 
13 proc walk(fid, newfid, ...) {
14 	send(Twalk, iota(), fid:u32, newfid:u32, vargs:u16, ...)
15 }
16 
17 
18 
19 # useful functions
20 
21 proc mount(fid, path) {
22 	version(msize, np2000)
23 
24 	m = recv()
25 	assert (
26 		m.type == Rversion
27 		m.tag == notag
28 		m.msize == msize
29 		# m.version == version
30 	)
31 
32 	attach(fid, nofid, "op", path)
33 
34 	m = recv()
35 	assert (
36 		m.type == Rattach
37 		m.qid.type == QTDIR
38 	)
39 }
40 
41 proc expect-error() {
42 	m = recv()
43 	assert m.type == Rerror
44 	debug("got expected error", m)
45 }