[Axiom-developer] interpsys with dlopen in underlying lisp

[Gernot Hueber]

Hi,

I have managed to build interpsys with dlopen in the image.
Next step is to use dlopen, which in fact is the more interesting part.
Has anybody experience with dlopen yet?

Regards

Gernot


hawkings# /home/hueber/src/axiom--main--1--patch-49/obj/freebsd/bin/interpsys
GCL (GNU Common Lisp)  2.6.7 CLtL1    Aug  3 2006 20:14:50
Source License: LGPL(gcl,gmp), GPL(unexec,bfd)
Binary License:  GPL due to GPL'ed components: (READLINE UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.
                        AXIOM Computer Algebra System
                         Version: Axiom (April 2006)
                Timestamp: Friday August 4, 2006 at 08:25:29
-----------------------------------------------------------------------------
   Issue )copyright to view copyright notices.
   Issue )summary for a summary of useful system commands.
   Issue )quit to leave AXIOM and return to shell.
-----------------------------------------------------------------------------

   Re-reading compress.daase   Re-reading interp.daase
   Re-reading operation.daase
   Re-reading category.daase
   Re-reading browse.daase
(1) -> )lisp (load "syslisp")
symbol "nputs" is not in base image
Value = 376
(1) -> )co syslisp.lsp
   Compiling Lisp source code from file syslisp.lsp
   Issuing )library command for syslisp
   )library cannot find the file syslisp.
(1) -> )lisp (load "syslisp")
symbol "nputs" is not in base image
Value = 376
(1) -> )lisp (|dlopen| "/usr/local/lib/libxslt.so" 1)

Value = 672816128
(1) -> )lisp (|dlopen| "/usr/local/lib/libxslt1.so" 1)

Value = 0
(1) -> )lisp (|dlopen| "/usr/local/lib/libsdpa.a" 1)

Value = 0
(1) -> )q
   Please enter y or yes if you really want to leave the interactive
      environment and return to the operating system:
y
hawkings# more syslisp.lsp
(defentry |dlopen| (string int) (int "dlopen"))
(defentry |nputs| (int string) (int "nputs"))
(defentry |printf| (string) (int "printf"))