unmaintained/tangle/sandbox/sandbox.factor

   1 USING: continuations db db.sqlite http.server io.files kernel namespaces semantic-db tangle tangle.path ;
   2 IN: tangle.sandbox
   3
   4 : db-path "tangle-sandbox.db" temp-file ;
   5 : sandbox-db db-path sqlite-db ;
   6 : delete-db [ db-path delete-file ] ignore-errors ;
   7
   8 : make-sandbox ( tangle -- )
   9     [
  10         init-semantic-db
  11         ensure-root "foo" create-file "First Page" create-node swap has-filename
  12     ] with-tangle ;
  13
  14 : new-sandbox ( -- )
  15     development? on
  16     delete-db sandbox-db f <tangle>
  17     [ make-sandbox ] [ <tangle-dispatcher> ] bi
  18     main-responder set ;