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
math.parser io.streams.string ui.tools.operations quotations
strings arrays prettyprint words vocabs sorting sets cords
classes sequences.lib combinators.lib ;
classes sequences.lib combinators.lib alien math ;
IN: tools.scaffold
SYMBOL: developer-name
@ -95,6 +95,7 @@ ERROR: no-vocab vocab ;
{ "obj3" object } { "obj4" object }
{ "quot" quotation } { "quot1" quotation }
{ "quot2" quotation } { "quot3" quotation }
{ "quot'" quotation }
{ "string" string } { "string1" string }
{ "string2" string } { "string3" string }
{ "str" string }
@ -105,9 +106,20 @@ ERROR: no-vocab vocab ;
{ "ch" "a character" }
{ "word" word }
{ "array" array }
{ "duration" duration }
{ "path" "a pathname string" }
{ "vocab" "a vocabulary specifier" }
{ "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* ;
: add-using ( object -- )
@ -225,3 +237,20 @@ PRIVATE>
[ drop scaffold-authors ]
[ nip require ]
} 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 ;