Paste: store

Author: dharmatech
Mode: factor
Date: Tue, 4 Nov 2008 22:54:30
Plain Text |
USING: kernel words vocabs parser classes namespaces sequences splitting
       io io.files io.encodings.utf8 prettyprint ;

IN: store

: filtered-words ( -- seq )
  in get words [ "predicating" word-prop not ] filter ;

: store ( -- )

  "resource:store"
  in get "." split "/" join                     append-path
  in get "." split peek ".factor" append        append-path
  
  dup parent-directory make-directories

  utf8

  [ filtered-words [ see nl ] each ]

  with-file-writer ;

New Annotation

Summary:
Author:
Mode:
Body: