Newsgroups: fj.unix,fj.os.plan9
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!news.ctc.ne.jp!news.idc.ad.jp!news-out.internetmci.com!newsfeed.internetmci.com!206.251.127.50!newsfeed.gte.net!eecs-usenet-02.mit.edu!komachi.sp.cs.cmu.edu!Q.T.Honey!tamaru-news!kuee-news!odins-suita!nuis!news.cc.nagoya-u.ac.jp!nfeed.gw.nagoya-u.ac.jp!vega2!arisawa
From: arisawa@vega2.aichi-u.ac.jp (Kenji Arisawa)
Subject: Re: Plan9 security (Re: reserved ports)
Sender: news@vega2.aichi-u.ac.jp (News Master)
Message-ID: <EsrrAL.Dt9@vega2.aichi-u.ac.jp>
Date: Mon, 11 May 1998 01:39:56 GMT
References: <YASUSHI.98May10103842@yasushi-pc.cs.washington.edu>
NNTP-Posting-Host: vega2
Organization: Aichi University Computer Center, Aichi University, Aichi, Japan.
X-Newsreader: mnews [version 1.18PL3+] 1994-08/01(Mon)
Lines: 76
Xref: galaxy.trc.rwcp.or.jp fj.unix:8030 fj.os.plan9:99
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.unix&nb=8030&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BM-_7(B@$B0&CNBg3X$G$9(B

>$B%+!<%M%k$+$i8+$l$P$3$N>u67$O85!9%P%0$N$"$k%W%m%0%i%`$,JQ$J%3!<%I$r<B9T(B
>$B$9$k$N$HJQ$o$j$^$;$s!#2>$K(BCPU$B%l%Y%k$GJ]8n$G$-$?$H$7$F$b%+!<%M%k$,F@$i(B
>$B$l$k$b$N$O2?$b$J$$$+$i$d$i$J$$$@$1$G$7$g$&!#(B
$BF1$8O@M}$KN)$F$O!"<B9T%3!<%I$r=q$-49$($k%W%m%0%i%`$b$=$&$J$N$G$9$,!"(B
$B$7$+$7$3$l$O$5$9$,$KJ]8n$5$l$F$$$^$9!#(B

>$B2C$($F!$%9%?%C%/>e$N%3!<%I$r<B9T$9$k$H$$$&$N$OM-MQ$J%W%m%0%i%_%s%0%F%/(B
>$B%K%C%/$G$9!#Nc$($P!$(Bgcc$B$OF~$l;R$N4X?t$r%9%3!<%W$N30$K=P$9;~$K!$%9%?%C(B
>$B%/>e$N%3!<%I$X$N%]%$%s%?$rJV$7$^$9!#2<$N%W%m%0%i%`$r%3%s%Q%$%k$7$F!$@8(B
>$B@.$5$l$k%3!<%I$r8+$F$/$@$5$$!#(B
>...
$B$3$l$O%9%?%C%/>e$N%3!<%I$r<B9T$G$-$k$+$i!"$=$N$h$&$J%3!<%I$r@8@.$7$F$$$k(B
$B$@$1$N$h$&$J5$$,$7$^$9!#(B
$BB>$N%3!<%I@8@.$NJ}K!$OIT2DG=$J$N$G$7$g$&$+(B?
$B0J2<$N=q49$,B8:_$9$k$3$H$O!"%7%9%F%^%F%C%#%/$KB>$N%3!<%I@8@.K!$,B8:_$9$k(B
$B$3$H$r<(:6$7$F$$$^$9!#(B
$B$A$J$_$K!"(Bfoo $B$NCf$G(B x $B$N=i4|CM$,M?$($i$l$F$$$J$+$C$?$N$GE,Ev$KM?$($^$7$?!#(B

#include <stdio.h>

void dofoo (void (*bar)(), int *px)
{
    bar(px);
}

void bar (int *px) {
(*px)++;
}

int foo() 
{
    int x;
x = 0;
    dofoo(bar, &x);
    return x;
}

main()
{
printf("%d\n", foo());
}

$B$H$3$m$G(BPASCAL$B$G$O(B

program a(input,output);

procedure dofoo (procedure bar);
begin
    bar;
end;

function foo:integer;
var x:integer;
procedure bar;
begin
x:=x+1;
end;
begin
x:=0;
    dofoo(bar);
    foo:=x;
end;

begin
writeln(foo);
end.

$B$H$J$C$F!"$3$N$h$&$JLdBj$O6KIaDL$KH/@8$9$k$N$G$9$,!"$I$N(B OS $B$G$b%9%?%C%/(B
$B>e$K%3!<%I$rCV$$$?$N$G$7$g$&$+$M(B?
$B$^$?(B p2c $B$,$I$N$h$&$J%3!<%I$r@8@.$7$F$$$k$+$K$b6=L#$,$"$k$N$G$9$,!"$"$$$K$/(B
$B<j85$K(B p2c $B$,$"$j$^$;$s!#$I$J$?$+;}$C$F$$$kJ}$O(B p2c $B$N<B9T7k2L$r65$($F2<$5$$!#(B

$BM-_77r<#(B
E-mail: arisawa@aichi-u.ac.jp
