🚀 go-pugleaf

$@$3$s$K$A$O!#?7>k!wC^GHBg3X$G$9!#(J

From article <GR2wP.1006@mtak.bsj.com>,
	by logic@mtak.bsj.com (Masami Takikawa):

> forth $@;H$$$OEvA3L>A0$J$s(J
> $@$+$$$i$J$$GI!J(Jcons + c...r$@!K$+$J!)(J forth $@$K:C@^$7$?KM$O!"EvA3(J defstruct
> $@GI$G$9!#(Jcons $@$OIaDL$N%j%9%H$HB0@-%j%9%H$K$7$+;H$$$^$;$s!#(J

$@#C$+$iF~$C$?;d$H$7$F$O!"(JForth $@$K(J struct $@$b$I$-$rIU$1$F;H$C$F(J
$@$$$^$7$?!#:G=i$N$b$N$O!"$3$s$J46$8$@$C$?$+$J!#(J
$@$?$H$($P!"#C$N(J struct

struct
{
	short	member1 ;
	short	member2 ;
	...
};

$@$_$?$$$J$b$N$O!"(JForth $@$G$O!"(J

: field (offset -- )
  create ,
  does> @ +
;

0 field member1
2 field member2
...

$@$H$J$j$^$9!#Bg@N$N#C8@8l$_$?$$$K!"(Jmember1, member2, ... $@$O!"(J
$@$I$s$J9=B$BN$K$G$b;H$($F$7$^$$$^$9!#(J

field $@$H$$$&$N$,!"%o!<%I$rDj5A$9$k%o!<%I$G!"D>8e$N%o!<%I$r:n(J
$@$j!J(Jcreate$@!K!"%9%?%C%/$K@Q$^$l$??t$r%Q%i%a!<%?!&%U%#!<%k%I$H(J
$@$$$&>l=j$KJ]B8$7$^$9!#(Jmember1 $@$,<B9T$5$l$k$H!"$=$N%Q%i%a!<%?!&(J
$@%U%#!<%k%I$NHVCO$,%9%?%C%/$K@Q$^$l$^$9$+$i!"(J@ $@$G$=$NFbMF$r%U%'%C(J
$@%A$7$F$-$F!"$=$l$rB-$7$^$9!J(J+$@!K!#(Jmemer1 $@$N>l9g$O!"(J0$@$rB-$7$^(J
$@$9!#(Jmember2 $@$O!"(J2$@$rB-$7$^$9!#(J...

$@$3$l$G$b!"$1$C$3$&Lr$K$?$A$^$7$?!#$b$&>/$79b5i$K$9$k$J$i!"%*(J
$@%U%;%C%H$r%9%?%C%/$+$i<h$k$N$r$d$a$F!"2?$+6I=jJQ?t$+%9%?%C%/(J
$@$KJQ?t$K%*%U%;%C%H$rJ]B8$9$k$h$&$K$9$l$P$$$$$G$7$g$&!#!VI8=`(J
Forth$@!W=P$F$$$k%G!<%?%Y!<%9$N%U%#!<%k%I$NDj5A$O!"$[$H$s$I9=(J
$@B$BN$G$9!#(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J