1

你对用 Python 编写 Lisp 方言/解释器有什么建议吗?我想从几个基本命令开始,比如set, print, anddefine或其他东西。

4

2 回答 2

6

这里有一个 Python 中功能齐全的 Scheme 解释器。它的主要“评估循环”就是这样:

def _eval(self, expr, env):
    if DEBUG: print('~~~~ Eval called on %s [%s]' % (expr_repr(expr), type(expr)))
    if DEBUG: print('Env:')
    if DEBUG: pprint.pprint(env.binding)

    # Standard Scheme eval (SICP 4.1.1)
    #
    if is_self_evaluating(expr):
        return expr
    elif is_variable(expr):
        return env.lookup_var(expr.value)
    elif is_quoted(expr):
        return text_of_quotation(expr)
    elif is_assignment(expr):
        env.set_var_value(
            var=assignment_variable(expr).value, 
            value=self._eval(assignment_value(expr), env))
        return None
    elif is_definition(expr):
        env.define_var(
            var=definition_variable(expr).value,
            value=self._eval(definition_value(expr), env))
        return None
    elif is_if(expr):
        predicate = self._eval(if_predicate(expr), env)
        if predicate == Boolean(False):
            return self._eval(if_alternative(expr), env)
        else:
            return self._eval(if_consequent(expr), env)
    elif is_cond(expr):
        return self._eval(convert_cond_to_ifs(expr), env)
    elif is_let(expr):
        return self._eval(convert_let_to_application(expr), env)
    elif is_lambda(expr):
        return Procedure(
                    args=lambda_parameters(expr),
                    body=lambda_body(expr),
                    env=env)
    elif is_begin(expr):
        return self._eval_sequence(begin_actions(expr), env)
    elif is_application(expr):
        return self._apply(
                        self._eval(application_operator(expr), env),
                        self._list_of_values(application_operands(expr), env))
    else:
        raise self.InterpretError("Unknown expression in EVAL: %s" % expr)

几乎是您的教科书 Scheme eval 循环,但这是有效的实际代码。Bob 的代码非常清晰,如果您还有其他问题,请随时问我。

于 2011-06-04T10:32:56.007 回答
4

查看如何在 Python 中编写 Lisp 解释器

于 2011-06-04T07:41:01.300 回答