pluto-src 0.1.1+0.10.4

Sources of Pluto (Lua 5.4 dialect) and logic to build it.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

#pragma once

#include <string>
#include <utility>
#include <vector>

#include "llex.h"

#ifdef PLUTO_PARSER_SUGGESTIONS
struct SuggestionsState {
  struct Suggestion {
    const char* type;
    const char* name;
    std::string extra;
  };

  LexState* const ls;

  const char* str = "";
  size_t len = 0;

  std::vector<Suggestion> suggestions;

  SuggestionsState(LexState* ls)
    : ls(ls) {
    if (ls->t.token != TK_SUGGEST_0) {
      luaX_next(ls); /* skip pluto_suggest_x */
      str = luaX_token2str_noq(ls, ls->t.token);
      len = strlen(str);
    }
    luaX_next(ls); /* skip pluto_suggest_0 or filter */
  }

  void push(const char* type, const char* name, std::string extra = {}) {
    suggestions.emplace_back(Suggestion{ type, name, std::move(extra) });
  }

  void pushLocals() {
    for (int i = ls->fs->nactvar - 1; i >= 0; i--) {
      Vardesc *vd = getlocalvardesc(ls->fs, i);
      if (strcmp(getstr(vd->vd.name), "Pluto_operator_new") != 0
          && strcmp(getstr(vd->vd.name), "Pluto_operator_extends") != 0
          && strcmp(getstr(vd->vd.name), "Pluto_operator_instanceof") != 0
          && strcmp(getstr(vd->vd.name), "(for state)") != 0
          && strcmp(getstr(vd->vd.name), "(switch control value)") != 0
          && strcmp(getstr(vd->vd.name), "(try results)") != 0
        ) {
        push("local", getstr(vd->vd.name));
      }
    }
  }

  ~SuggestionsState() {
    /* filter suggestions */
    for (auto i = suggestions.begin(); i != suggestions.end(); ) {
      if (strncmp(i->name, str, len) == 0)
        ++i;
      else
        i = suggestions.erase(i);
    }

    /* emit suggestions if we have any */
    if (!suggestions.empty()) {
      std::string msg = "suggest: ";
      for (const auto& suggestion : suggestions) {
        msg.append(suggestion.type);
        msg.push_back(',');
        msg.append(suggestion.name);
        if (!suggestion.extra.empty()) {
          msg.push_back(',');
          msg.append(suggestion.extra);
        }
        msg.push_back(';');
      }
      msg.pop_back();
      lua_warning(ls->L, msg.c_str(), 0);
    }
  }
};
#endif