🚀 go-pugleaf

$B3Q7rB@O:$G$9!#(B

$B$`$+$7;d$,=q$$$?Nc!'(B
$B!JA02s=q$$$?$H$-$O!$4X?tFb4X?t$N=q<0$,JQ$G$7$?!#!K(B
procedure foo();
	(* innar *)
	procedure bar();(*$B$J$+$_>JN,(B*)
begin
	if not (hoeee) then
	begin
		bar();
	end;
end;

$B!t>r7o$K(Bnot$B$,$D$$$F$$$k$N$O!$(B
$B!t;v$N5/$3$j$N%3!<%I$,$=$&$J$C$F$$$?$+$i$G!$(B
$B!t$3$3$G$OK\<AE*$G$O$"$j$^$;$s!#(B

<86afkdcogc.fsf@soleil.aianet.ne.jp>$B$N5-;v$K$*$$$F(B
shugo@aianet.ne.jp$B$5$s$O=q$-$^$7$?!#(B

>> $BA0ED$G$9!#(B
$B!J>JN,!K(B
>> $B4X?t$,$h$j:Y$+$$=hM}C10L$KJ,3d$G$-$k$h$&$J>l9g$J$i(Bnested function$B$O(B
>> $B@5$7$$A*Br$@$H;W$$$^$9$,!"(Bif$B@a$N%V%m%C%/$,D9$/$J$k$+$i$H$$$C$F(Bnested
>> function$B$K$7$F$b$"$^$j0UL#$,$J$$$N$G$O$J$$$G$7$g$&$+!)(B


$B$^$:!$$b$H$b$H$O6b;R$5$s$N(B
$B!V??$sCf$,D9$/$J$l$P(Bif$B8e$N=hM}$,H/8+$7$K$/$$!W$H$$$&5?Ld$KBP$7!$(B
$B$3$&$9$l$P$=$s$J$3$H$O$J$$$H$$$&Nc$r=q$$$N$G$9$,!$(B
$B$=$NMxE@$OG'$a$F$b$i$($k$G$7$g$&$+!#(B

$B<!$K!$A0ED$5$s$N(B
$B!VD9$$$+$i$H$$$C$F(Bfunction$B$K$9$k0UL#$O$J$$$N$G$O!W$XJVEz$7$^$9!#(B

$B%V%m%C%/$NCf?H$,D9$$$N$J$i$P!$(B
$B$h$j:Y$+$$=hM}C10L$KJ,3d$G$-$k2DG=@-$,$"$k$N$G$O$J$$$G$9$+!)(B

$B$^$?!$0J2<$N$h$&$K$b9M$($F$$$^$9!#(B
$B!V$?$H$($=$l$,0lEY$7$+8=$l$J$/$F$b!$(B
$B!!0UL#$N$"$k$^$H$^$j$,$"$k$N$J$i!$$=$l$r(Bprocedure$B$K2!$79~$`0U5A$O$"$k!#(B
$B!!E,@Z$JL>A0$rIU$1$k$3$H$G!$$d$C$F$$$k$3$H$r$O$C$-$j$5$;$i$l$k$+$i$@!#!W(B
$B!t%+!<%K%O%s$N!V%W%m%0%i%`=qK!!W$rFI$s$@5-21$K$h$k!#(B


$B$b$C$H$b!$:Y$+$9$.$k$N$bLdBj$@$H$O;W$$$^$9!#(B

$B!]!]!]!]!](B

$B$o$?$7(B|$B$3$3$G$O(Bbar$B$J$s$F=q$$$F$$$k$+$i=hM}FbMF$,8+$($J$/$J$j$=$&$G$9$,!$(B
$B$o$?$7(B|bar$B$G$O$J$/!$$=$N=hM}FbMF$rBeI=$9$k$h$&$JL>A0$rIU$1$l$P(B
$B$o$?$7(B|$BA4BN$N=hM}FbMF$b$9$C$-$jJ,$+$j$^$9!#(B

>> $B$H$"$j$^$9$,!"=hM}FbMF$rBeI=$9$kL>A0$O$9$G$K(Bfoo$B<+BN$K;H$o$l$F$$$k(B
>> $B$O$:$G$9$7!"(B

$B$=$l$O(Bfoo$B$,$I$l$@$16qBNE*$J%l%Y%k$NL>A0$+!$$K$h$j$^$9$h$M!#(B
$B$^$@Cj>]E*$J$b$N$+$b$7$l$^$;$s!#(B
$B$=$&$J$i$P!$$^$@J,2r$G$-$^$9$M!#(B

funtion $BJ,;6(B(real[] x):real;
	funtion $BJ?6Q(B(real[] x):real;begin$B>JN,(Bend$B!((B
begin
	$BJ,;6(B=$BJ?6Q(B(x^2)-$BJ?6Q(B(x)^2
	(*$B5<;w%3!<%I$H$$$&$3$H$G!$2?8l$@$+$o$+$i$J$$$N$O8+F($7$F$/$@$5$$(B*)
end;

$B$H$$$&:YJ,2=$O$*$+$7$/$"$j$^$;$s$h$M!#(B

$B!t;O$a$K$b$C$H6qBNE*$JNc$r=P$7$?J}$,$h$+$C$?$+$b$7$l$^$;$s!#(B
$B!t?=$7Lu$"$j$^$;$s!#(B

$B!]!]!]!]!]!]!]!]!]!]!](B

$B$o$?$7(B |$B!t$b$7!$$3$l$,(BPASCAL$B$H(BC$B$NH/A[K!$N0c$$$@$C$?$i$I$&$7$h$&!D(B

>> Pascal$B$G(B
>>
>> procedure foo;
>> begin
>>    if hogehoge then
>>       exit;
>>    ...
>> end;
>> $B$H=q$/$N$OJQ$G$9$+!)(B

Wirth$B$N(BPASCAL$B=iHG!JG]Iw4[!K$r%A%'%C%/$7$^$7$?$,!$(B
PASCAL$B$K(Bfunction$B$*$h$S%k!<%W$+$iC&=P$9$k%-!<%o!<%I$OL5$$$H;W$$$^$9!#(B

$B$A$g$C$HBg3X$N(Bthe Pascal 3.0 release for SunOS 5.0$B$G(Bexit$B$r;n$7$F8+$^$7$?$,!$(B
if$B$GMQ$$$k$H9=J8%(%i!<$K$J$j!$$=$N%a%C%;!<%8$+$iH=CG$9$k$H!$(B
$B$3$3$G$O(Bexit$B$O%k!<%W$+$iH4$1$k!J(BC$B$N(Bbreak?)$B$b$N$N$h$&$G$9!#(B
$B%\!<%i%s%I$N(BDELPHI$B!J$,;H$&%\!<%i%s%IFH<+$N(Bobject pascal$B!K$G$O(B
exit$B$O!V%V%m%C%/$+$iH4$1$k!W$G$7$?!#(B
$B$3$l$J$i$PA0ED$5$s$NA[Dj$5$l$?$h$&$K;H$($^$9!#(B

$B3F<+3HD%$O$=$l$H$7$F$*$$$F!$(B
$BI8=`(BPASCAL$B$G$O$=$N$h$&$J<jCJ$OA[Dj$7$F$$$J$$!$$H;W$$$^$9!#(B
$B!J(BJIS$B$J$I$OD4$Y$F$$$^$;$s!#?=$7Lu$J$$!K(B
$B;d$O$=$&$$$&(BPASCAL$B$G%H%C%W%@%&%s$d9=B$2=$r3X$s$@$N$G(B(?)$B!$(B
C$B$d(Bjava$B8@8l$G=q$/$H$-$b(Bbreak$BEy$r$"$^$j;H$$$^$;$s!#(B
$B$G$b!$$d$O$j(BPASCAL$B$O4X78$J$/C1$K;d$N<qL#$J$N$+$b$7$l$^$;$s!#(B

$B!]!]!]!](B

$B2?$+;d$,2x$7$$$3$H$r8@$C$F$$$?$i!$9=$o$:$4;XE&$/$@$5$$!#(B
$B!tJY6/$K$J$C$F$*$j$^$9!#(B

6$B7n(B27$BF|(B

//////// Kentarou SUMI  $B$9$_$1$s$?$m$&(B
    i961205m@eds.ecip.nagoya-u.ac.jp
    http://www.eds.ecip.nagoya-u.ac.jp/people/i961205m/