From 20a15553fa0fa4138c468d2892cd07d6baa061d2 Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Thu, 30 Jun 2011 16:55:54 -0400 Subject: Initial checkin of non-Python components. --- ShareGuardDB/Directory.hi | Bin 0 -> 1983 bytes ShareGuardDB/Directory.hs | 63 +++++++++++++++++++++++++++++++++++++++++ ShareGuardDB/Directory.o | Bin 0 -> 11020 bytes ShareGuardDB/Directory_user.hi | Bin 0 -> 1736 bytes ShareGuardDB/Directory_user.hs | 50 ++++++++++++++++++++++++++++++++ ShareGuardDB/Directory_user.o | Bin 0 -> 8716 bytes ShareGuardDB/User.hi | Bin 0 -> 1980 bytes ShareGuardDB/User.hs | 63 +++++++++++++++++++++++++++++++++++++++++ ShareGuardDB/User.o | Bin 0 -> 10912 bytes 9 files changed, 176 insertions(+) create mode 100644 ShareGuardDB/Directory.hi create mode 100644 ShareGuardDB/Directory.hs create mode 100644 ShareGuardDB/Directory.o create mode 100644 ShareGuardDB/Directory_user.hi create mode 100644 ShareGuardDB/Directory_user.hs create mode 100644 ShareGuardDB/Directory_user.o create mode 100644 ShareGuardDB/User.hi create mode 100644 ShareGuardDB/User.hs create mode 100644 ShareGuardDB/User.o (limited to 'ShareGuardDB') diff --git a/ShareGuardDB/Directory.hi b/ShareGuardDB/Directory.hi new file mode 100644 index 0000000..5623c8f Binary files /dev/null and b/ShareGuardDB/Directory.hi differ 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 Binary files /dev/null and b/ShareGuardDB/Directory.o differ diff --git a/ShareGuardDB/Directory_user.hi b/ShareGuardDB/Directory_user.hi new file mode 100644 index 0000000..6bfa14b Binary files /dev/null and b/ShareGuardDB/Directory_user.hi differ 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 Binary files /dev/null and b/ShareGuardDB/Directory_user.o differ diff --git a/ShareGuardDB/User.hi b/ShareGuardDB/User.hi new file mode 100644 index 0000000..d0a89cf Binary files /dev/null and b/ShareGuardDB/User.hi differ 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 Binary files /dev/null and b/ShareGuardDB/User.o differ -- cgit v1.2.3