-------------------------------------------------------------------------------
--- $Id: Components.hs#3 2010/09/21 18:02:21 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.Components
where

-------------------------------------------------------------------------------

data Component
  = Lut1 [Int] Int Int String
  | Lut2 [Int] Int Int Int String
  | Lut3 [Int] Int Int Int Int String
  | Lut4 [Int] Int Int Int Int Int String
  | Lut5 [Int] Int Int Int Int Int Int String
  | Lut6 [Int] Int Int Int Int Int Int Int String
  | PrimitiveGate [(String, Int)] [(String, Int)]
    deriving (Eq, Show)

-------------------------------------------------------------------------------