🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.perl.tk
Article #22

Re: [ANNOUNCE,SOURCE] EVA-1.1 -- evaluator. (Yet another ptksh/rmt)

#22
From: kobayasi KOBAYASHI Hiroaki
Date: Tue, 23 Jan 1996 00:00
57 lines
2986 bytes
   h$B>.NS!wEEDLBg(B,IS$B2J(B,$BA>OB8&$H?=$7$^$9(B.
   
 $B>/$7A0$+$i(B perl/Tk $BF|K\8l2=$N1F$K1#$l$F(B $B$3$=$3$=$H:n$C$F(B
 $B$*$j$^$7$?%W%m%0%i%`(B, $B!X(BEVA$B=i9f5!!Y$r@hDx(B comp.lang.perl.tk 
 fj.lang.perl $B$K%]%9%H$5$;$FD:$-$^$7$?(B. $B$3$N%]%9%H$O(B, $B$=$N(B
 <4e2gte$85m@uecisb.is.uec.ac.jp>$B$N5-;v$K4X$9$k(B, $BF|K\8~$1JdCm(B,
 $B$_$?$$$J$b$N$G$9(B.

>>   # Slightly modified version of previous announce(EVA-1.0).
>> 
>> EVA -- pesudo-stack based evaluator of perl expression.
>> 
>> EVA is a Perl/Tk script which is intended to serve as an
>> environment for your "casual" programming life. It is still
>> tiny. But I wish this would grow to a command B<region> shell
>> for OO I<programming> age.

--------

$B"#(B EVA -- perl $B%W%m%0%i%^$N$?$a$NBPOCE*I>2A(B(EVAL)/$B<B9T4D6-(B. 

$B$3$N%W%m%0%i%`$N4pK\5!G=$OG$0U$N(B perl $B$N<0$rI>2A$9$k$3$H(B, $B$@(B
$B$1$G$9(B. $B"!$?$@$7"!(B EVA $B$O<B9T7k2L$rJ];}$9$k$?$a$N5?;w%9%?%C%/(B
$B$r;}$C$F$$$^$9(B. $B$3$N5?;w%9%?%C%/$K$O9=B$%G!<%?(B($BL5L>(BHASH, $BL5L>(B
$BG[Ns(B) $B$r$=$N$^$^CV$/$3$H$,=PMh$^$9(B. $B$3$N$?$a(B,

  * $B%W%m%0%i%`A4BN$N%U%m!<$,7h$^$C$F$$$J$$CJ3,(B

  * $B=PNO$N%U%)!<%^%C%H$,7h$^$C$F$$$J$$CJ3,(B

$B$K$*$1$k%W%m%H%?%$%T%s%0(B, $B$"$k$$$O;H$$<N$F%W%m%0%i%_%s%0$KM-(B
$B8z$J$N$G$O$J$$$+$H4|BT$7$F$$$^$9(B. $B2?$K$;$h(B, EVA $B$G2?$,=PMh$k(B
$B$+!D$O(B, perl $B$G2?$,=PMh$k$+(B,$B$H$[$\F1$8(B. $B;H$$J}<!Bh$NF;6q$@$H(B
$B9M$($F2<$5$$(B.

$B"#(B $B4pK\E*$JA`:n$O(B 2$B$D$@$1$G$9(B.

 [1] perl $B$N<0$r%^%&%9$GH?E>$5$;$F(B, 'Eval' $B%a%K%e!<$N(B
     'Evaluate Selection' $B$rA*$V(B. (TearOff $B$9$k$HJXMx(B)

$B$b$7$/$O(B, 

 [2] Text widget $B$NCf$G(B perl $B$N<0$r=q$-(B, <Control-Return> $B$r(B
     $B2!$9(B.

$B$G$9(B. $B$I$A$i$N>l9g$b(B, $B$=$N<0$,I>2A$5$l(B, $B7k2L$,%9%?%C%/$KF~$j(B
$B$^$9(B.  $B%9%?%C%/>e$NCM$O(B, $B<!$NI>2A$N:]$K(B '@_' $B$rDL$7$F;2>H$9$k(B
$B;v$,=PMh$^$9(B.

-------

$B8f0U8+(B, $B8f46A[$r$*BT$A$7$F$*$j$^!A$9"v(B
=== kobayasi@sowa.is.uec.ac.jp --- $BEEDLBg(B, IS$B2J(B, $BA>OB8&(B, $B>.NS90L@(B --/
________________________________________________$B%+%H%kMM$N8}D4$G!D(B_/

$BEj9F$7$m$C$F8@$C$?$h(B! $BKM$O!D(B
Technical Details
Message-ID: <4e2hos$85m@uecisb.is.uec.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <4e2gte$85m@uecisb.is.uec.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,4d4d05a7e227aaaf
X-Google-Attributes: gid1043e7,public
X-Google-Thread: f72c1,6f7aae529a647bed
X-Google-Attributes: gidf72c1,public
From: kobayasi@dsl2.sowa.is.uec.ac.jp. (KOBAYASHI Hiroaki)
Subject: Re: [ANNOUNCE,SOURCE] EVA-1.1 -- evaluator. (Yet another ptksh/rmt)
Date: 1996/01/23
Message-ID: <4e2hos$85m@uecisb.is.uec.ac.jp>
X-Deja-AN: 136290143
references: <4e2gte$85m@uecisb.is.uec.ac.jp>
x-nsubject: EVA -- perl $B%W%m%0%i%^$N$?$a$NBPOCE*I>2A(B(EVAL)/$B<B9T4D6-(B. 
organization: University of Electro Communications,Tokyo ,Japan
newsgroups: comp.lang.perl.tk,fj.lang.perl