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

size-of: Use bake syntax

db4
Eduardo Cavazos 2008-06-30 10:26:18 -05:00
parent 568f91daca
commit 31d0e3c77b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/size-of/size-of.factor
View File

@ -12,15 +12,15 @@ IN: size-of
VAR: headers VAR: headers
: include-headers ( -- seq ) : include-headers ( -- seq )
headers> [ { "#include <" , ">" } bake to-string ] map ; headers> [ `{ "#include <" , ">" } to-string ] map ;
: size-of-c-program ( type -- lines ) : size-of-c-program ( type -- lines )
{ `{
"#include <stdio.h>" "#include <stdio.h>"
include-headers include-headers
{ "main() { printf( \"%i\" , sizeof( " , " ) ) ; }" } { "main() { printf( \"%i\" , sizeof( " , " ) ) ; }" }
} }
bake to-strings ; to-strings ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!