Method code for $compiler.do_method()

[Turn off line numbering]

  1: arg vars, flags, args;
  2: var m;
  3: 
  4: if (!(m = (| (flags.to_list())[1][1] |)))
  5:     throw(~parse, "{method} syntax: {method OBJ.METHOD:text}");
  6: if (m[1] != "$")
  7:     m = "$" + m;
  8: m = (> $parse_lib.ref(m) <);
  9: if (m[1] != 'method)
 10:     throw(~parse, "{method} target is not a method reference");
 11: m = substr(tostr(m[2]), 2) + "." + m[4];
 12: return [$format.new_tag("method", [m], args), vars];

// Created 17-Jul-1996 as a part of ColdCore, see: @help Credit

Tlon