[Gcl-devel] Re: TK/TCL/GCL Help requested

[Camm Maguire]

Greetings, and thanks for the report!  Should be fixed now.  Please
let me know if problems persist.

Take care,

Robert Boyer <address@hidden> writes:

> TCL/TK seems to work here ok at UTCS.  For example, I can see cool things
> with the command:
> 
>   /lusr/lib/tk8.3/demos/widget
> 
> I'd like to play with using TCL/TL under GCL 2.7.0, but I cannot seem to get
> started.
> 
> I think that the GCL 2.7.0 build went ok -- see the partial transcript at the
> end of this file, which includes some tcl/tk related output.
> 
> But when I try the simplest things, as suggested by the GCL documentation:
> 
>       Once GCL has been properly installed you should be able to do the
>       following simple example:
> 
>       (in-package "TK")
>       (tkconnect)
> 
> I get the following nonsense:
> 
> GCL (GNU Common Lisp)  2.7.0 ANSI    Feb 27 2006 20:26:43
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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.
> Temporary directory for compiler files set to /tmp/
> 
> >      (in-package "TK")
> 
> #<"TK" package>
> 
> TK>      (tkconnect)
> 
> Loading /u/boyer/20492tmp/gcl/gcl-tk/tkl.o
> start address -T 0x88e9fe0 Finished loading /u/boyer/20492tmp/gcl/gcl-tk/tkl.o
> 
> "t 127.0.0.1 5016 16439 localhost:13.0 "sh: t: command not found
> 
> Help!
> 
> Bob
> 
> 
> -------------------------------------------------------------------------------
> Here is a part of the make of 2.7.0 near the end, which seems to me to
> show tk/tcl being built ok.
> 
> 
> make[1]: Leaving directory `/v/filer2/boyer/20492tmp/gcl/unixport'
> rm -f bin/gcl xbin/gcl
> MGCLDIR=`echo /u/boyer/20492tmp/gcl | sed -e 'sX^\([a-z]\):X/\1Xg'` ; \
> GCLDIR=`echo /u/boyer/20492tmp/gcl` ; \
> make install_command "INSTALL_LIB_DIR=$GCLDIR" "prefix=$GCLDIR" 
> "BINDIR=$MGCLDIR/unixport"
> make[1]: Entering directory `/v/filer2/boyer/20492tmp/gcl'
> rm -f bin/gcl
> (echo '#!/bin/sh' ; \
> echo exec /u/boyer/20492tmp/gcl/unixport/saved_ansi_gcl \\ ; \
> echo '   -dir' /u/boyer/20492tmp/gcl/unixport/ \\ ; \
> echo '   -libdir' /u/boyer/20492tmp/gcl/ \\ ; \
> echo '   -eval '\''(setq si::*allow-gzipped-file* t)'\' \\ ;\
> ! [ -d "/lusr/lib" ] || echo '   -eval '\''(setq si::*tk-library* 
> '\"/lusr/lib/tk8.3\"')'\' \\;\
> echo '     '\"address@hidden" ) > bin/gcl;
> echo '#' other options: -load "/tmp/foo.o" -load "jo.lsp" -eval '"(joe 3)"' 
> >> bin/gcl
> chmod a+x bin/gcl
> make[1]: Leaving directory `/v/filer2/boyer/20492tmp/gcl'
> (cd xbin ; cp ../bin/gcl .)
> cd cmpnew && make gcl_collectfn.o
> make[1]: Entering directory `/v/filer2/boyer/20492tmp/gcl/cmpnew'
> ../unixport/saved_pre_gcl ../unixport/ -compile gcl_collectfn
> 
> ;; Compiling gcl_collectfn.lsp.
> Loading ./gcl_cmpinit.lsp
> Loading ../lsp/sys-proclaim.lisp
> Finished loading ../lsp/sys-proclaim.lisp
> Loading sys-proclaim.lisp
> Finished loading sys-proclaim.lisp
> Finished loading ./gcl_cmpinit.lsp
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling gcl_collectfn.
> make[1]: Leaving directory `/v/filer2/boyer/20492tmp/gcl/cmpnew'
> if [ -d "/lusr/lib" ] ; then \
>       cd gcl-tk && make ; \
> else \
>       echo "gcl-tk not made..missing include or lib" ; \
> fi 
> make[1]: Entering directory `/v/filer2/boyer/20492tmp/gcl/gcl-tk'
> cat gcltksrv.in | sed -e "s!TK_LIBRARY=.*!TK_LIBRARY=/lusr/lib/tk8.3!g" \
> -e "s!TCL_LIBRARY=.*!TCL_LIBRARY=/lusr/lib/tcl8.3!g" \
> -e "s!TK_XLIB_DIR=.*!TK_XLIB_DIR=!g" \
> -e "s!GCL_TK_DIR=.*!GCL_TK_DIR=/u/boyer/20492tmp/gcl/gcl-tk!g" > gcltksrv
> chmod a+x gcltksrv
> cat gcltksrv.bat.in | sed -e "s!TK_LIBRARY=.*!TK_LIBRARY=/lusr/lib/tk8.3!g" \
> -e "s!TCL_LIBRARY=.*!TCL_LIBRARY=/lusr/lib/tcl8.3!g" \
> -e "s!TK_XLIB_DIR=.*!TK_XLIB_DIR=!g" \
> -e "s!GCL_TK_DIR=.*!GCL_TK_DIR=`echo /u/boyer/20492tmp/gcl | sed -e 
> 'sX^/\([a-z]\)X\1:Xg'`/gcl-tk!g" > gcltksrv.bat
> echo "(compile-file \"tkl.lisp\" :c-file nil :c-debug nil)" | 
> ../unixport/saved_ansi_gcl
> GCL (GNU Common Lisp)  2.7.0 ANSI    Feb 27 2006 20:26:43
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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.
> Temporary directory for compiler files set to /tmp/
> 
> >
> ;; Compiling tkl.lisp.
> Loading ./gcl_cmpinit.lsp
> Loading tk-package.lsp
> Finished loading tk-package.lsp
> Finished loading ./gcl_cmpinit.lsp
> Warning:
> NTH-VALUE is being redefined.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling tkl.o.
> #P"/v/filer2/boyer/20492tmp/gcl/gcl-tk/tkl.o"
> T
> T
> 
> >echo "(compile-file \"tinfo.lsp\" :c-file nil :c-debug nil)" | 
> >../unixport/saved_ansi_gcl
> GCL (GNU Common Lisp)  2.7.0 ANSI    Feb 27 2006 20:26:43
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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.
> Temporary directory for compiler files set to /tmp/
> 
> >
> ;; Compiling tinfo.lsp.
> Loading ./gcl_cmpinit.lsp
> Loading tk-package.lsp
> Finished loading tk-package.lsp
> Finished loading ./gcl_cmpinit.lsp
> ; (DEFUN SHOW-THIS-NODE ...) is being compiled.
> ;; Warning: The variable X is not used.
> ;; Warning: The variable Y is not used.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling tinfo.o.
> #P"/v/filer2/boyer/20492tmp/gcl/gcl-tk/tinfo.o"
> NIL
> NIL
> 
> >echo "(compile-file \"demos/gc-monitor.lisp\" :c-file nil :c-debug nil)" | 
> >../unixport/saved_ansi_gcl
> GCL (GNU Common Lisp)  2.7.0 ANSI    Feb 27 2006 20:26:43
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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.
> Temporary directory for compiler files set to /tmp/
> 
> >
> ;; Compiling demos/gc-monitor.lisp.
> Loading ./gcl_cmpinit.lsp
> Loading tk-package.lsp
> Finished loading tk-package.lsp
> Finished loading ./gcl_cmpinit.lsp
> ; (DEFUN DRAW-STATUS ...) is being compiled.
> ;; Warning: The variable NUSED is not used.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling demos/gc-monitor.o.
> #P"/v/filer2/boyer/20492tmp/gcl/gcl-tk/demos/gc-monitor.o"
> NIL
> NIL
> 
> >gcc -c -Wall -DVOL=volatile -fsigned-char -pipe -O3 -fomit-frame-pointer  
> >-I/u/boyer/20492tmp/gcl/o -I../o -I../h -I/lusr/lib/../include 
> >-I/lusr/lib/../include -I/lusr/X11R6/include   guis.c
> gcc -c -Wall -DVOL=volatile -fsigned-char -pipe -O3 -fomit-frame-pointer  
> -I/u/boyer/20492tmp/gcl/o -I../o -I../h -I/lusr/lib/../include 
> -I/lusr/lib/../include -I/lusr/X11R6/include   tkAppInit.c
> gcc -c -Wall -DVOL=volatile -fsigned-char -pipe -O3 -fomit-frame-pointer  
> -I/u/boyer/20492tmp/gcl/o -I../o -I../h -I/lusr/lib/../include 
> -I/lusr/lib/../include -I/lusr/X11R6/include   tkMain.c
> tkMain.c: In function `TkX_Wish':
> tkMain.c:277: warning: passing arg 4 of `Tk_ParseArgv' from incompatible 
> pointer type
> tkMain.c:329: warning: passing arg 2 of `Tcl_Merge' from incompatible pointer 
> type
> gcc guis.o tkAppInit.o tkMain.o -o gcltkaux  -L/lusr/lib -ltk8.3 
> -L/v/antivenin/v1/CVSBUILD/tk_tcl/tk/unix -ltk8.3 -L/lusr/X11R6/lib -lX11 
> -I/lusr/X11R6/include -L/lusr/lib -ltcl8.3 -ldl  -lm  -lreadline -lncurses  
> -lm ../o/gcllib.a
> (cd demos ; \
> echo '(load "../tkl.o")(TK::GET-AUTOLOADS (directory "*.lisp"))' | 
> ../../unixport/saved_ansi_gcl) 
> GCL (GNU Common Lisp)  2.7.0 ANSI    Feb 27 2006 20:26:43
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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.
> Temporary directory for compiler files set to /tmp/
> 
> >
> Loading ../tkl.o
> start address -T 0x88e9fe0 Finished loading ../tkl.o
> 57010
> 
> >
> NIL
> 
> >make[1]: Leaving directory `/v/filer2/boyer/20492tmp/gcl/gcl-tk'
> cd info && make
> make[1]: Entering directory `/v/filer2/boyer/20492tmp/gcl/info'
> makeinfo gcl-tk.texi
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah