From 3660643dccd5566c6fc9c7e45abccdca53428daa Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 23 Nov 2008 03:10:11 -0600
Subject: [PATCH] Remove extra/micros since we have this in the core now

---
 extra/micros/authors.txt            |  1 -
 extra/micros/backend/backend.factor |  4 ----
 extra/micros/micros-docs.factor     | 14 --------------
 extra/micros/micros-tests.factor    |  7 -------
 extra/micros/micros.factor          | 13 -------------
 extra/micros/summary.txt            |  1 -
 extra/micros/unix/tags.txt          |  1 -
 extra/micros/unix/unix.factor       |  6 ------
 extra/micros/windows/tags.txt       |  1 -
 extra/micros/windows/windows.factor |  7 -------
 10 files changed, 55 deletions(-)
 delete mode 100644 extra/micros/authors.txt
 delete mode 100644 extra/micros/backend/backend.factor
 delete mode 100644 extra/micros/micros-docs.factor
 delete mode 100644 extra/micros/micros-tests.factor
 delete mode 100644 extra/micros/micros.factor
 delete mode 100644 extra/micros/summary.txt
 delete mode 100644 extra/micros/unix/tags.txt
 delete mode 100644 extra/micros/unix/unix.factor
 delete mode 100644 extra/micros/windows/tags.txt
 delete mode 100644 extra/micros/windows/windows.factor

diff --git a/extra/micros/authors.txt b/extra/micros/authors.txt
deleted file mode 100644
index 0be42b2faa..0000000000
--- a/extra/micros/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Phil Dawes
diff --git a/extra/micros/backend/backend.factor b/extra/micros/backend/backend.factor
deleted file mode 100644
index 905b6aa1ae..0000000000
--- a/extra/micros/backend/backend.factor
+++ /dev/null
@@ -1,4 +0,0 @@
-IN: micros.backend
-USING: io.backend ;
-    
-HOOK: (micros) io-backend ( -- n )
diff --git a/extra/micros/micros-docs.factor b/extra/micros/micros-docs.factor
deleted file mode 100644
index 98dcb9944e..0000000000
--- a/extra/micros/micros-docs.factor
+++ /dev/null
@@ -1,14 +0,0 @@
-IN: micros
-USING: help.syntax help.markup kernel prettyprint sequences ;
-
-HELP: micros
-{ $values { "n" "an integer" } } 
-{ $description "Outputs the number of microseconds ellapsed since midnight January 1, 1970"
-} ;
-
-    
-HELP: micro-time
-{ $values { "quot" "a quot" }
-          { "n" "an integer" } }
-{ $description "executes the quotation and pushes the number of microseconds taken onto the stack"
-} ;
diff --git a/extra/micros/micros-tests.factor b/extra/micros/micros-tests.factor
deleted file mode 100644
index 991ce04b26..0000000000
--- a/extra/micros/micros-tests.factor
+++ /dev/null
@@ -1,7 +0,0 @@
-IN: micros.tests
-USING: micros tools.test math math.functions system kernel ;
-
-! a bit racy but I can't think of a better way to check this right now
-[ t ]
-[ millis 1000 / micros 1000000 / [ truncate ] bi@ = ] unit-test
-
diff --git a/extra/micros/micros.factor b/extra/micros/micros.factor
deleted file mode 100644
index 554c838890..0000000000
--- a/extra/micros/micros.factor
+++ /dev/null
@@ -1,13 +0,0 @@
-IN: micros
-USING: micros.backend system kernel combinators vocabs.loader math ;
-
-: micros ( -- n ) (micros) ; inline
-
-: micro-time ( quot -- n )
-  micros slip micros swap - ; inline
-
-{
-    { [ os unix? ] [ "micros.unix" ] }
-    { [ os windows? ] [ "micros.windows" ] }
-} cond require
-
diff --git a/extra/micros/summary.txt b/extra/micros/summary.txt
deleted file mode 100644
index c1bc9d6fce..0000000000
--- a/extra/micros/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Microsecond precision clock
diff --git a/extra/micros/unix/tags.txt b/extra/micros/unix/tags.txt
deleted file mode 100644
index 6bf68304bb..0000000000
--- a/extra/micros/unix/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-unportable
diff --git a/extra/micros/unix/unix.factor b/extra/micros/unix/unix.factor
deleted file mode 100644
index c16d3623ac..0000000000
--- a/extra/micros/unix/unix.factor
+++ /dev/null
@@ -1,6 +0,0 @@
-IN: micros.unix
-USING: micros.backend io.backend system alien.c-types kernel unix.time math ;
-
-M: unix (micros)
-  "timespec" <c-object> dup f gettimeofday drop
-  [ timespec-sec 1000000 * ] [ timespec-nsec ] bi + ;
diff --git a/extra/micros/windows/tags.txt b/extra/micros/windows/tags.txt
deleted file mode 100644
index 6bf68304bb..0000000000
--- a/extra/micros/windows/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-unportable
diff --git a/extra/micros/windows/windows.factor b/extra/micros/windows/windows.factor
deleted file mode 100644
index b2beab720d..0000000000
--- a/extra/micros/windows/windows.factor
+++ /dev/null
@@ -1,7 +0,0 @@
-IN: micros.windows
-USING: system kernel windows.time math math.functions micros.backend ;
-
-! 116444736000000000 is the windowstime epoch offset
-! since windowstime starts at 1600 and unix epoch is 1970
-M: windows (micros)
-  windows-time 116444736000000000 - 10 / truncate ;
\ No newline at end of file