d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

foog 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2008-05-15 15:05:08 +00:00
parent 6efcf5ca2d
commit 45da9ec01e
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mode/iperlmini.py
View File

@ -121,7 +121,8 @@ class IperlMini(mode.Fundamental):
self.hindex = 0 self.hindex = 0
cmd = ('iperl', '-p') cmd = ('iperl', '-p')
self.pipe = Popen(cmd, stdin=PIPE, stdout=PIPE, stderr=STDOUT) f = open('/dev/null', 'w')
self.pipe = Popen(cmd, stdin=PIPE, stdout=PIPE, stderr=f)
(type_, value) = self._readline() (type_, value) = self._readline()
assert type_ == 'PROMPT', type_ assert type_ == 'PROMPT', type_
w.application.set_mini_buffer_prompt('%s ' % value.strip()) w.application.set_mini_buffer_prompt('%s ' % value.strip())

4
tools/iperl
View File

@ -257,12 +257,14 @@ sub main {
$prompt = "..>"; $prompt = "..>";
} else { } else {
$input .= $line; $input .= $line;
my @results = map { chomp($_); repr($_); } eval($input); my @results = eval($input);
if($@) { if($@) {
draw_error($@); draw_error($@);
} elsif(scalar(@results) < 2) { } elsif(scalar(@results) < 2) {
@results = map { chomp($_); repr($_); }
draw_result($results[0]); draw_result($results[0]);
} else { } else {
@results = map { chomp($_); repr($_); }
draw_result(join(", ", @results)); draw_result(join(", ", @results));
} }
($input, $prompt) = ("", ">>>"); ($input, $prompt) = ("", ">>>");