1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/bin/sh
# pinclude - explicitly includes Pascal files - p2c has probs. doing this
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
awk ' {
if ( (match($1,"{\\$I")>0) || (match($1,"\\*\\$I")>0) ) {
sub(/}/,"",$2);
command=sprintf("mtt_pinclude %s",$2);
system(command)
}
else{
print $0
|
>
>
>
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/bin/sh
# pinclude - explicitly includes Pascal files - p2c has probs. doing this
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 2000/12/28 11:56:46 peterg
## Put under RCS
##
###############################################################
gawk ' {
if ( (match($1,"{\\$I")>0) || (match($1,"\\*\\$I")>0) ) {
sub(/}/,"",$2);
command=sprintf("mtt_pinclude %s",$2);
system(command)
}
else{
print $0
|