31 lines
782 B
Factor
31 lines
782 B
Factor
|
! Copyright (C) 2006 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: io namespaces serialize kernel hashtables ;
|
||
|
|
IN: store
|
||
|
|
|
||
|
|
TUPLE: store path data ;
|
||
|
|
: save-store ( store -- )
|
||
|
|
[ store-data ] keep store-path <file-writer> [
|
||
|
|
[
|
||
|
|
dup
|
||
|
|
[ drop [ get ] keep rot set-hash ] hash-each-with
|
||
|
|
] keep [ serialize ] with-serialized
|
||
|
|
] with-stream ;
|
||
|
|
|
||
|
|
: load-store ( path -- store )
|
||
|
|
resource-path dup exists? [
|
||
|
|
dup <file-reader> [
|
||
|
|
[ deserialize ] with-serialized
|
||
|
|
] with-stream
|
||
|
|
] [
|
||
|
|
H{ } clone
|
||
|
|
] if <store> ;
|
||
|
|
|
||
|
|
: store-variable ( default variable store -- )
|
||
|
|
store-data 2dup hash* [
|
||
|
|
rot set-global 2drop
|
||
|
|
] [
|
||
|
|
drop >r 2dup set-global r> set-hash
|
||
|
|
] if ;
|
||
|
|
|