miniMAL/types.json

   1 ["do",
   2
   3 ["`", "Utility Functions"],
   4 ["def", "_cmp_seqs", ["fn", ["a", "b"],
   5   ["if", ["not", ["=", ["count", "a"], ["count", "b"]]],
   6     false,
   7     ["if", ["empty?", "a"],
   8       true,
   9       ["if", ["equal?", ["get", "a", 0], ["get", "b", 0]],
  10         ["_cmp_seqs", ["rest", "a"], ["rest", "b"]],
  11         false]]]]],
  12
  13 ["def", "_check_hash_map_keys", ["fn", ["ks", "a", "b"],
  14   ["if", ["empty?", "ks"],
  15     true,
  16     ["let", ["k", ["first", "ks"]],
  17       ["if", ["equal?", ["get", "a", "k"], ["get", "b", "k"]],
  18         ["_check_hash_map_keys", ["rest", "ks"], "a", "b"],
  19         false]]]]],
  20 ["def", "_cmp_hash_maps", ["fn", ["a", "b"],
  21   ["let", ["aks", ["keys", "a"]],
  22     ["if", ["not", ["=", ["count", "aks"], ["count", ["keys", "b"]]]],
  23       false,
  24       ["_check_hash_map_keys", "aks", "a", "b"]]]]],
  25
  26 ["def", "equal?", ["fn", ["a", "b"],
  27   ["if", ["sequential?", "a"],
  28     ["if", ["sequential?", "b"],
  29       ["_cmp_seqs", "a", "b"],
  30       false],
  31   ["if", ["map?", "a"],
  32     ["if", ["map?", "b"],
  33       ["_cmp_hash_maps", "a", "b"],
  34       false],
  35   ["if", ["symbol?", "a"],
  36     ["=", ["get", "a", ["`", "val"]], ["get", "b", ["`", "val"]]],
  37     ["=", "a", "b"]]]]]],
  38
  39 ["def", "_clone", ["fn", ["obj"],
  40   ["if", ["list?", "obj"],
  41     ["slice", "obj", 0],
  42   ["if", ["vector?", "obj"],
  43     ["let", ["new-obj", ["slice", "obj", 0]],
  44       ["do",
  45         ["set", "new-obj", ["`", "__vector?__"], true],
  46         "new-obj"]],
  47   ["if", ["map?", "obj"],
  48     ["let", ["new-obj", ["hash-map"]],
  49       ["do",
  50         ["map", ["fn", ["k"],
  51                   ["if", [".", "obj", ["`", "hasOwnProperty"], "k"],
  52                     ["set", "new-obj", "k", ["get", "obj", "k"]],
  53                     null]],
  54                 ["keys", "obj"]],
  55         "new-obj"]],
  56   ["if", ["malfunc?", "obj"],
  57     ["let", ["new-obj", ["malfunc", ["get", "obj", ["`", "fn"]],
  58                                     ["get", "obj", ["`", "ast"]],
  59                                     ["get", "obj", ["`", "env"]],
  60                                     ["get", "obj", ["`", "params"]]]],
  61       ["do",
  62         ["set", "new-obj", ["`", "macro?"], ["get", "obj", ["`", "macro?"]]],
  63         ["set", "new-obj", ["`", "__meta__"], ["get", "obj", ["`", "__meta__"]]],
  64         "new-obj"]],
  65     ["throw", "clone of unsupported type"]]]]]]],
  66
  67 ["def", "clone", ["fn", ["obj"],
  68   ["let", ["new-obj", ["_clone", "obj"]],
  69     ["do",
  70       [".", "Object", ["`", "defineProperty"], "new-obj", ["`", "__meta__"],
  71         {"enumerable": false, "writable": true}],
  72       "new-obj"]]]],
  73
  74 ["def", "assoc!", ["fn", ["a", "b", "c"], ["do", ["set", "a", "b", "c"], "a"]]],
  75 ["def", "assocs!",  ["fn", ["hm", "kvs"],
  76     ["if", ["empty?", "kvs"],
  77       "hm",
  78       ["do",
  79         ["assoc!", "hm", ["get", "kvs", 0], ["get", "kvs", 1]],
  80         ["assocs!", "hm", ["slice", "kvs", 2]]]]]],
  81
  82
  83 ["def", "Symbol", ["fn", [], null]],
  84 ["def", "symbol", ["fn", ["name"],
  85   ["assoc!", ["new", "Symbol"], ["`", "val"], "name"]]],
  86
  87 ["def", "symbol?", ["fn", ["a"],
  88   ["isa", "a", "Symbol"]]],
  89
  90
  91 ["def", "keyword", ["fn", ["name"],
  92   ["str", ["`", "\u029e"], "name"]]],
  93
  94 ["def", "keyword?", ["fn", ["kw"],
  95   ["and", ["=", ["`", "[object String]"], ["classOf", "kw"]],
  96           ["=", ["`", "\u029e"], ["get", "kw", 0]]]]],
  97
  98
  99 ["`", "Override some list defs to account for Vectors"],
 100 ["def", "sequential?", ["fn", ["a"],
 101   [".", "Array", ["`", "isArray"], "a"]]],
 102
 103 ["def", "list?", ["fn", ["a"],
 104   ["if", [".", "Array", ["`", "isArray"], "a"],
 105     ["if", [".-", "a", ["`", "__vector?__"]],
 106       false,
 107       true],
 108     false]]],
 109
 110 ["def", "empty?", ["fn", ["a"],
 111   ["if", ["sequential?", "a"],
 112     ["if", ["=", 0, [".-", "a", ["`", "length"]]],
 113       true,
 114       false],
 115     ["=", "a", null]]]],
 116
 117
 118 ["def", "vectorl", ["fn", ["lst"],
 119   ["let", ["vec", ["slice", "lst", 0]],
 120     ["do",
 121       ["set", "vec", ["`", "__vector?__"], true],
 122       "vec"]]]],
 123
 124 ["def", "vector", ["fn", ["&", "args"], ["vectorl", "args"]]],
 125
 126 ["def", "vector?", ["fn", ["a"],
 127   ["if", [".", "Array", ["`", "isArray"], "a"],
 128     ["if", [".-", "a", ["`", "__vector?__"]],
 129       true,
 130       false],
 131     false]]],
 132
 133
 134 ["def", "HashMap", ["fn", [], null]],
 135 ["def", "hash-map", ["fn", ["&", "a"],
 136   ["assocs!", ["new", "HashMap"], "a"]]],
 137 ["def", "map?", ["fn", ["a"],
 138   ["isa", "a", "HashMap"]]],
 139
 140 ["def", "MalFunc", ["fn", [], null]],
 141 ["def", "malfunc", ["fn", ["fn", "ast", "env", "params"],
 142   ["assocs!", ["new", "MalFunc"],
 143               ["list", ["`", "fn"], "fn",
 144                        ["`", "ast"], "ast",
 145                        ["`", "env"], "env",
 146                        ["`", "params"], "params",
 147                        ["`", "macro?"], false]]]],
 148
 149 ["def", "malfunc?", ["fn", ["a"],
 150   ["isa", "a", "MalFunc"]]],
 151
 152 ["def", "Atom", ["fn", [], null]],
 153 ["def", "atom", ["fn", ["a"],
 154   ["let", ["atm", ["new", "Atom"]],
 155     ["do",
 156       ["set", "atm", ["`", "val"], "a"],
 157       "atm"]]]],
 158 ["def", "atom?", ["fn", ["a"],
 159   ["isa", "a", "Atom"]]],
 160
 161 null
 162 ]