Changeset 2155

Timestamp:

12/22/08 00:51:36 (3 years ago)

Author:

azawawi

Message:

added syntax checking to Padre::Plugin::Perl6

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Document/Perl6.pm (modified) (3 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Document/Perl6.pm

@@ -15 +15 @@
 
 my $keywords;
+my $issues = [];
 
 # Naive way to parse and colorize perl6 files
@@ -31 +32 @@
     eval { @tokens = $p->tokens;   1; };
     if($EVAL_ERROR) {
-        say "Parsing error, bye bye ->colorize";
+        say "Parsing error, bye bye ->colorize " . $EVAL_ERROR;
+        my @errors = split /\n/, $EVAL_ERROR;
+        my $lineno = -1;
+        my $error_msg = "";
+        for my $error (@errors) {
+            if($error =~ /error.+line (\d+)/) {
+                $lineno = $1;
+                $error_msg = $error;
+            }
+        }
+        # update errors
+        $issues = [ { line => $lineno, msg => $error_msg, severity => 'E', desc => $EVAL_ERROR, } ];
         return;
+    } else {
+        # no errors...
+        $issues = [];
     }
 
@@ -98 +113 @@
 }
 
+sub check_syntax {
+    my $self = shift;
+    return $self->_check_syntax_internal;
+}
+
+sub check_syntax_in_background {
+    my $self = shift;
+    return $self->_check_syntax_internal;
+}
+
+sub _check_syntax_internal {
+    my $self = shift;
+    return $issues;
+}
+
 sub keywords {
     if (! defined $keywords) {