Changeset 20270 in project
- Timestamp:
- 09/12/10 22:01:12 (8 years ago)
- Location:
- release/4/ugarit/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/ugarit/trunk/ugarit-core.scm
r20269 r20270 2 2 (open-archive 3 3 archive? 4 archive-global-directory-rules 4 5 archive-writable? 5 6 archive-unlinkable? … … 579 580 (if cache-result 580 581 (if (= cached-mtime mtime) 581 (values cached-hash #t) ; Found in cache! Woot! 582 (begin 583 #;(printf "Found ~a/~a in cache: ~a\n" file-path mtime cached-hash) 584 (values cached-hash #t)) ; Found in cache! Woot! 582 585 (store-file-and-cache! mtime)) ; in cache, but mtime differs 583 586 (store-file-and-cache! mtime))) ; not in cache … … 768 771 ;; Returns the usual key and reused? values 769 772 (define (store-directory! archive path) 770 (printf "TEST 1\n")771 773 (call-with-context 772 774 (read-local-rules archive path) 773 775 path 774 776 (lambda () 775 (printf "TEST 2\n")776 777 (check-archive-writable archive) 777 778 … … 837 838 ; WTF? 838 839 (printf "ERROR: I can't ascertain the type of ~A. Skipping it...\n" file-path)))))) 839 ( directory path #t))840 (sort! (directory path #t) string<?)) 840 841 841 842 ((sexpr-stream-writer-finish! ssw)))))) -
release/4/ugarit/trunk/ugarit.scm
r15242 r20270 1 1 (use ugarit-core) 2 (use directory-rules) 2 3 3 4 (use srfi-37) … … 133 134 134 135 (match result 135 (( "")136 (() 136 137 (explore-archive archive directory-key path quit-continuation)) 137 138 (("help") … … 251 252 (match command-line 252 253 (("snapshot" confpath tag fspath) 253 (let ((archive (open-archive254 (with-input-from-file confpath read-file)*store-atime?* *store-ctime?*)))254 (let* ((configuration (with-input-from-file confpath read-file)) 255 (archive (open-archive configuration *store-atime?* *store-ctime?*))) 255 256 256 257 (printf "Archiving ~A to tag ~A...\n" fspath tag) 257 258 (define-values (dir-key dir-reused?) 258 (store-directory! archive fspath)) 259 (call-with-context-support 260 (archive-global-directory-rules archive) 261 (lambda () (store-directory! archive fspath)))) 259 262 (printf "Root hash: ~A\n" dir-key) 260 263 (let ((snapshot-key (tag-snapshot! archive tag dir-key dir-reused? (list … … 287 290 (let ((type (archive-exists? archive key)) 288 291 (block (archive-get archive key))) 289 (printf "B Lock with key ~A (type ~A) is ~A bytes:\n" key type (u8vector-length block))292 (printf "Block with key ~A (type ~A) is ~A bytes:\n" key type (u8vector-length block)) 290 293 (write-u8vector block)) 291 294
Note: See TracChangeset
for help on using the changeset viewer.