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