Newsgroups: fj.mail
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!titech.ac.jp!dis.titech.ac.jp!pi.titech!pisun!kamei
From: kamei@pi.titech.ac.jp (=?ISO-2022-JP?B?GyRCNTUwZhsoQiAbJEJDI0xpGyhC?=)
Subject: Re: smms (Re: =?ISO-2022-JP?B?W1FdGyRCJWEhPCVrJE5FPkF3Sn1LIRsoQik=?=
In-Reply-To: Hiroto Kagotani's message of 04 Feb 1997 10:54:55 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <KAMEI.97Feb4162347@hiroshi.pi.titech.ac.jp>
Followup-To: fj.mail
Sender: news@pi.titech.ac.jp (News Administrator)
Organization: Precision and Intelligence Lab., Tokyo Institute of Tech., Japan
References: <5ckiq5$hia@daikoku.three-a.co.jp> <KAMEI.97Jan29205308@johnny.pi.titech.ac.jp>
	<7xohe1nxn4.fsf_-_@in.it.okayama-u.ac.jp>
Mime-Version: 1.0 (generated by tm-edit 7.100)
Date: Tue, 4 Feb 1997 07:24:47 GMT
Lines: 41
Xref: galaxy.trc.rwcp.or.jp fj.mail:6118
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.mail&nb=6118&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.

$B550f!wEl9)Bg$G$9!#(B

>>>>> In <7xohe1nxn4.fsf_-_@in.it.okayama-u.ac.jp> 
>>>>>Hiroto Kagotani <kagotani@in.it.okayama-u.ac.jp> wrote:

$BdFC+$5$s(B> $B$H$$$&$o$1$G!"(Bsmms $B$H$$$&$N$,$3$l$HF1$8$b$N$G!":#$bF1$8%m%C%/5!9=$rMQ(B
$BdFC+$5$s(B> $B$$$F$$$k$h$&$G$7$?$i!"Cm0U$5$l$k$H$h$$$H;W$$$^$9!#(B

  $B:#;H$C$F$$$k$N(B smms-1.9 $B$J$s$G$9$,!"(Bsmms.filter $B$K$O(B lock $B4X78$@$H!"(B

sub lock # arg1
{ local($arg1) = @_;
  &smmsflock($arg1,$LOCK_EXCLUSIVE);
  seek($arg1,0,2);
}
sub unlock # arg1
{ local($arg1) = @_;
  &smmsflock($arg1,$LOCK_UNLOCK);
}
sub smmsflock # arg1 arg2
{ local($arg1,$arg2)=@_;
  $lockfileno=fileno($arg1);
  if($arg2==$LOCK_EXCLUSIVE)
  {  while(-e "$home/.smmslock$lockfileno"){}
     if(!open(lockfile,">$home/.smmslock$lockfileno"))
     {  &putlog("lockfile can't be opened!");
     }
     close(lockfile);
  }elsif($arg2=="$LOCK_UNLOCK")
  {  unlink("$home/.smmslock$lockfileno");
  }
}

$B$3$s$J46$8$K$J$C$F$k$s$G$9$1$I$3$l$@$H$^$:$$$N$G$7$g$&$+!)(B perl $B$O$^$C$?(B
$B$/$o$+$i$J$$$b$N$G!#$=$l$H$b$3$NItJ,$O4X78$N$J$$$N$+$J!)(B


  $BEl5~9)6HBg3X(B  $B@:L)9)3X8&5f=j(B($BD9DEED(B R2)  $B@P86!&FA8w8&5f<<(B
      $B550fC#Li(B(kamei@pi.titech.ac.jp, SGS00611@niftyserve.or.jp)
      My HomePage URL: http://it-www.pi.titech.ac.jp/~kamei/
      Tel 045-924-5084        $B5o<<(B :  R2 804
