Changeset 25477 in project for release/4/ugarit/trunk/backend-fs.scm


Ignore:
Timestamp:
11/06/11 10:07:42 (10 years ago)
Author:
Alaric Snell-Pym
Message:

ugarit: Unit test suite now covers everything except fold-archive-node over directories (but that's really hard to test, and really simple to implement, so not worth testing, right?)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/ugarit/trunk/backend-fs.scm

    r21301 r25477  
    33(use srfi-69)
    44(use matchable)
     5(use regex)
    56
    67(define (backend-fs base)
    7    (define (make-name key extension) ; FIXME: break into levels to reduce files-in-one-dir strain
     8   (define (make-name key extension) ; Break into levels to reduce files-in-one-dir strain
    89      (cond
    910         ((< (string-length key) 4)
     
    148149         (void))))
    149150
    150 (define (backend-log logfile indexfile tagsfile)
     151#;(define (backend-log logfile indexfile tagsfile)
    151152   (let ((*index* (gdbm-open indexfile))
    152153         (*tags* (gdbm-open tagsfile))
     
    339340          (backend-fs base))
    340341
    341          (("log" logfile indexfile tagsfile)
     342         #;(("log" logfile indexfile tagsfile)
    342343          (backend-log logfile indexfile tagsfile))
    343344
Note: See TracChangeset for help on using the changeset viewer.