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
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 2002/04/28 18:41:27 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.3 1998/07/28 11:23:31 peterg
## Put / explicitly in awk.
##
## Revision 1.2 1998/07/27 08:38:11 peterg
## Just look for / in the relevant field.
##
## Revision 1.1 1998/07/17 17:04:50 peterg
## Initial revision
##
###############################################################
# Regexp for an alias
alias='^[#%]ALIAS'
if [ -f $1_lbl.txt ]; then
grep $alias $1_lbl.txt | gawk '{if (match($3,"/")>0) print "mtt -q compcopy " $3}'
fi
|
>
>
>
|
|
|
<
<
|
>
>
>
>
>
>
>
>
>
|
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
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 2003/08/09 00:29:52 geraint
## Fixed grep error when lbl file doesn't exist.
##
## Revision 1.4 2002/04/28 18:41:27 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.3 1998/07/28 11:23:31 peterg
## Put / explicitly in awk.
##
## Revision 1.2 1998/07/27 08:38:11 peterg
## Just look for / in the relevant field.
##
## Revision 1.1 1998/07/17 17:04:50 peterg
## Initial revision
##
###############################################################
if [ -f "$1_lbl.txt" ]; then
## Regexp for an alias
alias='^[#%]ALIAS'
grep $alias $1_lbl.txt | gawk '{if (match($3,"/")>0) print "mtt -q compcopy " $3}'
fi
|