diff options
author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-24 09:58:16 -0600 |
---|---|---|
committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-24 09:58:16 -0600 |
commit | a584a9ca11138bae15ebc1052d596af272b3fd79 (patch) | |
tree | 9d69e25e638cfdf84a2d3db2dc2709470588f478 /src/Language/Fiddle/Compiler/Backend/C.hs | |
parent | 977758cb8c968a9b371fdddbadf456e92107d11c (diff) | |
download | fiddle-a584a9ca11138bae15ebc1052d596af272b3fd79.tar.gz fiddle-a584a9ca11138bae15ebc1052d596af272b3fd79.tar.bz2 fiddle-a584a9ca11138bae15ebc1052d596af272b3fd79.zip |
C backend now implmeents some enums
Diffstat (limited to 'src/Language/Fiddle/Compiler/Backend/C.hs')
-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 |