Porting GNU Projects - Guile

Porting GNU Projects - Guile

[bornlibra23]

Hello People
I am trying to port various GNU products to Stratus OpenVOS platform
including the guile project. However I am stuck currently for the lack of
wide & multibyte character support. Can somebody guide me to an
implementation of the same that I can port first. The glibc is also proving
a monster to port for various reasons. I have tried to build the wide
character support of glibc separately but it didnt workout. Can somebody
isolate the code & guide me in implementing it on VOS? This is proving to be
a major blocker. Please help
Thanks
bornlibra23

libtool: compile:  "/<<Path>>/OpenSource/guile-1.8.6/build-aux/compile" gcc
-DHAVE_CONFIG_H -I.. -I.. -I.. -D_POSIX_C_SOURCE=200112L -D_BSD_SOURCE
-D_SYSV -D_VOS_EXTENDED_NAMES -Wall -Wmissing-prototypes -Werror -MT
libguile_la-srfi-14.lo -MD -MP -MF .deps/libguile_la-srfi-14.Tpo -c
srfi-14.c -o libguile_la-srfi-14.o
srfi-14.c: In function `scm_srfi_14_compute_char_sets':
srfi-14.c:1531: warning: suggest parentheses around comparison in operand of
|
gmake[3]: *** [libguile_la-srfi-14.lo] Error 1
gmake[3]: Leaving directory `<<Path>>/OpenSource/guile-1.8.6/libguile'
gmake[2]: *** [all] Error 2
gmake[2]: Leaving directory `<<Path>>/OpenSource/guile-1.8.6/libguile'
gmake[1]: *** [all-recursive] Error 1
gmake[1]: Leaving directory `<<Path>>/OpenSource/guile-1.8.6'
gmake: *** [all] Error 2
-- 
View this message in context: http://www.nabble.com/Porting-GNU-Projects---Guile-tp24721426p24721426.html
Sent from the Gnu - Guile - Dev mailing list archive at Nabble.com.

Re: Porting GNU Projects - Guile

[Mike Gran]

> From: bornlibra23 <awarikoo@nse.co.in>
> 
> Hello People
> I am trying to port various GNU products to Stratus OpenVOS platform
> including the guile project. However I am stuck currently for the lack of
> wide & multibyte character support. Can somebody guide me to an
> implementation of the same that I can port first. The glibc is also proving
> a monster to port for various reasons. I have tried to build the wide
> character support of glibc separately but it didnt workout. Can somebody
> isolate the code & guide me in implementing it on VOS? This is proving to be
> a major blocker. Please help
> Thanks
> bornlibra23

Hi-

I'm a little unclear on what you need first.  It is

1. Guile doesn't do multibyte characters.

or

2. You are having problems building GNU programs in general because it is
hard to get glibc's multibyte characters to work.

If it is the former (#1) case, it is true that Guile doesn't do multi-byte.
There is an experimental version of Guile in the Git repository that does do 
multi-byte characters, but, it is still brand new and not well tested.
But, FWIW, it is the git string_abstraction2 tree.  Hopefully the multi-byte
chars support will make its way into mainline Guile in time for 2.0.

If it is the latter case, I imagine that porting GNU libc is tricky.  I
tried it once, years ago, and it was painful.

For Guile compilation problems in general for a new platform, it might help 
to use the "--disable-error-on-warning" options for Guile's ./configure 
at first when trying to get it to compile.

Also, I saw that you were trying to compile 1.8.6.  There is a 1.8.7, which
has some bug fixes.

-Mike

Re: Porting GNU Projects - Guile

[bornlibra23]

Thanks Mike for the heads up but the problem I think is with the source code
itself. I get the same error on linux though it doesnt die there. I
preprocessed the code & changed the line like so :
From (((((ch) == ' ' | (ch) == '\t') to (((((ch) == ' ' || (ch) == '\t')
(note the or operator) & the problem went away but then I had the mentioned
problem. I will build it again & get back to you. My build log seems to be
dated.
-- 
View this message in context: http://www.nabble.com/Porting-GNU-Projects---Guile-tp24721426p24731881.html
Sent from the Gnu - Guile - Dev mailing list archive at Nabble.com.

Re: Porting GNU Projects - Guile

[Neil Jerram]

bornlibra23 <awarikoo@nse.co.in> writes:

> Thanks Mike for the heads up but the problem I think is with the source code
> itself. I get the same error on linux though it doesnt die there. I
> preprocessed the code & changed the line like so :
>>From (((((ch) == ' ' | (ch) == '\t') to (((((ch) == ' ' || (ch) == '\t')
> (note the or operator) & the problem went away but then I had the mentioned
> problem. I will build it again & get back to you. My build log seems to be
> dated.

FWIW this is fixed in Guile's master branch:

#ifdef HAVE_ISBLANK
# define CSET_BLANK_PRED(c)  (isblank (c))
#else
# define CSET_BLANK_PRED(c)			\
   (((c) == ' ') || ((c) == '\t'))
#endif

I guess it was missed for a long time because it is rare to have an OS
that doesn't provide isblank().

Regards,
        Neil

Re: Porting GNU Projects - Guile

[Neil Jerram]

bornlibra23 <awarikoo@nse.co.in> writes:

> I just patched this in the code butu it still fails. I have yet to try the
> 1.8.7 version.

In the same way, or differently?  Please provide the relevant part of
the new build output.

Regards,
        Neil

Re: Porting GNU Projects - Guile

[bornlibra23]

Neil Jerram wrote:
> 
> bornlibra23 <awarikoo@nse.co.in> writes:
>>In the same way, or differently?  Please provide the relevant part of
>>the new build output.
> Regards,
> Neil
> 
Hello Neil
I managed to find the code problem. It actually was not in the guile code.
One of the many libraries that I had ported over (as my system lacks support
for the a lot of functions including isblank()) had this error. It had used
a | in place of ||.
Thanks for persisting with me on this problem.
However I believe that I have a new problem. 6 of the self tests are
failing. I am attaching the build log below:
ERROR: In procedure dynamic-link:
ERROR: file: "libguile-srfi-srfi-1-v-3", message: "file not found"
FAIL: test-require-extension
ERROR: In procedure string-append:
ERROR: Wrong type (expecting string): #<freed cell 400876c0; GC missed a
reference>
FAIL: test-bad-identifiers
ERROR: In procedure dynamic-link:
ERROR: file: "libtest-asmobs", message: "file not found"
FAIL: test-asmobs
fail: scm_is_signed_integer ((expt 2 63), -9223372036854775808,
9223372036854775807) == 0
FAIL: test-conversion.pm
FAIL: test-fast-slot-ref
Backtrace:
In unknown file:
    ...
   ?:  7  (begin (if # #) (make-modules-in # full-name))
   ?:  8* (if (or # #) (try-load-module name))
   ?:  9  [try-load-module (srfi srfi-1)]
   ?: 10  (or (begin (try-module-linked name)) (try-module-autoload name)
...)
   ?: 11* [try-module-autoload (srfi srfi-1)]
   ?: 12  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and #
#))
    ...
   ?: 13  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #)
...) ...)
   ?: 14* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f
()>]
   ?: 15* [#<procedure #f ()>]
   ?: 16* (let* ((file #)) (cond (# => #) (# => #)))
   ?: 17  [#<procedure #f #> "<<Path>>/guile-1.8.7/srfi/srfi-1.scm"]
    ...
   ?: 18  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
   ?: 19* [#<procedure #f ()>]
   ?: 20* [load-file #<primitive-procedure primitive-load> ...]
   ?: 21* [save-module-excursion #<procedure #f ()>]
   ?: 22  (let (# #) (dynamic-wind # thunk #))
   ?: 23  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f
()>]
   ?: 24* [#<procedure #f ()>]
   ?: 25* [primitive-load "<<Path>>/guile-1.8.7/srfi/srfi-1.scm"]
In <<Path>>/guile-1.8.7/srfi/srfi-1.scm:
 223: 26* [load-extension "libguile-srfi-srfi-1-v-3" "scm_init_srfi_1"]

<<Path>>/guile-1.8.7/srfi/srfi-1.scm:223:1: In procedure dynamic-link in
expression (load-extension "libguile-srfi-srfi-1-v-3" "scm_init_srfi_1"):
<<Path>>/guile-1.8.7/srfi/srfi-1.scm:223:1: file:
"libguile-srfi-srfi-1-v-3", message: "file not found"
guile --use-srfi=1,10 fails to run
FAIL: test-use-srfi

Thanks
bornlibra23
-- 
View this message in context: http://www.nabble.com/Porting-GNU-Projects---Guile-tp24721426p25000691.html
Sent from the Gnu - Guile - Dev mailing list archive at Nabble.com.