git.iko.soy/elk
on master help sign in
Add a binary instance for AST.Literal
dd4b588Evan Czaplicki
src/AST/Literal.hs+52−8
compare with master
unifiedsplit
@@ -1,7 +1,14 @@
1{-# OPTIONS_GHC -Wall #-}
1{-# OPTIONS_GHC -Wall #-}
2{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE OverloadedStrings #-}
3−module AST.Literal where
3+module AST.Literal
4+ ( Literal(..)
5+ , toBuilder
6+ , GLType(..), glTypeToText, Shader(..)
7+ )
8+ where
4
9
10+
11+import Data.Binary
5import qualified Data.Map as Map
12import qualified Data.Map as Map
6import Data.Monoid ((<>))
13import Data.Monoid ((<>))
7import Data.Text (Text)
14import Data.Text (Text)
@@ -37,6 +44,15 @@ toBuilder literal =
37-- WebGL TYPES
44-- WebGL TYPES
38
45
39
46
47+data Shader =
48+ Shader
49+ { attribute :: Map.Map Text GLType
50+ , uniform :: Map.Map Text GLType
51+ , varying :: Map.Map Text GLType
52+ }
53+ deriving (Eq)
54+
55+
40data GLType
56data GLType
41 = Int
57 = Int
42 | Float
58 | Float
@@ -60,10 +76,38 @@ glTypeToText glTipe =
60 Texture -> "WebGL.Texture"
76 Texture -> "WebGL.Texture"
61
77
62
78
63−data Shader =
79+
64− Shader
80+-- BINARY
65− { attribute :: Map.Map Text GLType
81+
66− , uniform :: Map.Map Text GLType
82+
67− , varying :: Map.Map Text GLType
83+instance Binary Literal where
68− }
84+ put literal =
69− deriving (Eq)
85+ case literal of
86+ Chr chr ->
87+ putWord8 0 >> put chr
88+
89+ Str str ->
90+ putWord8 1 >> put str
91+
92+ IntNum n ->
93+ putWord8 2 >> put n
94+
95+ FloatNum n ->
96+ putWord8 3 >> put n
97+
98+ Boolean True ->
99+ putWord8 4
100+
101+ Boolean False ->
102+ putWord8 5
103+
104+ get =
105+ do word <- getWord8
106+ case word of
107+ 0 -> Chr <$> get
108+ 1 -> Str <$> get
109+ 2 -> IntNum <$> get
110+ 3 -> FloatNum <$> get
111+ 4 -> pure $ Boolean True
112+ 5 -> pure $ Boolean False
113+ _ -> error "bad binary for AST.Literal"