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

more types

db4
Doug Coleman 2008-09-05 17:41:14 -05:00
parent 6feefffc7a
commit c44345e7a2
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ USING: assocs io.files hashtables kernel namespaces sequences
vocabs.loader io combinators io.encodings.utf8 calendar accessors vocabs.loader io combinators io.encodings.utf8 calendar accessors
math.parser io.streams.string ui.tools.operations quotations math.parser io.streams.string ui.tools.operations quotations
strings arrays prettyprint words vocabs sorting sets cords strings arrays prettyprint words vocabs sorting sets cords
classes sequences.lib combinators.lib ; classes sequences.lib combinators.lib alien math ;
IN: tools.scaffold IN: tools.scaffold
SYMBOL: developer-name SYMBOL: developer-name
@ -95,6 +95,7 @@ ERROR: no-vocab vocab ;
{ "obj3" object } { "obj4" object } { "obj3" object } { "obj4" object }
{ "quot" quotation } { "quot1" quotation } { "quot" quotation } { "quot1" quotation }
{ "quot2" quotation } { "quot3" quotation } { "quot2" quotation } { "quot3" quotation }
{ "quot'" quotation }
{ "string" string } { "string1" string } { "string" string } { "string1" string }
{ "string2" string } { "string3" string } { "string2" string } { "string3" string }
{ "str" string } { "str" string }
@ -105,9 +106,20 @@ ERROR: no-vocab vocab ;
{ "ch" "a character" } { "ch" "a character" }
{ "word" word } { "word" word }
{ "array" array } { "array" array }
{ "duration" duration }
{ "path" "a pathname string" } { "path" "a pathname string" }
{ "vocab" "a vocabulary specifier" } { "vocab" "a vocabulary specifier" }
{ "vocab-root" "a vocabulary root string" } { "vocab-root" "a vocabulary root string" }
{ "c-ptr" c-ptr }
{ "seq" sequence } { "seq1" sequence } { "seq2" sequence }
{ "seq3" sequence } { "seq4" sequence }
{ "seq1'" sequence } { "seq2'" sequence }
{ "newseq" sequence }
{ "assoc" assoc } { "assoc1" assoc } { "assoc2" assoc }
{ "assoc3" assoc } { "newassoc" assoc }
{ "alist" "an array of key/value pairs" }
{ "keys" sequence } { "values" sequence }
{ "class" class }
} at* ; } at* ;
: add-using ( object -- ) : add-using ( object -- )
@ -225,3 +237,20 @@ PRIVATE>
[ drop scaffold-authors ] [ drop scaffold-authors ]
[ nip require ] [ nip require ]
} 2cleave ; } 2cleave ;
SYMBOL: examples-flag
: example ( -- )
{
"{ $example \"\" \"USING: prettyprint ;\""
" \"\""
" \"\""
"}"
} [ examples-flag get [ " " write ] when print ] each ;
: examples ( n -- )
t \ examples-flag [
"{ $examples " print
[ example ] times
"}" print
] with-variable ;