[Macro Plugin] Implementação do postfix control com "if"

Index: Script.pm
===================================================================
--- Script.pm   (revision 8787)
+++ Script.pm   (working copy)
@@ -218,6 +218,21 @@
    # TODO: separate line advancing and timeout setting

    my $errtpl = "error in ".$self->{line};
+
+   if ($line =~ /.+\s+if\s*\(.*\)$/) {
+       my ($text) = $line =~ /.+if\s+\(\s*(.*)\s*\)$/;
+       $text = parseCmd($text, $self);
+       if (defined $self->{error}) {$self->{error} = "$errtpl: $self->{error}"; return}
+       my $savetxt = particle($text, $self, $errtpl);
+       if (multi($savetxt, $self, $errtpl)) {
+           $line =~ s/\s+if\s*\(.*\)//;
+       } else {
+           $self->{line}++;
+           $self->{timeout} = 0;
+           return "";
+       }
+   }
+
    ##########################################
    # jump to label: goto label
    if ($line =~ /^goto\s/) {