guile-a-sync2 for guile-2.1/2/2

guile-a-sync2 for guile-2.1/2/2

[Chris Vine]

I have made a new repository for guile-a-sync for guile-2.1/2.2, which
I have called guile-a-sync2.  It includes support for suspendable
non-blocking ports.  guile-2.1.3 or later is required.  It seems to work
OK.

It can be obtained at https://github.com/ChrisVine/guile-a-sync2

Chris

Re: guile-a-sync2 for guile-2.1/2/2

[David Pirotte]

[-- Attachment #1: Type: text/plain, Size: 4620 bytes --]

Hi Chris,

> I have made a new repository for guile-a-sync for guile-2.1/2.2, which
> I have called guile-a-sync2.  It includes support for suspendable
> non-blocking ports.  guile-2.1.3 or later is required.  It seems to work
> OK.

Here it compiles fine but make test fails:

david@capac:/usr/local/src/guile-a-sync2/git 19 $ make test
make -C tests test
make[1]: Entering directory '/usr/local/src/guile-a-sync2/git/tests'
for files in `ls *.scm`; do ../tests/run-test.sh $files; done
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file not found"
test-coroutines.scm: Test 1 OK
test-coroutines.scm: Test 2 OK
test-coroutines.scm: Test 3 OK
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file not found"
test-event-loop.scm: Test 1 OK
Backtrace:
          10 (apply-smob/1 #<catch-closure 23a9c00>)
In ice-9/boot-9.scm:
    704:2  9 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    608:8  8 (_ #(#(#<directory (guile-user) 23b0f30>)))
In ice-9/boot-9.scm:
   2325:4  7 (save-module-excursion _)
  3829:12  6 (_)
In tests/test-event-loop.scm:
    52:14  5 (_)
In ice-9/eval.scm:
   298:42  4 (_ #(#(#(#<directory (a-sync event-loop) 262fb40>) …) #))
   293:34  3 (_ #(#(#<directory (a-sync event-loop) 262fb40>) 60))
   182:19  2 (proc #(#(#<directory (a-sync event-loop) 262fb40>) 60))
   142:16  1 (compile-top-call _ (7 . get-time) ())
In unknown file:
           0 (%resolve-variable (7 . get-time) #<directory (a-sync e…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: get-time
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file not found"
test-helpers-await.scm: Test 1 OK
test-helpers-await.scm: Test 2 OK
test-helpers-await.scm: Test 3 OK
test-helpers-await.scm: Test 4 OK
Backtrace:
          14 (apply-smob/1 #<catch-closure 10e4c00>)
In ice-9/boot-9.scm:
    704:2 13 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    608:8 12 (_ #(#(#<directory (guile-user) 10ebf30>)))
In ice-9/boot-9.scm:
   2325:4 11 (save-module-excursion _)
  3829:12 10 (_)
In tests/test-helpers-await.scm:
    109:0  9 (_)
In a-sync/coroutines.scm:
    62:24  8 (_ _)
     47:4  7 (thunk)
In tests/test-helpers-await.scm:
   111:17  6 (_ _ _)
In ice-9/eval.scm:
    608:8  5 (_ #(#(#<directory (a-sync event-loop) 135f900>) #<p…> …))
   298:42  4 (_ #(#(#(#<directory (a-sync event-loop) 135f900>) …) #))
   293:34  3 (_ #(#(#<directory (a-sync event-loop) 135f900>) 10))
   182:19  2 (proc #(#(#<directory (a-sync event-loop) 135f900>) 10))
   142:16  1 (compile-top-call _ (7 . get-time) ())
In unknown file:
           0 (%resolve-variable (7 . get-time) #<directory (a-sync e…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: get-time
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /usr/local/src/guile-a-sync2/git/tests/test-monotonic-time.scm
;;; WARNING: compilation of /usr/local/src/guile-a-sync2/git/tests/test-monotonic-time.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file not found"
Backtrace:
           3 (primitive-load "/usr/local/src/guile-a-sync2/git/tests…")
In ice-9/eval.scm:
   187:27  2 (_ _)
   223:20  1 (proc #<directory (guile-user) 21a1f30>)
In unknown file:
           0 (%resolve-variable (7 . have-monotonic-time?) #<directo…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: have-monotonic-time?
Makefile:443: recipe for target 'test' failed
make[1]: *** [test] Error 1
make[1]: Leaving directory '/usr/local/src/guile-a-sync2/git/tests'
Makefile:882: recipe for target 'test' failed
make: *** [test] Error 2
david@capac:/usr/local/src/guile-a-sync2/git 20 $ 

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 455 bytes --]

Re: guile-a-sync2 for guile-2.1/2/2

[Mike Gran]

> On Monday, October 24, 2016 11:54 AM, David Pirotte <david@altosw.be> wrote:
> > Hi Chris,
> 
> 
>>  I have made a new repository for guile-a-sync for guile-2.1/2.2, which
>>  I have called guile-a-sync2.  It includes support for suspendable
>>  non-blocking ports.  guile-2.1.3 or later is required.  It seems to work
>>  OK.


The following line usually indicates that you need to
to install the shared object .so library in /usr/lib or
/usr/lib64 or alternately set the

LD_LIBRARY_PATH environment variable to the library's location


> ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file not found"

Re: guile-a-sync2 for guile-2.1/2/2

[Chris Vine]

On Mon, 24 Oct 2016 16:23:47 -0200
David Pirotte <david@altosw.be> wrote:
> Hi Chris,
> 
> > I have made a new repository for guile-a-sync for guile-2.1/2.2,
> > which I have called guile-a-sync2.  It includes support for
> > suspendable non-blocking ports.  guile-2.1.3 or later is required.
> > It seems to work OK.  
> 
> Here it compiles fine but make test fails:
[snip]

It looks like a bug in the build.  It will work if you have
guile-a-sync installed as well as guile-a-sync2 (which is why it didn't
show up in my tests) but not if you only have guile-a-sync2 installed.

Can you apply this patch and see if it now works?  If so I will push it
to the repository.

Chris

diff --git a/a-sync/monotonic-time.scm b/a-sync/monotonic-time.scm
index bf07e23..ff3bb6e 100644
--- a/a-sync/monotonic-time.scm
+++ b/a-sync/monotonic-time.scm
@@ -18,4 +18,4 @@
 
 ;; this loads and exports the get-time and have-monotonic-time?
 ;; procedures in monotonic_time.c
-(load-extension "libguile-a-sync-0" "init_a_sync_monotonic_time")
+(load-extension "libguile-a-sync2-0" "init_a_sync_monotonic_time")

Re: guile-a-sync2 for guile-2.1/2/2

[David Pirotte]

[-- Attachment #1: Type: text/plain, Size: 148 bytes --]

Hi Chris,

> Can you apply this patch and see if it now works?  If so I will push it
> to the repository.

Yes, this fixes the bug.

David.

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 455 bytes --]

Re: guile-a-sync2 for guile-2.1/2/2

[David Pirotte]

[-- Attachment #1: Type: text/plain, Size: 401 bytes --]

Hi Mike,

> The following line usually indicates that you need to
> to install the shared object .so library in /usr/lib or
> /usr/lib64 or alternately set the

> LD_LIBRARY_PATH environment variable to the library's location

Thanks, I know, but we are not talking about a post installation usage of a lib
here, but 'make check', which should not require any user 'intervention'.

David.

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 455 bytes --]

Re: guile-a-sync2 for guile-2.1/2/2

[Chris Vine]

On Tue, 25 Oct 2016 17:06:16 -0200
David Pirotte <david@altosw.be> wrote:
> Hi Chris,
> 
> > Can you apply this patch and see if it now works?  If so I will
> > push it to the repository.  
> 
> Yes, this fixes the bug.

Thanks David.  I have pushed the change to github and made a new release
tag.  Thanks for the report.

Chris