{- |
Module      :  ./RelationalScheme/Keywords.hs
Description :  Keywords for Relational Schemes
Copyright   :  Dominik Luecke, Uni Bremen 2008
License     :  GPLv2 or higher, see LICENSE.txt or LIZENZ.txt

Maintainer  :  luecke@informatik.uni-bremen.de
Stability   :  provisional
Portability :  portable

Keywords for Relational Schemes
-}

module RelationalScheme.Keywords where

import Common.Id

rsTables :: String
rsTables :: String
rsTables = "Tables"

rsTablesId :: Id
rsTablesId :: Id
rsTablesId = String -> Id
stringToId String
rsTables

rsKey :: String
rsKey :: String
rsKey = "key"

rsKeyId :: Id
rsKeyId :: Id
rsKeyId = String -> Id
stringToId String
rsKey

rsRelationships :: String
rsRelationships :: String
rsRelationships = "Relationships"

rsRelationshipsId :: Id
rsRelationshipsId :: Id
rsRelationshipsId = String -> Id
stringToId String
rsRelationships

rs1to1 :: String
rs1to1 :: String
rs1to1 = "one_to_one"

rs1to1Id :: Id
rs1to1Id :: Id
rs1to1Id = String -> Id
stringToId String
rs1to1

rs1tom :: String
rs1tom :: String
rs1tom = "one_to_many"

rs1tomId :: Id
rs1tomId :: Id
rs1tomId = String -> Id
stringToId String
rs1tom

rsmto1 :: String
rsmto1 :: String
rsmto1 = "many_to_one"

rsmto1Id :: Id
rsmto1Id :: Id
rsmto1Id = String -> Id
stringToId String
rsmto1

rsmtom :: String
rsmtom :: String
rsmtom = "many_to_many"

rsmtomId :: Id
rsmtomId :: Id
rsmtomId = String -> Id
stringToId String
rsmtom

rsBool :: String
rsBool :: String
rsBool = "boolean"

rsBoolId :: Id
rsBoolId :: Id
rsBoolId = String -> Id
stringToId String
rsBool

rsBin :: String
rsBin :: String
rsBin = "binary"

rsBinId :: Id
rsBinId :: Id
rsBinId = String -> Id
stringToId String
rsBin

rsDate :: String
rsDate :: String
rsDate = "date"

rsDateId :: Id
rsDateId :: Id
rsDateId = String -> Id
stringToId String
rsDate

rsDatetime :: String
rsDatetime :: String
rsDatetime = "datetime"

rsDatetimeId :: Id
rsDatetimeId :: Id
rsDatetimeId = String -> Id
stringToId String
rsDatetime

rsDecimal :: String
rsDecimal :: String
rsDecimal = "decimal"

rsDecimalId :: Id
rsDecimalId :: Id
rsDecimalId = String -> Id
stringToId String
rsDecimal

rsFloat :: String
rsFloat :: String
rsFloat = "float"

rsFloatId :: Id
rsFloatId :: Id
rsFloatId = String -> Id
stringToId String
rsFloat

rsDouble :: String
rsDouble :: String
rsDouble = "double"

rsDoubleId :: Id
rsDoubleId :: Id
rsDoubleId = String -> Id
stringToId String
rsDouble

rsLong :: String
rsLong :: String
rsLong = "long"

rsLongId :: Id
rsLongId :: Id
rsLongId = String -> Id
stringToId String
rsLong

rsInteger :: String
rsInteger :: String
rsInteger = "integer"

rsIntegerId :: Id
rsIntegerId :: Id
rsIntegerId = String -> Id
stringToId String
rsInteger

rsString :: String
rsString :: String
rsString = "string"

rsStringId :: Id
rsStringId :: Id
rsStringId = String -> Id
stringToId String
rsString

rsText :: String
rsText :: String
rsText = "text"

rsTextId :: Id
rsTextId :: Id
rsTextId = String -> Id
stringToId String
rsText

rsTime :: String
rsTime :: String
rsTime = "time"

rsTimeId :: Id
rsTimeId :: Id
rsTimeId = String -> Id
stringToId String
rsTime

rsTimestamp :: String
rsTimestamp :: String
rsTimestamp = "timestamp"

rsTimestampId :: Id
rsTimestampId :: Id
rsTimestampId = String -> Id
stringToId String
rsTimestamp

rsArrow :: String
rsArrow :: String
rsArrow = "->"

rsArrowId :: Id
rsArrowId :: Id
rsArrowId = String -> Id
stringToId String
rsArrow

rsNonPosInteger :: String
rsNonPosInteger :: String
rsNonPosInteger = "nonPositiveInteger"

rsNonPosIntegerId :: Id
rsNonPosIntegerId :: Id
rsNonPosIntegerId = String -> Id
stringToId String
rsNonPosInteger

rsNonNegInteger :: String
rsNonNegInteger :: String
rsNonNegInteger = "nonNegativeInteger"

rsNonNegIntegerId :: Id
rsNonNegIntegerId :: Id
rsNonNegIntegerId = String -> Id
stringToId String
rsNonNegInteger

rsPointer :: String
rsPointer :: String
rsPointer = "pointer"

rsPointerId :: Id
rsPointerId :: Id
rsPointerId = String -> Id
stringToId String
rsPointer

rsDataTypes :: [String]
rsDataTypes :: [String]
rsDataTypes = [String
rsBool, String
rsBin, String
rsDate, String
rsDatetime, String
rsDecimal, String
rsFloat, String
rsInteger,
               String
rsString, String
rsText, String
rsTime, String
rsTimestamp, String
rsDouble, String
rsNonPosInteger,
               String
rsNonNegInteger]

rsKeyWords :: [String]
rsKeyWords :: [String]
rsKeyWords = [String
rsTables, String
rsKey, String
rsRelationships, String
rs1to1, String
rs1tom, String
rsmto1, String
rsmtom,
              String
rsArrow, "end", "spec", "arch", "unit", "ref", "from", "logic",
              "then", String
rsPointer] [String] -> [String] -> [String]
forall a. [a] -> [a] -> [a]
++ [String]
rsDataTypes