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