Smart pascal source code


type
  TRec = record
    a, b: String;
  end;

var r: TRec;
r.a := 'hello';
r.b := 'world';

WriteLn(r.a);
WriteLn(r.b);
Swap(r.a, r.b);
WriteLn(r.a);
WriteLn(r.b);

var ar: array [0 .. 1] of TRec;

ar[0].a := 'a0';
ar[0].b := 'b0';
ar[1].a := 'a1';
ar[1].b := 'b1';

Swap(ar[0].a, ar[1].b);
Swap(ar[1].a, ar[0].b);

WriteLn(ar[0].a + ar[0].b);
WriteLn(ar[1].a + ar[1].b);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
hello
world
world
hello
b1a1
b0a0
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function Copy$TRec(s,d) {
   d.a=s.a;
   d.b=s.b;
   return d;
}
function Clone$TRec($) {
   return {
      a:$.a,
      b:$.b
   }
}
var r = {a:"",b:""};
var ar = [{a:"",b:""},{a:"",b:""}];

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

   r.a = "hello";
   r.b = "world";
   WriteLn(r.a);
   WriteLn(r.b);
   var $temp1 = r.a; r.a = r.b; r.b = $temp1;
   WriteLn(r.a);
   WriteLn(r.b);
   ar[0].a = "a0";
   ar[0].b = "b0";
   ar[1].a = "a1";
   ar[1].b = "b1";
   var $temp2 = ar[0].a; ar[0].a = ar[1].b; ar[1].b = $temp2;
   var $temp3 = ar[1].a; ar[1].a = ar[0].b; ar[0].b = $temp3;
   WriteLn((ar[0].a+ar[0].b));
   WriteLn((ar[1].a+ar[1].b));