Mailing-List: contact cygwin-help@sourceware.cygnus.com; run by ezmlm
Sender: cygwin-owner@sourceware.cygnus.com
Resent-Message-Id: <199910141653.SAA22277@arnljot.lin.foa.se>
Message-Id: <199910141653.SAA22277@arnljot.lin.foa.se>
To: cygwin@sourceware.cygnus.com
Cc: Haobo Yu <haoboy@isi.edu>, dwyatt@sunflower.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@lin.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@sourceware.cygnus.com
Resent-Date: Thu, 14 Oct 1999 18:53:10 +0200
Resent-From: Christian Jönsson FOA 72 <chj@lin.foa.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@sourceware.cygnus.com