]> gitweb.factorcode.org Git - factor.git/commitdiff
rename benchmark.struct to tools.time.struct since it is not a benchmark
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 12 Aug 2010 04:51:19 +0000 (21:51 -0700)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 12 Aug 2010 04:51:19 +0000 (21:51 -0700)
extra/benchmark/struct/authors.txt [deleted file]
extra/benchmark/struct/struct.factor [deleted file]
extra/game/loop/loop.factor
extra/tools/time/struct/authors.txt [new file with mode: 0644]
extra/tools/time/struct/struct.factor [new file with mode: 0644]

diff --git a/extra/benchmark/struct/authors.txt b/extra/benchmark/struct/authors.txt
deleted file mode 100644 (file)
index 7c1b2f2..0000000
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman
diff --git a/extra/benchmark/struct/struct.factor b/extra/benchmark/struct/struct.factor
deleted file mode 100644 (file)
index addc40d..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-! Copyright (C) 2010 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.c-types classes.struct kernel memory
-system vm ;
-IN: benchmark.struct
-
-STRUCT: benchmark-data
-    { time ulonglong }
-    { data-room data-heap-room }
-    { code-room mark-sweep-sizes } ;
-
-STRUCT: benchmark-data-pair
-    { start benchmark-data }
-    { stop benchmark-data } ;
-
-: <benchmark-data> ( -- benchmark-data )
-    \ benchmark-data <struct>
-        nano-count >>time
-        code-room >>code-room
-        data-room >>data-room ; inline
-
-: <benchmark-data-pair> ( start stop -- benchmark-data-pair )
-    \ benchmark-data-pair <struct>
-        swap >>stop
-        swap >>start ; inline
-
-: with-benchmarking ( ... quot -- ... benchmark-data-pair )
-    <benchmark-data>
-    [ call ] dip
-    <benchmark-data> <benchmark-data-pair> ; inline
-
index ddb5f8b17d6c1160fa1fe8ce6c6a857e989e4ea4..1bdcece936075c10a10c77702e3540af0d8d5e2c 100644 (file)
@@ -3,7 +3,7 @@ USING: accessors timers alien.c-types calendar classes.struct
 continuations destructors fry kernel math math.order memory
 namespaces sequences specialized-vectors system
 tools.memory ui ui.gadgets.worlds vm vocabs.loader arrays
-benchmark.struct locals ;
+tools.time.struct locals ;
 IN: game.loop
 
 TUPLE: game-loop
diff --git a/extra/tools/time/struct/authors.txt b/extra/tools/time/struct/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
@@ -0,0 +1 @@
+Doug Coleman
diff --git a/extra/tools/time/struct/struct.factor b/extra/tools/time/struct/struct.factor
new file mode 100644 (file)
index 0000000..1f63fc0
--- /dev/null
@@ -0,0 +1,31 @@
+! Copyright (C) 2010 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors alien.c-types classes.struct kernel memory
+system vm ;
+IN: tools.time.struct
+
+STRUCT: benchmark-data
+    { time ulonglong }
+    { data-room data-heap-room }
+    { code-room mark-sweep-sizes } ;
+
+STRUCT: benchmark-data-pair
+    { start benchmark-data }
+    { stop benchmark-data } ;
+
+: <benchmark-data> ( -- benchmark-data )
+    \ benchmark-data <struct>
+        nano-count >>time
+        code-room >>code-room
+        data-room >>data-room ; inline
+
+: <benchmark-data-pair> ( start stop -- benchmark-data-pair )
+    \ benchmark-data-pair <struct>
+        swap >>stop
+        swap >>start ; inline
+
+: with-benchmarking ( ... quot -- ... benchmark-data-pair )
+    <benchmark-data>
+    [ call ] dip
+    <benchmark-data> <benchmark-data-pair> ; inline
+