🚀 go-pugleaf

In article <346B423A.1ED1@be.mbn.or.jp>,
	mekemeke <mekemeke@be.mbn.or.jp> writes:
> $BA*BrDj?t$H$O>e$NNc$G$O!"(B
>  red green blue
> $B$KAjEv$9$k$H;W$&$N$G$9$,!";XDj$9$k$H$-$K$O$=$N$h$&$J;XDj$O$7$^$;$s$h$M!)(B
> $BNc$($P!"(B
>  sample.word = 0;
> $B$N$h$&$K!#(B
> $B#C$J$I$G$O!"A*BrDj?t$H$$$&35G0$9$iB8:_$7$J$$$N$G$9$,!"(B
> $B$3$l$O!"$I$N$h$&$J;~$K;H$&$b$N$J$N$G$7$g$&$+!)(B

C $B$G!"(Bunion u { char c; int i; double d; } *p; $B$H@k8@$7$?>l9g!"$3$N(B
$B7?$N5-210h$r(B p = malloc(sizeof(union u)); $B$N$h$&$KF0E*$K3d$jEv$F$k$H!"(B
$B0lHVBg$-$$$G$"$m$&(B sizeof(double) $B%P%$%H$,3NJ]$5$l$^$9!#(B

Pascal $B$G!"(B

    type color = (red, green, blue);
         union = record
                     case color of
                     red :   (c : char);
                     green : (i : array[1..4] of char);
                     blue :  (d : array[1..8] of char)
                 end;
    var  p : ^union;

$B$H@k8@$5$l$F$$$?>l9g!"(Bnew(p); $B$G:GBg$N(B 8 $B%P%$%H$,3NJ]$5$l$^$9$,!"(B
new(p, red); $B$G$O(B 1$B%P%$%H!"(Bnew(p, green); $B$G$O(B 4$B%P%$%H3NJ]$5$l$k$H(B
$B$$$&$h$&$K5-210h$N@aLs$,$G$-$^$9!#(B

C $B$G$O!"(Bp = malloc(sizeof p->c); $B$d(B p = malloc(sizeof p->i); $B$G(B
$BF1$8;v$,$G$-$k$G$7$g$&$+$i!"(BPascal $B$N$[$&$,$h$$$H$O;W$$$^$;$s$,!#(B

--
$B:dK\CRI'(B	sakamoto@sm.sony.co.jp