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

Bug fix in word wrap

db4
Daniel Ehrenberg 2008-02-01 16:43:12 -06:00
parent 36bed1faab
commit 7cd7af7bd1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/wrap/wrap.factor
View File

@ -12,15 +12,17 @@ SYMBOL: width
: (split-chunk) ( words -- ) : (split-chunk) ( words -- )
-1 over [ length + 1+ dup width get > ] find drop nip -1 over [ length + 1+ dup width get > ] find drop nip
[ cut-slice swap , (split-chunk) ] [ , ] if* ; [ 1 max cut-slice swap , (split-chunk) ] [ , ] if* ;
: split-chunk ( words -- lines ) : split-chunk ( words -- lines )
[ (split-chunk) ] { } make ; [ (split-chunk) ] { } make ;
: join-spaces ( words-seqs -- lines )
[ [ " " join ] map ] map concat ;
: broken-lines ( string width -- lines ) : broken-lines ( string width -- lines )
width [ width [
line-chunks line-chunks [ split-chunk ] map join-spaces
[ split-chunk [ " " join ] map ] map concat
] with-variable ; ] with-variable ;
: line-break ( string width -- newstring ) : line-break ( string width -- newstring )