extra/store/blob/blob.factor

   1 ! Copyright (C) 2006 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: assocs kernel io io.files namespaces serialize ;
   4 IN: store.blob
   5
   6 : (save-blob) serialize ;
   7
   8 : save-blob ( obj path -- )
   9     <file-appender> [ (save-blob) ] with-stream ;
  10
  11 : (load-blob) ( path -- seq/f )
  12     dup exists? [
  13         <file-reader> [
  14             [ deserialize-sequence ] with-serialized
  15         ] with-stream
  16     ] [
  17         drop f
  18     ] if ;
  19
  20 : load-blob ( path -- seq/f )
  21     resource-path (load-blob) ;
  22