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

ugarit: Dotting is, crossing ts...

File:
1 edited

Legend:

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

    r25478 r25479  
     1(use ugarit-backend)
    12(use sql-de-lite)
     3(use matchable)
    24
    35(define cache-sql-schema
     
    57   "CREATE TABLE cache (key TEXT PRIMARY KEY, type TEST);"))
    68
    7 (define (backend-cache be cachepath)
     9(define (backend-cache cachepath be)
    810   (define *db* (open-database cachepath))
    911   (when (null? (schema *db*))
     
    7476            (close-database *db*)
    7577            (storage-close! be))))))
     78
     79
     80(define backend
     81  (match (command-line-arguments)
     82         ((cachepath backend)
     83          (backend-cache cachepath (import-storage backend)))
     84
     85         (else
     86          (printf "USAGE:\nbackend-cache <path-to-cache-file> \"<backend command line>\"\n")
     87          #f)))
     88
     89(if backend
     90    (export-storage! backend))
Note: See TracChangeset for help on using the changeset viewer.