RE: [Gcl-devel] clines and dgemm

[Vanuxem Grégory]

Hi,

> -----Message d'origine-----
> De : Camm Maguire [mailto:address@hidden
> Envoyé : vendredi 3 juin 2005 17:59
> À : Vanuxem Grégory
> Cc : address@hidden
> Objet : Re: [Gcl-devel] clines and dgemm
>
>
> Greetings!
>
> ==================================================================
> ===========
> (clines "
> object
> array_staticp(object x) {
>    return x->a.a_self < heap_end ? Ct : Cnil;
> }
> ")
>
> (defentry %array-staticp (object) (object "array_staticp"))
>
> (defun array-staticp (x) (and (arrayp x) (%array-staticp x)))
> ==================================================================
> ===========
>
> >(compile-file "/tmp/y.l")
>
> Compiling /tmp/y.l.
> End of Pass 1.
> End of Pass 2.
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
> Finished compiling /tmp/y.l.
> #p"/tmp/y.o"
>
> >(load "/tmp/y.o")
>
> Loading /tmp/y.o
> start address -T 0x4da528 Finished loading /tmp/y.o
> 744
>
> >(array-staticp (make-array 10))
>
> NIL
>
> >(array-staticp (make-array 10 :static t))
>
> T
>
> >
> ==================================================================
> ===========
>
> But perhaps we need a standard function.
>
> Would you like to volunteer to contibute a blas and or lapack
> interface along the lines above to GCL proper?

Here is a script. I don't know cpp
but a little perl.
This script translate blas header in gcl's lisp.
It's a quickly hacked script. It contains (I think) a lot of
error. But it's a start.
Actually I have a lot of work that depends on this
script and I'll not modify it in the near future,
but probably later.

You can 'play' easily with this script (see the header).
For example 'apt-get pdl', type perldl in a shell
type 'do "path of the script"/blas.pl'.
and 'p' for print the name of every variable.

Example:

perldl
... perlDL shell v1.33 etc...
do "blas.pl"

p $c
p $lisp

more specifically,

p $defentry
p $defun


If you know perl,

foreach $_ (@wcode){
  @tcode = @{$_};


@tcode is an array that contains a line of
declaration segmented by word.
$tcode[0] => int
$tcode[1] => dgemm
$tcode[2] => char
...


If you change this script or the
output file, say me.
(same for error contained in it,
you probably better know blas and than me)


Cheers,

Greg

PS: blas.pl (script) and test.l (output) are joined.

>
> Take care,
>
> Vanuxem Grégory <address@hidden> writes:
>
> > Hi,
> >
> >
> > > Work with:
> > >
> > > (make-array *******  :static t)
> >
> > How can I know if an array is static
> > (contiguous memory) ?
> >
> > Cheers,
> >
> >
> > Greg
> >
> >
> >
> >
> >
> > _______________________________________________
> > Gcl-devel mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/gcl-devel
> >
> >
> >
>
> --
> Camm Maguire                                          address@hidden
> ==========================================================================
> "The earth is but one country, and mankind its citizens."  --  Baha'u'llah
>

test.l
Description: Binary data

blas.pl
Description: Binary data