import math
import operator as op
from collections import ChainMap
from types import MappingProxyType

from .symbol import Symbol


def eval(x, env):
    """
    Avalia expressão no ambiente de execução dado.
    """

    # Cria ambiente padrão, caso o usuário não passe o argumento opcional "env"
    if env is None:
        env = ChainMap({}, global_env)

    # Avalia tipos atômicos
    if isinstance(x, Symbol):
        if isinstance(x, list) and len(x) > 1:
            l = []
            for a in range(len(x)):
                l.append(env[a])
            return l
        return env[x]
    elif isinstance(x, (int, float, bool, str)):
        return x

    # Avalia formas especiais e listas
    head, *args = x

    if head == Symbol.BEGIN:
        print('args ', args)

    # Comando (+ <expression> <expression>)
    # Ex: (+ 2 2)
    if head == Symbol.ADD:
        x,y = args
        return eval(x, env) + eval(y, env)

    if head == Symbol('<='):
      x, y = args
      return eval(x, env) <= eval(y, env)

    # Comando (- <expression> <expression>)
    # Ex: (- 2 2)
    elif head == Symbol.SUB:
        x,y = args
        return eval(x, env) - eval(y, env)

    # Comando (* <expression> <expression>)
    # Ex: (* 2 2)
    elif head == Symbol.MUL:
        x,y = args
        return eval(x, env) * eval(y, env)

    # Comando (/ <expression> <expression>)
    # Ex: (/ 2 2)
    elif head == Symbol.DIV:
        x,y = args
        return eval(x, env) / eval(y, env)

    # Comando (if <test> <then> <other>)
    # Ex: (if (even? x) (quotient x 2) x)
    elif head == Symbol.IF:
        (_, test, then, alt) = x
        print('test then alt: ', test, then, alt)
        exp = (then if eval(test, env) else alt)
        value = eval(exp, env)
        return value

    # Comando (define <symbol> <expression>)
    # Ex: (define x (+ 40 2))
    elif head == Symbol.DEFINE:
        (_, symbol, exp) = x
        env[symbol] = eval(exp, env)

    # Comando (quote <expression>)
    # (quote (1 2 3))
    elif head == Symbol.QUOTE:
        arg = args
        l = []
        if any(isinstance(a, list) for a in arg):
            for i in arg[0]:
                if isinstance(i,list):
                    l.extend(i)
                else:
                    l.append(i)
        else:
            env[Symbol(arg[0])] = Symbol(arg[0])
            return arg[0]
        return l

    # Comando (let <expression> <expression>)
    # (let ((x 1) (y 2)) (+ x y))
    elif head == Symbol.LET:
        x, y = args
        print('LETLETLET:  ', x, y)
        dn = {}
        if any(isinstance(i, list) for i in x):
            for i in x:
                eval([Symbol.DEFINE] + i, ChainMap(dn, env))
        else:
            if x[0] not in env:
                eval([Symbol.DEFINE]+ x, ChainMap(dn, env))
        return eval(y, ChainMap(dn, env))


    # Comando (lambda <vars> <body>)
    # (lambda (x) (+ x 1))
    elif head == Symbol.LAMBDA:
        arg, body = args
        print('LAMBDA LAMBDA LABDA: ', arg, body)
        if any(isinstance(i, float) for i in arg):
            raise TypeError
        d = {}
        def fn(*p):
            p = list(p)
            for i in range(len(arg)):
                d[Symbol(arg[i])] = p[i]
            value = eval(body, ChainMap(d, env))
            return value
        env = ChainMap(env, d)
        return fn

    # Lista/chamada de funções
    # (sqrt 4)
    else:
        args = (eval(arg, env) for arg in x[1:])
        proc = eval(head, env)
        print('proc: ', proc)
        print('args: ', x)
        if callable(proc):
            return proc(*args)
        return proc


#
# Cria ambiente de execução.
#
def env(*args, **kwargs):
    """
    Retorna um ambiente de execução que pode ser aproveitado pela função
    eval().

    Aceita um dicionário como argumento posicional opcional. Argumentos nomeados
    são salvos como atribuições de variáveis.

    Ambiente padrão
    >>> env()
    {...}

    Acrescenta algumas variáveis explicitamente
    >>> env(x=1, y=2)
    {x: 1, y: 2, ...}

    Passa um dicionário com variáveis adicionais
    >>> d = {Symbol('x'): 1, Symbol('y'): 2}
    >>> env(d)
    {x: 1, y: 2, ...}
    """

    kwargs = {Symbol(k): v for k, v in kwargs.items()}
    if len(args) > 1:
        raise TypeError('accepts zero or one positional arguments')
    elif len(args):
        if any(not isinstance(x, Symbol) for x in args[0]):
            raise ValueError('keys in a environment must be Symbols')
        args[0].update(kwargs)
        return ChainMap(args[0], global_env)
    return ChainMap(kwargs, global_env)


def _make_global_env():
    """
    Retorna dicionário fechado para escrita relacionando o nome das variáveis aos
    respectivos valores.
    """

    dic = {
        **vars(math), # sin, cos, sqrt, pi, ...
        '+':op.add, '-':op.sub, '*':op.mul, '/':op.truediv,
        '>':op.gt, '<':op.lt, '>=':op.ge, '<=':op.le, '=':op.eq,
        'abs':     abs,
        'append':  op.add,
        'apply':   lambda proc, args: proc(*args),
        'begin':   lambda *x: x[-1],
        'car':     lambda x: head,
        'cdr':     lambda x: x[1:],
        'cons':    lambda x,y: [x] + y,
        'eq?':     op.is_,
        'expt':    pow,
        'equal?':  op.eq,
        'even?':   lambda x: x % 2 == 0,
        'length':  len,
        'list':    lambda *x: list(x),
        'list?':   lambda x: isinstance(x, list),
        'map':     map,
        'max':     max,
        'min':     min,
        'not':     op.not_,
        'null?':   lambda x: x == [],
        'number?': lambda x: isinstance(x, (float, int)),
		'odd?':   lambda x: x % 2 == 1,
        'print':   print,
        'procedure?': callable,
        'quotient': op.floordiv,
        'round':   round,
        'symbol?': lambda x: isinstance(x, Symbol),
    }
    return MappingProxyType({Symbol(k): v for k, v in dic.items()})

global_env = _make_global_env()

import math
import operator as op
from collections import ChainMap
from types import MappingProxyType

from .symbol import Symbol


def eval(x, env):
    """
    Avalia expressão no ambiente de execução dado.
    """

    # Cria ambiente padrão, caso o usuário não passe o argumento opcional "env"
    if env is None:
        env = ChainMap({}, global_env)

    # Avalia tipos atômicos
    if isinstance(x, Symbol):
        if isinstance(x, list) and len(x) > 1:
            l = []
            for a in range(len(x)):
                l.append(env[a])
            return l
        return env[x]
    elif isinstance(x, (int, float, bool, str)):
        return x

    # Avalia formas especiais e listas
    head, *args = x

    if head == Symbol.BEGIN:
        print('args ', args)

    # Comando (+ <expression> <expression>)
    # Ex: (+ 2 2)
    if head == Symbol.ADD:
        x,y = args
        return eval(x, env) + eval(y, env)

    if head == Symbol('<='):
      x, y = args
      return eval(x, env) <= eval(y, env)

    # Comando (- <expression> <expression>)
    # Ex: (- 2 2)
    elif head == Symbol.SUB:
        x,y = args
        return eval(x, env) - eval(y, env)

    # Comando (* <expression> <expression>)
    # Ex: (* 2 2)
    elif head == Symbol.MUL:
        x,y = args
        return eval(x, env) * eval(y, env)

    # Comando (/ <expression> <expression>)
    # Ex: (/ 2 2)
    elif head == Symbol.DIV:
        x,y = args
        return eval(x, env) / eval(y, env)

    # Comando (if <test> <then> <other>)
    # Ex: (if (even? x) (quotient x 2) x)
    elif head == Symbol.IF:
        (_, test, then, alt) = x
        print('test then alt: ', test, then, alt)
        exp = (then if eval(test, env) else alt)
        value = eval(exp, env)
        return value

    # Comando (define <symbol> <expression>)
    # Ex: (define x (+ 40 2))
    elif head == Symbol.DEFINE:
        (_, symbol, exp) = x
        env[symbol] = eval(exp, env)

    # Comando (quote <expression>)
    # (quote (1 2 3))
    elif head == Symbol.QUOTE:
        arg = args
        l = []
        if any(isinstance(a, list) for a in arg):
            for i in arg[0]:
                if isinstance(i,list):
                    l.extend(i)
                else:
                    l.append(i)
        else:
            env[Symbol(arg[0])] = Symbol(arg[0])
            return arg[0]
        return l

    # Comando (let <expression> <expression>)
    # (let ((x 1) (y 2)) (+ x y))
    elif head == Symbol.LET:
        x, y = args
        print('LETLETLET:  ', x, y)
        dn = {}
        if any(isinstance(i, list) for i in x):
            for i in x:
                eval([Symbol.DEFINE] + i, ChainMap(dn, env))
        else:
            if x[0] not in env:
                eval([Symbol.DEFINE]+ x, ChainMap(dn, env))
        return eval(y, ChainMap(dn, env))


    # Comando (lambda <vars> <body>)
    # (lambda (x) (+ x 1))
    elif head == Symbol.LAMBDA:
        arg, body = args
        print('LAMBDA LAMBDA LABDA: ', arg, body)
        if any(isinstance(i, float) for i in arg):
            raise TypeError
        d = {}
        def fn(*p):
            p = list(p)
            for i in range(len(arg)):
                d[Symbol(arg[i])] = p[i]
            value = eval(body, ChainMap(d, env))
            return value
        env = ChainMap(env, d)
        return fn

    # Lista/chamada de funções
    # (sqrt 4)
    else:
        args = (eval(arg, env) for arg in x[1:])
        proc = eval(head, env)
        print('proc: ', proc)
        print('args: ', x)
        if callable(proc):
            return proc(*args)
        return proc


#
# Cria ambiente de execução.
#
def env(*args, **kwargs):
    """
    Retorna um ambiente de execução que pode ser aproveitado pela função
    eval().

    Aceita um dicionário como argumento posicional opcional. Argumentos nomeados
    são salvos como atribuições de variáveis.

    Ambiente padrão
    >>> env()
    {...}

    Acrescenta algumas variáveis explicitamente
    >>> env(x=1, y=2)
    {x: 1, y: 2, ...}

    Passa um dicionário com variáveis adicionais
    >>> d = {Symbol('x'): 1, Symbol('y'): 2}
    >>> env(d)
    {x: 1, y: 2, ...}
    """

    kwargs = {Symbol(k): v for k, v in kwargs.items()}
    if len(args) > 1:
        raise TypeError('accepts zero or one positional arguments')
    elif len(args):
        if any(not isinstance(x, Symbol) for x in args[0]):
            raise ValueError('keys in a environment must be Symbols')
        args[0].update(kwargs)
        return ChainMap(args[0], global_env)
    return ChainMap(kwargs, global_env)


def _make_global_env():
    """
    Retorna dicionário fechado para escrita relacionando o nome das variáveis aos
    respectivos valores.
    """

    dic = {
        **vars(math), # sin, cos, sqrt, pi, ...
        '+':op.add, '-':op.sub, '*':op.mul, '/':op.truediv,
        '>':op.gt, '<':op.lt, '>=':op.ge, '<=':op.le, '=':op.eq,
        'abs':     abs,
        'append':  op.add,
        'apply':   lambda proc, args: proc(*args),
        'begin':   lambda *x: x[-1],
        'car':     lambda x: head,
        'cdr':     lambda x: x[1:],
        'cons':    lambda x,y: [x] + y,
        'eq?':     op.is_,
        'expt':    pow,
        'equal?':  op.eq,
        'even?':   lambda x: x % 2 == 0,
        'length':  len,
        'list':    lambda *x: list(x),
        'list?':   lambda x: isinstance(x, list),
        'map':     map,
        'max':     max,
        'min':     min,
        'not':     op.not_,
        'null?':   lambda x: x == [],
        'number?': lambda x: isinstance(x, (float, int)),
		'odd?':   lambda x: x % 2 == 1,
        'print':   print,
        'procedure?': callable,
        'quotient': op.floordiv,
        'round':   round,
        'symbol?': lambda x: isinstance(x, Symbol),
    }
    return MappingProxyType({Symbol(k): v for k, v in dic.items()})

global_env = _make_global_env()

Avalia expressão no ambiente de execução dado. # Cria ambiente padrão, caso o usuário não passe o argumento opcional "env" # Avalia tipos atômicos # Avalia formas especiais e listas # Comando (+ <expression> <expression>) # Ex: (+ 2 2) # Comando (- <expression> <expression>) # Ex: (- 2 2) # Comando (* <expression> <expression>) # Ex: (* 2 2) # Comando (/ <expression> <expression>) # Ex: (/ 2 2) # Comando (if <test> <then> <other>) # Ex: (if (even? x) (quotient x 2) x) # Comando (define <symbol> <expression>) # Ex: (define x (+ 40 2)) # Comando (quote <expression>) # (quote (1 2 3)) # Comando (let <expression> <expression>) # (let ((x 1) (y 2)) (+ x y)) # Comando (lambda <vars> <body>) # (lambda (x) (+ x 1)) # Lista/chamada de funções # (sqrt 4) # # Cria ambiente de execução. # Retorna um ambiente de execução que pode ser aproveitado pela função     eval().      Aceita um dicionário como argumento posicional opcional. Argumentos nomeados     são salvos como atribuições de variáveis.      Ambiente padrão     >>> env()     {...}      Acrescenta algumas variáveis explicitamente     >>> env(x=1, y=2)     {x: 1, y: 2, ...}      Passa um dicionário com variáveis adicionais     >>> d = {Symbol('x'): 1, Symbol('y'): 2}     >>> env(d)     {x: 1, y: 2, ...} Retorna dicionário fechado para escrita relacionando o nome das variáveis aos     respectivos valores. # sin, cos, sqrt, pi, ...