🚀 go-pugleaf

$BA0ED$G$9!#(B
# $B$J$s$+5-;v$,%-%c%s%;%k$5$l$?$_$?$$$J$N$G$b$&0lEY!#(B

On 26 Jun 1997 06:35:33 GMT,
i961205m@eds.ecip.nagoya-u.ac.jp (Sumi Kentarou) san wrote:

|PASCAL$B%9%?%$%k$G%3!<%I$r=q$-$^$9!#(B
|$B!t(Bpascal$B$G$O0z?t$NL5$$(Bprocedure$B$K(B()$B$O$$$i$J$$$N$G$9$,!$(B
|$B!t4X?t$G$"$k$3$H$r6/D4$9$k$?$a$K!$$3$3$G$O(B()$B$rIU$1$F$$$^$9!#(B
|
|procedure foo()
|begin
|    (* innar procedure *)
|        procedure bar()
|        begin
|            ...
|        end;
|    (* foo main *)
|    if (!hoeee) then
|    begin
|        bar();
|    end;
|    (* return *)
|end;

Pascal$B$N(Bnested function$B$F$3$&$8$c$"$j$^$;$s$G$7$?!)(B

procedure foo;

   procedure bar;
   begin
      ...
   end;

begin
   if not hogehoge then
      bar
end;

$B$=$l$O$5$F$*$-!"$3$N=q$-J}$,(B

procedure foo;
begin
   if not hogehoge then
   begin
      ...
   end
end;

$B$h$jNI$$$+$H$$$&$H!"$=$s$J$3$H$O$J$$$H;W$$$^$9!#(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$3$3$G$O(Bbar$B$J$s$F=q$$$F$$$k$+$i=hM}FbMF$,8+$($J$/$J$j$=$&$G$9$,!$(B
|bar$B$G$O$J$/!$$=$N=hM}FbMF$rBeI=$9$k$h$&$JL>A0$rIU$1$l$P(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(B

|procedure check_and_do(boolean checker)
|begin
|        procedure do()
|        begin
|            ...
|        end;
|    (* main *)
|    if (checker) then
|    begin
|        do();
|    end;
|end;

$B$h$j(B

procudure CheckAndDo(checker: Boolean);
begin
   if checker then
   begin
      ...
   end
end;

$B$NJ}$,$9$C$-$j$7$F$$$k$H;W$$$^$9!#(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

-- 
$BA0ED(B $B=$8c(B