diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler/Backend')
-rw-r--r-- | src/Language/Fiddle/Compiler/Backend/C.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/Language/Fiddle/Compiler/Backend/C.hs b/src/Language/Fiddle/Compiler/Backend/C.hs index a10839a..71344c5 100644 --- a/src/Language/Fiddle/Compiler/Backend/C.hs +++ b/src/Language/Fiddle/Compiler/Backend/C.hs @@ -9,23 +9,18 @@ module Language.Fiddle.Compiler.Backend.C (cBackend) where import Control.Arrow import Control.Monad (unless) import Control.Monad.RWS -import Control.Monad.State -import Control.Monad.Trans.Writer (Writer, execWriter) import qualified Data.Bits import Data.Char (isSpace) import Data.Data (Typeable, cast) -import Data.Foldable (forM_, toList) +import Data.Foldable (forM_) import Data.Kind (Type) -import qualified Data.List.NonEmpty as NonEmpty import Data.Map (Map) import qualified Data.Map as Map -import Data.Maybe (fromMaybe, mapMaybe) +import Data.Maybe (mapMaybe) import Data.Set (Set) import qualified Data.Set as Set -import Data.String (IsString) import Data.Text (Text) import qualified Data.Text as Text -import Data.Word import Language.Fiddle.Ast import Language.Fiddle.Compiler.Backend import Language.Fiddle.Compiler.Backend.Internal @@ -46,6 +41,8 @@ data CBackendFlags = CBackendFlags cHeaderOut :: FilePath } +-- data StructureInterface = Leaf String String + type StructName = Text -- | Header fragment. The top. Starts which include guards and has include |