1 #!/bin/rc
2 
3 rfork en
4 
5 # F FEATUREs, M map files, A other arguments
6 FEATURE=no
7 
8 if (~ $MAPPROG '')
9 	MAPPROG=/bin/aux/mapd
10 
11 if (~ $MAPDIR '')
12 	MAPDIR=/lib/map
13 
14 F=(); M=(); A=();
15 for (i) {
16 	switch ($FEATURE) {
17 	case no
18 		switch ($i) {
19 		case -f
20 			FEATURE=yes 
21 			F=($F)
22 		case *
23 			A=($A $i)
24 		}
25 	case yes
26 		switch ($i) {
27 		case -f
28 		case -*
29 			A=($A $i)
30 			FEATURE=no
31 		case riv*2
32 			F=($F 201 202)
33 		case riv*3
34 			F=($F 201 202 203)
35 		case riv*4
36 			F=($F 201 202 203 204)
37 		case riv*
38 			F=($F 201)
39 		case iriv*2
40 			F=($F 206 207)
41 		case iriv*[34]
42 			F=($F 206 207 208)
43 		case iriv*
44 			F=($F 206)
45 		case coast*2 shore*2 lake*2
46 			F=($F 102)
47 		case coast*3 shore*3 lake*3
48 			F=($F 102 103)
49 		case coast*4 shore*4 lake*4
50 			F=($F 102 103 104)
51 		case coast* shore* lake*
52 		case ilake*[234] ishore*[234]
53 			F=($F 106 107)
54 		case ilake* ishore*
55 			F=($F 106)
56 		case reef*
57 			F=($F 108)
58 		case canal*2
59 			F=($F 210 211)
60 		case canal*[34]
61 			F=($F 210 211 212)
62 		case canal*
63 			F=($F 210)
64 		case glacier*
65 			F=($F 115)
66 		case state* province*
67 			F=($F 401)
68 		case countr*2
69 			F=($F 301 302)
70 		case countr*[34]
71 			F=($F 301 302 303)
72 		case countr*
73 			F=($F 301)
74 		case salt*[234]
75 			F=($F 109 110)
76 		case salt*
77 			F=($F 109)
78 		case ice*[234] shel*[234]
79 			F=($F 113 114)
80 		case ice* shel*
81 			F=($F 113)
82 		case *
83 			echo map: unknown feature $i >[1=2]
84 			exits "unknown feature"
85 		}
86 	}
87 }
88 
89 for (j in $F) {
90 	if (test -r $MAPDIR/$j)
91 		M=($M $MAPDIR/$j)
92 }
93 
94 if (~ $F ?*) {
95 	if (test -r $MAPDIR/101)
96 		M=(101 $M)
97 	M=(-m $M)
98 }
99 
100 if (~ $MAP '')
101 	MAP=world
102 
103 MAP=$MAP MAPDIR=$MAPDIR $MAPPROG $A $M