gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Gcl-devel] Is GCL-TK broken ?


From: Vadim V. Zhytnikov
Subject: Re: [Gcl-devel] Is GCL-TK broken ?
Date: Fri, 11 Jul 2003 09:23:44 +0300
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.4) Gecko/20030630

I'll try this but I bet it won't work.
I'll already tried similar thing but other way around
replacing two problematic calls (open-named-socket 0 nil) in
tkl.lisp by (open-named-socket 0).  Natuarlly arg count
error gone but I finished with some nasty
"memory may be damaged" error.

There is a simple test in gcl-tk documentation (take a look)

1. start gcl
2. say (in-package "TK")
3. say (tkconnect)

Originally this faled to me due to absence of
/gcl-tk/tkl.o in my GCL build.  It is turned
out that configure can't locate my TCL/Tk configuration
files. So I supplied them maually and all required
things were build in /gcl-tk.  But even after this
I don't see that GCL-TK package works.

Could you try this test on Debian?

Camm Maguire:

Hi Vadim!  Could you please try the patch below?  How are you testing
this?

Take care,

=============================================================================
RCS file: /cvsroot/gcl/gcl/o/sockets.c,v
retrieving revision 1.8
diff -u -r1.8 sockets.c
--- sockets.c   1 Mar 2003 22:37:37 -0000       1.8
+++ sockets.c   10 Jul 2003 23:25:47 -0000
@@ -101,7 +101,7 @@
 #define BIND_LAST_ADDRESS      65534
 static unsigned int iLastAddressUsed = BIND_INITIAL_ADDRESS;
-DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSopen_named_socket,SI,1,1,NONE,OI,OO,OO,OO,(fixnum port),
+DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSopen_named_socket,SI,2,2,NONE,OI,OO,OO,OO,(fixnum
 port),
 "Open a socket on PORT and return (cons fd portname) where file \
 descriptor is a small fixnum which is the write file descriptor for \
the socket. If PORT is zero do automatic allocation of port") =============================================================================

"Vadim V. Zhytnikov" <address@hidden> writes:


I just tried a simple example from
the very beginning of gcl-tk.info:

>(in-package "tk")
>(tkcoonect)

It fails with message that si::open-named-socked
must have less than two arguments.  Indeed,
in /gcl-tk/tkl.lisp this function is invoked as
(si::open-named-socket 0 nil) while in socket.c
it is defined with 1 argument.

Anyone tried gcl-tk?  Any success?
It seems that at present TK package is broken.


--
     Vadim V. Zhytnikov

      <address@hidden>
     <address@hidden>






reply via email to

[Prev in Thread] Current Thread [Next in Thread]