GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-02-08 18:44:17 +01:00
Code Issues Projects Releases Wiki Activity

Added undo command to interactive-editing

Browse Source
This commit is contained in:
Pragmatic Software 2010-05-15 00:19:43 +00:00
parent 3aaf717bef
commit 26c84fa621
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
modules/ideone.pl
View File

@ -115,11 +115,23 @@ if($code =~ m/^\s*show\s*$/i) {
exit 0; exit 0;
} }
{
my $subcode = $code; my $subcode = $code;
my $got_undo = 0;
my $got_sub = 0;
if($subcode =~ s/^\s*undo//) {
splice @last_code, 0, 1;
if(not defined $last_code[0]) {
print "$nick: No more undos remaining.\n";
} else {
$code = $last_code[0];
$got_undo = 1;
}
}
{
my $prevchange = $last_code[0]; my $prevchange = $last_code[0];
my $got_changes = 0; my $got_changes = 0;
my $got_sub = 0;
while($subcode =~ m/^\s*(and)?\s*s\/.*\//) { while($subcode =~ m/^\s*(and)?\s*s\/.*\//) {
$got_sub = 1; $got_sub = 1;
@ -191,7 +203,8 @@ if($code =~ m/^\s*show\s*$/i) {
open FILE, "> ideone_last_code.txt"; open FILE, "> ideone_last_code.txt";
unshift @last_code, $code; unshift @last_code, $code unless ($got_undo and not $got_sub);
my $i = 0; my $i = 0;
foreach my $line (@last_code) { foreach my $line (@last_code) {
last if(++$i > 10); last if(++$i > 10);