|
|
1.1 root 1: .PS 8.5i
2: .ps 20
3: ## figure 11
4: ellipsewid = ellipsewid*3/2
5: ellipseht = ellipseht*5/4
6: linewid = linewid*3/2
7: ##
8: B1: ellipse "RO spec"
9: B2: box "ROSY" "compiler" \
10: with .w at (B1.e.x+linewid, B1.e.y)
11: arrow from B1.e to B2.w
12: B2a: ellipse invis with .s at (B2.n.x, B2.n.y+lineht)
13: B2b: ellipse "stub" "defs/tables" "for operations" \
14: with .c at B2a.c width 9*ellipsewid/8 height 9*ellipseht/8
15: arrow from B2.n to B2b.s
16: ##
17: B3: box "POSY" "compiler" \
18: with .w at (B2.e.x+linewid, B2.e.y)
19: arrow from B2.e to B3.w
20: B3a: ellipse invis with .s at (B3.n.x, B3.n.y+lineht)
21: B3b: ellipse "structure defs" "for data types" \
22: with .c at B3a.c width 9*ellipsewid/8 height 9*ellipseht/8
23: arrow from B3.n to B3b.s
24: ##
25: B4: box "PEPY" "compiler" \
26: with .w at (B3.e.x+linewid, B3.e.y)
27: arrow from B3.e to B4.w
28: B4a: ellipse invis with .s at (B4.n.x, B4.n.y+lineht)
29: B4b: ellipse "conversion" "routines" "for data types" \
30: with .c at B4a.c width 9*ellipsewid/8 height 9*ellipseht/8
31: arrow from B4.n to B4b.s
32: ##
33: box dashed with .nw at (B2a.w.x-linewid/2, B2a.n.y+lineht/2) \
34: height ellipseht+boxht width B4a.e.x-B2a.w.x+boxwid
35: ##
36: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.