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

Merge branch 'tools.scaffold' of http://github.com/jonenst/factor

Slava Pestov 2010-08-02 20:47:13 -04:00
parent 05ba77262a 95aaccc6a1
commit ce60ea6b51
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,6 +7,7 @@ math.parser io.streams.string ui.tools.operations quotations
strings arrays prettyprint words vocabs sorting sets classes strings arrays prettyprint words vocabs sorting sets classes
math alien urls splitting ascii combinators.short-circuit timers math alien urls splitting ascii combinators.short-circuit timers
words.symbol system summary ; words.symbol system summary ;
FROM: sets => members ;
IN: tools.scaffold IN: tools.scaffold
SYMBOL: developer-name SYMBOL: developer-name
@ -164,15 +165,20 @@ M: bad-developer-name summary
: 4bl ( -- ) : 4bl ( -- )
" " write ; inline " " write ; inline
: ?print-nl ( seq1 seq2 -- )
{ [ nip empty? ] [ drop empty? ] } 2|| not
[ nl ] when ;
: $values. ( word -- ) : $values. ( word -- )
"declared-effect" word-prop [ "declared-effect" word-prop [
[ in>> ] [ out>> ] bi [ in>> ] [ out>> ] bi
2dup [ empty? ] bi@ and [ 2dup [ empty? ] bi@ and [
2drop 2drop
] [ ] [
[ members ] dip over diff
"{ $values" print "{ $values" print
[ 4bl ($values.) ] [ drop 4bl ($values.) ]
[ [ nl 4bl ($values.) ] unless-empty ] bi* [ ?print-nl ]
[ nip 4bl ($values.) ] 2tri
nl "}" print nl "}" print
] if ] if
] when* ; ] when* ;