Subversion Repositories svnkaklik

Rev

Rev 634 | Rev 636 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
633 kaklik 1 
#!/usr/bin/awk -f
2 
# reports which file is being read
3 
BEGIN {
635 kaklik 4 
f="";
5 
val="";
633 kaklik 6 
}
635 kaklik 7 
{
8 
if (f != FILENAME) {
9 
  print "reading", FILENAME;
10 
  do {
11 
    if (FNR >= 43) data[$1] = data[$1] OFS $2;
12 
    f=FILENAME;
13 
  } while (getline != 0);
633 kaklik 14 
}
635 kaklik 15 
}
16 
END{for(val in data) print data[val];}
17