Declared Helper

Smart pascal source code


Type
  THelper = Helper For TObject Procedure proc;
  begin
    WriteLn(ClassName + '.Proc!');
  end;
End;

{ main.pas }

Begin
{$IF Declared('THelper.Proc')}
  THelper.proc(TObject.Create);
{$ELSE}
{$FATAL 'THelper.Proc is not declared'}
{$ENDIF}
{$IF Declared('THelper.ProcBug')}
{$FATAL 'THelper.ProcBug is declared'}
{$ELSE}
  WriteLn('THelper.ProcBug not declared');
{$ENDIF}
{$IF Declared('TObject.Proc')}
  TObject.Create.proc;
{$ELSE}
{$FATAL 'TObject.Proc is not declared'}
{$ENDIF}
{$IF Declared('TObject.ProcBug')}
{$FATAL 'TObject.ProcBug is declared'}
{$ELSE}
  WriteLn('TObject.ProcBug not declared');
{$ENDIF}

  { <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>>
    TObject.Proc!
    THelper.ProcBug not declared
    TObject.ProcBug not declared
  }

  THelper$proc(TObject.Create($New(TObject)));
  WriteLn("THelper.ProcBug not declared");
  THelper$1$proc$1(TObject.Create($New(TObject)));
  WriteLn("TObject.ProcBug not declared");

/// procedure THelper.proc(Self: TObject)
///  [line: 74, column: 12, file: uMain]
function THelper$proc(Self$1) {
   WriteLn((TObject.ClassName(Self$1.ClassType)+".Proc!"));
}