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 proc open(fid, mode) {
18 	send(Topen, iota(), fid:u32, mode:u8)
19 }
20 
21 proc clunk(fid) {
22 	send(Tclunk, iota(), fid:u32)
23 }
24 
25 
26 
27 # useful functions
28 
29 proc mount(fid, path) {
30 	version(msize, np2000)
31 
32 	m = recv()
33 	assert (
34 		m.type == Rversion
35 		m.tag == notag
36 		m.msize <= msize
37 		# m.version == version
38 	)
39 
40 	attach(fid, nofid, "op", path)
41 
42 	m = recv()
43 	assert (
44 		m.type == Rattach
45 		m.qid.type == QTDIR
46 	)
47 }
48 
49 proc expect(t) {
50 	m = recv()
51 	assert m.type == t
52 }
53 
54 proc expect-error() {
55 	m = recv()
56 	assert m.type == Rerror
57 	debug("got expected error", m)
58 }