Blame test/gsubtst5.awk

Packit Service f629e6
# From jose@monkey.org  Thu Jun  5 11:48:35 2003
Packit Service f629e6
# Return-Path: <jose@monkey.org>
Packit Service f629e6
# Received: from localhost (skeeve [127.0.0.1])
Packit Service f629e6
# 	by skeeve.com (8.12.5/8.12.5) with ESMTP id h558eVvA012655
Packit Service f629e6
# 	for <arnold@localhost>; Thu, 5 Jun 2003 11:48:35 +0300
Packit Service f629e6
# Received: from actcom.co.il [192.114.47.1]
Packit Service f629e6
# 	by localhost with POP3 (fetchmail-5.9.0)
Packit Service f629e6
# 	for arnold@localhost (single-drop); Thu, 05 Jun 2003 11:48:35 +0300 (IDT)
Packit Service f629e6
# Received: by actcom.co.il (mbox arobbins)
Packit Service f629e6
#  (with Cubic Circle's cucipop (v1.31 1998/05/13) Thu Jun  5 11:47:59 2003)
Packit Service f629e6
# X-From_: jose@monkey.org Thu Jun  5 07:14:45 2003
Packit Service f629e6
# Received: from smtp1.actcom.net.il by actcom.co.il  with ESMTP
Packit Service f629e6
# 	(8.11.6/actcom-0.2) id h554EdY08108 for <arobbins@actcom.co.il>;
Packit Service f629e6
# 	Thu, 5 Jun 2003 07:14:41 +0300 (EET DST)  
Packit Service f629e6
# 	(rfc931-sender: smtp.actcom.co.il [192.114.47.13])
Packit Service f629e6
# Received: from f7.net (consort.superb.net [209.61.216.22])
Packit Service f629e6
# 	by smtp1.actcom.net.il (8.12.8/8.12.8) with ESMTP id h554G3To008304
Packit Service f629e6
# 	for <arobbins@actcom.co.il>; Thu, 5 Jun 2003 07:16:05 +0300
Packit Service f629e6
# Received: from fencepost.gnu.org (fencepost.gnu.org [199.232.76.164])
Packit Service f629e6
# 	by f7.net (8.11.7/8.11.6) with ESMTP id h554Ean08172
Packit Service f629e6
# 	for <arnold@skeeve.com>; Thu, 5 Jun 2003 00:14:36 -0400
Packit Service f629e6
# Received: from monty-python.gnu.org ([199.232.76.173])
Packit Service f629e6
# 	by fencepost.gnu.org with esmtp (Exim 4.20)
Packit Service f629e6
# 	id 19Nm96-0001xE-1i
Packit Service f629e6
# 	for arnold@gnu.ai.mit.edu; Thu, 05 Jun 2003 00:14:36 -0400
Packit Service f629e6
# Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20)
Packit Service f629e6
# 	id 19Nm8x-0005ge-Dz
Packit Service f629e6
# 	for arnold@gnu.ai.mit.edu; Thu, 05 Jun 2003 00:14:28 -0400
Packit Service f629e6
# Received: from naughty.monkey.org ([66.93.9.164])
Packit Service f629e6
# 	by monty-python.gnu.org with esmtp (Exim 4.20)
Packit Service f629e6
# 	id 19Nm8w-0005VM-Ko
Packit Service f629e6
# 	for arnold@gnu.ai.mit.edu; Thu, 05 Jun 2003 00:14:26 -0400
Packit Service f629e6
# Received: by naughty.monkey.org (Postfix, from userid 1203)
Packit Service f629e6
# 	id C15511BA97B; Thu,  5 Jun 2003 00:14:19 -0400 (EDT)
Packit Service f629e6
# Received: from localhost (localhost [127.0.0.1])
Packit Service f629e6
# 	by naughty.monkey.org (Postfix) with ESMTP
Packit Service f629e6
# 	id BF9821BA969; Thu,  5 Jun 2003 00:14:19 -0400 (EDT)
Packit Service f629e6
# Date: Thu, 5 Jun 2003 00:14:19 -0400 (EDT)
Packit Service f629e6
# From: Jose Nazario <jose@monkey.org>
Packit Service f629e6
# To: bug-gnu-utils@prep.ai.mit.edu, arnold@gnu.ai.mit.edu,
Packit Service f629e6
#    netbsd-bugs@netbsd.org
Packit Service f629e6
# Subject: bug in gawk/gsub() (not present in nawk)
Packit Service f629e6
# Message-ID: <Pine.BSO.4.51.0306050007160.31577@naughty.monkey.org>
Packit Service f629e6
# MIME-Version: 1.0
Packit Service f629e6
# Content-Type: TEXT/PLAIN; charset=US-ASCII
Packit Service f629e6
# X-Spam-Status: No, hits=-1.2 required=5.0
Packit Service f629e6
# 	tests=SPAM_PHRASE_00_01,USER_AGENT_PINE
Packit Service f629e6
# 	version=2.41
Packit Service f629e6
# X-Spam-Level: 
Packit Service f629e6
# X-SpamBouncer: 1.4 (10/07/01)
Packit Service f629e6
# X-SBClass: OK
Packit Service f629e6
# Status: R
Packit Service f629e6
# 
Packit Service f629e6
# while playing with some tools in data massaging, i had to migrate from an
Packit Service f629e6
# openbsd/nawk system to a netbsd/gawk system. i found the folllowing
Packit Service f629e6
# behavior, which seems to be a bug.
Packit Service f629e6
# 
Packit Service f629e6
# the following gsub() pattern has a strange effect under gawk which is not
Packit Service f629e6
# visible in nawk (at least as compiled on openbsd). the intention is to
Packit Service f629e6
# take a string like "This Is a Title: My Title?" and turn it into a
Packit Service f629e6
# normalized string: "ThisIsaTitleMyTitle". to do this, i wrote the
Packit Service f629e6
# following gross gsub line in an awk script:
Packit Service f629e6
# 
Packit Service f629e6
# 	gsub(/[\ \"-\/\\:;\[\]\@\?\.\,\$]/, "", $2)
Packit Service f629e6
# 	print $2
Packit Service f629e6
# 
Packit Service f629e6
# in gawk, as found in netbsd-macppc/1.5.2, this will drop the first letter
Packit Service f629e6
# of every word. the resulting string will be "hissitleyitle", while in nawk
Packit Service f629e6
# as built on openbsd-3.3 this will get it correct.
Packit Service f629e6
# 
Packit Service f629e6
# any insights? the inconsistency with this relatively naive pattern seems a
Packit Service f629e6
# bit odd. (i would up installing nawk built from openbsd sources.)
Packit Service f629e6
# 
Packit Service f629e6
# thanks. sorry i didn't send a better bug report, netbsd folks, i'm not
Packit Service f629e6
# much of a netbsd user, and i dont have send-pr set up. yes, this is a
Packit Service f629e6
# slightly older version of netbsd and gawk:
Packit Service f629e6
# 
Packit Service f629e6
# $ uname -a
Packit Service f629e6
# NetBSD entropy 1.5.2 NetBSD 1.5.2 (GENERIC) #0: Sun Feb 10 02:00:04 EST
Packit Service f629e6
# 2002     jose@entropy:/usr/src/sys/arch/macppc/compile/GENERIC macppc
Packit Service f629e6
# $ awk --version
Packit Service f629e6
# GNU Awk 3.0.3
Packit Service f629e6
# Copyright (C) 1989, 1991-1997 Free Software Foundation.
Packit Service f629e6
# 
Packit Service f629e6
# 
Packit Service f629e6
# 
Packit Service f629e6
# thanks.
Packit Service f629e6
# 
Packit Service f629e6
# ___________________________
Packit Service f629e6
# jose nazario, ph.d.			jose@monkey.org
Packit Service f629e6
# 					http://monkey.org/~jose/
Packit Service f629e6
# 
Packit Service f629e6
# 
Packit Service f629e6
{
Packit Service f629e6
	gsub(/[\ \"-\/\\:;\[\]\@\?\.\,\$]/, "")
Packit Service f629e6
 	print
Packit Service f629e6
}