Initial checkin of non-Python components.

9 files changed, 176 insertions, 0 deletions

diff --git a/ShareGuardDB/Directory.hi b/ShareGuardDB/Directory.hi
new file mode 100644
index 0000000..5623c8f
--- /dev/null
+++ b/ShareGuardDB/Directory.hi
diff --git a/ShareGuardDB/Directory.hs b/ShareGuardDB/Directory.hs
new file mode 100644
index 0000000..1e51b10
--- /dev/null
+++ b/ShareGuardDB/Directory.hs
@@ -0,0 +1,63 @@
+{-# OPTIONS_GHC -fcontext-stack43 #-}
+-- NOTE: use GHC flag -fcontext-stack43 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.Directory where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type Directory =
+    (RecCons Id (Expr Integer)
+     (RecCons Name (Expr String)
+      (RecCons Owner_id (Expr Integer) RecNil)))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+directory :: Table Directory
+
+directory = baseTable "directory" $
+            hdbMakeEntry Id #
+            hdbMakeEntry Name #
+            hdbMakeEntry Owner_id
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- Id Field
+---------------------------------------------------------------------------
+
+data Id = Id
+
+instance FieldTag Id where fieldName _ = "id"
+
+xid :: Attr Id Integer
+xid = mkAttr Id
+
+---------------------------------------------------------------------------
+-- Name Field
+---------------------------------------------------------------------------
+
+data Name = Name
+
+instance FieldTag Name where fieldName _ = "name"
+
+name :: Attr Name String
+name = mkAttr Name
+
+---------------------------------------------------------------------------
+-- Owner_id Field
+---------------------------------------------------------------------------
+
+data Owner_id = Owner_id
+
+instance FieldTag Owner_id where fieldName _ = "owner_id"
+
+owner_id :: Attr Owner_id Integer
+owner_id = mkAttr Owner_id
diff --git a/ShareGuardDB/Directory.o b/ShareGuardDB/Directory.o
new file mode 100644
index 0000000..4fee297
--- /dev/null
+++ b/ShareGuardDB/Directory.o
diff --git a/ShareGuardDB/Directory_user.hi b/ShareGuardDB/Directory_user.hi
new file mode 100644
index 0000000..6bfa14b
--- /dev/null
+++ b/ShareGuardDB/Directory_user.hi
diff --git a/ShareGuardDB/Directory_user.hs b/ShareGuardDB/Directory_user.hs
new file mode 100644
index 0000000..9600fdd
--- /dev/null
+++ b/ShareGuardDB/Directory_user.hs
@@ -0,0 +1,50 @@
+{-# OPTIONS_GHC -fcontext-stack42 #-}
+-- NOTE: use GHC flag -fcontext-stack42 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.Directory_user where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type Directory_user =
+    (RecCons User_id (Expr Integer)
+     (RecCons Directory_id (Expr Integer) RecNil))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+directory_user :: Table Directory_user
+
+directory_user = baseTable "directory_user" $
+                 hdbMakeEntry User_id #
+                 hdbMakeEntry Directory_id
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- User_id Field
+---------------------------------------------------------------------------
+
+data User_id = User_id
+
+instance FieldTag User_id where fieldName _ = "user_id"
+
+user_id :: Attr User_id Integer
+user_id = mkAttr User_id
+
+---------------------------------------------------------------------------
+-- Directory_id Field
+---------------------------------------------------------------------------
+
+data Directory_id = Directory_id
+
+instance FieldTag Directory_id where fieldName _ = "directory_id"
+
+directory_id :: Attr Directory_id Integer
+directory_id = mkAttr Directory_id
diff --git a/ShareGuardDB/Directory_user.o b/ShareGuardDB/Directory_user.o
new file mode 100644
index 0000000..6dbbef6
--- /dev/null
+++ b/ShareGuardDB/Directory_user.o
diff --git a/ShareGuardDB/User.hi b/ShareGuardDB/User.hi
new file mode 100644
index 0000000..d0a89cf
--- /dev/null
+++ b/ShareGuardDB/User.hi
diff --git a/ShareGuardDB/User.hs b/ShareGuardDB/User.hs
new file mode 100644
index 0000000..682e5fe
--- /dev/null
+++ b/ShareGuardDB/User.hs
@@ -0,0 +1,63 @@
+{-# OPTIONS_GHC -fcontext-stack43 #-}
+-- NOTE: use GHC flag -fcontext-stack43 with this module if GHC < 6.8.1
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module ShareGuardDB.User where
+
+import Database.HaskellDB.DBLayout
+
+---------------------------------------------------------------------------
+-- Table type
+---------------------------------------------------------------------------
+
+type User =
+    (RecCons Id (Expr Integer)
+     (RecCons Username (Expr String)
+      (RecCons Password (Expr String) RecNil)))
+
+---------------------------------------------------------------------------
+-- Table
+---------------------------------------------------------------------------
+user :: Table User
+
+user = baseTable "user" $
+       hdbMakeEntry Id #
+       hdbMakeEntry Username #
+       hdbMakeEntry Password
+
+---------------------------------------------------------------------------
+-- Fields
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+-- Id Field
+---------------------------------------------------------------------------
+
+data Id = Id
+
+instance FieldTag Id where fieldName _ = "id"
+
+xid :: Attr Id Integer
+xid = mkAttr Id
+
+---------------------------------------------------------------------------
+-- Username Field
+---------------------------------------------------------------------------
+
+data Username = Username
+
+instance FieldTag Username where fieldName _ = "username"
+
+username :: Attr Username String
+username = mkAttr Username
+
+---------------------------------------------------------------------------
+-- Password Field
+---------------------------------------------------------------------------
+
+data Password = Password
+
+instance FieldTag Password where fieldName _ = "password"
+
+password :: Attr Password String
+password = mkAttr Password
diff --git a/ShareGuardDB/User.o b/ShareGuardDB/User.o
new file mode 100644
index 0000000..1b46b28
--- /dev/null
+++ b/ShareGuardDB/User.o