dictnext.c

#include <stdlib.h>
#include "amyplanyyutils.h"

char *str =
  "@function $test()\n"
  "  @locvar $dict = {\"a\": 1, \"c\": 3, \"b\": 2}\n"
  "  @locvar $k = @nil\n"
  "  @locvar $v = @nil\n"
  "  @dump(\"Next begin\")\n"
  "  @dump(@dictnext($dict, @nil))\n"
  "  @dump(@dictnext($dict, \"a\"))\n"
  "  @dump(@dictnext($dict, \"b\"))\n"
  "  @dump(@dictnext($dict, \"c\"))\n"
  "  @dump(\"Next end\")\n"
  "  @dump(\"Prev begin\")\n"
  "  @dump(@dictprev($dict, @nil))\n"
  "  @dump(@dictprev($dict, \"c\"))\n"
  "  @dump(@dictprev($dict, \"b\"))\n"
  "  @dump(@dictprev($dict, \"a\"))\n"
  "  @dump(\"Prev end\")\n"
  "  @dump(\"Iter begin\")\n"
  "  @fordict $k, $v ($dict)\n"
  "    @dump(\"Pair:\")\n"
  "    @dump($k)\n"
  "    @dump($v)\n"
  "  @endfor\n"
  "  @dump(\"Iter end\")\n"
  "  @dump(\"Rev Iter begin\")\n"
  "  @fordictprev $k, $v ($dict)\n"
  "    @dump(\"Pair:\")\n"
  "    @dump($k)\n"
  "    @dump($v)\n"
  "  @endfor\n"
  "  @dump(\"Rev Iter end\")\n"
  "@endfunction\n";

int main(int argc, char **argv)
{
  FILE *f = fmemopen(str, strlen(str), "r");
  struct amyplanyy amyplanyy = {};
  unsigned char tmpbuf[1024] = {0};
  size_t tmpsiz = 0;

  amyplanyy_init(&amyplanyy);

  if (!f)
  {
    abort();
  }
  amyplanyydoparse(f, &amyplanyy);
  fclose(f);

  {
    tmpsiz = 0;
    amyplanyy.abce.sp = 0;
    abce_add_ins_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), ABCE_OPCODE_PUSH_DBL);
    abce_add_double_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf),
      abce_sc_get_rec_str_fun(&amyplanyy.abce.dynscope, "test", 1));
    abce_add_ins_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), ABCE_OPCODE_FUNIFY);

    abce_add_ins_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), ABCE_OPCODE_PUSH_DBL);
    abce_add_double_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), 0); // arg cnt
    abce_add_ins_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), ABCE_OPCODE_CALL);
    abce_add_ins_alt(tmpbuf, &tmpsiz, sizeof(tmpbuf), ABCE_OPCODE_EXIT);
    printf("ret %d\n", abce_engine(&amyplanyy.abce, tmpbuf, tmpsiz));
    printf("sp %zu\n", amyplanyy.abce.sp);
    printf("\n");
  }

  amyplanyy_free(&amyplanyy);

  return 0;
}