Changeset 28410 for gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuildproc.pm

Timestamp:

2013-10-14T14:58:34+13:00 (11 years ago)

Author:

davidb

Message:

Code now runs an XSLT over the doc.xml file

File:

• gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuildproc.pm (modified) (3 diffs)

gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuildproc.pm

@@ -32 +32 @@
 no strict 'refs'; # allow filehandles to be variables and viceversa
 
+use docprint;
 use util;
+use FileUtils;
 
 use extrabuildproc;
@@ -47 +49 @@
     my $self = new extrabuildproc (@_);
 
+    my $xslt_file = "gsdom2rdf.xsl";
+
+    my $xslt_filename = &util::locate_config_file($xslt_file);
+    if (!defined $xslt_filename) {
+    print STDERR "Can not find $xslt_file, please make sure you have supplied the correct file path\n";
+    die "\n";
+    }
+
+    $self->{'xslt_file'} = $xslt_file;
+    $self->{'xslt_filename'} = $xslt_filename;
+
+    # Do the following here so it doesn't keep checking (within the util.pm method)
+    # whether it needs to create the directory or not
+    my $tmp_dir = &util::get_collectlevel_tmp_dir();
+    $self->{'tmp_dir'} = $tmp_dir;
+
     return bless $self, $class;
 }
 
 
+
+
+sub open_xslt_pipe
+{
+    my $self = shift @_;
+    my ($output_file_name, $xslt_file)=@_;
+
+    return unless defined $xslt_file and $xslt_file ne "" and &FileUtils::fileExists($xslt_file);
+    
+    my $apply_xslt_jar = &FileUtils::javaFilenameConcatenate($ENV{'GSDLHOME'},"bin","java","ApplyXSLT.jar");
+    my $xalan_jar      = &FileUtils::javaFilenameConcatenate($ENV{'GSDLHOME'},"bin","java","xalan.jar");
+
+    my $java_class_path = &util::javapathname_cat($apply_xslt_jar,$xalan_jar);
+
+    $xslt_file = &util::makeFilenameJavaCygwinCompatible($xslt_file);
+
+    my $mapping_file_path = "";
+
+    my $cmd = "| java -cp \"$java_class_path\" org.nzdl.gsdl.ApplyXSLT -t \"$xslt_file\" "; 
+
+    if (defined $self->{'mapping_file'} and $self->{'mapping_file'} ne ""){
+    my $mapping_file_path = "\"".$self->{'mapping_file'}."\""; 
+    $cmd .= "-m $mapping_file_path";
+    }
+    
+    print STDERR "*** cmd = $cmd\n";
+
+    open(*XMLWRITER, $cmd)
+    or die "can't open pipe to xslt: $!";
+
+    
+    $self->{'xslt_writer'} = *XMLWRITER;
+
+    print XMLWRITER "<?DocStart?>\n";       
+    print XMLWRITER "$output_file_name\n";
+ 
+  }
+  
+
+sub close_xslt_pipe
+{
+  my $self = shift @_;
+
+  
+  return unless defined $self->{'xslt_writer'} ;
+    
+  my $xsltwriter = $self->{'xslt_writer'};
+  
+  print $xsltwriter "<?DocEnd?>\n";
+  close($xsltwriter);
+
+  undef $self->{'xslt_writer'};
+
+}
 
 
@@ -60 +132 @@
     my $doc_oid = $doc_obj->get_OID();
 
+    my $tmp_dir = $self->{'tmp_dir'};
+    my $tmp_doc_filename = &FileUtils::filenameConcatenate($tmp_dir,"doc-$doc_oid.xml");
+    $tmp_doc_filename    = &util::makeFilenameJavaCygwinCompatible($tmp_doc_filename);
+
+    my $xslt_filename = $self->{'xslt_filename'};
+    $self->open_xslt_pipe($tmp_doc_filename, $xslt_filename); # stops with error if not able to open pipe
+
+    my $outhandler = $self->{'xslt_writer'};
+    binmode($outhandler,":utf8");
+
+    my $section_text = &docprint::get_section_xml($doc_obj,$doc_obj->get_top_section());
+    print $outhandler $section_text;
+
+    $self->close_xslt_pipe();
+
+
+    # now feed to generated file to jena's (TDB) tripple store
+
+
+}
+
+
+sub texteditMG {
+    my $self = shift (@_);
+    my ($doc_obj) = @_;
+    my $handle = $self->{'output_handle'};
+    
+    my $doc_oid = $doc_obj->get_OID();
+
+
     my $doc_section = 0; # just for this document
+
 
     my $text = "";