76 lines
3.9 KiB
Awk
76 lines
3.9 KiB
Awk
#From dhw@gamgee.acad.emich.edu Sat Oct 31 22:54:07 1998
|
||
#Return-Path: <dhw@gamgee.acad.emich.edu>
|
||
#Received: from cssun.mathcs.emory.edu (cssun.mathcs.emory.edu [170.140.150.1])
|
||
# by amx.netvision.net.il (8.9.0.Beta5/8.8.6) with ESMTP id HAA08891
|
||
# for <arobbins@netvision.net.il>; Sat, 31 Oct 1998 07:14:07 +0200 (IST)
|
||
#Received: from mescaline.gnu.org (we-refuse-to-spy-on-our-users@mescaline.gnu.org [158.121.106.21]) by cssun.mathcs.emory.edu (8.7.5/8.6.9-940818.01cssun) with ESMTP id AAA14947 for <arnold@mathcs.emory.edu>; Sat, 31 Oct 1998 00:14:32 -0500 (EST)
|
||
#Received: from gamgee.acad.emich.edu (gamgee.acad.emich.edu [164.76.102.76])
|
||
# by mescaline.gnu.org (8.9.1a/8.9.1) with SMTP id AAA20645
|
||
# for <arnold@gnu.ai.mit.edu>; Sat, 31 Oct 1998 00:17:54 -0500
|
||
#Received: by gamgee.acad.emich.edu (Smail3.1.29.1 #57)
|
||
# id m0zZUKY-000IDSC; Sat, 31 Oct 98 00:16 CST
|
||
#Message-Id: <m0zZUKY-000IDSC@gamgee.acad.emich.edu>
|
||
#Date: Sat, 31 Oct 98 00:16 CST
|
||
#From: dhw@gamgee.acad.emich.edu (David H. West)
|
||
#To: bug-gnu-utils@gnu.org
|
||
#Subject: gawk 3.0.3 bug report
|
||
#Cc: arnold@gnu.org
|
||
#X-UIDL: 7474b825cff989adf38f13883d84fdd7
|
||
#Status: RO
|
||
#
|
||
#gawk version: 3.03
|
||
#System used: Linux, kernel 2.0.28, libc 5.4.33, AMD K5PR133 (i586 clone)
|
||
#Remark: There seems to be at least one bug shown by the demo below.
|
||
# There may also be a Dark Corner involving the value of NR in an
|
||
# END block, a topic on which the info file is silent. In gawk
|
||
# 3.0.3, NR often seems to have the least-surprise value in an
|
||
# END block, but sometimes it doesn't - see example below.
|
||
#Problem descr: the log below shows a case where:
|
||
# a) (this may be a red herring) the output of the gawk script
|
||
# is different depending on whether its input file is named on
|
||
# the command line or catted to stdin, without any use of the
|
||
# legitimate means which could produce this effect.
|
||
# b) NR is clearly getting clobbered; I have tried to simplify
|
||
# the 19-line script "awkerr1" below, but seemingly unrelated
|
||
# changes, like shortening constant strings which appear only in
|
||
# print statements, or removing unexecuted or irrelevant code,
|
||
# cause the clobbering to go away. Some previous (larger)
|
||
# versions of this code would clobber NR also when reading from
|
||
# stdin, but I thought you'd prefer a shorter example :-).
|
||
#Reproduce-By: using the gawk script "awkerr1", the contents of
|
||
# which appear in the transcript below as the output of the
|
||
# command "cat awkerr1". Comments following # were added
|
||
# to the transcript later as explanation.
|
||
#---------------------------------------------- Script started on Fri
|
||
#Oct 30 20:04:16 1998 chipmunk:/ram0# ls -l a1 awkerr1 -rw-r--r-- 1
|
||
#root root 2 Oct 30 18:42 a1 -rwxr-xr-x 1 root root
|
||
#389 Oct 30 19:54 awkerr1 chipmunk:/ram0# cat a1 #a1 contains
|
||
#one printable char and a newline a chipmunk:/ram0# od -c xc a1
|
||
#0000000 0a61
|
||
# a \n
|
||
#0000002 chipmunk:/ram0# cat a1 | awkerr1 #no surprises here
|
||
#1 lines in 1 sec: 1 lines/sec; nlines=1 chipmunk:/ram0# awkerr1 a1 <20>
|
||
#lines in 1 sec: 1 lines/sec; nlines=1 #?! first char is an uppercase
|
||
#E-grave chipmunk:/ram0# awkerr1 a1 | od -N1 -xc 0000000 00c8
|
||
# 310 \0
|
||
#0000001 chipmunk:/ram0# cat awkerr1 #the apparent ^M's are not
|
||
#actually in the file
|
||
#!/usr/bin/awk -f
|
||
function process(w) {
|
||
if(w in ws) {
|
||
printf " : found\n"; lc[p " " w]++; rc[w " " n]++; }
|
||
}
|
||
BEGIN {IGNORECASE=1;
|
||
}
|
||
/^/ {if(NR % 10 ==0)print "processing line " NR;
|
||
process($1); nlines++;
|
||
}
|
||
END {p=w; w=n; n="";
|
||
if(w)process(w); t=1; print NR " lines in " t " sec: " NR+0 " lines/sec; nlines=" nlines;
|
||
}
|
||
#chipmunk:/ram0# exit Script done on Fri Oct 30 20:07:31 1998
|
||
#---------------------------------------------
|
||
#
|
||
#-David West dhw@gamgee.acad.emich.edu
|
||
#
|