harvey/rc/bin/map

#!/bin/rc

rfork en

# F FEATUREs, M map files, A other arguments
FEATURE=no

if (~ $MAPPROG '')
	MAPPROG=/bin/aux/mapd

if (~ $MAPDIR '')
	MAPDIR=/lib/map

F=(); M=(); A=();
for (i) {
	switch ($FEATURE) {
	case no
		switch ($i) {
		case -f
			FEATURE=yes 
			F=($F)
		case *
			A=($A $i)
		}
	case yes
		switch ($i) {
		case -f
		case -*
			A=($A $i)
			FEATURE=no
		case riv*2
			F=($F 201 202)
		case riv*3
			F=($F 201 202 203)
		case riv*4
			F=($F 201 202 203 204)
		case riv*
			F=($F 201)
		case iriv*2
			F=($F 206 207)
		case iriv*[34]
			F=($F 206 207 208)
		case iriv*
			F=($F 206)
		case coast*2 shore*2 lake*2
			F=($F 102)
		case coast*3 shore*3 lake*3
			F=($F 102 103)
		case coast*4 shore*4 lake*4
			F=($F 102 103 104)
		case coast* shore* lake*
		case ilake*[234] ishore*[234]
			F=($F 106 107)
		case ilake* ishore*
			F=($F 106)
		case reef*
			F=($F 108)
		case canal*2
			F=($F 210 211)
		case canal*[34]
			F=($F 210 211 212)
		case canal*
			F=($F 210)
		case glacier*
			F=($F 115)
		case state* province*
			F=($F 401)
		case countr*2
			F=($F 301 302)
		case countr*[34]
			F=($F 301 302 303)
		case countr*
			F=($F 301)
		case salt*[234]
			F=($F 109 110)
		case salt*
			F=($F 109)
		case ice*[234] shel*[234]
			F=($F 113 114)
		case ice* shel*
			F=($F 113)
		case *
			echo map: unknown feature $i >[1=2]
			exits "unknown feature"
		}
	}
}

for (j in $F) {
	if (test -r $MAPDIR/$j)
		M=($M $MAPDIR/$j)
}

if (~ $F ?*) {
	if (test -r $MAPDIR/101)
		M=(101 $M)
	M=(-m $M)
}

if (~ $MAP '')
	MAP=world

MAP=$MAP MAPDIR=$MAPDIR $MAPPROG $A $M