vocabs: make source/docs/tests work for private vocabs.
parent
39c3f10138
commit
b957ad1684
|
@ -1,11 +1,11 @@
|
|||
! Copyright (C) 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: io.directories io.files io.pathnames kernel make
|
||||
sequences vocabs.loader ;
|
||||
sequences vocabs vocabs.loader ;
|
||||
IN: vocabs.files
|
||||
|
||||
: vocab-tests-path ( vocab -- path )
|
||||
dup "-tests.factor" append-vocab-dir vocab-append-path ;
|
||||
vocab-name* dup "-tests.factor" append-vocab-dir vocab-append-path ;
|
||||
|
||||
: vocab-tests-file ( vocab -- path/f )
|
||||
vocab-tests-path dup
|
||||
|
|
|
@ -57,10 +57,10 @@ PRIVATE>
|
|||
swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ;
|
||||
|
||||
: vocab-source-path ( vocab -- path/f )
|
||||
dup ".factor" append-vocab-dir vocab-append-path ;
|
||||
vocab-name* dup ".factor" append-vocab-dir vocab-append-path ;
|
||||
|
||||
: vocab-docs-path ( vocab -- path/f )
|
||||
dup "-docs.factor" append-vocab-dir vocab-append-path ;
|
||||
vocab-name* dup "-docs.factor" append-vocab-dir vocab-append-path ;
|
||||
|
||||
SYMBOL: load-help?
|
||||
|
||||
|
|
|
@ -41,6 +41,9 @@ M: vocab-link vocab-name name>> ;
|
|||
|
||||
M: object vocab-name check-vocab-name ;
|
||||
|
||||
: vocab-name* ( vocab-spec -- name )
|
||||
vocab-name ".private" ?tail drop ;
|
||||
|
||||
GENERIC: lookup-vocab ( vocab-spec -- vocab )
|
||||
|
||||
M: vocab lookup-vocab ;
|
||||
|
|
Loading…
Reference in New Issue