Blob
1 #!/bin/rc3 rfork en5 # F FEATUREs, M map files, A other arguments6 FEATURE=no8 if (~ $MAPPROG '')9 MAPPROG=/bin/aux/mapd11 if (~ $MAPDIR '')12 MAPDIR=/lib/map14 F=(); M=(); A=();15 for (i) {16 switch ($FEATURE) {17 case no18 switch ($i) {19 case -f20 FEATURE=yes21 F=($F)22 case *23 A=($A $i)24 }25 case yes26 switch ($i) {27 case -f28 case -*29 A=($A $i)30 FEATURE=no31 case riv*232 F=($F 201 202)33 case riv*334 F=($F 201 202 203)35 case riv*436 F=($F 201 202 203 204)37 case riv*38 F=($F 201)39 case iriv*240 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*246 F=($F 102)47 case coast*3 shore*3 lake*348 F=($F 102 103)49 case coast*4 shore*4 lake*450 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*259 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*269 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 }89 for (j in $F) {90 if (test -r $MAPDIR/$j)91 M=($M $MAPDIR/$j)92 }94 if (~ $F ?*) {95 if (test -r $MAPDIR/101)96 M=(101 $M)97 M=(-m $M)98 }100 if (~ $MAP '')101 MAP=world103 MAP=$MAP MAPDIR=$MAPDIR $MAPPROG $A $M