| #!/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 |