等于函数

等于函数将会与排序函数有所不同，因为我们想要它不仅仅适用于数字类型。除此之外，它将用于判断输入是否为空列表，或者判断两个函数是否相同。因此我们需要定义一个用来检验两个不同类型lval变量是否相等的函数。

该函数实质上检查两个构成lval类型数据的所有字段是否相等。 若所有字段都相等，则两者被认为是相等的。 否则，若存在任何差异，则两者被认为是不相等的。

  1. int lval_eq(lval* x, lval* y) {
  3.   /* Different Types are always unequal */
  4.   if (x->type != y->type) { return 0; }
  6.   /* Compare Based upon type */
  7.   switch (x->type) {
  8.     /* Compare Number Value */
  9.     case LVAL_NUM: return (x->num == y->num);
  11.     /* Compare String Values */
  12.     case LVAL_ERR: return (strcmp(x->err, y->err) == 0);
  13.     case LVAL_SYM: return (strcmp(x->sym, y->sym) == 0);
  15.     /* If builtin compare, otherwise compare formals and body */
  16.     case LVAL_FUN:
  17.       if (x->builtin || y->builtin) {
  18.         return x->builtin == y->builtin;
  19.       } else {
  20.         return lval_eq(x->formals, y->formals)
  21.           && lval_eq(x->body, y->body);
  22.       }
  24.     /* If list compare every individual element */
  25.     case LVAL_QEXPR:
  26.     case LVAL_SEXPR:
  27.       if (x->count != y->count) { return 0; }
  28.       for (int i = 0; i < x->count; i++) {
  29.         /* If any element not equal then whole list not equal */
  30.         if (!lval_eq(x->cell[i], y->cell[i])) { return 0; }
  31.       }
  32.       /* Otherwise lists must be equal */
  33.       return 1;
  34.     break;
  35.   }
  36.   return 0;
  37. }

使用该函数，可以非常简单地新增用于比较是否相等的内置函数。 我们仅需要保证输入为两个参数，检验它们是否相等，然后我们将比较结果存储到一个新的lval中并返回它。

  1. lval* builtin_cmp(lenv* e, lval* a, char* op) {
  2.   LASSERT_NUM(op, a, 2);
  3.   int r;
  4.   if (strcmp(op, "==") == 0) {
  5.     r =  lval_eq(a->cell[0], a->cell[1]);
  6.   }
  7.   if (strcmp(op, "!=") == 0) {
  8.     r = !lval_eq(a->cell[0], a->cell[1]);
  9.   }
  10.   lval_del(a);
  11.   return lval_num(r);
  12. }
  14. lval* builtin_eq(lenv* e, lval* a) {
  15.   return builtin_cmp(e, a, "==");
  16. }
  18. lval* builtin_ne(lenv* e, lval* a) {
  19.   return builtin_cmp(e, a, "!=");
  20. }