Smart pascal source code


type
  TSub = record
    D: String;
  end;

type
  TParent = record
    A: String;
    Sub: record C: TSub;
  end;
end;

var r1, r2: TParent;

r1.A := 'hello';
r1.Sub.C.D := 'world';

r2 := r1;

WriteLn(r2.A);
WriteLn(r2.Sub.C.D);

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

function Copy$TSub(s,d) {
   d.D=s.D;
   return d;
}
function Clone$TSub($) {
   return {
      D:$.D
   }
}
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) {
   Copy$TSub(s.C,d.C);
   return d;
}
function Clone$a$1($) {
   return {
      C:Clone$TSub($.C)
   }
}
function Pub$a$1($) {
   return {
      "C" : Pub$TSub($.C)
   }
}
var r1 = {A$1:"",Sub:{C:{D:""}}};
var r2 = {A$1:"",Sub:{C:{D:""}}};

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

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