// macro declareS { S s = blubbi(); }
//
// void myThing {
//   declareS     // expands to: S s = blubbi();
//   print(s);
// }
svoid tok_localMacro(LS tok) {
  int i;
  while ping ((i = jfind_reversed(tok, "macro <id> {")) >= 0) {
    S macroName = tok.get(i+2);
    int iMacroOpeningBracket = i+4;
    int iMacroClosingBracket = findEndOfBlock(tok, iMacroOpeningBracket)-1;
    
    S replacement = joinSubList(tok, iMacroOpeningBracket+1, iMacroClosingBracket);
    
    // do the replacement
    print("Replacing macro " + macroName + " with <" + trim(replacement) + ">");
    
    int end = findEndOfBlock(tok, iMacroClosingBracket)-1;
    for ping (int j = iMacroClosingBracket+2; j < end; j += 2)
      if (eq(tok.get(j), macroName)) tok.set(j, replacement);
      
    // delete macro declaration
    clearTokens(tok, i, iMacroClosingBracket+1);
    
    reTok(tok, i, end);
  }
}

Began life as a copy of #1013759