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

tools.scaffold: fix scaffold-docs generating $var-decsription for classes

char-rename
Alexander Iljin 2016-06-25 23:13:36 +03:00 committed by John Benediktsson
parent ef29e0947f
commit 6834f93ad1
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/tools/scaffold/scaffold-tests.factor
View File

@ -20,6 +20,14 @@ IN: tools.scaffold.tests
[ \ undocumented-word (help.) ] with-string-writer [ \ undocumented-word (help.) ] with-string-writer
] unit-test ] unit-test
{
"HELP: iota-tuple
{ $class-description \"\" } ;
" }
[
[ \ iota-tuple (help.) ] with-string-writer
] unit-test
{ sequence t } [ "seq" lookup-type ] unit-test { sequence t } [ "seq" lookup-type ] unit-test
{ sequence t } [ "seq'" lookup-type ] unit-test { sequence t } [ "seq'" lookup-type ] unit-test
{ sequence t } [ "newseq" lookup-type ] unit-test { sequence t } [ "newseq" lookup-type ] unit-test

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

@ -185,6 +185,10 @@ M: object add-using ( object -- )
] if ] if
] when* ; ] when* ;
: class-description. ( word -- )
drop
"{ $class-description \"\" } ;" print ;
: symbol-description. ( word -- ) : symbol-description. ( word -- )
drop drop
"{ $var-description \"\" } ;" print ; "{ $var-description \"\" } ;" print ;
@ -194,11 +198,11 @@ M: object add-using ( object -- )
"{ $description \"\" } ;" print ; "{ $description \"\" } ;" print ;
: docs-body. ( word/symbol -- ) : docs-body. ( word/symbol -- )
dup symbol? [ {
symbol-description. { [ dup class? ] [ class-description. ] }
] [ { [ dup symbol? ] [ symbol-description. ] }
[ $values. ] [ $description. ] bi [ [ $values. ] [ $description. ] bi ]
] if ; } cond ;
: docs-header. ( word -- ) : docs-header. ( word -- )
"HELP: " write name>> print ; "HELP: " write name>> print ;