🚀 go-pugleaf

In article <toda-2409971854000001@ph1pc3.med.niigata-u.ac.jp>,
	toda@med.niigata-u.ac.jp (Haruo Toda) writes:
>          record
>              case boolean  of
>              false : ( word : integer );
>              tue : ( byte0, byte1, byte2, byte3 : char )
>          end;
> 
> $B$G$b(BO.K.$B$G$9$M!#(B

$B$3$C$A$N$[$&$,$$$$$G$9$M!#(Btue $B$O(B true $B$@$H$7$F!#(B

$B$H$$$&$N$O!"!V(BJIS X 3008-1990 $BEE;R7W;;5!%W%m%0%i%`8@8l(B PASCAL (ISO
7185:1983)$B!W$N!V(B6.4.3.3 $B%l%3!<%I7?!W$N$H$3$m$r8+$k$H!"!V%?%07?$rD>@\(B
$B$K4^$`2DJQIt$KD>@\$K4^$^$l$kA*BrDj?t$,I=$9CM$O!"$9$Y$F0[$J$C$F$$$J$1(B
$B$l$P$J$i$J$$!#99$K!"$=$NCMA4BN$+$i@.$k=89g$O!"$=$N%?%07?$NCM$N=89g$H(B
$BEy$7$/$J$1$l$P$J$i$J$$!#!W$H$"$j$^$9$+$i!#(B

$B2DJQMWAG$r(B 3$B$D$K$7$?$1$l$P!"(B

type color = (red, green, blue);

    record
        case color of
        red : (word : integer);
        green : (byte0, byte1, byte2, byte3 : char);
        blue : (flaot : real)
    end;

$B$H$$$C$?$H$3$m$G$7$g$&$+(B :-)

end $B$ND>A0$N(B ; $B$O!"$"$C$F$b$J$/$F$b$+$^$$$^$;$s$M!#(B

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