Changeset 15431 in project for release/4/qwiki/trunk/qwiki-svn.scm

Timestamp:

08/13/09 17:06:59 (12 years ago)

Author:

sjamaan

Message:

Implement commit functionality

File:

• release/4/qwiki/trunk/qwiki-svn.scm (modified) (2 diffs)

release/4/qwiki/trunk/qwiki-svn.scm

@@ -38 +38 @@
 (module qwiki-svn
   (qwiki-repos-uri qwiki-repos-username qwiki-repos-password
-   get-history call-with-input-revision checkout-sources! update-sources!)
+   get-history call-with-input-revision checkout-sources! update-sources!
+   store-changes!)
 
 (import chicken scheme)
@@ -86 +87 @@
               (qwiki-repos-username) (qwiki-repos-password)))
 
+(define (store-changes! source-path message)
+  (define (get-info path)
+    (let ((info '()))
+      (svn-client-info path
+                       svn-opt-revision-unspecified
+                       svn-opt-revision-unspecified
+                       (lambda (path i) (set! info (cons i info)))
+                       #f (qwiki-repos-username) (qwiki-repos-password))
+      (and (not (null? info)) (car info))))
+  (let loop ((source-path source-path))
+    (if (get-info source-path)
+        (svn-commit source-path
+                    (qwiki-repos-username) (qwiki-repos-password)
+                    message)
+        (begin
+          (loop (pathname-directory source-path))  ; Add parent dirs if needed
+          (svn-add source-path (qwiki-repos-username) (qwiki-repos-password))
+          (svn-commit source-path
+                      (qwiki-repos-username) (qwiki-repos-password)
+                      message)))))
+
 )