From: take@axegw.axe-inc.co.jp (Shozo TAKEOKA)
Newsgroups: fj.lang.misc
Subject: Re: [Pascal] Pascal for education (Re: Pointer)
Date: 20 Dec 92 02:13:09 GMT
Distribution: fj
Organization: AXE, Inc.

>In article <1346@axegw.axe-inc.co.jp> take@axegw.axe-inc.co.jp (Shozo TAKEOKA) writes:
> >   Call by name $B$b65$($i$l$J$$8@8l$OBLL\!#(B
> > #  $B;n83$K(B Call by name $B$r=P$5$J$$$J$i!"OC$OJL!)!)!)(B :-P

In article <TAKAGI.92Dec19073551@craps.elcom.nitech.ac.jp> takagi@craps.elcom.nitech.ac.jp writes:
>$B!&(Bcall by name $B$r@Q6KE*$KMxMQ$9$k$3$H$O!"NI$$%W%m%0%i%_%s%0%9%?%$%k$H(B
>  $B8@$($k$+!)(B

  $BNI$/$F$b!"0-$/$F$b!"35G0$O65$($J$$$H!#(B

  $B%W%m%0%i%_%s%0%9%?%$%k$NNI$$!?0-$$$J$s$FC/$,7h$a$k$s$G$7$g$&!)(B
  Kernighan $B$N(B Software Tools $B$N%W%m%0%i%_%s%0!&%9%?%$%k$,$$$$$s$G$7$g$&(B
$B$+!)!J$^$5$+(B Wirth $B$,:n$C$?!"(BPascal $B=hM}7O$N%=!<%9$H$+8@$o$J$$$G$h!J8+$?(B
$B$3$HL5$$$7!K!K(B
  loop $B$N0lHV?<$$$H$3$m$G(B getchar() $B$K9T$C$FBT$C$F$$$k$N$J$s$F!"(B
event-driven $B%W%m%0%i%_%s%0$N@5H?BP$K9T$C$F$$$k5$$,$7$^$9$,!#(B

  $B$=$&$$$&0UL#$G!"8E$$652J=q$O!"$9$Y$FLrN)$?$:$K$J$C$F$$$k!#(B
  Windows$B!J$d(BMacintosh) $B$G%W%m%0%i%_%s%0$N%"%k%P%$%H$d$C$F$k3X@8$K!"(Bloop
$B$NDl$G(B getchar() $B$7$F;_$^$j$^$7$g$&!"$C$F!"8@$C$F$b!"Aj<j$K$5$l$^$;$s!#(B
  $B!J3X@8$C$F!"$d$C$Q$j!"@80U5$$@!#:G6a!"$J$s$K$bJY6/$7$F$$$J$$3XIt@8$rAj(B
$B<j$K$7$F$$$k$1$I$b!"@h@8$NHcH=$@$1$O0l?MA0$N8}$G$9$k!#!J$H$$$&KM$O$9$G$K(B
$B$*$B$5$s(B;-P$B!K!K(B

  $BB>?M$N%9%?%$%k$J$s$FJ|$C$F$*$1$P$$$$$s$G$9!#(B
  $B$=$s$J$b$N!"@h@8$,65$($J$/$F$$$$!##5G/$7$?$i!"@h@8$NJ}$,8E$/$J$k!#(B:-P

  $BF,$N$$$$E[$O<+J,$G9M$($F$A$c$s$H$J$k!#GO</$O;`$J$J$-$cD>$i$J$$!#!J$I$C(B
$B$A$K$7$F$b!"65$($F$bL5BL!K(B


>$B!&NI$$%9%?%$%k$H8@$($J$$$H$7$?$i!"(Bcall by name $B$H$$$&35G0$r65$($k:]!"(B
>  $B$=$N32$K$D$$$F$b65$($kI,MW$,$"$k!#(B

  $B$4$b$C$H$b!#(B

  $BKM$K$O(B call by name $B$,0-$$$H$O;W$($^$;$s$,(B...

  Pascal $B$K$J$s$G!"(Bcall by name $B$,$J$$$N$+$r!"65$($FLc$$$?$$$b$N$G$9!#(B
  $B32$,$"$k$+$iIU$1$J$+$C$?$N$J$i!"$=$l$rL@<(E*$K$$$&$Y$-$G$O!)(B


>$B!&=i3X<T$N$?$a$N650i$K8BDj$7$?>l9g!"(Bcall by name $B$r65$($kI,MW$,$"$k$+!)(B

  $B7W;;5!650i$G$9$+!)(B
  $B%W%m%0%i%_%s%0650i$G$9$+!)(B

  $B7W;;5!650i$J$i!"35G0$O;O$a$N$&$A$K@0M}$7$F!"$9$Y$F65$($k$Y$-$G$7$g$&!#(B

  $B%W%m%0%i%^$rM\@.$9$k$K$7$F$b!"=i5i%3!<%9$N$I$3$+$K$OI,MW$G$7$g$&!#(B
  C $B$O%^%/%m$r65$($J$$$H!"(BC $B$N$+$J$j$JItJ,$r65$($J$$$3$H$K$J$k!#(B
  Kernighan $B$N(B SoftwareTools $B$G$b!"(BMacroProcessor $B$,BgItJ,$r@j$a$F$$$k!#(B
  UNIX environment $B$G$b!"(BMacroProcessor $B$,$G$F$-$?$O$:$@$7!#(B
  AT&T UNIX $B$NJ82=$N2?3d$+$O(B MacroProcessor $B$K$"$k$H8@$C$F$b!"2a8@$G$O$J$$(B
$B$G$7$g$&!#(B(MacroProcessor $B$N%^%/%m0z?tCV49$O(B call by name $B$G$9!K(B

  CommonLisp $B$r65$($k$K$7$F$b!"(BMacro $B$,$J$-$cOC$K$J$i$s!#!J(BMacro $B$rCN$i(B
$B$J$1$l$P!"=hM}7O$r@8$+$7$F;H$($J$$$G$7$g$&!K(B

> >   $B7W;;5!650i$J$i!"(BScheme $B$H(B C $B$r65$($k$Y$-$G$O!)(B

  C $B$O%]%$%s%?$,8+$($k$+$i!"7W;;5!$NJY6/$K$J$k!#%]%$%s%?$r2u$7$F$$$k$&$A(B
$B$K!"<+J,$NBN$NCf$K7W;;5!$N%b%G%k$,$G$-$F$/$k!#(B
  $B$3$l$O!":#$N7W;;5!$H$7$F$O!"$^$!$^$!$N%b%G%k$J$N$G!"$H$F$bLr$KN)$D!#(B
  $B!J%^%/%m$b(B call by name $B$bJY6/$G$-$k$7!#:GE,2=$NOC$b$G$-$k$7!#@h@8$K$O(B
$B<x6H$NOCBj$r0z$-$@$70W$$8@8l$8$c$J$$$+$J$!(B... $B!K(B

  Scheme $B$O(B C $B$G$O!"M7$Y$J$$!"%/%m!<%8%c!<(B, continuation $B$,M7$Y$k!#!J(B
Symbol$B=hM}$b$G$-$k$+!K(B
  Scheme $B$N<BAu$K$b6=L#?<$$E@$,$"$k$N$G!"$d$k$H$*$b$7$m$$!#(B
  $B%/%m!<%8%c!<$,$"$l$P!"%*%V%8%'%/%H;X8~%4%C%3$,!"3d$HK\3JE*$K$G$-$k$7!#(B

  C $B$H(B Scheme $B$K$O!"?'$s$JMWAG$,F~$C$F$$$k$N$G!"$3$N#2$D$r$d$C$F$*$1$P!"(B
$BB>$N8@8l$r?7$7$/3X$V$K$7$F$b!"$=$s$J$K$7$s$I$/$J$$!#!J$I$&$;!"?7$7$$35G0(B
$B$r3X$V$N$O!"$7$s$I$$$N$@$1$l$I(B :-P$B!K(B

---

  $B7W;;5!$r3X$V$N$8$c$J$/!"%W%m%0%i%^$rM\@.$7$?$$$@$1$J$i!"I,MW$J8@8l$r!"(B
$B$?$@!"65$($k$@$1$9$l$P$$$$!#(B
  $B$G!"(BPascal $B$r;H$&$J$i!"(BPascal $B$r65$($l$P$$$$!#$G$b!"$=$N%W%m%0%i%^$O(B C
$B$K$$$/$H$-!"$^$?!"?7$7$$35G0$r3X$P$M$P$J$i$J$$$N$G!";E;v$NN)$A>e$,$j$,CY(B
$B$/$J$k!#(B
  $B$=$&$$$&<j4V(B,$B2K$,$+$+$k?M4V$r!"%9%-%k$NDc$$%W%m%0%i%^!"$H8F$V$s$@!"KM(B
$B$O(B...

  $B$^$!!"$3$3?tG/!"KM$O$D$/$E$/!"C!$-$"$2$N%W%m%0%i%^$O;H$($s$H;W$C$F$$$F!"(B
$B!V%O%C%+!<$V$C$F$kGO</$b$N!W$h$j!"!V$*$H$J$7$/$F$b$^$H$b$J650i<u$1$?IaDL(B
$B$N?M!W$NJ}$,!";H$($k!"$H!";W$C$F$$$k$N$G$9$h!#(B
  $B!J$A$c$s$H$7$?35G0$r650i$5$l$F$$$k$H!"OC$,Aa$$!#GO</$b$N$O!"BN$G$o$+$m(B
$B$&$H$9$k$+$i!";~4V$,$+$+$j$9$.$k!K(B

#  $BKM$O!"%^%$%3%s>.A~$G$9$+$i!"%O%C%+!<$V$C$F$kGO</$b$N$NCg4V$G$9(B

			$B$?$1$*$+(B