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
53
|
# Copyright (c) P.J.Gawthrop, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 1999/03/09 00:03:19 peterg
## Revisions for xmtt
##
## Revision 1.1 1998/10/20 08:13:14 peterg
## Initial revision
##
###############################################################
# Create reps menu
awk '{
if (index($1,"*")) {
rep=substr($1,1,length($1)-1);
printf("\n# Menus for representation %s\n", $1)
printf(".rep.rep add cascade -label \"%s\" -menu .rep.rep.%s\n", rep, $1);
printf("menu .rep.rep.%s\n", $1);
for (i=2;i<=NF;i++) {
printf(" set mtt {mtt $args $system %s %s} \n", rep, $i);
printf(".rep.rep.%s add command -label \"%s\" ", $1, $i);
printf(" -command \"exec echo $mtt &; exec $mtt &\" \n");
}
}
else {
rep = $1;
printf(".repall.repall add cascade -label \"%s\" -menu .repall.repall.%s\n", rep, rep);
printf("menu .repall.repall.%s\n", rep);
for (i=2;i<=NF;i++) {
printf(" set mtt {mtt $args $system %s %s} \n", rep, $i);
printf(".repall.repall.%s add command -label \"%s\" ", rep, $i);
printf(" -command \"exec echo $mtt &; exec $mtt &\" \n");
}
}
}'
|
>
>
>
>
|
>
>
>
>
>
>
|
>
|
>
|
|
|
|
|
|
<
|
|
|
|
|
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
53
54
55
56
57
58
59
60
61
62
63
64
|
# Copyright (c) P.J.Gawthrop, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3 1999/08/18 06:15:48 peterg
## Stripped down to just representations menu - see mtt_make_menu
##
## Revision 1.2 1999/03/09 00:03:19 peterg
## Revisions for xmtt
##
## Revision 1.1 1998/10/20 08:13:14 peterg
## Initial revision
##
###############################################################
# Create reps menu
awk --field-separator='|' '{
# Find the rep and the title
split($1,REP," ");
rep=REP[1];
# find the languages
N=split($2,LANG," ");
# Important representation?
if (index(rep,"*")) {
# Zap *
rep=substr(rep,1,length(rep)-1);
sub(/\*/,"",$1);
printf("\n# Menus for representation %s\n", rep)
printf(".rep.rep add cascade -label \"%s\" -menu .rep.rep.%s\n", $1, rep);
printf("menu .rep.rep.%s\n", rep);
for (i=1;i<=N;i++) {
printf(" set mtt {mtt $args $system %s %s} \n", rep, LANG[i]);
printf(".rep.rep.%s add command -label \"%s\" ", rep, LANG[i]);
printf(" -command \"exec echo $mtt &; exec $mtt &\" \n");
}
}
else {
printf("\n# Menus for representation %s\n", rep)
printf(".repall.repall add cascade -label \"%s\" -menu .repall.repall.%s\n", $1, rep);
printf("menu .repall.repall.%s\n", rep);
for (i=1;i<=N;i++) {
printf(" set mtt {mtt $args $system %s %s} \n", rep, LANG[i]);
printf(".repall.repall.%s add command -label \"%s\" ", rep, LANG[i]);
printf(" -command \"exec echo $mtt &; exec $mtt &\" \n");
}
}
}'
|