Smart pascal source code


var i: Integer;

for i := 1 to 5 step 3 do
  WriteLn(i);

for i := 5 downto 1 step 3 do
  WriteLn(i);

try
  var s := -1;
  for i := 1 to 5 step s do
    WriteLn(i);
except
  on E: Exception do
    WriteLn(E.Message);
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
4
5
2
FOR loop STEP should be strictly positive: -1 [line: 11, column: 4]
-----------------------------
{<<<<<<<<< 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 $W(e) { return e.ClassType?e:Exception.Create($New(Exception),e.constructor.name+", "+e.message) }
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $Is(o,c) {
	if (o===null) return false;
	return $Inh(o.ClassType,c);
}
;
function $Inh(s,c) {
	if (s===null) return false;
	while ((s)&&(s!==c)) s=s.$Parent;
	return (s)?true:false;
}
;
function $CheckStep(s,z) { if (s>0) return s; throw Exception.Create($New(Exception),"FOR loop STEP should be strictly positive: "+s.toString()+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); } };
var i = 0;
var s = 0;

/* <<< main JS >>> */
for (i = 1; i <= 5; i += 3) {
	WriteLn(i);
}
for (i = 5; i >= 1; i -= 3) {
	WriteLn(i);
}
try {
	s = -1;
	var $temp1;
	for (i = 1, $temp1 = $CheckStep(s, ""); i <= 5; i += $temp1) {
		WriteLn(i);
	}
} catch ($e) {
	var E = $W($e);
	WriteLn($Check(E, "").FMessage)
}