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

only generate scaffold for interesting, ungenerated words

db4
Doug Coleman 2008-09-04 12:36:47 -05:00
parent fcd89748aa
commit 24b449fb36
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -150,10 +150,18 @@ ERROR: no-vocab vocab ;
: (help.) ( word -- ) : (help.) ( word -- )
[ help-header. ] [ $values. ] [ $description. ] tri ; [ help-header. ] [ $values. ] [ $description. ] tri ;
: interesting-words ( vocab -- array )
words
[ [ "help" word-prop ] [ predicate? ] bi or not ] filter
natural-sort ;
: interesting-words. ( vocab -- )
interesting-words [ (help.) nl ] each ;
: help-file-string ( str1 -- str2 ) : help-file-string ( str1 -- str2 )
[ [
[ "IN: " write print nl ] [ "IN: " write print nl ]
[ words natural-sort [ (help.) nl ] each ] [ interesting-words. ]
[ "ARTICLE: " write unparse dup write bl print ";" print nl ] [ "ARTICLE: " write unparse dup write bl print ";" print nl ]
[ "ABOUT: " write unparse print ] quad [ "ABOUT: " write unparse print ] quad
] with-string-writer ; ] with-string-writer ;
@ -206,10 +214,7 @@ PRIVATE>
] with-scaffold ; ] with-scaffold ;
: scaffold-undocumented ( string -- ) : scaffold-undocumented ( string -- )
dup words [ interesting-words. ] [ link-vocab ] bi ;
[ [ "help" word-prop ] [ predicate? ] bi or not ] filter
natural-sort [ (help.) nl ] each
link-vocab ;
: scaffold-vocab ( vocab-root string -- ) : scaffold-vocab ( vocab-root string -- )
prepare-scaffold prepare-scaffold