8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.43 2002/05/22 10:33:18 gawthrop
## Nameless components are now named according to type - replaces old
## mtt1 etc style.
##
## Revision 1.42 2002/03/26 12:05:27 geraint
## Escaped characters to eliminate awk warnings.
##
|
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.44 2002/05/25 09:23:47 gawthrop
## Self-naming components: name is mttTYPE or mttTYPE_2 ...
##
## Revision 1.43 2002/05/22 10:33:18 gawthrop
## Nameless components are now named according to type - replaces old
## mtt1 etc style.
##
## Revision 1.42 2002/03/26 12:05:27 geraint
## Escaped characters to eliminate awk warnings.
##
|
552
553
554
555
556
557
558
559
560
561
562
563
564
565
|
printf(" %s", $i) >> fig_file;
if (NF==1)
printf(" ") >> fig_file; # Put space after header fields
printf("\n") >> fig_file
}
# Header
if ( NF<3 ) {
printf("%s", $1) >> head_file;
for (i=2; i<=NF; i++)
printf(" %s", $i) >> head_file;
if (NF==1)
printf(" ") >> head_file; # Put space after header fields
printf("\n") >> head_file
|
>
>
>
|
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
|
printf(" %s", $i) >> fig_file;
if (NF==1)
printf(" ") >> fig_file; # Put space after header fields
printf("\n") >> fig_file
}
# Header
if ($1=="#FIG")
printf("%s", $0) >> head_file;
if ( NF<3 ) {
printf("%s", $1) >> head_file;
for (i=2; i<=NF; i++)
printf(" %s", $i) >> head_file;
if (NF==1)
printf(" ") >> head_file; # Put space after header fields
printf("\n") >> head_file
|