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

Generalized pprint-string

release
Slava Pestov 2007-12-03 19:19:18 -05:00
parent 7cbf7ba719
commit cd041abee3
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/alien/syntax/syntax.factor Normal file → Executable file
View File

@ -59,4 +59,4 @@ M: alien pprint*
{ [ t ] [ \ ALIEN: [ alien-address pprint* ] pprint-prefix ] } { [ t ] [ \ ALIEN: [ alien-address pprint* ] pprint-prefix ] }
} cond ; } cond ;
M: dll pprint* dll-path dup "DLL\" " pprint-string ; M: dll pprint* dll-path dup "DLL\" " "\"" pprint-string ;

17
core/prettyprint/backend/backend.factor
View File

@ -89,19 +89,20 @@ M: f pprint* drop \ f pprint-word ;
{ 0.3 0.3 0.3 1.0 } foreground set { 0.3 0.3 0.3 1.0 } foreground set
] H{ } make-assoc ; ] H{ } make-assoc ;
: unparse-string ( str prefix -- str ) : unparse-string ( str prefix suffix -- str )
[ [ >r % do-string-limit [ unparse-ch ] each r> % ] "" make ;
% do-string-limit [ unparse-ch ] each CHAR: " ,
] "" make ;
: pprint-string ( obj str prefix -- ) : pprint-string ( obj str prefix suffix -- )
unparse-string swap string-style styled-text ; unparse-string swap string-style styled-text ;
M: string pprint* dup "\"" pprint-string ; M: string pprint*
dup "\"" "\"" pprint-string ;
M: sbuf pprint* dup "SBUF\" " pprint-string ; M: sbuf pprint*
dup "SBUF\" " "\"" pprint-string ;
M: pathname pprint* dup pathname-string "P\" " pprint-string ; M: pathname pprint*
dup pathname-string "P\" " "\"" pprint-string ;
! Sequences ! Sequences
: nesting-limit? ( -- ? ) : nesting-limit? ( -- ? )