steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs: make source/docs/tests work for private vocabs.

db4
John Benediktsson 2012-08-10 14:39:53 -07:00
parent 39c3f10138
commit b957ad1684
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/vocabs/files/files.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io.directories io.files io.pathnames kernel make USING: io.directories io.files io.pathnames kernel make
sequences vocabs.loader ; sequences vocabs vocabs.loader ;
IN: vocabs.files IN: vocabs.files
: vocab-tests-path ( vocab -- path ) : 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-file ( vocab -- path/f )
vocab-tests-path dup vocab-tests-path dup

4
core/vocabs/loader/loader.factor
View File

@ -57,10 +57,10 @@ PRIVATE>
swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ; swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ;
: vocab-source-path ( vocab -- path/f ) : 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 ) : 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? SYMBOL: load-help?

3
core/vocabs/vocabs.factor
View File

@ -41,6 +41,9 @@ M: vocab-link vocab-name name>> ;
M: object vocab-name check-vocab-name ; M: object vocab-name check-vocab-name ;
: vocab-name* ( vocab-spec -- name )
vocab-name ".private" ?tail drop ;
GENERIC: lookup-vocab ( vocab-spec -- vocab ) GENERIC: lookup-vocab ( vocab-spec -- vocab )
M: vocab lookup-vocab ; M: vocab lookup-vocab ;