字符串

到目前为止，我们的 Lisp 已经有了数字、符号、函数和列表。现在是时候添加字符串支持了。字符串是一系列字符的组合，用双引号包围。

我们需要添加一个新的 lval 类型来表示字符串：

enum { LVAL_ERR, LVAL_NUM,   LVAL_SYM,
       LVAL_FUN, LVAL_STR,   LVAL_SEXPR,
       LVAL_QEXPR };

字符串的构造函数和析构函数如下：

lval* lval_str(char* s) {
  lval* v = malloc(sizeof(lval));
  v->type = LVAL_STR;
  v->str = malloc(strlen(s) + 1);
  strcpy(v->str, s);
  return v;
}

在打印字符串时，我们需要用双引号包围：

case LVAL_STR:   printf("\"%s\"", v->str); break;

我们将实现以下字符串操作：

实现字符串长度：

lval* builtin_len(lenv* e, lval* a) {
  LASSERT_NUM("len", a, 1);

  lval* x;
  if (a->cell[0]->type == LVAL_STR) {
    x = lval_num(strlen(a->cell[0]->str));
  } else if (a->cell[0]->type == LVAL_QEXPR) {
    x = lval_num(a->cell[0]->count);
  } else {
    lval_del(a);
    return lval_err("Function 'len' passed incorrect type!");
  }

  lval_del(a);
  return x;
}

实现字符串连接：

lval* builtin_join(lenv* e, lval* a) {

  for (int i = 0; i < a->count; i++) {
    LASSERT(a, a->cell[i]->type == LVAL_STR,
      "Function 'join' passed incorrect type.");
  }

  char* str = calloc(1, sizeof(char));
  str[0] = '';

  for (int i = 0; i < a->count; i++) {
    char* old = str;
    int len = strlen(old) + strlen(a->cell[i]->str) + 1;
    str = malloc(len);
    strcpy(str, old);
    strcat(str, a->cell[i]->str);
    free(old);
  }

  lval_del(a);
  return lval_str(str);
}

字符串和符号看起来很相似，但它们有不同的用途：

在解析字符串时，我们需要处理转义字符，如 \n（换行）、\t（制表符）等。