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
65
66
67
68
69
70
|
# 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");
}
}
}'
|
>
>
>
>
|
>
|
>
|
|
|
<
<
<
<
<
<
<
<
|
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
65
66
67
68
|
# Copyright (c) P.J.Gawthrop, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 2000/04/05 07:37:27 peterg
## *** empty log message ***
##
## 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
##
###############################################################
sep='|'; # Separates the languages from the rest.
# Create reps menu
awk --field-separator=$sep '{
# 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++) {
lang = LANG[i];
printf(" set mtt {mtt_pause $args $system %s %s} \n", rep, lang);
title = sprintf("Output_log_for_representation_%s_(language_%s)", rep, lang);
printf(".rep.rep.%s add command -label \"%s\" ", rep, lang);
printf(" -command \"exec xterm -title %s -e $mtt &\" \n", title);
}
}
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; mtt_pause} \n", rep, LANG[i]);
printf(".repall.repall.%s add command -label \"%s\" ", rep, LANG[i]);
printf(" -command \"exec echo $mtt &; exec $mtt &\" \n");
}
}
}'
|