Re: [dev-serveez] Guile test program

[stefan]

On Mon, 8 Jan 2001, Martin Grabmueller wrote:

> I have written the test program Stefan requested.  It initializes the
> Guile library, defines some variables and a procedure and sources a
> config file.  In order to build it, I had to do the following: 
> 
>   gcc -o test-guile test-guile.c -L/usr/local/lib -lguile
> 
> Then (with config.scm in the current directory), run it:
> 
> address@hidden (~/guile): ./test-guile 
> defining server `fakeident-server1' of type `fakeident'
> defining server `tunnel-server1' of type `tunnel'
> defining server `tunnel-server2' of type `tunnel'
> ** Welcome to Serveez 0.0.20 using Guile 1.4.1 (debugging enabled) 
> * This is the Win32 port, good luck.
> 
> (Of course this was not really the win32 port, I just set the variable
> to 1).
> 
> The C program and the config file are attached.  It should build with
> Guile 1.3 and 1.4.  If anyone has questions about it, feel free to
> ask, as always.

Well, I made up an (almost complete) port of Guile 1.4 to Win32. You can
download it from
<http://www.textsure.net/~ela/download/MinGW/guile-1.4-20010110.zip>. I
guess Martin is very interested in it to feel home at Windoze... The
package has been configured with 

./configure --disable-posix --disable-regex --disable-debug-malloc \
            --disable-debug-freelist --with-modules --enable-guile-debug \
            --without-threads --enable-ltdl-convenience \
            --cache-file=config.cache

The test program Martin wrote behaves like that:

========================================================================

C:\home\test>gcc -D__GUILE_IMPORT__ -I/temp/local/include -o test-guile
test-guile.c -L/temp/local/lib -lguile

C:\home\test>test-guile
ERROR: In procedure primitive-load-path:
ERROR: Unable to find file "ice-9/boot-9.scm" in load path

C:\home\test>set GUILE_LOAD_PATH=c:\home\test

C:\home\test>test-guile
defining server `fakeident-server1' of type `fakeident'
defining server `tunnel-server1' of type `tunnel'
defining server `tunnel-server2' of type `tunnel'
** Welcome to Serveez 0.0.20 using Guile 1.4 (debugging enabled)
* This is the Win32 port, good luck.

C:\home\test>ls -la ice-9
total 96
drwxrwxrwx   1 Win32    Mingw32         0 Jan  9 16:27 .
drwxrwxrwx   1 Win32    Mingw32         0 Jan  9 01:00 ..
-rw-rw-rw-   1 Win32    Mingw32      2913 Jan  9 11:42 arrays.scm
-rw-rw-rw-   1 Win32    Mingw32     82298 Jan  9 11:42 boot-9.scm
-rw-rw-rw-   1 Win32    Mingw32      2900 Jan  9 11:42 networking.scm
-rw-rw-rw-   1 Win32    Mingw32      8420 Jan  9 11:42 r4rs.scm

========================================================================

This means guile requires a full installation in the default path
"/usr/local" or the GUILE_LOAD_PATH set to some appropriate with at least
the files listed above in it.

The port has been done using the Cygwin environment but actually using the
MinGW gcc compiler. It also works fine with the MS Visual C++ compiler.

Finally i can state that Guile integration into Serveez works on Linux as
well as on Windows 95.

address@hidden