utilities.dylan

define macro gen-bindings
  { gen-bindings(?:name; ?flags) }
    => { ?flags }
flags:
  { }
    => { }
  { ?flag, ... }
  => { ?flag; ... }

flag:
  { }
    => { }
  { ?identifier:name => ?dylan-identifier:name ?ignore-this }
    => { if (?dylan-identifier)
           ?name ## "$" ?identifier ## "-setter"(?dylan-identifier, opts);
           format-out("XXX %=\n", ?dylan-identifier);
         end if }
  { ?identifier:name ?ignore-this }
    => { if (?identifier)
           ?name ## "$" ?identifier ## "-setter"(?identifier, opts);
           format-out("YYY %=\n", ?identifier);
         end if }
ignore-this:
  { = ?val:* }
    => { }
  { }
    => { }
end macro;