From 3d9801a22e2f835a67aa3e7891d1e725e0280390 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 29 Apr 2008 06:01:31 -0500
Subject: [PATCH] Remove unused vocab

---
 .../http/server/sessions/storage/db/db.factor | 40 -------------------
 .../server/sessions/storage/null/null.factor  | 16 --------
 .../server/sessions/storage/storage.factor    | 12 ------
 3 files changed, 68 deletions(-)
 delete mode 100755 extra/http/server/sessions/storage/db/db.factor
 delete mode 100644 extra/http/server/sessions/storage/null/null.factor
 delete mode 100755 extra/http/server/sessions/storage/storage.factor

diff --git a/extra/http/server/sessions/storage/db/db.factor b/extra/http/server/sessions/storage/db/db.factor
deleted file mode 100755
index 0d8ad84985..0000000000
--- a/extra/http/server/sessions/storage/db/db.factor
+++ /dev/null
@@ -1,40 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: assocs accessors kernel http.server.sessions.storage
-http.server.sessions http.server db db.tuples db.types math.parser
-math.intervals fry random calendar sequences alarms ;
-IN: http.server.sessions.storage.db
-
-SINGLETON: sessions-in-db
-
-session "SESSIONS"
-{
-    ! { "id" "ID" +random-id+ system-random-generator }
-    { "id" "ID" INTEGER +db-assigned-id+ }
-    { "expires" "EXPIRES" BIG-INTEGER +not-null+ }
-    { "namespace" "NAMESPACE" FACTOR-BLOB }
-} define-persistent
-
-: init-sessions-table session ensure-table ;
-
-M: sessions-in-db get-session ( id storage -- session/f )
-    drop dup [ <session> select-tuple ] when ;
-
-M: sessions-in-db update-session ( session storage -- )
-    drop update-tuple ;
-
-M: sessions-in-db delete-session ( id storage -- )
-    drop <session> delete-tuple ;
-
-M: sessions-in-db new-session ( session storage -- )
-    drop insert-tuple ;
-
-: expired-sessions ( -- session )
-    f <session>
-    USE: math now timestamp>millis [ 60 60 * 1000 * - ] keep [a,b] >>expires
-    select-tuples ;
-
-: start-expiring-sessions ( db seq -- )
-    '[
-        , , [ expired-sessions [ delete-tuple ] each ] with-db
-    ] 5 minutes every drop ;
diff --git a/extra/http/server/sessions/storage/null/null.factor b/extra/http/server/sessions/storage/null/null.factor
deleted file mode 100644
index e915d57f83..0000000000
--- a/extra/http/server/sessions/storage/null/null.factor
+++ /dev/null
@@ -1,16 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel http.server.sessions.storage ;
-IN: http.server.sessions.storage.null
-
-SINGLETON: null-sessions
-
-: null-sessions-error "No session storage installed" throw ;
-
-M: null-sessions get-session null-sessions-error ;
-
-M: null-sessions update-session null-sessions-error ;
-
-M: null-sessions delete-session null-sessions-error ;
-
-M: null-sessions new-session null-sessions-error ;
diff --git a/extra/http/server/sessions/storage/storage.factor b/extra/http/server/sessions/storage/storage.factor
deleted file mode 100755
index c605600f7b..0000000000
--- a/extra/http/server/sessions/storage/storage.factor
+++ /dev/null
@@ -1,12 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: calendar ;
-IN: http.server.sessions.storage
-
-GENERIC: get-session ( id storage -- session )
-
-GENERIC: update-session ( session storage -- )
-
-GENERIC: delete-session ( id storage -- )
-
-GENERIC: new-session ( session storage -- )