Smart pascal source code


var &begin: Integer;

type
  &end = class(TObject);

type
  &procedure = class(&end);

procedure &shl(&then: String);
begin
  WriteLn(&then + IntToStr(&begin));
  &begin := &begin + 1;
end;

&shl(&end.ClassName);
&shl(&procedure.ClassName);
WriteLn(&begin);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
end0
procedure1
2
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function shl(then) {
   WriteLn((then+begin.toString()));
   begin+=1;
};
var end = {
   $ClassName:"end",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var procedure = {
   $ClassName:"procedure",$Parent:end
   ,$Init:function ($) {
      end.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var begin = 0;

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

   shl(ClassName$1(end));
   shl(ClassName$1(procedure));
   WriteLn(begin);