git.iko.soy/elk
on 8a43c40 help sign in
elk/src/Generate/JavaScript/Variable.hs
65 lines 2.1 kB history raw
1module Generate.JavaScript.Variable where
3import qualified AST.Helpers as Help
4import qualified AST.Module as Module
5import qualified AST.Variable as Var
6import qualified Data.List as List
7import qualified Data.Set as Set
8import qualified Generate.JavaScript.Helpers as JS
9import qualified Language.ECMAScript3.Syntax as JS
12swap :: Char -> Char -> Char -> Char
13swap from to c =
14 if c == from then to else c
17canonical :: Var.Canonical -> JS.Expression ()
18canonical (Var.Canonical home name) =
19 case Help.isOp name of
20 True -> JS.BracketRef () (JS.obj (home' ++ ["_op"])) (JS.string name)
21 False -> JS.obj (home' ++ [ varName name ])
22 where
23 home' =
24 case home of
25 Var.Local -> []
26 Var.TopLevel _ -> []
27 Var.BuiltIn -> []
28 Var.Module path -> [ moduleName path ]
31moduleName :: Module.Name -> String
32moduleName name =
33 '$' : List.intercalate "$" name
36varName :: String -> String
37varName name =
38 let saferName =
39 if Set.member name jsReserveds then '$' : name else name
40 in
41 map (swap '\'' '$') saferName
44value :: Module.Name -> String -> JS.Expression ()
45value home name =
46 canonical (Var.Canonical (Var.Module home) name)
49jsReserveds :: Set.Set String
50jsReserveds = Set.fromList
51 [ "null", "undefined", "Nan", "Infinity", "true", "false", "eval"
52 , "arguments", "int", "byte", "char", "goto", "long", "final", "float"
53 , "short", "double", "native", "throws", "boolean", "abstract", "volatile"
54 , "transient", "synchronized", "function", "break", "case", "catch"
55 , "continue", "debugger", "default", "delete", "do", "else", "finally"
56 , "for", "function", "if", "in", "instanceof", "new", "return", "switch"
57 , "this", "throw", "try", "typeof", "var", "void", "while", "with", "class"
58 , "const", "enum", "export", "extends", "import", "super", "implements"
59 , "interface", "let", "package", "private", "protected", "public"
60 , "static", "yield"
61 -- reserved by the Elm runtime system
62 , "Elm"
63 , "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9"
64 , "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9"
65 ]