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

add scaffold-undocumented

db4
Doug Coleman 2008-09-04 00:43:18 -05:00
parent e55a26bd53
commit 56dec43eb3
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/tools/scaffold/scaffold.factor
View File

@ -178,12 +178,22 @@ ERROR: vocab-name-contains-dot path ;
: prepare-scaffold ( vocab-root string -- string path ) : prepare-scaffold ( vocab-root string -- string path )
check-scaffold [ vocab>scaffold-path ] keep ; check-scaffold [ vocab>scaffold-path ] keep ;
: with-scaffold ( quot -- )
[ H{ } clone using ] dip with-variable ; inline
: scaffold-help ( vocab-root string -- ) : scaffold-help ( vocab-root string -- )
H{ } clone using [ [
prepare-scaffold prepare-scaffold
[ "-docs.factor" scaffold-path ] dip [ "-docs.factor" scaffold-path ] dip
swap [ set-scaffold-help-file ] [ 2drop ] if swap [ set-scaffold-help-file ] [ 2drop ] if
] with-variable ; ] with-scaffold ;
: scaffold-undocumented ( string -- )
[
words
[ "help" word-prop not ] filter
natural-sort [ help. nl ] each
] with-scaffold ;
: scaffold-vocab ( vocab-root string -- ) : scaffold-vocab ( vocab-root string -- )
prepare-scaffold prepare-scaffold