#pas
type
  lng_indexer = (
  ...
  lng_project_name,
  ...
  lng_last);

...

function lng_proc(parser:TParser; obj:pointer; index:integer; args:TArgs):TScData;
...
   lng_project_name:
    begin
      integer(pointer(@buf[0])^) := parser.el;
      parser.cgt.GetParam(PARAM_PROJECT_NAME, @buf[0]);
      Result.SetValue(ExtractFileNameWOExt(buf));
    end;
   ...
end;
...
  methods[integer(lng_project_name)] := MakeMethod('project_name', 0, '');
...