Changeset 2142

Timestamp:

12/21/08 11:58:45 (3 years ago)

Author:

hjansen

Message:

Added syntax checking capabilities

Location:

trunk/Padre-Plugin-XML

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Padre/Document/XML.pm (modified) (1 diff)
• lib/Padre/Plugin/XML.pm (modified) (2 diffs)
• lib/Padre/Task (added)
• lib/Padre/Task/SyntaxChecker (added)
• lib/Padre/Task/SyntaxChecker/XML.pm (added)

trunk/Padre-Plugin-XML/Build.PL

@@ -9 +9 @@
     dist_version_from   => 'lib/Padre/Plugin/XML.pm',
     build_requires => {
-        'Test::More' => 0,
-        'Padre' => '0.21',
-        'XML::Tidy' => 0,
+        'Test::More'  => 0,
+        'Padre'       => '0.21',
+        'XML::Tidy'   => 0,
+        'XML::LibXML' => '1.025',
     },
     add_to_cleanup      => [ 'Padre-Plugin-XML-*' ],
-    create_makefile_pl => 'traditional',
+    create_makefile_pl  => 'traditional',
 );
 

trunk/Padre-Plugin-XML/Changes

@@ -1 +1 @@
 Revision history for Padre-Plugin-XML
+
+0.03
+        added syntax checking capabilities (HJANSEN)
 
 0.02

trunk/Padre-Plugin-XML/MANIFEST

@@ -1 +1 @@
 Build.PL
 Changes
+lib/Padre/Document/XML.pm
 lib/Padre/Plugin/XML.pm
+lib/Padre/Task/SyntaxChecker/XML.pm
 MANIFEST            This list of files
 README

trunk/Padre-Plugin-XML/Makefile.PL

@@ -6 +6 @@
           'VERSION_FROM' => 'lib/Padre/Plugin/XML.pm',
           'PREREQ_PM' => {
-                           'Padre' => '0.21',
-                           'Test::More' => '0',
-                           'XML::Tidy' => '0'
+                           'Padre'       => '0.21',
+                           'Test::More'  => '0',
+                           'XML::Tidy'   => '0',
+                           'XML::LibXML' => '1.025'
                          },
           'INSTALLDIRS' => 'site',

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

@@ -7 +7 @@
 use Padre::Document ();
 
-our $VERSION = '0.22';
+our $VERSION = '0.03';
 our @ISA     = 'Padre::Document';
 
+sub check_syntax {
+    my $self  = shift;
+    my %args  = @_;
+    $args{background} = 0;
+    return $self->_check_syntax_internals(\%args);
+}
 
+sub check_syntax_in_background {
+    my $self  = shift;
+    my %args  = @_;
+    $args{background} = 1;
+    return $self->_check_syntax_internals(\%args);
+}
+
+sub _check_syntax_internals {
+    my $self = shift;
+    my $args = shift;
+
+    my $text = $self->text_get;
+    unless ( defined $text and $text ne '' ) {
+        return [];
+    }
+
+    # Do we really need an update?
+    require Digest::MD5;
+    use Encode qw(encode_utf8);
+    my $md5 = Digest::MD5::md5(encode_utf8($text));
+    unless ( $args->{force} ) {
+        if ( defined( $self->{last_checked_md5} )
+             && $self->{last_checked_md5} eq $md5
+        ) {
+            return;
+        }
+    }
+    $self->{last_checked_md5} = $md5;
+
+    require Padre::Task::SyntaxChecker::XML;
+    my $task = Padre::Task::SyntaxChecker::XML->new(
+        notebook_page => $self->editor,
+        text => $text,
+        filename => $self->editor->{Document}->filename,
+        ( exists $args->{on_finish} ? (on_finish => $args->{on_finish}) : () ),
+    );
+    if ( $args->{background} ) {
+        # asynchronous execution (see on_finish hook)
+        $task->schedule();
+        return();
+    }
+    else {
+        # serial execution, returning the result
+        return () if $task->prepare() =~ /^break$/;
+        $task->run();
+        return $task->{syntax_check};
+    }
+}
 
 1;

trunk/Padre-Plugin-XML/lib/Padre/Plugin/XML.pm

@@ -4 +4 @@
 use strict;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 use base 'Padre::Plugin';
@@ -40 +40 @@
     if ( $src ) {
         my $editor = $self->selected_editor;
-        $editor->ReplaceSelection( $string );
+        $editor->ReplaceSelection( $string );
     } else {
         $doc->text_set( $string );