Newsgroups: fj.questions.unix
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!news.sun.co.jp!sunj-gate.Japan.Sun.COM!news2me.EBay.Sun.COM!venus.sun.com!cs.utexas.edu!howland.reston.ans.net!newsfeed.internetmci.com!hookup!news.caren.net!news.join.ad.jp!aoba!akiu!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: Script is working
X-Nntp-Posting-Host: saikachi
Message-ID: <DJ1q62.2zy@ayashi.cc.sendai-ct.ac.jp>
Lines: 42
Sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
Organization: Sendai National College of Technology
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <49rv2l$ail@nyx.eos.hokudai.ac.jp>
Date: Mon, 4 Dec 1995 05:06:02 GMT
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:5124
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=5124&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.

  $B6b;R!w@gBfEEGH$G$9!#(B

In article <49rv2l$ail@nyx.eos.hokudai.ac.jp>
hiroshi@teine.chem2.hokudai.ac.jp writes:
>> script $B$O$&$C$+$jB?=E$K5/F0$7$F$$$?$j$9$k$[$+(B,
>> $B5U$K2?2s(B exit $B$7$?$i85$KLa$l$k$+$,J,$1$,$o$+$i$J$/$J$C$F(B,
>> $BM>J,$K(B exit $B$7$F(B, $B$;$C$+$/$N@_Dj$rBfL5$7$K$7$?$j(B,
>> logout $B$5$l$F$7$^$&$N$GJ"$,$?$A$^$9(B.

  $B%7%'%k$,(Bcsh$B$@$H2>Dj$7$FOC$7$^$9!#B>$N%7%'%k$G$bF1$8$h$&$J(B
$B5!G=$,$"$l$P$=$N$^$^;H$($^$9!#(B

  exit$B$G$J$/!"(B^D(eof)$B$G=*N;$7$F$$$k$J$i!"(B.login$B$K(B
`set ignoreeof'$B$rF~$l$F$*$1$P(B^D$B$G(Blogout$B$9$k$N$O$5$1$i$l$^$9!#(B
$B$,!"B?J,!"<ALd$N0U?^$O0c$$$^$9$h$M!#(B

>> $B$3$l$O$:$C$HA0$+$i$=$&$"$k$Y$-$@$H;W$C$F$$$?$3$H$G$9$,(B,
>> UNIX $B$N(B script $B%3%^%s%I$G(B, script $B$,5/F0$5$l$F$$$k4V$@$1$O(B,
>> $B>/$J$/$H$b%3%^%s%I%W%m%s%W%H$,IaDL$H0c$&$b$N$K$7$?$$$N$G$9(B.
>> $B$I$&$9$l$P$b$C$H$b%(%l%,%s%H$K$3$l$r<B8=$G$-$k$G$7$g$&$+(B.

  $B!V$b$C$H$b!W%(%l%,%s%H$+$I$&$+$O$o$+$j$^$;$s$,!"(B

    if ($?ScriptIsRunning)  then
alias script 'echo Script is already running.'
set prompt="`hostname`(logging)% "
    else
alias script '(setenv ScriptIsRunning YES; exec /usr/ucb/script;)'
    endif

$B$H$$$&5-=R$r(B.cshrc$B$K$$$l$F$O$I$&$G$7$g$&!)$^$?$O!"F1$8$h$&$J(B
$BF/$-$r$9$k%7%'%k%9%/%j%W%H$r=q$$$F$=$l$r(Bscript(1)$B$N$+$o$j$K(B
$B8F$s$G$b$h$$$G$7$g$&!#(B

  $B$J$*!"(BOS$B$K$h$C$F$O(Bscript$B$N%U%k%Q%9L>$,0[$J$k$+$b$7$l$^$;(B
$B$s!#$^$?!"(Benv(1)$B$N$"$k%7%9%F%`$G$O(B env $B$r;H$C$?J}$,$-$l$$$G(B
$B$7$g$&!#(B

main(i,j){j=time(0);do for(i /*      $B6b;R(B $BM5(B(Yutaka Kaneko)           */
=0;i<79;i++)printf(j%512>>4? /* Sendai National College of Technology */
" ":"*"),j=j*331+113;while(  /*    kaneko@cc.sendai-ct.ac.jp          */
printf("\n\033[H\033[1L"));} /* or kaneko@akiu.gw.tohoku.ac.jp        */
