Smart pascal source code


type
  TBase = class
  end;

type
  TChild = class(TBase)
  end;

var a: array of TChild;
var b: TBase;
var c: TChild;

a.Add(TChild.Create);

for b in a do
  WriteLn(b.ClassName);

for c in a do
  WriteLn(b.ClassName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TChild
TChild
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TObject={
	$ClassName: "TObject",
	$Parent: null,
	ClassName: function (s) { return s.$ClassName },
	ClassType: function (s) { return s },
	ClassParent: function (s) { return s.$Parent },
	$Init: function () {},
	Create: function (s) { return s },
	Destroy: function (s) { for (var prop in s) if (s.hasOwnProperty(prop)) delete s.prop },
	Destroy$: function(s) { return s.ClassType.Destroy(s) },
	Free: function (s) { if (s!==null) s.ClassType.Destroy(s) }
}
var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $ToClassType(o) {
	if (o===null) return o;
	return o.ClassType
}
;
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $DIdxR(a,i,z) {
	if (i<0) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>a.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return a[i];
}
function $Check(i,z) { if (i) return i; throw Exception.Create($New(Exception),"Object not instantiated"+z); }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function ClassName$1(Self$1) {
   return "Helper1."+TObject.ClassName($Check(Self$1,""));
}
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var TChild = {
   $ClassName:"TChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var a = [],
   b = null;
var c = null;
var a$1 = 0;
var a$2 = 0;

/* <<< main JS >>> */

a.push(TObject.Create($New(TChild)));
var $temp1;
for (a$1 = 0, $temp1 = a.length; a$1 < $temp1; a$1++) {
	b = $DIdxR(a, a$1, "");
	WriteLn(ClassName$1($ToClassType(b)));
}
var $temp2;
for (a$2 = 0, $temp2 = a.length; a$2 < $temp2; a$2++) {
	c = $DIdxR(a, a$2, "");
	WriteLn(ClassName$1($ToClassType(b)));
}