Subversion Repositories tendra.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1 
define name
2 
p (enum_tag_name) $->namef
3 
p $$
4 
end
5 
 
6 
define son
7 
p (enum_tag_name) ($->sonf.e)->namef
8 
p *($$->sonf.e)
9 
end
10 
 
11 
define bro
12 
p (enum_tag_name) ($->brof.e)->namef
13 
p *($$->brof.e)
14 
end
15 
 
16 
define pt
17 
p (enum_tag_name) ($->ptf.e)->namef
18 
p *($$->ptf.e)
19 
end
20 
 
21 
define shape
22 
p (enum_shape_name) $->shf->namef
23 
p $$
24 
end
25 
 
26 
define uses
27 
p *((USES) ($->ptf.e))
28 
p $$
29 
end
30 
 
31 
define al2
32 
p (unsigned long) $->ptf.ald->al.al_val.al
33 
p $$
34 
end
35 
 
36 
define glob
37 
p $->sonf.e->brof.glob->dec_u.dec_val.dec_id
38 
p $$
39 
end
40 
 
41 
break failer
42 
break alphafail