Home / Browse / CLOCC - Common Lisp Open Code Collection / Mail / Archive

CLOCC - Common Lisp Open Code Collection

Email Archive: clocc-list (read-only)

2000:	_Jan	_Feb	_Mar (2)	_Apr (8)	_May (23)	_Jun (2)	_Jul (1)	_Aug (27)	_Sep (8)	_Oct (5)	_Nov (15)	_Dec
2001:	_Jan (7)	_Feb (6)	_Mar	_Apr (50)	_May (12)	_Jun (21)	_Jul (6)	_Aug (1)	_Sep (48)	_Oct (7)	_Nov (16)	_Dec (8)
2002:	_Jan (27)	_Feb (4)	_Mar (56)	_Apr (21)	_May (11)	_Jun (12)	_Jul (4)	_Aug (9)	_Sep (8)	_Oct (7)	_Nov (1)	_Dec
2003:	_Jan (7)	_Feb (6)	_Mar (7)	_Apr (23)	_May (4)	_Jun (7)	_Jul (9)	_Aug (2)	_Sep (7)	_Oct (8)	_Nov (6)	_Dec (7)
2004:	_Jan (2)	_Feb (24)	_Mar (11)	_Apr (4)	_May (5)	_Jun (1)	_Jul (9)	_Aug (26)	_Sep (5)	_Oct	_Nov	_Dec (10)
2005:	_Jan	_Feb (1)	_Mar (2)	_Apr (5)	_May	_Jun (4)	_Jul (8)	_Aug (21)	_Sep (5)	_Oct (1)	_Nov (1)	_Dec (3)
2006:	_Jan (13)	_Feb (1)	_Mar (3)	_Apr	_May	_Jun (5)	_Jul (2)	_Aug	_Sep (3)	_Oct (17)	_Nov (11)	_Dec (28)
2007:	_Jan (19)	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec
2008:	_Jan	_Feb	_Mar	_Apr (1)	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-19 10:19

I've just finished writing a simple little news group to mbox utility based
around a clocc using nntp client class I've written. In doing this I needed
to make use of date.lisp in cllib and have a couple of suggestions.

As part of the code I needed to write a function that would create an mbox
separator:

-- cut here ----------------------------------------------------------------
(defun write-mbox-seperator (mbox nntp article)
  (let ((date (or (ignore-errors (cllib:string->dttm (header-value (data (xhdr nntp "Date" article)))))
                  (get-universal-time))))
    (multiple-value-bind (se mi ho da mo ye dd) (decode-universal-time date 0)
      (format mbox "From group2mbox@... ~a ~a ~d ~2,'0d:~2,'0d:~2,'0d ~d ~%"
              (aref cllib::+week-days+ dd) (aref cllib::+month-names+ (1- mo)) da ho mi se ye))))
-- cut here ----------------------------------------------------------------

Three things spring to mind here. The first is that +week-days+ and
+month-names+ should probably be exported. The second is that it might be an
idea to have a couple of functions that wrap the work of turning a numeric
value into a week day name and a month name.

The third thing that I was thinking was that perhaps dttm->string could drop
the "old" parameter and instead of a "format" parameter. Perhaps it could
take a symbol describing the type of format required. So, for example, the
above formatting code could be reduced to:

,----
| (dttm->string date 'mbox)
`----

Perhaps this could be driven by a user-extendable alist of symbols with
associated formatting functions?

Thoughts?

-- 
Dave Pearson
http://www.davep.org/

Re: Couple of suggestions regarding date.lisp

From: Marco Antoniotti <marcoxa@cs...> - 2001-04-19 13:24

> From: Dave Pearson <davep@...>
> Mail-Followup-To: clocc-list@...
> Content-Type: text/plain; charset=us-ascii
> Content-Disposition: inline
> User-Agent: Mutt/1.2.5i
> Organization: (davep 'org)

> ,----
> | (dttm->string date 'mbox)
> `----
> 
> Perhaps this could be driven by a user-extendable alist of symbols with
> associated formatting functions?
> 
> Thoughts?


(defmethod string-formatting ((x (eql 'mbox)) ...) ...)
(defmethod string-formatting ((x (eql :my-special-symbol1)) ...) ...)
(defmethod string-formatting ((x (eql :my-special-symbol2)) ...) ...)

Cheers

-- 
Marco Antoniotti ========================================================
NYU Courant Bioinformatics Group	tel. +1 - 212 - 998 3488
719 Broadway 12th Floor                 fax  +1 - 212 - 995 4122
New York, NY 10003, USA			http://bioinformatics.cat.nyu.edu
	       "Hello New York! We'll do what we can!"
			Bill Murray in `Ghostbusters'.

Re: Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-19 14:53

On Thu, Apr 19, 2001 at 09:23:01AM -0400, Marco Antoniotti wrote:

> (defmethod string-formatting ((x (eql 'mbox)) ...) ...)
> (defmethod string-formatting ((x (eql :my-special-symbol1)) ...) ...)
> (defmethod string-formatting ((x (eql :my-special-symbol2)) ...) ...)

Is this a suggestion of an alternative method of controlling the formating
method used by dttm->string or are you documenting a method that already
exists?

-- 
Dave Pearson
http://www.davep.org/

Re: Couple of suggestions regarding date.lisp

From: Marco Antoniotti <marcoxa@cs...> - 2001-04-19 17:33

> From: Dave Pearson <davep@...>
> Mail-Followup-To: clocc-list@...
> Content-Type: text/plain; charset=us-ascii
> Content-Disposition: inline
> User-Agent: Mutt/1.2.5i
> Organization: (davep 'org)
> X-URL: http://www.davep.org/
> X-DDate: Prickle-Prickle, Day 36 of the season of Discord, Anno Mung 3167
> Sender: clocc-list-admin@...
> X-BeenThere: clocc-list@...
> X-Mailman-Version: 2.0.3
> Precedence: bulk
> List-Help: <mailto:clocc-list-request@...>
> List-Post: <mailto:clocc-list@...>
> List-Subscribe: <http://lists.sourceforge.net/lists/listinfo/clocc-list>,
> 	<mailto:clocc-list-request@...>
> List-Id: <clocc-list.lists.sourceforge.net>
> List-Unsubscribe: <http://lists.sourceforge.net/lists/listinfo/clocc-list>,
> 	<mailto:clocc-list-request@...>
> List-Archive: <http://lists.sourceforge.net/archives//clocc-list/>
> Date: Thu, 19 Apr 2001 15:42:29 +0100
> Content-Length: 627
> 
> On Thu, Apr 19, 2001 at 09:23:01AM -0400, Marco Antoniotti wrote:
> 
> > (defmethod string-formatting ((x (eql 'mbox)) ...) ...)
> > (defmethod string-formatting ((x (eql :my-special-symbol1)) ...) ...)
> > (defmethod string-formatting ((x (eql :my-special-symbol2)) ...) ...)
> 
> Is this a suggestion of an alternative method of controlling the formating
> method used by dttm->string or are you documenting a method that already
> exists?

It is a suggestion.  In this way you can do away with the ALIST and
all the necessary support code.  Again it is only a suggestion.  But
it works and I find it quite elegant. E.g. note

(defmethod string-formatting ((x symbol))
   (error "Don't know how to handle ~S." x))

Cheers



-- 
Marco Antoniotti ========================================================
NYU Courant Bioinformatics Group	tel. +1 - 212 - 998 3488
719 Broadway 12th Floor                 fax  +1 - 212 - 995 4122
New York, NY 10003, USA			http://bioinformatics.cat.nyu.edu
	       "Hello New York! We'll do what we can!"
			Bill Murray in `Ghostbusters'.

Re: Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-19 18:10

On Thu, Apr 19, 2001 at 01:32:09PM -0400, Marco Antoniotti wrote:
> 
> > Is this a suggestion of an alternative method of controlling the formating
> > method used by dttm->string or are you documenting a method that already
> > exists?
> 
> It is a suggestion.  In this way you can do away with the ALIST and
> all the necessary support code.  Again it is only a suggestion.  But
> it works and I find it quite elegant. E.g. note
> 
> (defmethod string-formatting ((x symbol))
>    (error "Don't know how to handle ~S." x))

Agreed, I think it looks much more elegant. The suggestion of an alist
should tell you that I write way more elisp than I do CL. <g>

-- 
Dave Pearson:                   |     lbdb.el - LBDB interface.
http://www.davep.org/           |  sawfish.el - Sawfish mode.
Emacs:                          |  uptimes.el - Record emacs uptimes.
http://www.davep.org/emacs/     | quickurl.el - Recall lists of URLs.

Re: Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-20 06:41

Attachments: date.diff

On Thu, Apr 19, 2001 at 09:23:01AM -0400, Marco Antoniotti wrote:
> 
> > ,----
> > | (dttm->string date 'mbox)
> > `----
> > 
> > Perhaps this could be driven by a user-extendable alist of symbols with
> > associated formatting functions?
> > 
> > Thoughts?
> 
> (defmethod string-formatting ((x (eql 'mbox)) ...) ...)
> (defmethod string-formatting ((x (eql :my-special-symbol1)) ...) ...)
> (defmethod string-formatting ((x (eql :my-special-symbol2)) ...) ...)

This seems to work a treat (see patch attached):

,----
| [5]> (apropos "dttm->string")
| dttm->string                               function
| cllib::dttm->string-formatter              function
| 
| [6]> (dttm->string (get-universal-time) t)
| "Fri, 20 Apr 2001 06:36:42 +0000 (GMT)"
| [7]> (dttm->string (get-universal-time))
| "2001-04-20 Fri 06:36:45 +0000 (GMT)"
| [8]> (dttm->string (get-universal-time) :mbox)
| "Fri Apr 20 06:36:49 2001"
| [9]> (dttm->string (get-universal-time) :wibble)
| 
| *** - dttm->string: No formatter available for format type `wibble'
| 1. Break [10]>
`----

Sam, any chance of the patch, or a variation on it, making it into cllib?

-- 
Dave Pearson
http://www.davep.org/

Re: Couple of suggestions regarding date.lisp

From: Marco Antoniotti <marcoxa@cs...> - 2001-04-20 13:35

> From: Dave Pearson <davep@...>
> Mail-Followup-To: clocc-list@...
> Content-Type: text/plain; charset=us-ascii
> Content-Disposition: inline
> User-Agent: Mutt/1.2.5i
> Organization: (davep 'org)
> X-URL: http://www.davep.org/
> X-DDate: Prickle-Prickle, Day 36 of the season of Discord, Anno Mung 3167
> Sender: clocc-list-admin@...
> X-BeenThere: clocc-list@...
> X-Mailman-Version: 2.0.3
> Precedence: bulk
> List-Help: <mailto:clocc-list-request@...>
> List-Post: <mailto:clocc-list@...>
> List-Subscribe: <http://lists.sourceforge.net/lists/listinfo/clocc-list>,
> 	<mailto:clocc-list-request@...>
> List-Id: <clocc-list.lists.sourceforge.net>
> List-Unsubscribe: <http://lists.sourceforge.net/lists/listinfo/clocc-list>,
> 	<mailto:clocc-list-request@...>
> List-Archive: <http://lists.sourceforge.net/archives//clocc-list/>
> Date: Thu, 19 Apr 2001 19:10:24 +0100
> Content-Length: 1091
> 
> On Thu, Apr 19, 2001 at 01:32:09PM -0400, Marco Antoniotti wrote:
> > 
> > > Is this a suggestion of an alternative method of controlling the formating
> > > method used by dttm->string or are you documenting a method that already
> > > exists?
> > 
> > It is a suggestion.  In this way you can do away with the ALIST and
> > all the necessary support code.  Again it is only a suggestion.  But
> > it works and I find it quite elegant. E.g. note
> > 
> > (defmethod string-formatting ((x symbol))
> >    (error "Don't know how to handle ~S." x))
> 
> Agreed, I think it looks much more elegant. The suggestion of an alist
> should tell you that I write way more elisp than I do CL. <g>

Allow me to be nasty here as well :)  Not only you work with Elisp
more that CL, but you also are committing a mortal sin in the eye of
the CL believer.  You do not have

    (require 'cl)

in your .emacs (and I mean, `(require ' cl)' period; not embedded in
an eval-when) :)  Am I on target? :)

Cheers


-- 
Marco Antoniotti ========================================================
NYU Courant Bioinformatics Group	tel. +1 - 212 - 998 3488
719 Broadway 12th Floor                 fax  +1 - 212 - 995 4122
New York, NY 10003, USA			http://bioinformatics.cat.nyu.edu
	       "Hello New York! We'll do what we can!"
			Bill Murray in `Ghostbusters'.

Re: Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-20 14:00

On Fri, Apr 20, 2001 at 09:33:55AM -0400, Marco Antoniotti wrote:
> 
> > [SNIP lots of headers. Why quote all of them?]
> >
> > Agreed, I think it looks much more elegant. The suggestion of an alist
> > should tell you that I write way more elisp than I do CL. <g>
> 
> Allow me to be nasty here as well :) Not only you work with Elisp more
> that CL, but you also are committing a mortal sin in the eye of the CL
> believer. You do not have
> 
>     (require 'cl)
> 
> in your .emacs (and I mean, `(require ' cl)' period; not embedded in an
> eval-when) :) Am I on target? :)

Way *way* off target. 

,----
| davep@...:~$ head -5 .emacs
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
| ;; Make use of the Common Lisp compatibility module.
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
| 
| (require 'cl)
`----

It's been like that for about as long as I've had a ~/.emacs.

-- 
Dave Pearson:                   |     lbdb.el - LBDB interface.
http://www.davep.org/           |  sawfish.el - Sawfish mode.
Emacs:                          |  uptimes.el - Record emacs uptimes.
http://www.davep.org/emacs/     | quickurl.el - Recall lists of URLs.

Re: Couple of suggestions regarding date.lisp

From: Marco Antoniotti <marcoxa@cs...> - 2001-04-20 17:58

> From: Dave Pearson <davep@...>
> Mail-Followup-To: clocc-list@...
> Content-Type: text/plain; charset=us-ascii
> Content-Disposition: inline
> User-Agent: Mutt/1.2.5i
> Organization: (davep 'org)
> Date: Fri, 20 Apr 2001 15:00:17 +0100
> Content-Length: 1363
> 
> On Fri, Apr 20, 2001 at 09:33:55AM -0400, Marco Antoniotti wrote:
> > 
> > > [SNIP lots of headers. Why quote all of them?]
> > >
> > > Agreed, I think it looks much more elegant. The suggestion of an alist
> > > should tell you that I write way more elisp than I do CL. <g>
> > 
> > Allow me to be nasty here as well :) Not only you work with Elisp more
> > that CL, but you also are committing a mortal sin in the eye of the CL
> > believer. You do not have
> > 
> >     (require 'cl)
> > 
> > in your .emacs (and I mean, `(require ' cl)' period; not embedded in an
> > eval-when) :) Am I on target? :)
> 
> Way *way* off target. 
> 
> ,----
> | davep@...:~$ head -5 .emacs
> | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> | ;; Make use of the Common Lisp compatibility module.
> | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> | 
> | (require 'cl)
> `----
> 
> It's been like that for about as long as I've had a ~/.emacs.
> 

Alright then :) I stand corrected.

On a more serious note, I must say that the number of Elisp packages
that could greatly improve should they start using DEFSTRUCT more
consistently is amazing.

Cheers


-- 
Marco Antoniotti ========================================================
NYU Courant Bioinformatics Group	tel. +1 - 212 - 998 3488
719 Broadway 12th Floor                 fax  +1 - 212 - 995 4122
New York, NY 10003, USA			http://bioinformatics.cat.nyu.edu
	       "Hello New York! We'll do what we can!"
			Bill Murray in `Ghostbusters'.

Re: Couple of suggestions regarding date.lisp

From: Dave Pearson <davep@da...> - 2001-04-21 06:46

Attachments: date.diff

On Fri, Apr 20, 2001 at 07:40:32AM +0100, Dave Pearson wrote:

> Sam, any chance of the patch, or a variation on it, making it into cllib?

I notice that a variation on that patch did make it into date.lisp (should
we monitor clocc-devel to know when things like this happen?), thanks. Can I
suggest that the mbox format be one of the provided formats (see attached)?

-- 
Dave Pearson
http://www.davep.org/

Re: Couple of suggestions regarding date.lisp

From: Sam Steingold <sds@gn...> - 2001-04-22 03:56

> * In message <20010421074114.B28537@...>
> * On the subject of "Re: Couple of suggestions regarding date.lisp"
> * Sent on Sat, 21 Apr 2001 07:41:14 +0100
> * Honorable Dave Pearson <davep@...> writes:
>
> I notice that a variation on that patch did make it into date.lisp
yes, thanks.

> (should we monitor clocc-devel to know when things like this happen?),
yes.

> thanks. Can I suggest that the mbox format be one of the provided
> formats (see attached)?

done, thanks.

-- 
Sam Steingold (http://www.podval.org/~sds)
Support Israel's right to defend herself! <http://www.i-charity.com/go/israel>
Read what the Arab leaders say to their people on <http://www.memri.org/>
MS: Brain off-line, please wait.