svoid tok_gettableFields(LS tok) {
  int i = -1;
  while ((i = jfind(tok, i+1, "gettable <id>")) >= 0) {
    int iModifiers = i+2;
    int iEndOfModifiers = tok_scanModifiers_idx(tok, iModifiers);
    int iType = iEndOfModifiers;
    int iEndOfType = tok_endOfType(tok, iEndOfModifiers);
    S type = joinSubList_cToC(tok, iType, iEndOfType);
    S var = identifierOrQuestionMark(get(tok, iEndOfType));
    printVars(+i, +iModifiers, +iEndOfModifiers, +iType, +iEndOfType, +type, +var);
    tokReplace_reTok(tok, i, i+2,
      join(listMinus(subList(tok, iModifiers, iEndOfModifiers),   "volatile"))
      + tok_formatDollarVars(
        "public $type $var aka $getVar() { ret $var; } ",
          +type, +var, getVar := "get" + firstToUpper(var)));
  }
}

Began life as a copy of #1032961