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
Resent-Message-Id: <199910141653 DOT SAA22277 AT arnljot DOT lin DOT foa DOT se>
Message-Id: <199910141653.SAA22277@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
Content-Type: text/plain; charset=us-ascii
Date: Sun, 10 Oct 1999 21:37:18 +0200
Resent-To: cygwin AT sourceware DOT cygnus DOT com
Resent-Date: Thu, 14 Oct 1999 18:53:10 +0200
Resent-From: Christian Jönsson FOA 72 <chj AT lin DOT foa DOT se>



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 !=3D prev) {
                        print " "; print "\"flow " $2;
			if ($13 > 0 && $14 > 0) {
			    print 100.0 * $9/$13, 100.0 * $10 / $14
			}
			prev =3D $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