gmane.lisp.scheme.bigloo

Re: version querying

Mon, 30 Jun 2008 09:01:52 +0200, r.f.wolpert wrote:

> printing *bigloo-version* works for me in the interpreter... but not when compiling; then it flags an error
>
> # Unbound variable -- *bigloo-version*

Oh, yes.
Manuel, is this difference between interpreter and compiler intended?

As a workaround, you can use the undocumented (bigloo-config ...), here:

(bigloo-config  'release-number)

headers

Manuel.Serrano | 4 Jul 12:35

Re: version querying

> Oh, yes.
> Manuel, is this difference between interpreter and compiler intended?
> 
> As a workaround, you can use the undocumented (bigloo-config ...), here:
> 
> (bigloo-config  'release-number)
In general, it is a good advice to use bigloo-config (check also bigloo-config
without any parameter). I would like to get rid of these global variables
that are used as configuration constants.

--

-- 
Manuel

headers

Siegfried Gonzi | 4 Jul 13:13

one last lapack-bigloo question: pragma

hello

my lapack binding works (i will release it in the next couple of weeks). However, there is only one issue
which I wold like to ask having clarified.

Some lapack functions epect as parameter an external declared C function. This also works in Bigloo by the
following trick:

==
(module
   (library lapack)
     (export  (select_fun_la_sgees::logical x::real* y::real*))
     (extern (export select_fun_la_sgees "select_fun_la_sgees"))))

and the wrapper function:

(define
   (select_fun_la_sgees::logical x::real* y::real*)
   (if (> (real*-ref x 0) (real*-ref y 0))
       0 1))

(define fancy-wrapper
bla,bla,bla,...
      (sgees_ a b (pragma::L_fp "select_fun_la_sgees") c_ d_
		     e_ f_ g_ h_ i_ j_ k_ l_ m_ n_)))
==

HOWEVER, I have no idea how to produce "select_fun_la_sgees" when making the library itself. I would like
to export my wrapper functions when making the library itself. THE PROBLEM: the pragma function
"select_fun_la_sgees" is 'variabe'. Though it has always the same known input parameter types but the

(Continue reading)

headers

Manuel.Serrano | 4 Jul 15:46

Re: one last lapack-bigloo question: pragma

Hello Siegfried,

> my lapack binding works (i will release it in the next couple of weeks). However, there is only one issue
which I wold like to ask having clarified.
> 
> Some lapack functions epect as parameter an external declared C function. This also works in Bigloo by the
following trick:
> 
> ==
> (module
>    (library lapack)
>      (export  (select_fun_la_sgees::logical x::real* y::real*))
>      (extern (export select_fun_la_sgees "select_fun_la_sgees"))))
> 
> 
> and the wrapper function:
> 
> (define
>    (select_fun_la_sgees::logical x::real* y::real*)
>    (if (> (real*-ref x 0) (real*-ref y 0))
>        0 1))
> 
> 
> (define fancy-wrapper
> bla,bla,bla,...
>       (sgees_ a b (pragma::L_fp "select_fun_la_sgees") c_ d_
> 		     e_ f_ g_ h_ i_ j_ k_ l_ m_ n_)))
> ==
> 
> HOWEVER, I have no idea how to produce "select_fun_la_sgees" when making the library itself. I would like

(Continue reading)