Smart pascal source code


type
  TFoo = class
end;

type
  TBar = class
end;

procedure Test(t: array of TClass);
begin
  Writeln(t.Length);
  for var c in t do
    Writeln(c.ClassName);
end;

{ main.pas }
begin
  Test([]);
  Test([TObject]);
  Test([TFoo]);
  Test([TFoo, TBar]);
  Test([TFoo, TObject]);
  Test([TObject, TFoo]);
  Test([TBar, TObject, TFoo]);

{ CONSOLE OUTPUT
  0
  1
  TObject
  1
  TFoo
  2
  TFoo
  TBar
  2
  TFoo
  TObject
  2
  TObject
  TFoo
  3
  TBar
  TObject
  TFoo
}

  Test([]);
  Test([TObject].slice());
  Test([TFoo].slice());
  Test([TFoo, TBar].slice());
  Test([TFoo, TObject].slice());
  Test([TObject, TFoo].slice());
  Test([TBar, TObject, TFoo].slice());

function Test(t) {
   var a$1 = 0;
   var c = null;
   WriteLn(t.length);
   var $temp1;
   for(a$1=0,$temp1=t.length;a$1<$temp1;a$1++) {
      c = t[a$1];
      WriteLn(ClassName$1(c));
   }
};

var TBar = {
   $ClassName:"TBar",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};

var TFoo = {
   $ClassName:"TFoo",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};