Re: [PATCH] configure check for crypt()

[Andreas Voegele]

Kevin Ryde writes:

> Andreas Voegele <address@hidden> writes:
>>
>> Can anyone apply the patch, which is attached to my previous mail, to
>> guile-core/configure.in and guile-core/libguile/posix.c?
>
> Thanks, I made changes along those lines.
>
> Is this for the guile 1.6 branch too?  I'd expect so, if guile 1.6
> works at all on hpux (which I haven't tried).

I've built Guile 1.6.4 with the mentioned changes under HP-UX 11.00,
32-Bit.  I have yet to build the CVS version.

I've noticed that HP-UX unsets the environment variable HOME when I
change to the root account.  Thus the following expression in
readline.scm fails when the readline module is loaded by root.

(define history-file (string-append (getenv "HOME") "/.guile_history"))

guile> (use-modules (ice-9 readline))
ERROR: In procedure string-append:
ERROR: Wrong type argument (expecting STRINGP): #f
ABORT: (wrong-type-arg)

The following expression could be used to get the home directory, but
it requires the procedures getpwuid und cuserid which might not be
available on all systems supported by Guile.  I'd probably rather tell
the super user to set HOME or GUILE_HISTORY before using readline :-)

(or (getenv "HOME") (passwd:dir (getpwuid (cuserid))))

Here's the output of make test:

Running alist.test
Running bit-operations.test
Running c-api.test
Running chars.test
Running common-list.test
Running environments.test
UNRESOLVED: environments.test: leaf-environments: observe-weak: weak observer 
gets collected
UNRESOLVED: environments.test: leaf-environment based eval-environments: 
observe-weak: weak observer gets collected
Running eval.test
Running exceptions.test
Running format.test
Running gc.test
Running getopt-long.test
Running goops.test
Running guardians.test
Running hooks.test
Running import.test
Running interp.test
Running list.test
Running load.test
Running numbers.test
Running optargs.test
Running ports.test
Running r4rs.test
Running reader.test
Running regexp.test
Running srfi-10.test
Running srfi-13.test
Running srfi-14.test
Running srfi-19.test
FAIL: srfi-19.test: SRFI date/time library: #<procedure time-utc->date (time . 
tz-offset)> respects local DST if no TZ-OFFSET given
FAIL: srfi-19.test: SRFI date/time library: #<procedure time-tai->date (time . 
tz-offset)> respects local DST if no TZ-OFFSET given
FAIL: srfi-19.test: SRFI date/time library: #<procedure time-monotonic->date 
(time . tz-offset)> respects local DST if no TZ-OFFSET given
FAIL: srfi-19.test: SRFI date/time library: #<procedure julian-day->date (jdn . 
tz-offset)> respects local DST if no TZ-OFFSET given
FAIL: srfi-19.test: SRFI date/time library: #<procedure 
modified-julian-day->date (jdn . tz-offset)> respects local DST if no TZ-OFFSET 
given
FAIL: srfi-19.test: SRFI date/time library: string->date respects local DST if 
no time zone is read
Running srfi-4.test
Running srfi-9.test
Running strings.test
Running symbols.test
Running syncase.test
Running syntax.test
Running time.test
Running version.test
Running weaks.test

Totals for this test run:
passes:                 2225
failures:               6
unexpected passes:      0
expected failures:      18
unresolved test cases:  2
untested test cases:    0
unsupported test cases: 9
errors:                 0

FAIL: check-guile
===================
1 of 1 tests failed
===================