~ chicken-core (chicken-5) fc314560d220bf28108faa78093484e6c7d9e449

commit fc314560d220bf28108faa78093484e6c7d9e449
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Sep 12 21:32:00 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Sep 12 21:34:42 2012 +0200

    * fix libchicken name in "csc -deploy" to use the correct DLL name
      on cygwin
    * rename chicken runtime DLL to avoid library-conflicts when running
      "make check" on cygwin
    * enable some tests for cygwin which where previously disabled for
      all supported windows platforms (cygwin + mingw)
    
    This patch is originally by me and was improved by Mario, with help
    from John Cowan.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/csc.scm b/csc.scm
index 5c499721..8f400693 100644
--- a/csc.scm
+++ b/csc.scm
@@ -120,7 +120,9 @@
 (define generate-manifest #f)
 
 (define libchicken
-  (string-append "lib" INSTALL_LIB_NAME))
+  (if cygwin
+      (string-append "cyg" INSTALL_LIB_NAME "-0")
+      (string-append "lib" INSTALL_LIB_NAME)))
 
 (define default-library
   (string-append libchicken "." library-extension))
@@ -960,7 +962,7 @@ EOF
 	      (target-lib-path) 
 	      libchicken
 	      (cond (osx "dylib")
-		    (win "dll")
+		    ((or win cygwin) "dll")
 		    (else (string-append
                            "so."
                            (number->string BINARY_VERSION)))))))
diff --git a/tests/port-tests.scm b/tests/port-tests.scm
index df11e712..72d6861f 100644
--- a/tests/port-tests.scm
+++ b/tests/port-tests.scm
@@ -121,7 +121,7 @@ EOF
                ((exn i/o file) (printf "OK\n") okay))))))))
 
 (cond-expand
-  ((not windows)
+  ((not mingw32)
 
    (define proc (process-fork (lambda () (tcp-accept (tcp-listen 8080)))))
 
@@ -166,7 +166,7 @@ EOF
     ;;(check (port->fileno in))
     (check (flush-output out))
 
-    #+(not windows) 
+    #+(not mingw32) 
     (begin
       (check (file-test-lock out))
       (check (file-lock out))
@@ -189,7 +189,7 @@ EOF
     (check (read-u8vector 5 in))
     (check "read-u8vector!" (let ((dest (make-u8vector 5)))
                               (read-u8vector! 5 dest in)))
-    #+(not windows) 
+    #+(not mingw32) 
     (begin
       (check (file-test-lock in))
       (check (file-lock in))
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 5b6113e8..3d18871b 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -50,7 +50,11 @@ fi
 
 
 # for cygwin
-test -f ../cygchicken-0.dll && cp ../cygchicken-0.dll .
+if test -f ../cygchicken-0.dll; then
+    cp ../cygchicken-0.dll .
+    cp ../cygchicken-0.dll reverser/tags/1.0
+fi
+mv ../cygchicken-0.dll ../cygchicken-0.dll_
 
 compile="../csc -compiler $CHICKEN -v -I.. -L.. -include-path .. -o a.out"
 compile2="../csc -compiler $CHICKEN -v -I.. -L.. -include-path .."
diff --git a/tests/signal-tests.scm b/tests/signal-tests.scm
index b9e5f415..3d685e2f 100644
--- a/tests/signal-tests.scm
+++ b/tests/signal-tests.scm
@@ -1,9 +1,9 @@
 ;;;; signal-tests.scm
 
 
-#+windows
+#+mingw32
 (begin
-  (print "this test can not be run on Windows")
+  (print "this test can not be run on Windows/mingw")
   (exit))