PH111P

Keybase proof

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:

PH111P

#!/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.

PH111P

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