From: David Pirotte <david@altosw.be>
To: Thien-Thi Nguyen <ttn@gnuvola.org>
Cc: guile-user@gnu.org, Sebastian Tennant <sebyte@smolny.plus.com>,
Greg Troxel <gdt@ir.bbn.com>
Subject: Re: Debian guile-1.8 and ttn guile-pg
Date: Tue, 27 May 2008 13:17:18 -0300 [thread overview]
Message-ID: <20080527131718.6ce2f415@altosw.be> (raw)
In-Reply-To: <87prr7oq3o.fsf@ambire.localdomain>
[-- Attachment #1: Type: text/plain, Size: 1447 bytes --]
Hi Thien,
Symbols need to be exported.
Here is [attached] an exemple of the actual guile-pg 0.16-4
postgres.scm file from the latest debian package.
The exports are done after the load-extension, but I am convinced it
could be done in the define-module #:export clause, could it not?
David
Le Tue, 27 May 2008 15:04:27 +0200,
Thien-Thi Nguyen <ttn@gnuvola.org> a écrit :
> ⎛⎞ Greg Troxel <gdt@ir.bbn.com>
> ⎝⎠ Tue, 27 May 2008 08:46:04 -0400
>
> > (define-module (database postgres))
> > (load-extension "/ABS/PATH/TO/libpostgres.so.0.0.0"
> > "scm_init_database_postgres_module")
>
> (I presume you are either consing up the path or substituting
> it with autoconf.)
>
> Yes, either way or even both (whatever will work).
>
> My understanding is slightly fuzzy, but I think that defines
> the guile-pg symbols in the (database postgres) module, but
> will not necessarily export them.
>
> OK.
>
> The 1.4-style module loading seems to do the equivalent of
> define-public.
>
> Yes.
>
> I did make guile-pg work with a scheme load file as you write
> above once, and I also had a number of export statements.
>
> So in addition to the above, there needs to be `define-public'
> for each proc? Can that be phrased as an `#:export' clause in
> the `define-module' form (prior to the `load-extension' call)?
>
> thi
>
>
[-- Attachment #2: postgres.scm --]
[-- Type: text/x-scheme, Size: 3594 bytes --]
;;; postgres.scm --- wrap PostgreSQL libpq
;; Guile-pg - A Guile interface to PostgreSQL
;; Copyright (C) 1999,2000,2002,2003 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; Author: Ian Grant <Ian.Grant@cl.cam.ac.uk>
;; Load the C interface functions
(define-module (database postgres))
(cond
;; maybe this is already done
((and (defined? 'pg-guile-pg-loaded) pg-guile-pg-loaded))
;; use app-module loader if there
((defined? 'make-app-module-loader)
((make-app-module-loader
(lambda (name)
(car (list
`("~A/guile-pg/0.16" ,(assq-ref %guile-build-info 'libdir)))))
(lambda (name)
`("lib~A" ,name))
(lambda (name)
`("init_~A" ,name)))
"postgres"))
;; primitive way
(else (dynamic-call
"init_postgres"
(dynamic-link
(car (list
(format #f "~A/guile-pg/0.16/libpostgres.so"
(assq-ref %guile-build-info 'libdir))))))))
(export pg-guile-pg-loaded) ; ugh
(export pg-connectdb)
(export pg-connection?)
(export pg-setdb)
(export pg-reset)
(export pg-get-client-data)
(export pg-set-client-data!)
(export pg-exec)
(export pg-result?)
(export pg-error-message)
(export pg-get-db)
(export pg-get-user)
(export pg-get-pass)
(export pg-get-host)
(export pg-get-port)
(export pg-get-tty)
(export pg-get-options)
(export pg-get-connection)
(export pg-backend-pid)
(export pg-result-status)
(export pg-ntuples)
(export pg-nfields)
(export pg-cmdtuples)
(export pg-oid-status)
(export pg-oid-value)
(export pg-fname)
(export pg-fnumber)
(export pg-ftype)
(export pg-fsize)
(export pg-getvalue)
(export pg-getlength)
(export pg-getisnull)
(export pg-binary-tuples?)
(export pg-fmod)
(export pg-guile-pg-version)
(export pg-getline)
(export pg-putline)
(export pg-endcopy)
(export pg-trace)
(export pg-untrace)
(export pg-make-print-options)
(export pg-print)
(export pg-lo-creat)
(export pg-lo-open)
(export pg-lo-unlink)
(export pg-lo-get-connection)
(export pg-lo-get-oid)
(export pg-lo-tell)
(export pg-lo-seek)
(export pg-lo-read)
(export pg-lo-import)
(export pg-lo-export)
(define-public (pg-guile-pg-module-config-stamp) "Mon Feb 25 11:12:05 EST 2008")
(define-public (pg-guile-pg-module-version) "0.16")
;; backward compatibility (not documented to encourage
;; usage of symbols in new code)
;;
;; WARNING: these will go away!
(define-public PGRES_EMPTY_QUERY 'PGRES_EMPTY_QUERY)
(define-public PGRES_COMMAND_OK 'PGRES_COMMAND_OK)
(define-public PGRES_TUPLES_OK 'PGRES_TUPLES_OK)
(define-public PGRES_COPY_OUT 'PGRES_COPY_OUT)
(define-public PGRES_COPY_IN 'PGRES_COPY_IN)
(define-public PGRES_BAD_RESPONSE 'PGRES_BAD_RESPONSE)
(define-public PGRES_NONFATAL_ERROR 'PGRES_NONFATAL_ERROR)
(define-public PGRES_FATAL_ERROR 'PGRES_FATAL_ERROR)
;;; postgres.scm ends here
next prev parent reply other threads:[~2008-05-27 16:17 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-03-29 16:34 Debian guile-1.8 and ttn guile-pg Sebastian Tennant
[not found] ` <20080329135511.68737330@altosw.be>
2008-03-30 12:11 ` Sebastian Tennant
2008-03-30 15:34 ` David Pirotte
2008-03-30 16:17 ` Sebastian Tennant
2008-03-31 19:04 ` Greg Troxel
2008-05-25 18:08 ` Thien-Thi Nguyen
2008-05-27 12:46 ` Greg Troxel
2008-05-27 13:04 ` Thien-Thi Nguyen
2008-05-27 16:17 ` David Pirotte [this message]
2008-05-28 12:29 ` Thien-Thi Nguyen
2008-05-28 19:18 ` Greg Troxel
-- strict thread matches above, loose matches on Subject: below --
2008-03-31 20:18 dsmich
2008-03-31 20:38 ` Sebastian Tennant
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20080527131718.6ce2f415@altosw.be \
--to=david@altosw.be \
--cc=gdt@ir.bbn.com \
--cc=guile-user@gnu.org \
--cc=sebyte@smolny.plus.com \
--cc=ttn@gnuvola.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).