Smart pascal source code


Type
  TProc = Procedure;

procedure Hello;
begin
  WriteLn('Hello');
end;

var P: TProc := Hello;

P; // normal call

Type
  TObj = Class
    FProc: TProc;
    Procedure Proc;
    Begin
      FProc; // error. FProc() - normal
    End;

  End;

var
o := TObj.Create;
o.FProc := Hello;

o.Proc;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello
Hello
-----------------------------
{<<<<<<<<< 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 $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $CheckFunc(i,z) { if (i) return i; throw Exception.Create($New(Exception),"Function pointer is nil"+z); }
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 THelper$proc(Self$1) {
   /* null */
}
var TObj = {
   $ClassName:"TObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FProc = null;
   }
   ,Destroy:TObject.Destroy
};
function Hello() {
   WriteLn("Hello");
};
var P = null,
   o = null;

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

   P = Hello;
   $CheckFunc(P,"")();
   o = TObject.Create($New(TObj));
   $Check(o,"").FProc = Hello;
   THelper$proc(o);