From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/3864
Path: main.gmane.org!not-for-mail
From: larsi@ifi.uio.no (Lars Magne Ingebrigtsen)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Byte-compiling the line specs
Date: 06 Nov 1995 14:32:46 +0100
Organization: Dept. of Informatics, University of Oslo, Norway
Sender: larsi@ifi.uio.no
Message-ID: <w8senvlzx4x.fsf@narfi.ifi.uio.no>
References: <199511030126.RAA01151@desiree.teleport.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144686 27628 80.91.224.250 (20 Oct 2002 20:11:26 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:11:26 +0000 (UTC)
X-From-Line: ding-request@ifi.uio.no  Mon Nov  6 07:30:11 1995
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id HAA04794 for <steve@miranova.com>; Mon, 6 Nov 1995 07:30:09 -0800
Original-Received: from narfi.ifi.uio.no (narfi.ifi.uio.no [129.240.94.17]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <OAA16031@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 6 Nov 1995 14:32:49 +0100
Original-Received: from ) by narfi.ifi.uio.no ; Mon, 6 Nov 95 14:32:47 +0100
Original-To: ding@ifi.uio.no
In-Reply-To: Felix Lee's message of Thu, 02 Nov 1995 17:26:46 -0800
Original-Lines: 43
Xref: main.gmane.org gmane.emacs.gnus.general:3864
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:3864

Felix Lee <flee@teleport.com> writes:

> so, umm, I'll try gc monitoring soon.  but really, the best test is to
> write a full-blown format-string compiler and see how it performs in
> live cases.

Definitely.  These timings are interesting, but `(princ 99999)' isn't
a very realistic element resulting from a line spec.  There's lots of
"%5d"s (etc) but no "%d"s.  I'd be very interested in seeing timings
resulting from transforming:

(insert
 (progn
   (insert
    (format "%c%c%c%s " gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation))
   (let
       ((b
	 (point)))
     (insert
      (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines
	      (let*
		  ((val
		    (eval gnus-tmp-name))
		   (valstr
		    (if
			(numberp val)
			(int-to-string val)
		      val)))
		(if
		    (>
		     (length valstr)
		     20)
		    (substring valstr 0 20)
		  valstr))
	      gnus-tmp-closing-bracket))
     (put-text-property b
			(point)
			'mouse-face gnus-mouse-face))
   (insert
    (format " %s\n" gnus-tmp-subject-or-nil))))

-- 
Home is where the cat is.