From fdc812d307685ca7ce1d65499b1be1eda3512509 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 27 Feb 2008 16:08:57 -0600
Subject: [PATCH] add extra:size-of

---
 extra/size-of/size-of.factor | 46 ++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 extra/size-of/size-of.factor

diff --git a/extra/size-of/size-of.factor b/extra/size-of/size-of.factor
new file mode 100644
index 0000000000..df43a9adb2
--- /dev/null
+++ b/extra/size-of/size-of.factor
@@ -0,0 +1,46 @@
+
+USING: kernel namespaces sequences
+       io io.files io.launcher bake builder.util
+       accessors vars ;
+
+IN: size-of
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+VAR: headers
+
+: include-headers ( -- seq )
+  headers> [ { "#include <" , ">" } bake to-string ] map ;
+
+: size-of-c-program ( type -- lines )
+  {
+    "#include <stdio.h>"
+    include-headers
+    { "main() { printf( \"%i\\n\" , sizeof( " , " ) ) ; }" }
+  }
+  bake to-strings ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: c-file ( -- path ) "size-of.c" temp-file ;
+
+: exe ( -- path ) "size-of" temp-file ;
+
+: answer ( -- path ) "size-of-answer" temp-file ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: size-of ( type -- n )
+  c-file
+    [ size-of-c-program [ print ] each ]
+  with-file-writer
+
+  { "gcc" c-file "-o" exe } to-strings
+  [ "Error compiling generated C program" print ] run-or-bail
+  
+  <process*>
+    { exe } to-strings >>arguments
+    answer             >>stdout
+  >desc run-process drop
+
+  answer eval-file ;
\ No newline at end of file