scope tok_hashLocalIdentifiers

// process #abc local identifier declaration

// => scope + "abc"

static LS tok_hashLocalIdentifiers(LS tok, S scope) {

  ret Obj(tok, scope)!;

}

srecord #Obj(LS tok, S scope) {

  bool verbose;

  selfType verbose(bool verbose)  { this.verbose = verbose; this; }

  LS get() {

    tok = cloneList(tok);

    scope = unnull(scope);

    if (endsWithLetterOrDigit(scope)) scope += "_";

    new HashSet<S> names;

    // first pass (find # declarations)

    for (int k = 1; k < l(tok); k += 2) {

      S t = _get(tok, k+2);

      if (eqGet(tok, k, "#") && isIdentifier(t)) {

        if (verbose)

          print("Local name found: " + t);

        names.add(t);

        replaceTokens(tok, k, k+3, scope + t);

      }

    }

    // early exit if nothing to do

    if (empty(names)) ret tok;

    // second pass (references to scoped variables)

    for (int k = 1; k < l(tok); k += 2) {

      S t = _get(tok, k);

      if (isIdentifier(t) && names.contains(t))

        tok.set(k, scope + t);

    }

    ret tok;

  }

}

end scope