Changeset 36041 in project

Timestamp:

08/05/18 20:55:37 (2 years ago)

Author:

sjamaan

Message:

Initial port of svn-client to CHICKEN 5

Location:

release/5/svn-client

Files:

• . (added)
• trunk (copied) (copied from release/4/svn-client/trunk)
• trunk/build-svn-client (added)
• trunk/svn-client.egg (copied) (copied from release/4/svn-client/trunk/svn-client.meta) (1 diff)
• trunk/svn-client.meta (deleted)
• trunk/svn-client.scm (modified) (3 diffs)
• trunk/tests/run.scm (modified) (5 diffs)

release/5/svn-client/trunk/svn-client.egg

@@ -1 @@
-;;; svn-client.meta -*- Hen -*-
-((files "svn-client.release-info" "svn-client-base.c" "tests/run.scm" "svn-client.scm" "svn-client.setup" "svn-client.meta")
- (doc-from-wiki)
- (author "Alejandro Forero Cuervo")
+;;; svn-client.meta -*- scheme -*-
+((author "Alejandro Forero Cuervo")
  (maintainer "Peter Bex")
- (synopsis
-   "A wrapper around Subversion's libsvn_client C library.")
+ (synopsis "A wrapper around Subversion's libsvn_client C library.")
  (category misc)
- (test-depends test)
- (license "Public Domain"))
+ (test-dependencies test)
+ (license "Public Domain")
+ (components (extension svn-client
+                        (custom-build "build-svn-client"))))

release/5/svn-client/trunk/svn-client.scm

@@ -24 +24 @@
    )
 
-(import chicken scheme foreign)
-(use lolevel)
+(import scheme (chicken base) (chicken foreign) (chicken memory)
+        (chicken gc))
 
 (foreign-declare "#include \"svn-client-base.c\"")
@@ -96 +96 @@
   (c-pointer "svn_log_entry_t"))
 
+(define-foreign-type svn-revnum-type long)
+
 (define svn-log-entry-changed-paths
   (foreign-lambda* apr-hash-type ((svn-log-entry-type log))
@@ -150 +152 @@
   (foreign-lambda* unsigned-int ((svn-opt-revision-type rev))
     "C_return(rev->kind);"))
-
-(define-foreign-type svn-revnum-type long)
 
 ;;; svn_log_changed_path_t

release/5/svn-client/trunk/tests/run.scm

@@ -1 @@
-(use test svn-client posix srfi-1 utils)
-
-(when (file-exists? "testrepo") ; This probably doesn't work under Windows ;)
-  (system "rm -rf testrepo"))
-
-(when (file-exists? "testcheckout")
-  (system "rm -rf testcheckout"))
-
-(when (file-exists? "testcheckout2")
-  (system "rm -rf testcheckout2"))
+(import test svn-client (chicken file) (chicken pathname)
+        (chicken process-context) (chicken io) (chicken process)
+        (chicken sort))
+
+(when (directory-exists? "testrepo")
+  (delete-directory "testrepo" #t))
+
+(when (directory-exists? "testcheckout")
+  (delete-directory "testcheckout" #t))
+
+(when (directory-exists? "testcheckout2")
+  (delete-directory "testcheckout2" #t))
 
 (define repo-dir (make-pathname (current-directory) "testrepo"))
-(define repo-uri (conc "file://" repo-dir))
+(define repo-uri (string-append "file://" repo-dir))
 (define checkout-dir (make-pathname (current-directory) "testcheckout"))
 (define checkout-dir2 (make-pathname (current-directory) "testcheckout2"))
@@ -20 +22 @@
 
 (define (svn-file f) (make-pathname checkout-dir f))
-(define (repo-file f) (conc "file://" (make-pathname repo-dir f)))
+(define (repo-file f) (string-append "file://" (make-pathname repo-dir f)))
 (define (write-svn-file file data)
   (with-output-to-file (svn-file file) (lambda () (print data))))
@@ -31 +33 @@
 
 (test "Make another checkout of revision 0, using a non-canonicalized uri"
-      0 (svn-checkout (conc repo-uri "/") checkout-dir2 svn-opt-revision-head #t user pass))
+      0 (svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t user pass))
 
 (test-group "initial state"
@@ -84 +86 @@
              (svn-client-list checkout-dir svn-opt-revision-head #t user pass)))
   (test "Files are marked as such"
-        '("foo" "testdir/bar")
-        (filter-map (lambda (f) (and (eq? (svn-file-kind f) 'file)
-                                     (svn-file-path f)))
-                    (svn-client-list checkout-dir svn-opt-revision-head #t user pass)))
+        '(#f "foo" #f "testdir/bar")
+        (map (lambda (f) (and (eq? (svn-file-kind f) 'file)
+                              (svn-file-path f)))
+             (svn-client-list checkout-dir svn-opt-revision-head #t user pass)))
   (test "secondary checkout still empty"
         '("")
@@ -209 +211 @@
 (test-group "catenation"
   (let* ((f (svn-client-cat (svn-file "testdir/bar") svn-opt-revision-unspecified user pass))
-         (contents (read-all f)))
+         (contents (with-input-from-file f read-string)))
     (delete-file* f)
     (test "Working dir" "Changed\n" contents))
   (let* ((f (svn-client-cat (svn-file "testdir/bar") (make-svn-opt-revision-number 2) user pass))
-         (contents (read-all f)))
+         (contents (with-input-from-file f read-string)))
     (delete-file* f)
     (test "Historical revision" "Also just added\n" contents)))