blob: 80fbf12245d3cc751bf06beded3dd1e47b6e1b07 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
types = require "./types.coffee"
# Env
exports.Env = class Env
constructor: (@outer=null, @binds=[], @exprs=[]) ->
@data = {}
if @binds.length > 0
for b,i in @binds
if types._symbol_Q(b) && b.name == "&"
@data[@binds[i+1].name] = exprs[i..]
break
else
@data[b.name] = exprs[i]
find: (key) ->
if not types._symbol_Q(key)
throw new Error("env.find key must be symbol")
if key.name of @data then @
else if @outer then @outer.find(key)
else null
set: (key, value) ->
if not types._symbol_Q(key)
throw new Error("env.set key must be symbol")
@data[key.name] = value
get: (key) ->
if not types._symbol_Q(key)
throw new Error("env.get key must be symbol")
env = @find(key)
throw new Error("'" + key.name + "' not found") if !env
env.data[key.name]
# vim: ts=2:sw=2
|
