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

scaffold-help now prints $var-description for symbols

db4
Doug Coleman 2009-03-14 10:36:24 -05:00
parent 7ed56a3cef
commit b8f24a303a
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ io.encodings.utf8 hashtables kernel namespaces sequences
vocabs.loader io combinators calendar accessors math.parser vocabs.loader io combinators calendar accessors math.parser
io.streams.string ui.tools.operations quotations strings arrays io.streams.string ui.tools.operations quotations strings arrays
prettyprint words vocabs sorting sets classes math alien urls prettyprint words vocabs sorting sets classes math alien urls
splitting ascii combinators.short-circuit ; splitting ascii combinators.short-circuit alarms words.symbol ;
IN: tools.scaffold IN: tools.scaffold
SYMBOL: developer-name SYMBOL: developer-name
@ -116,6 +116,7 @@ ERROR: no-vocab vocab ;
{ "ch" "a character" } { "ch" "a character" }
{ "word" word } { "word" word }
{ "array" array } { "array" array }
{ "alarm" alarm }
{ "duration" duration } { "duration" duration }
{ "path" "a pathname string" } { "path" "a pathname string" }
{ "vocab" "a vocabulary specifier" } { "vocab" "a vocabulary specifier" }
@ -162,15 +163,26 @@ ERROR: no-vocab vocab ;
] if ] if
] when* ; ] when* ;
: symbol-description. ( word -- )
drop
"{ $var-description \"\" } ;" print ;
: $description. ( word -- ) : $description. ( word -- )
drop drop
"{ $description \"\" } ;" print ; "{ $description \"\" } ;" print ;
: docs-body. ( word/symbol -- )
dup symbol? [
symbol-description.
] [
[ $values. ] [ $description. ] bi
] if ;
: docs-header. ( word -- ) : docs-header. ( word -- )
"HELP: " write name>> print ; "HELP: " write name>> print ;
: (help.) ( word -- ) : (help.) ( word -- )
[ docs-header. ] [ $values. ] [ $description. ] tri ; [ docs-header. ] [ docs-body. ] bi ;
: interesting-words ( vocab -- array ) : interesting-words ( vocab -- array )
words words