I hereby claim:
- I am ph111p on github.
- I am ph111p (https://keybase.io/ph111p) on keybase.
- I have a public key ASBUeTkQXreYRpFRoffn49Q4p5zU2DqFgZx13_tSQwTxmwo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
#!/usr/bin/perl | |
#----------------------------------------------------------------------------- | |
# | |
# Copyright (C) 2011 | |
# Michael Theall (mtheall) | |
# Dave Murphy (WinterMute) | |
# | |
# This software is provided 'as-is', without any express or implied | |
# warranty. In no event will the authors be held liable for any | |
# damages arising from the use of this software. |
import Data.Char --for ord (Char -> Int) | |
data Query = Relation (String,[String]) -- (Relationenname, [Attributname]) | |
| Projection [String] Query -- [Attributname] | |
| Selection String Query -- Bedingung | |
| Rename [(String,String)] Query -- [(alter Attributname, neuer Attributname)] | |
| Union Query Query | |
| Difference Query Query | |
| Product Query Query | |
deriving Show |