1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#! /usr/bin/ngraph
MAP_FILE=$1
TMP_FILE=${system::temp_file}
TMP_NGP=tmp.ngp
new menu
new regexp
new sarray
new io
echo "get menu: -field get_accel_map" > $TMP_NGP
menu::menu $TMP_NGP > $TMP_FILE
echo -n > $MAP_FILE
regexp::@="^; \("
io::open "$TMP_FILE"
while true
do
s="${io::gets}"
if io::eof
then
break
fi
if regexp::match "$s"
then
sarray::push "$s"
else
echo "$s" >> $MAP_FILE
fi
done
io::close
sarray::sort
for i in ${sarray::seq}
do
get sarray -field get:$i >> $MAP_FILE
done
rm $TMP_NGP
del io
del sarray
del regexp
del menu
del system
|
