compiler/src/AST/Module/Name.hs · elk

git.iko.soy/elk

on 2f9afbe help sign in

elk/compiler/src/AST/Module/Name.hs

198 lines 3.1 kB history raw

1{-# OPTIONS_GHC -Wall #-}

2{-# LANGUAGE OverloadedStrings #-}

3module AST.Module.Name

4 ( Canonical(..)

5 , basics, char, string

6 , maybe, result, list, array, dict, tuple

7 , platform, cmd, sub

8 , virtualDom, debug, bitwise

9 , jsonDecode, jsonEncode

10 , webgl, texture, vector2, vector3, vector4, matrix4

11 , canonicalIsKernel

12 )

13 where

16import Prelude hiding (maybe)

17import Control.Monad (liftM2)

18import Data.Binary

19import qualified Data.Name as Name

21import qualified Elm.Package as Pkg

25-- NAMES

28data Canonical =

29 Canonical

30 { _package :: !Pkg.Name

31 , _module :: !Name.Name

32 }

33 deriving (Ord)

36instance Eq Canonical where

37 (==) (Canonical pkg home) (Canonical pkg' home') =

38 home == home' && pkg == pkg'

42-- PRIMITIVES

45{-# NOINLINE basics #-}

46basics :: Canonical

47basics = Canonical Pkg.core "Basics"

50{-# NOINLINE char #-}

51char :: Canonical

52char = Canonical Pkg.core Name.char

55{-# NOINLINE string #-}

56string :: Canonical

57string = Canonical Pkg.core Name.string

61-- CONTAINERS

64{-# NOINLINE maybe #-}

65maybe :: Canonical

66maybe = Canonical Pkg.core Name.maybe

69{-# NOINLINE result #-}

70result :: Canonical

71result = Canonical Pkg.core Name.result

74{-# NOINLINE list #-}

75list :: Canonical

76list = Canonical Pkg.core Name.list

79{-# NOINLINE array #-}

80array :: Canonical

81array = Canonical Pkg.core Name.array

84{-# NOINLINE dict #-}

85dict :: Canonical

86dict = Canonical Pkg.core Name.dict

89{-# NOINLINE tuple #-}

90tuple :: Canonical

91tuple = Canonical Pkg.core Name.tuple

95-- EFFECTS

98{-# NOINLINE platform #-}

99platform :: Canonical

100platform = Canonical Pkg.core Name.platform

101

102

103{-# NOINLINE cmd #-}

104cmd :: Canonical

105cmd = Canonical Pkg.core "Platform.Cmd"

106

107

108{-# NOINLINE sub #-}

109sub :: Canonical

110sub = Canonical Pkg.core "Platform.Sub"

114-- MISC

117{-# NOINLINE virtualDom #-}

118virtualDom :: Canonical

119virtualDom = Canonical Pkg.virtualDom Name.virtualDom

120

121

122{-# NOINLINE debug #-}

123debug :: Canonical

124debug = Canonical Pkg.core Name.debug

125

126

127{-# NOINLINE bitwise #-}

128bitwise :: Canonical

129bitwise = Canonical Pkg.core Name.bitwise

133-- JSON

136{-# NOINLINE jsonDecode #-}

137jsonDecode :: Canonical

138jsonDecode = Canonical Pkg.json "Json.Decode"

139

140

141{-# NOINLINE jsonEncode #-}

142jsonEncode :: Canonical

143jsonEncode = Canonical Pkg.json "Json.Encode"

147-- WEBGL

150{-# NOINLINE webgl #-}

151webgl :: Canonical

152webgl = Canonical Pkg.webgl "WebGL"

153

154

155{-# NOINLINE texture #-}

156texture :: Canonical

157texture = Canonical Pkg.webgl "WebGL.Texture"

158

159

160{-# NOINLINE vector2 #-}

161vector2 :: Canonical

162vector2 = Canonical Pkg.linearAlgebra "Math.Vector2"

163

164

165{-# NOINLINE vector3 #-}

166vector3 :: Canonical

167vector3 = Canonical Pkg.linearAlgebra "Math.Vector3"

168

169

170{-# NOINLINE vector4 #-}

171vector4 :: Canonical

172vector4 = Canonical Pkg.linearAlgebra "Math.Vector4"

173

174

175{-# NOINLINE matrix4 #-}

176matrix4 :: Canonical

177matrix4 = Canonical Pkg.linearAlgebra "Math.Matrix4"

181-- IS KERNEL

184canonicalIsKernel :: Canonical -> Bool

185canonicalIsKernel (Canonical _ name) =

186 Name.isKernel name

190-- BINARY

193instance Binary Canonical where

194 put (Canonical a b) =

195 put a >> put b

196

197 get =

198 liftM2 Canonical get get