From: Vladimir Zolotykh
Subject: '(isalnum isalpha
Date: Wed, 06 Aug 2003 11:07:26 +0000
Message-ID: <3F30E16E.1030609@eurocom.od.ua>

Hi,

Suppose I have a bundle of practically identical definitions:

   (ff:def-foreign-call isalnum ((ch :char)) :returning :int)
   (ff:def-foreign-call isalpha ((ch :char)) :returning :int)
   ....

and so forth for all functions enumerated in ctype.h.

Is it possible to automate this process ? To write something like

   (dolist (f '(isalnum isalpha #|more symbols here...|#))
     ;; something...
     )

[Sure enough, I am not going to use this is* stuff with CL
characters.]

Thanks in advance

-- 
Vladimir Zolotykh

• Re: '(isalnum isalpha Edi Weitz
• Re: '(isalnum isalpha Damien Kick

From: Edi Weitz
Subject: Re: '(isalnum isalpha
Date: Wed, 06 Aug 2003 11:21:21 +0000
Message-ID: <873cgfrpzi.fsf@bird.agharta.de>

On Wed, 06 Aug 2003 14:07:26 +0300, Vladimir Zolotykh <······@eurocom.od.ua> wrote:

> Suppose I have a bundle of practically identical definitions:
> 
>    (ff:def-foreign-call isalnum ((ch :char)) :returning :int)
>    (ff:def-foreign-call isalpha ((ch :char)) :returning :int)
>    ....
> 
> and so forth for all functions enumerated in ctype.h.
> 
> Is it possible to automate this process ? To write something like
> 
>    (dolist (f '(isalnum isalpha #|more symbols here...|#))
>      ;; something...
>      )

  (defmacro foo (&rest names)
    `(progn
      ,@(loop for name in names
              collect `(ff:def-foreign-call ,name
                          ((ch :char))
                        :returning :int))))

  (foo isalnum isalpha)

Edi.

From: Damien Kick
Subject: Re: '(isalnum isalpha
Date: Tue, 16 Sep 2003 21:52:57 +0000
Message-ID: <ov8yoopfie.fsf@email.mot.com>

Vladimir Zolotykh <······@eurocom.od.ua> writes:

> Suppose I have a bundle of practically identical definitions: [...]
> and so forth for all functions enumerated in ctype.h.
> 
> Is it possible to automate this process ?

I had looked into using something called cparse
<http://www.cliki.net/cparse> a while back but had a few problems with
it.  However, it might be worth a look for inspiration, etc.