contrib/awk/test/getlnbuf.awk

   1 #Date: Tue, 21 Dec 1999 16:11:07 +0100
   2 #From: Daniel Schnell <Daniel.Schnell.GP@icn.siemens.de>
   3 #To: bug-gnu-utils@gnu.org
   4 #CC: arnold@gnu.org
   5 #Subject: BUG in gawk (version 3.0.4 linux, windows): Text mangeling in between
   6
   7 # search for "@K@CODE" segment
   8
   9 $0 ~ /@K@CODE/  {
  10                 # get next record
  11                 getline temp
  12                 printf ("@K@CODE\n")
  13                 printf ("%s\n",temp)
  14                 }
  15
  16 $0 !~ /@K@CODE/ {
  17                 printf ("%s\n", $0)
  18                 }