changelog shortlog tags branches changeset files revisions annotate raw help

Mercurial > hg > plan9front / rc/bin/map

changeset 7243: 34f64dcbbc25
parent: efddda59690a
author: cinap_lenrek@felloff.net
date: Fri, 17 May 2019 18:14:10 +0200
permissions: -rwxr-xr-x
description: 7l: don't hardcode 4k pagesize, use INITRND
1 #!/bin/rc
2 
3 rfork en
4 
5 # F FEATUREs, M map files, A other arguments
6 FEATURE=no
7 
8 if (~ $MAPPROG '')
9  MAPPROG=/bin/aux/mapd
10 
11 if (~ $MAPDIR '')
12  MAPDIR=/lib/map
13 
14 F=(); M=(); A=();
15 for (i) {
16  switch ($FEATURE) {
17  case no
18  switch ($i) {
19  case -f
20  FEATURE=yes
21  F=($F)
22  case *
23  A=($A $i)
24  }
25  case yes
26  switch ($i) {
27  case -f
28  case -*
29  A=($A $i)
30  FEATURE=no
31  case riv*2
32  F=($F 201 202)
33  case riv*3
34  F=($F 201 202 203)
35  case riv*4
36  F=($F 201 202 203 204)
37  case riv*
38  F=($F 201)
39  case iriv*2
40  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*2
46  F=($F 102)
47  case coast*3 shore*3 lake*3
48  F=($F 102 103)
49  case coast*4 shore*4 lake*4
50  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*2
59  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*2
69  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 }
88 
89 for (j in $F) {
90  if (test -r $MAPDIR/$j)
91  M=($M $MAPDIR/$j)
92 }
93 
94 if (~ $F ?*) {
95  if (test -r $MAPDIR/101)
96  M=(101 $M)
97  M=(-m $M)
98 }
99 
100 if (~ $MAP '')
101  MAP=world
102 
103 MAP=$MAP MAPDIR=$MAPDIR $MAPPROG $A $M