Mark H Weaver <mhw@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.Mark H Weaver <mhw@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.Received: (at 14354) by debbugs.gnu.org; 6 May 2013 05:37:44 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 06 01:37:44 2013 Received: from localhost ([127.0.0.1]:59359 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1UZE7L-0000Ts-NX for submit <at> debbugs.gnu.org; Mon, 06 May 2013 01:37:44 -0400 Received: from mail-ob0-f182.google.com ([209.85.214.182]:37604) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from <jezreel@HIDDEN>) id 1UZE7I-0000Tg-UH for 14354 <at> debbugs.gnu.org; Mon, 06 May 2013 01:37:41 -0400 Received: by mail-ob0-f182.google.com with SMTP id eh20so2788258obb.27 for <14354 <at> debbugs.gnu.org>; Sun, 05 May 2013 22:36:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=x-received:mime-version:in-reply-to:references:from:date:message-id :subject:to:content-type; bh=AQ5fNgrffViZm1mRLUkxWS2Yms362kBqnuOgSOL2IKM=; b=WRC/a4XKPu9qr/KM8zFV00bbFxD3VEGu/yQgYtZzBlSruiOE6tTY65I4ee0zR+TiTV M3ZAVvGSQQnViaCyHtFTbvnIqPMNiIBqC2GbCRX6kxGKfYC7rUk33SpcHQAeJ29kEcoz dn9M4VHqksd/6oWQtpRb+oQ227tLpoCokacXG1ZK+YsIxYmt0/hNsPd/3hB6jKXs8FHl 3ha22sOuhRChmsDIOaGOI3dy5nrX2a04rrQbC8KfpuUvV2X+FalkD7ZutZS0JslUvSRz eL+8epjP4cnlbX+7Qu3EbIHtXa+6YmvKfWhDmt75+xdwdf7CftLhpotB0OHWCgTjrefb GdEQ== X-Received: by 10.182.19.168 with SMTP id g8mr5016699obe.21.1367818604879; Sun, 05 May 2013 22:36:44 -0700 (PDT) MIME-Version: 1.0 Received: by 10.76.125.3 with HTTP; Sun, 5 May 2013 22:36:24 -0700 (PDT) In-Reply-To: <CABVpgLUaetbMk5HEd9ZGx1QFZoV+x23mZoiGZLYEqJCDNJ2yEA@HIDDEN> References: <CABVpgLWn85Y0AguCURLWtyJLtFKcj2DyWJUQ_BX+zu5Oe--etw@HIDDEN> <CABVpgLUaetbMk5HEd9ZGx1QFZoV+x23mZoiGZLYEqJCDNJ2yEA@HIDDEN> From: Jez <jezreel@HIDDEN> Date: Mon, 6 May 2013 01:36:24 -0400 Message-ID: <CABVpgLXsEXDR4LK1RwQ_SJ_xrKy+zvLMdMZcXD=RUyF-8MZBOg@HIDDEN> Subject: Re: bug#14354: Implement array-fold and array-fold-all To: 14354 <at> debbugs.gnu.org Content-Type: multipart/alternative; boundary=001a11c2c4000ff47004dc061646 X-Spam-Score: -0.7 (/) X-Debbugs-Envelope-To: 14354 X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Sender: debbugs-submit-bounces <at> debbugs.gnu.org Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org X-Spam-Score: -2.6 (--) --001a11c2c4000ff47004dc061646 Content-Type: text/plain; charset=ISO-8859-1 Ah, I reread my code and realized that I could compare array-types using eq? instead of equals?. I'll change that once I get feedback on the current patch. Jez On Mon, May 6, 2013 at 1:23 AM, Jez <jezreel@HIDDEN> wrote: > Right now there are no library functions for folding over arrays (or > bytevectors, etc.) This implements them. fold-all produces a single value > regardless of the number of dimensions of the array; it is implemented on > top of array-for-each. array-fold produces an array of rank n-1, where n is > the rank of the original array. > > I'll write up documentation if the code looks acceptable. > > Regards, > Jez > > --001a11c2c4000ff47004dc061646 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Ah, I reread my code and realized that I could compare array-types using eq= ? instead of equals?. I'll change that once I get feedback on the curre= nt patch.<div><br clear=3D"all"><div>Jez</div> <br><br><div class=3D"gmail_quote">On Mon, May 6, 2013 at 1:23 AM, Jez <spa= n dir=3D"ltr"><<a href=3D"mailto:jezreel@HIDDEN" target=3D"_blank">je= zreel@HIDDEN</a>></span> wrote:<br><blockquote class=3D"gmail_quote" = style=3D"margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> Right now there are no library functions for folding over arrays (or byteve= ctors, etc.) This implements them. fold-all produces a single value regardl= ess of the number of dimensions of the array; it is implemented on top of a= rray-for-each. array-fold produces an array of rank n-1, where n is the ran= k of the original array.<br> <div class=3D"gmail_quote"><div> <br></div><div>I'll write up documentation if the code looks acceptable= .<br><div><br></div><div>Regards,<br clear=3D"all"><div>Jez</div> </div></div> </div><br> </blockquote></div><br></div> --001a11c2c4000ff47004dc061646--
bug-guile@HIDDEN:bug#14354; Package guile.
Full text available.Received: (at submit) by debbugs.gnu.org; 6 May 2013 05:25:08 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 06 01:25:08 2013 Received: from localhost ([127.0.0.1]:59351 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1UZDvA-00081o-BF for submit <at> debbugs.gnu.org; Mon, 06 May 2013 01:25:08 -0400 Received: from eggs.gnu.org ([208.118.235.92]:33603) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from <jezreel@HIDDEN>) id 1UZDv8-00081d-I8 for submit <at> debbugs.gnu.org; Mon, 06 May 2013 01:25:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <jezreel@HIDDEN>) id 1UZDuE-0003n2-AH for submit <at> debbugs.gnu.org; Mon, 06 May 2013 01:24:11 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-100.7 required=5.0 tests=BAYES_40,FREEMAIL_FROM, HTML_MESSAGE,RCVD_IN_DNSWL_LOW,T_DKIM_INVALID,USER_IN_WHITELIST autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:45534) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <jezreel@HIDDEN>) id 1UZDuE-0003my-6l for submit <at> debbugs.gnu.org; Mon, 06 May 2013 01:24:10 -0400 Received: from eggs.gnu.org ([208.118.235.92]:44963) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <jezreel@HIDDEN>) id 1UZDuD-0003tI-4E for bug-guile@HIDDEN; Mon, 06 May 2013 01:24:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <jezreel@HIDDEN>) id 1UZDuC-0003mk-Al for bug-guile@HIDDEN; Mon, 06 May 2013 01:24:09 -0400 Received: from mail-oa0-f48.google.com ([209.85.219.48]:38175) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <jezreel@HIDDEN>) id 1UZDuC-0003me-4R for bug-guile@HIDDEN; Mon, 06 May 2013 01:24:08 -0400 Received: by mail-oa0-f48.google.com with SMTP id i4so799643oah.21 for <bug-guile@HIDDEN>; Sun, 05 May 2013 22:24:07 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=x-received:mime-version:in-reply-to:references:from:date:message-id :subject:to:content-type; bh=dpZlJegGALg2REiweEtkc3G/kvAl8//TFZ/D1jwaMdU=; b=wf36wpklw+VIS2kUtFTcQ6zlQu3rkCjkZZ9zZAdYo0PI21hQQiCtZy50kXL9j7ON8+ sBvgfw7n7l+3jc+BCyZmgeOQ4eSLngJndvFQWaf+TRdUKqAsbS/M3S3eg3QuOzfqp+Qe GnWvAH0kLykSGKStElT0Cm9qQnOvuiSXf0Isy1IN+Ba+BY9QwUx89rF7jV+5Lwh2XKKO Y1uTiEGflN919/mIu30Fp2d6gAvHklhG+dTIJJRsFrY721iiTG20Lie3pR2C/mBKRkR4 L/JpTZEm6vJxt64gcKNh6ROOBg6lxkDMt4ECnxA4WQ0ze5b4ac92KWVJY2SL9SaTJsEE aP1g== X-Received: by 10.60.145.169 with SMTP id sv9mr4960679oeb.109.1367817847188; Sun, 05 May 2013 22:24:07 -0700 (PDT) MIME-Version: 1.0 Received: by 10.76.125.3 with HTTP; Sun, 5 May 2013 22:23:46 -0700 (PDT) In-Reply-To: <CABVpgLWn85Y0AguCURLWtyJLtFKcj2DyWJUQ_BX+zu5Oe--etw@HIDDEN> References: <CABVpgLWn85Y0AguCURLWtyJLtFKcj2DyWJUQ_BX+zu5Oe--etw@HIDDEN> From: Jez <jezreel@HIDDEN> Date: Mon, 6 May 2013 01:23:46 -0400 Message-ID: <CABVpgLUaetbMk5HEd9ZGx1QFZoV+x23mZoiGZLYEqJCDNJ2yEA@HIDDEN> Subject: Implement array-fold and array-fold-all To: bug-guile <bug-guile@HIDDEN> Content-Type: multipart/mixed; boundary=047d7b5d9693e6359104dc05e812 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 208.118.235.17 X-Spam-Score: -4.2 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Sender: debbugs-submit-bounces <at> debbugs.gnu.org Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org X-Spam-Score: -6.1 (------) --047d7b5d9693e6359104dc05e812 Content-Type: multipart/alternative; boundary=047d7b5d9693e6358f04dc05e810 --047d7b5d9693e6358f04dc05e810 Content-Type: text/plain; charset=ISO-8859-1 Right now there are no library functions for folding over arrays (or bytevectors, etc.) This implements them. fold-all produces a single value regardless of the number of dimensions of the array; it is implemented on top of array-for-each. array-fold produces an array of rank n-1, where n is the rank of the original array. I'll write up documentation if the code looks acceptable. Regards, Jez --047d7b5d9693e6358f04dc05e810 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Right now there are no library functions for folding over arrays (or byteve= ctors, etc.) This implements them. fold-all produces a single value regardl= ess of the number of dimensions of the array; it is implemented on top of a= rray-for-each. array-fold produces an array of rank n-1, where n is the ran= k of the original array.<br> <div class=3D"gmail_quote"><div> <br></div><div>I'll write up documentation if the code looks acceptable= .<br><div><br></div><div>Regards,<br clear=3D"all"><div>Jez</div> </div></div> </div><br> --047d7b5d9693e6358f04dc05e810-- --047d7b5d9693e6359104dc05e812 Content-Type: application/octet-stream; name="0001-Implement-array-fold-and-array-fold-all.patch" Content-Disposition: attachment; filename="0001-Implement-array-fold-and-array-fold-all.patch" Content-Transfer-Encoding: base64 X-Attachment-Id: f_hgd3crxo0 RnJvbSA5NDVjZDk4MzViYzNiN2M3NzliOWM1MGMxMjJlNmEzZDNlZmYxMGJkIE1vbiBTZXAgMTcg MDA6MDA6MDAgMjAwMQpGcm9tOiBKZXogTmcgPG1lQGplem5nLmNvbT4KRGF0ZTogU3VuLCA1IE1h eSAyMDEzIDIzOjI1OjEzIC0wNDAwClN1YmplY3Q6IFtQQVRDSF0gSW1wbGVtZW50IGFycmF5LWZv bGQgYW5kIGFycmF5LWZvbGQtYWxsLgoKLS0tCiBtb2R1bGUvaWNlLTkvYm9vdC05LnNjbSAgICAg IHwgMzcgKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKwogdGVzdC1zdWl0ZS90 ZXN0cy9hcnJheXMudGVzdCB8IDMzICsrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKwog MiBmaWxlcyBjaGFuZ2VkLCA3MCBpbnNlcnRpb25zKCspCgpkaWZmIC0tZ2l0IGEvbW9kdWxlL2lj ZS05L2Jvb3QtOS5zY20gYi9tb2R1bGUvaWNlLTkvYm9vdC05LnNjbQppbmRleCBmMWZkMDQxLi4z MDllOWRmIDEwMDY0NAotLS0gYS9tb2R1bGUvaWNlLTkvYm9vdC05LnNjbQorKysgYi9tb2R1bGUv aWNlLTkvYm9vdC05LnNjbQpAQCAtMTEyNSw2ICsxMTI1LDQzIEBAIFZBTFVFLiIKICAgKG1hcCAo bGFtYmRhIChpbmQpIChpZiAobnVtYmVyPyBpbmQpIChsaXN0IDAgKCsgLTEgaW5kKSkgaW5kKSkK ICAgICAgICAoYXJyYXktZGltZW5zaW9ucyBhKSkpCiAKKyhkZWZpbmUgKGFycmF5LWZvbGQtYWxs IHByb2MgaW5pdCAuIGFycmF5cykKKyAgKGFwcGx5IGFycmF5LWZvci1lYWNoCisgICAgICAgICAo bGFtYmRhIGVsZW1lbnRzCisgICAgICAgICAgIChzZXQhIGluaXQgKGFwcGx5IHByb2MgKGFwcGVu ZCEgZWxlbWVudHMgYCgsaW5pdCkpKSkpCisgICAgICAgICBhcnJheXMpCisgIGluaXQpCisKKyhk ZWZpbmUgKGFycmF5LWZvbGQgcHJvYyBpbml0IC4gYXJyYXlzKQorICAoZGVmaW5lIHNoYXBlIChh cnJheS1zaGFwZSAoY2FyIGFycmF5cykpKQorICAoZGVmaW5lIHR5cGUgKGFycmF5LXR5cGUgKGNh ciBhcnJheXMpKSkKKyAgKHVubGVzcyAoPiAobGVuZ3RoIHNoYXBlKSAxKQorICAgIChlcnJvciAi YXJyYXktZm9sZCBtdXN0IGJlIGNhbGxlZCBvbiBhcnJheXMgd2l0aCBvZiBhdCBsZWFzdCByYW5r IDIiKSkKKyAgKGZvci1lYWNoIChsYW1iZGEgKGEpCisgICAgICAgICAgICAgICh1bmxlc3MgKGVx dWFsPyBzaGFwZSAoYXJyYXktc2hhcGUgYSkpCisgICAgICAgICAgICAgICAgKGVycm9yICJhcnJh eSBzaGFwZSBtaXNtYXRjaCIpKQorICAgICAgICAgICAgICAodW5sZXNzIChlcXVhbD8gdHlwZSAo YXJyYXktdHlwZSBhKSkKKyAgICAgICAgICAgICAgICAoZXJyb3IgImFycmF5IHR5cGUgbWlzbWF0 Y2giKSkpCisgICAgICAgICAgICAoY2RyIGFycmF5cykpCisgIChsZXQgKChyZXN1bHQgKGFwcGx5 IG1ha2UtdHlwZWQtYXJyYXkKKyAgICAgICAgICAgICAgICAgICAgICAgdHlwZQorICAgICAgICAg ICAgICAgICAgICAgICAoYXBwbHk6bmNvbmMybGFzdAorICAgICAgICAgICAgICAgICAgICAgICAg YCgwICwobGlzdC1oZWFkIHNoYXBlICgtIChsZW5ndGggc2hhcGUpIDEpKSkpKSkpCisgICAgKGFy cmF5LWluZGV4LW1hcCEKKyAgICAgcmVzdWx0CisgICAgIChsYW1iZGEgaW5kaWNlcworICAgICAg IChhcHBseSBhcnJheS1mb2xkLWFsbAorICAgICAgICAgICAgICBwcm9jCisgICAgICAgICAgICAg IGluaXQKKyAgICAgICAgICAgICAgKG1hcAorICAgICAgICAgICAgICAgKGxhbWJkYSAoYSkKKyAg ICAgICAgICAgICAgICAgKG1ha2Utc2hhcmVkLWFycmF5CisgICAgICAgICAgICAgICAgICBhCisg ICAgICAgICAgICAgICAgICAobGFtYmRhIChpKSAoYXBwZW5kIGluZGljZXMgYCgsaSkpKQorICAg ICAgICAgICAgICAgICAgKGNhciAobGFzdC1wYWlyIHNoYXBlKSkpKQorICAgICAgICAgICAgICAg YXJyYXlzKSkpKQorICAgIHJlc3VsdCkpCisKIAwKIAogOzs7IHtLZXl3b3Jkc30KZGlmZiAtLWdp dCBhL3Rlc3Qtc3VpdGUvdGVzdHMvYXJyYXlzLnRlc3QgYi90ZXN0LXN1aXRlL3Rlc3RzL2FycmF5 cy50ZXN0CmluZGV4IDBiM2Q1N2MuLmE2NjEwYjYgMTAwNjQ0Ci0tLSBhL3Rlc3Qtc3VpdGUvdGVz dHMvYXJyYXlzLnRlc3QKKysrIGIvdGVzdC1zdWl0ZS90ZXN0cy9hcnJheXMudGVzdApAQCAtNjc4 LDMgKzY3OCwzNiBAQAogICAgICAgICAgICAgICAgICAgICAgI3UzMigyIDMpKSkKICAgICAocGFz cy1pZiAoZXF1YWw/IChhcnJheS1yZWYgKGFycmF5LXJvdyBhcnJheSAxKSAwKQogICAgICAgICAg ICAgICAgICAgICAgMikpKSkKKworOzs7Cis7OzsgYXJyYXktZm9sZAorOzs7CisKKyhkZWZpbmUg ZXhjZXB0aW9uOnNoYXBlLW1pc21hdGNoCisgIChjb25zICdtaXNjLWVycm9yICJhcnJheSBzaGFw ZSBtaXNtYXRjaCIpKQorCisoZGVmaW5lIGV4Y2VwdGlvbjp0eXBlLW1pc21hdGNoCisgIChjb25z ICdtaXNjLWVycm9yICJhcnJheSB0eXBlIG1pc21hdGNoIikpCisKKyhkZWZpbmUgZXhjZXB0aW9u Omluc3VmZmljaWVudC1yYW5rCisgIChjb25zICdtaXNjLWVycm9yICJhcnJheS1mb2xkIG11c3Qg YmUgY2FsbGVkIG9uIGFycmF5cyB3aXRoIG9mIGF0IGxlYXN0IHJhbmsgMiIpKQorCisobGV0ICgo YTEgIzJ1MzIoKDAgMSkgKDIgMykpKQorICAgICAgKGEyICMydTMyKCg0IDUpICg2IDcpKSkKKyAg ICAgIChhMyAjMnUzMigoOCA5KSkpCisgICAgICAoYTQgIzJ1MTYoKDEwIDExKSkpCisgICAgICAo YTUgI3UxNigxMiAxMyAxNCkpKQorICAod2l0aC10ZXN0LXByZWZpeCAiYXJyYXktZm9sZCBhbmQg YXJyYXktZm9sZC1hbGwiCisgICAgKHBhc3MtaWYgKGVxdWFsPyAoYXJyYXktZm9sZCArIDAgYTEp CisgICAgICAgICAgICAgICAgICAgICAjdTMyKDEgNSkpKQorICAgIChwYXNzLWlmIChlcXVhbD8g KGFycmF5LWZvbGQgKyAwIGEyKQorICAgICAgICAgICAgICAgICAgICAgI3UzMig5IDEzKSkpCisg ICAgKHBhc3MtaWYgKGVxdWFsPyAoYXJyYXktZm9sZCArIDAgYTEgYTIpCisgICAgICAgICAgICAg ICAgICAgICAjdTMyKDEwIDE4KSkpCisgICAgKHBhc3MtaWYgKGVxdWFsPyAoYXJyYXktZm9sZC1h bGwgKyAwIGExIGEyKSAyOCkpCisgICAgKHBhc3MtaWYtZXhjZXB0aW9uICJ3cm9uZyBzaGFwZSIg ZXhjZXB0aW9uOnNoYXBlLW1pc21hdGNoCisgICAgICAoYXJyYXktZm9sZCArIDAgYTEgYTMpKQor ICAgIChwYXNzLWlmLWV4Y2VwdGlvbiAid3JvbmcgdHlwZSIgZXhjZXB0aW9uOnR5cGUtbWlzbWF0 Y2gKKyAgICAgIChhcnJheS1mb2xkICsgMCBhMyBhNCkpCisgICAgKHBhc3MtaWYtZXhjZXB0aW9u ICJpbnN1ZmZpY2llbnQgcmFuayIgZXhjZXB0aW9uOmluc3VmZmljaWVudC1yYW5rCisgICAgICAo YXJyYXktZm9sZCArIDAgYTUpKSkpCi0tIAoxLjguMi4yCgo= --047d7b5d9693e6359104dc05e812--
Jez <jezreel@HIDDEN>:bug-guile@HIDDEN.
Full text available.bug-guile@HIDDEN:bug#14354; Package guile.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.