🚀 go-pugleaf

$B2,K\!w6bBtBg3X$G$9!#(B

$B2,5W$5$s$N5-;v$+$i(B:

$B!d(B  $B$I$&$bFbMF0J30$N$H$3$m$G?)$$0c$C$F$$$k$h$&$G$9$,(B...
$B!J!<!<!<N,!<!<!<!K(B
$B!d(B  $B$R$g$C$H$7$F(B fj.lang.pascal $B$rFx$o$=$&$H$7$F!"$o$6$H(B
$B!d8m2r$7$F$^$;$s!)(B (^^;;
$B!d(B
$B!d(B    class Delphi : public PASCAL { /* ... */ };
$B!d(B    class Cxx : public C { /* ... */ };
$B!d(B    void okahisa(Delphi &lang);
$B!d(B    void okahisa(C &lang);
$B!d(B
$B!d(B    type Delphi = class(PASCAL) { ... } end;
$B!d(B    procedure okamoto(lang: PASCAL);
$B!d(B
$B!d$F$J46$8$J$N$G$7$g$&$M!#(B

  $B>e$NFbMF$r4^$`5-;v$r8+$^$9$H!"FbMFE*$J$3$H$K$D$$$F$N%3%a%s%H$O!"(B
$B0l1~:Q$s$@$H$9$k$Y$-$H$-$N$h$&$G$9$M!#(B
  $B#P#C$N@$3&$G$O!"(BPascal$B$O(BDelphi$B$K$J$C$F$$$^$9$7!#(B

  Pascal$B!J(BDelphi$B$b4^$_$^$9$,!K%f!<%6!<$H$7$F!"2,5W$5$s$N5-=R$G(B
$B%3%a%s%H$7$F$*$-$?$$$H46$8$?$H$3$m$r=q$$$F$-$?$@$1$G$9!#(B
  $B?@$J$i$L?M$,:n$C$?$b$N$G$9$7!"Kt!"HFMQ8@8l$O$$$m$$$m$JN)>l$N?M$,(B
$B;HMQ$9$k$b$N$G$9$+$i!"(BPascal$B$K$bITK~$JE@$r8+=P$;$k$o$1$G$9$,!"(B
$B2,5W$5$s$K!"FC$K(BPascal$B$r0-$/8+$?$$$H$$$&%P%$%"%9$r46$8$?<!Bh$G$9!#(B

  $B$7$+$7!"(B
             Pascal + $B%*%V%8%'%/%H(B ==> Object Pascal
                                     $B!J(BTurbo Pascal 5.5 $B0J9_$J$I!K(B

        Object Pascal + $B%S%8%e%"%k%W%m%0%i%_%s%0(B ==> Delphi

$B$H$7$?>l9g!"(B
Delphi$B$N$h$5$O(BPascal$B$N$h$5$K$D$J$,$C$F$$$k$N$G$O!"$H$$$&$N$,(B
Pascal$B%f!<%6!<$H$7$F$N;d$N46A[$G$9!#(B
  Delphi$B$N;HMQ$,9-$^$k$K$D$l$F(BPascal$B$N$h$5$N$o$+$k?M$,A}$($k$G$7$g$&!#(B

$B:G8e$K0l8@(B:

    Type
        TOL   = class  ...   end;            // override$B$N=`Hw(B 
        TOP   = class(TOL)  Pascal ... end;  // $B%/%i%97?$G$J$$$H7Q>5$G$-$J$$(B
        TVOP  = class(TOP) $B%S%8%e%"%k(B ... end;

    var
        Delphi : TVOP;


    procedure Okamoto( Lang : TOL );...

    procedure Okahisa???????
    procedure Okahisa???????   //  $B<1JL;R$NB?=EDj5A%(%i!<(B


  (*****************************************************************

          $B#C$"$k$$$O#C!\!\$,7y$$$J$N$G$O$J$/!"(B
          $B#C$NN)>l$+$i$N(BPascal$B$NHcH=$KG<F@$G$-$J$$$b$N$r(B
          $B>o!946$8$F$$$k$N$G$9!#(B
          $BG0$N$?$a(B

  *****************************************************************)


$B2,K\0B@2(B
C00279@sinet.ad.jp


$BDI?-(B:

  FACOM$B$N(BPASCAL$B$N%P%C%A%8%g%V$G$N(BDD$BJ8(B

//GO.F1 DD ......

$B$K$*$$$F!"(BF1$B$,%U%!%$%kJQ?tL>$H0lCW$7$F$$$^$9$,!"(B
$B$3$l$O%U%!%$%kJQ?tL>$,#8J8;z0JFb$N$H$-$G$9!#(B

  $B2,5W$5$s$K$O4X78$"$j$^$;$s$,!"HFMQ5!$G;n$7$F$_$h$&$H(B
$B$$$&J}$O$4Cm0U2<$5$$!#(B

  $B%;%s%?!<$G%^%K%e%"%k$r$4Mw$K$J$k$@$1$G$7$?$i!"IUB0?^=q4[$NMxMQ$N>l9g$H(B
$BF1$8$G!"L5NA$@$H;W$$$^$9!#(B

$B0J>e!#(B