Smart pascal source code


type
  TParent = record
    A: string;
    Sub: record B: String;
  end;
end;

var r1, r2: TParent;

r1.A := 'hello';
r1.Sub.B := 'world';

r2 := r1;

WriteLn(r2.A);
WriteLn(r2.Sub.B);

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

function Copy$TParent(s,d) {
   d.A$1=s.A$1;
   Copy$a$1(s.Sub,d.Sub);
   return d;
}
function Clone$TParent($) {
   return {
      A$1:$.A$1,
      Sub:Clone$a$1($.Sub)
   }
}
function Copy$a$1(s,d) {
   d.B=s.B;
   return d;
}
function Clone$a$1($) {
   return {
      B:$.B
   }
}
function Pub$a$1($) {
   return {
      "B" : $.B
   }
}
var r1 = {A$1:"",Sub:{B:""}};
var r2 = {A$1:"",Sub:{B:""}};

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

   r1.A$1 = "hello";
   r1.Sub.B = "world";
   Copy$TParent(r1,r2);
   WriteLn(r2.A$1);
   WriteLn(r2.Sub.B);