Mailing-List:	contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Unsubscribe:	<mailto:cygwin-unsubscribe-archive-cygwin=delorie DOT com AT sourceware DOT cygnus DOT com>
List-Subscribe:	<mailto:cygwin-subscribe AT sourceware DOT cygnus DOT com>
List-Archive:	<http://sourceware.cygnus.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT sourceware DOT cygnus DOT com>
List-Help:	<mailto:cygwin-help AT sourceware DOT cygnus DOT com>, <http://sourceware.cygnus.com/ml/#faqs>
Sender:	cygwin-owner AT sourceware DOT cygnus DOT com
Delivered-To:	mailing list cygwin AT sourceware DOT cygnus DOT com
Message-Id:	<199910101937.VAA08137@arnljot.lin.foa.se>
X-Mailer:	exmh version 2.0.3
To:	cygwin AT sourceware DOT cygnus DOT com
Cc:	Haobo Yu <haoboy AT isi DOT edu>, dwyatt AT sunflower DOT com
Subject:	Re: awk problems in B20.1?
In-reply-to:	chj's message of Sun, 10 Oct 1999 20:41:20 +0200.
From:	Christian =?iso-8859-1?Q?J=F6nsson?= FOA 72 <chj AT lin DOT foa DOT se>
X-face:	2tQjSw>|IA680lA7r'G9Y[jfoS>tTPw4-B#mQo_C+{6>^DWZP`o.h<N!-!iBER AT 5!"`:9^t
	~MyeXP43[]t)W-sTm)TibB_c4=**35T?X(,6,POUlqae[Aq$"zn4hN{{w@(=rYp\i=\wUyhL
X-URL:	http://www.foa.se
Mime-Version:	1.0
Date:	Sun, 10 Oct 1999 21:37:18 +0200
X-MIME-Autoconverted:	from quoted-printable to 8bit by delorie.com id JAA10665

Hmm, perhaps I should have added tha whole tcl procedure, because it's 
got a "nice" feauture, a return of the value of awkCode...


TestSuite instproc unforcedmakeawk { } {
        set awkCode {
            {
                if ($2 != prev) {
                        print " "; print "\"flow " $2;
			if ($13 > 0 && $14 > 0) {
			    print 100.0 * $9/$13, 100.0 * $10 / $14
			}
			prev = $2;
                } else if ($13 > 0 && $14 > 0) {
                        print 100.0 * $9 / $13, 100.0 * $10 / $14
		}
            }
        }
        return $awkCode
}

I suspect some kind of problem with the doublequote and/or with the 
escape char "\"...

Well, that's it for now...

/ChJ


--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe AT sourceware DOT cygnus DOT com

- Raw text -