// Yay funny naming time! ("shipping")
/* transient event interface onRecordAdded as OnRecordAdded shipping RecordAdded;
   => stuff
*/
svoid tok_eventInterfaces(LS tok) {
  int i;

  while ((i = jfind(tok, "transient event interface <id> as <id> shipping <id>;")) >= 0) {
    int iStart = i;
    i += 2;
    int iSemicolon = indexOf(tok, iStart, ";");
    S listenerType = get(tok, i+4);
    S method = get(tok, i+8);
    S eventType = get(tok, i+12);
    
    replaceTokens_reTok(tok, iStart, iSemicolon+1, 
      tok_formatDollarVars([[
        interface $intf {
          void $method($eventType event);
        }
        
        transient L<$Listener> $listeners;
        synchronized selfType $add($Listener l) { $listeners = addOrCreate($listeners, l); this; }
        synchronized Cl<$Listener> $listeners() { ret cloneList($listeners); }
        void $method($Event event) { for (l : $listeners()) pcall { l?.$method(event); } }
      ]],
        +method,
        intf := listenerType,
        +eventType,
        Event := eventType,
        add := method,
        Listener := listenerType,
        listeners := method + "_listeners"));
  }
}

Began life as a copy of #1027845