Pas2JS pascal source code


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

for var i := 10 downto i - 2 do
  WriteLn(i);

type
  TEnum = (enumOne, enumeTwo);

const
  c: array [TEnum] of String = ['one', 'two'];

var
e := enumOne;

for var f := Low(TEnum) to High(TEnum) do
  WriteLn(c[f]);

WriteLn(c[e]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
2
3
10
9
8
one
two
one

-----------------------------
{<<<<<<<<< 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 $Idx(i,l,h,z) {
	if (ih) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return i-l;
}
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var TEnum = [ "enumOne", "enumeTwo" ];
var c = ["one","two"];
var i = 0;
var i$1 = 0;
var e = 0,
   f = 0;

/* <<< main JS >>> */
for (i = 1; i <= 3; i++) {
	WriteLn(i);
}
var $temp1;
for (i$1 = 10, $temp1 = i$1 - 2; i$1 >= $temp1; i$1--) {
	WriteLn(i$1);
}
e = 0;
for (f = 0; f <= 1; f++) {
	WriteLn(c[$Idx(f, 0, 1, "")]);
}
WriteLn(c[$Idx(e, 0, 1, "")]);