Re: slib with guile 1.9.7

Re: slib with guile 1.9.7

[Ludovic Courtès]

Hello,

[Adding Cc: bug-guile since it’s relevant.]

Aubrey Jaffer <agj@alum.mit.edu> writes:

>  | Date: Mon, 1 Feb 2010 17:37:50 +0100
>  | From: Petr Gajdos <pgajdos@suse.cz>
>  | 
>  | On Thu, Jan 28, 2010 at 08:59:33PM -0500, Aubrey Jaffer wrote:
>  | > [...]
>  | > 
>  | > Okay.  I conditionalized the 3 forms on guile-2.  I also repaired
>  | > "guile.init" for Guile-1.8.6, the version my Fedora-11 system runs.
>  | > 
>  | > The development version is updated:
>  | > http://groups.csail.mit.edu/mac/ftpdir/users/jaffer/slib.zip
>  | > Also, the CVS repository is updated:
>  | > https://savannah.gnu.org/cvs/?group=slib
>  | > 
>  | > Please try it out and see if it works for Guile-1.9.
>  | 
>  | Strictly following guile manual [1] I get with guile-1.9.7
>  | 
>  | laura:/usr/share/guile/1.9 # guile --no-autocompile -c "(use-modules (ice-9 slib))"
>  | ERROR: In procedure sc-expand:
>  | ERROR: definition in expression context in subform `browse-url' of
>  | `(lambda (url)
>  |   (define (try cmd end)
>  |     (zero? (system (string-append cmd url end))))
>  |   (or (try "netscape-remote -remote 'openURL(" ")'")
>  |       (try "netscape -remote 'openURL(" ")'")
>  |       (try "netscape '" "'&")
>  |       (try "netscape '" "'")))
>  | '
>
> Does Guile's syncase not support internal function definitions?
>
> Does either of these definitions work?
>
> (if (not (defined? 'browse-url))
>     (define (browse-url url)
>       (define try
> 	(lambda (cmd end) (zero? (system (string-append cmd url end)))))
>       (or (try "netscape-remote -remote 'openURL(" ")'")
> 	  (try "netscape -remote 'openURL(" ")'")
> 	  (try "netscape '" "'&")
> 	  (try "netscape '" "'"))))
>
> (if (not (defined? 'browse-url))
>     (define (browse-url url)
>       (letrec ((try
> 		(lambda (cmd end)
> 		  (zero? (system (string-append cmd url end))))))
> 	(or (try "netscape-remote -remote 'openURL(" ")'")
> 	    (try "netscape -remote 'openURL(" ")'")
> 	    (try "netscape '" "'&")
> 	    (try "netscape '" "'")))))

No:

  scheme@(guile-user)> (if (not (defined? 'foo))(define foo 2))
  Throw to key `syntax-error':
  ERROR: In procedure sc-expand:
  ERROR: definition in expression context in subform `foo' of `2'

I wonder whether we should hack ‘if’ to support this idiom, for backward
compatibility, since it used to be relatively common.

At any rate, the following should work both with 1.8 and 2.0 (and
probably older versions):

  (if (not (defined? 'foo))
      (module-define! (current-module) 'foo 2))

Thanks,
Ludo’.

Re: slib with guile 1.9.7

[Aubrey Jaffer]

 | From: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=)
 | Date: Tue, 02 Feb 2010 23:17:27 +0100
 | 
 | ...
 | 
 |   scheme@(guile-user)> (if (not (defined? 'foo))(define foo 2))
 |   Throw to key `syntax-error':
 |   ERROR: In procedure sc-expand:
 |   ERROR: definition in expression context in subform `foo' of `2'
 | 
 | I wonder whether we should hack ‘if’ to support this idiom, for
 | backward compatibility, since it used to be relatively common.
 | 
 | At any rate, the following should work both with 1.8 and 2.0 (and
 | probably older versions):
 | 
 |   (if (not (defined? 'foo))
 |       (module-define! (current-module) 'foo 2))

I have unconditionalized the definitions for browse-url,
vector->array, array->vector, and random:chunk in slib/guile.init.

The development version is updated:
http://groups.csail.mit.edu/mac/ftpdir/users/jaffer/slib.zip

Also, the CVS repository is updated:
https://savannah.gnu.org/cvs/?group=slib

Re: slib with guile 1.9.7

[Aubrey Jaffer]

I am trying to build guile-1.9.7 on Fedora 11.

  > uname -a
  Linux localhost.localdomain 2.6.30.10-105.2.16.fc11.i586 #1 SMP Thu Feb 4 15:40:52 UTC 2010 i686 i686 i386 GNU/Linux

After installing the external libraries and configuring, I get the
following link error:

  ...
  libtool: link: gcc -std=gnu99 -Wall -Wmissing-prototypes -Wdeclaration-after-statement -Wundef -Wswitch-enum -fvisibility=hidden -g -O2 -o .libs/guile guile-guile.o  ./.libs/libguile.so -lgmp -lgc -lunistring -lcrypt -lm -lltdl -Wl,-rpath -Wl,/usr/local/lib
  ./.libs/libguile.so: undefined reference to `GC_local_malloc'
  ./.libs/libguile.so: undefined reference to `GC_local_malloc_atomic'
  collect2: ld returned 1 exit status
  make[3]: *** [guile] Error 1
  make[3]: Leaving directory `/usr/local/src/guile-1.9.7/libguile'
  make[2]: *** [all] Error 2
  make[2]: Leaving directory `/usr/local/src/guile-1.9.7/libguile'
  make[1]: *** [all-recursive] Error 1
  make[1]: Leaving directory `/usr/local/src/guile-1.9.7'
  make: *** [all] Error 2

  Compilation exited abnormally with code 2 at Thu Feb 11 16:45:36

Re: slib with guile 1.9.7

[Aubrey Jaffer]

gc info:

rpm -qil gc gc-devel
Name        : gc                           Relocations: (not relocatable)
Version     : 7.1                               Vendor: Fedora Project
Release     : 7.fc11                        Build Date: Tue 24 Feb 2009 02:49:44 PM EST
Install Date: Thu 11 Feb 2010 04:40:10 PM EST      Build Host: x86-5.fedora.phx.redhat.com
Group       : System Environment/Libraries   Source RPM: gc-7.1-7.fc11.src.rpm
Size        : 354647                           License: BSD
Signature   : RSA/8, Wed 11 Mar 2009 01:06:43 AM EDT, Key ID 1dc5c758d22e77f2
Packager    : Fedora Project
URL         : http://www.hpl.hp.com/personal/Hans_Boehm/gc/
Summary     : A garbage collector for C and C++
Description :
The Boehm-Demers-Weiser conservative garbage collector can be
used as a garbage collecting replacement for C malloc or C++ new.
/usr/lib/libcord.so.1
/usr/lib/libcord.so.1.0.3
/usr/lib/libgc.so.1
/usr/lib/libgc.so.1.0.3
/usr/lib/libgccpp.so.1
/usr/lib/libgccpp.so.1.0.3
/usr/share/doc/gc-7.1
/usr/share/doc/gc-7.1/README
/usr/share/doc/gc-7.1/README.changes
/usr/share/doc/gc-7.1/README.contributors
/usr/share/doc/gc-7.1/README.environment
/usr/share/doc/gc-7.1/README.linux

Re: slib with guile 1.9.7

[Ludovic Courtès]

Hi Aubrey,

Aubrey Jaffer <agj@alum.mit.edu> writes:

>   libtool: link: gcc -std=gnu99 -Wall -Wmissing-prototypes -Wdeclaration-after-statement -Wundef -Wswitch-enum -fvisibility=hidden -g -O2 -o .libs/guile guile-guile.o  ./.libs/libguile.so -lgmp -lgc -lunistring -lcrypt -lm -lltdl -Wl,-rpath -Wl,/usr/local/lib
>   ./.libs/libguile.so: undefined reference to `GC_local_malloc'
>   ./.libs/libguile.so: undefined reference to `GC_local_malloc_atomic'
>   collect2: ld returned 1 exit status

It looks as though some files were compiled with GC 6.x and its
‘GC_REDIRECT_TO_LOCAL’ hack and eventually linked with GC 7.x.
Can you make sure this isn’t the case?

In particular, what does ‘pkg-config bdw-gc --cflags --libs
--modversion’ return?  Does it correspond to what’s actually used at
compile- and link-time?

As a last resort, I’d recommend installing libgc from source.

Thanks,
Ludo’.

Re: slib with guile 1.9.7

[Aubrey Jaffer]

 | From: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=)
 | Date: Fri, 12 Feb 2010 10:14:13 +0100
 | 
 | It looks as though some files were compiled with GC 6.x and its
 | ‘GC_REDIRECT_TO_LOCAL’ hack and eventually linked with GC 7.x.
 | Can you make sure this isn’t the case?

Oops -- there was an old implementation of gc6.7 installed.  I removed
it; and got past linking.

During the compilation there was a warning:

  ;;; WARNING: compilation of /usr/local/src/guile-1.9.7/meta/guile-tools failed:
  ;;; key misc-error, throw_args ("dynamic-link" "file: ~S, message: ~S" ("libguile-srfi-srfi-1-v-4" "file not found") #f)

Now its stuck (over 17.min) on:

  GUILE_AUTO_COMPILE=0					\
	  ../meta/uninstalled-env			\
	  guile-tools compile -Wunbound-variable -Warity-mismatch -o "ice-9/boot-9.go" "ice-9/boot-9.scm"

Then my computer shut down because the CPU overheated!

Not being able to run for hours at 100% CPU would seem to be an
obstacle to building Guile-1.9.7.

Re: slib with guile 1.9.7

[Andy Wingo]

Hi Aubrey,

On Sat 13 Feb 2010 20:38, Aubrey Jaffer <agj@alum.mit.edu> writes:

> During the compilation there was a warning:
>
>   ;;; WARNING: compilation of /usr/local/src/guile-1.9.7/meta/guile-tools failed:
>   ;;; key misc-error, throw_args ("dynamic-link" "file: ~S, message: ~S" ("libguile-srfi-srfi-1-v-4" "file not found") #f)

Yes, this is a bug in our build system; usually harmless. I'll fix it
soon.

> Now its stuck (over 17.min) on:
>
>   GUILE_AUTO_COMPILE=0					\
> 	  ../meta/uninstalled-env			\
> 	  guile-tools compile -Wunbound-variable -Warity-mismatch -o "ice-9/boot-9.go" "ice-9/boot-9.scm"
>
> Then my computer shut down because the CPU overheated!

!!!

Often compiling these first couple files takes some time, but not
usually that long. (For example, on this laptop, compiling psyntax-pp
takes about 4 minutes, then successively less for subsequent files,
eventually ending up at a fraction of a second per file.)

Out of curiousity, what OS and architecture are you running?

Other than that, I can say that we'd like to speed up the bootstrap, but
for now I'll have to apologize for this, um, behavior.

Happy hacking?

Andy
-- 
http://wingolog.org/

Re: slib with guile 1.9.7

[Aubrey Jaffer]

 | From: Andy Wingo <wingo@pobox.com>
 | Date: Sun, 14 Feb 2010 11:44:35 +0100
 | 
 | On Sat 13 Feb 2010 20:38, Aubrey Jaffer <agj@alum.mit.edu> writes:
 | ...
 | > Now its stuck (over 17.min) on:
 | >
 | >   GUILE_AUTO_COMPILE=0					\
 | > 	  ../meta/uninstalled-env			\
 | > 	  guile-tools compile -Wunbound-variable -Warity-mismatch -o "ice-9/boot-9.go" "ice-9/boot-9.scm"
 | >
 | > Then my computer shut down because the CPU overheated!
 | 
 | !!!
 | 
 | Often compiling these first couple files takes some time, but not
 | usually that long. (For example, on this laptop, compiling
 | psyntax-pp takes about 4 minutes, then successively less for
 | subsequent files, eventually ending up at a fraction of a second
 | per file.)
 | 
 | Out of curiousity, what OS and architecture are you running?

Fedora 11

bash-4.0$ uname -a
Linux localhost.localdomain 2.6.30.10-105.2.23.fc11.i586 #1 SMP Thu Feb 11 06:51:26 UTC 2010 i686 i686 i386 GNU/Linux
bash-4.0$ free
             total       used       free     shared    buffers     cached
Mem:       2062356    1353572     708784          0     217420     647308
-/+ buffers/cache:     488844    1573512
Swap:      1048568        740    1047828
bash-4.0$ cat /proc/cpuinfo 
processor	: 0
vendor_id	: GenuineIntel
cpu family	: 15
model		: 2
model name	: Intel(R) Pentium(R) 4 CPU 3.00GHz
stepping	: 9
cpu MHz		: 2992.429
cache size	: 512 KB
physical id	: 0
siblings	: 2
core id		: 0
cpu cores	: 1
apicid		: 0
initial apicid	: 0
fdiv_bug	: no
hlt_bug		: no
f00f_bug	: no
coma_bug	: no
fpu		: yes
fpu_exception	: yes
cpuid level	: 2
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe pebs bts cid xtpr
bogomips	: 5984.85
clflush size	: 64
power management:

processor	: 1
vendor_id	: GenuineIntel
cpu family	: 15
model		: 2
model name	: Intel(R) Pentium(R) 4 CPU 3.00GHz
stepping	: 9
cpu MHz		: 2992.429
cache size	: 512 KB
physical id	: 0
siblings	: 2
core id		: 0
cpu cores	: 1
apicid		: 1
initial apicid	: 1
fdiv_bug	: no
hlt_bug		: no
f00f_bug	: no
coma_bug	: no
fpu		: yes
fpu_exception	: yes
cpuid level	: 2
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe pebs bts cid xtpr
bogomips	: 6000.28
clflush size	: 64
power management: