biblicit 2.0.3 → 2.0.4

data/parscit/lib/Omni/Omnidd.pm

@@ -1,328 +0,0 @@
-package Omni::Omnidd;
-
-# Configuration
-use strict;
-
-# Local libraries
-use Omni::Config;
-use Omni::Omnicol;
-use Omni::Omnipara;
-use Omni::Omniframe;
-use Omni::Omnitable;
-
-# Extern libraries
-use XML::Twig;
-use XML::Parser;
-
-# Global variables
-my $tag_list = $Omni::Config::tag_list;
-my $att_list = $Omni::Config::att_list;
-my $obj_list = $Omni::Config::obj_list;
-
-# Temporary variables
-
-###
-# A dd object in Omnipage xml: a dd, don't know what it is, but its structure 
-# is quite similar to a column
-#
-# Do Hoang Nhat Huy, 11 Jan 2011
-###
-# Initialization
-sub new
-{
-	my ($class) = @_;
-
-	# dd: a dd can have many tables, or pictures, may be paras, and columns
-	my @objs	= ();
-
-	# Class members
-	my $self = {	'_self'			=> $obj_list->{ 'OMNIDD' },
-					'_raw'			=> undef,
-					'_content'		=> undef,
-					'_bottom'		=> undef,
-					'_top'			=> undef,
-					'_left'			=> undef,
-					'_right'		=> undef,
-					'_bottom_dist'	=> undef,
-					'_top_dist'		=> undef,
-					'_left_dist'	=> undef,
-					'_right_dist'	=> undef,
-					'_objs'			=> \@objs	};
-
-	bless $self, $class;
-	return $self;
-}
-
-# 
-sub set_raw
-{
-	my ($self, $raw) = @_;
-
-	# Save the raw xml <column> ... </column>
-	$self->{ '_raw' }	= $raw;
-
-	# Parse the raw string
-	my $twig_roots		= { $tag_list->{ 'DD' }	=> 1 };
-	my $twig_handlers 	= { $tag_list->{ 'DD' }	=> sub { parse(@_, \$self); } };
-
-	# XML::Twig 
-	my $twig = new XML::Twig(	twig_roots 		=> $twig_roots,
-						 	 	twig_handlers	=> $twig_handlers,
-						 	 	pretty_print 	=> 'indented'	);
-
-	# Start the XML parsing
-	$twig->parse($raw, \$self);
-	$twig->purge;
-}
-
-sub get_raw
-{
-	my ($self) = @_;
-	return $self->{ '_raw' };
-}
-
-sub parse
-{
-	my ($twig, $node, $self) = @_;
-
-	# At first, content is blank
-	my $tmp_content	= "";
-	# because there's no object
-	my @tmp_objs	= ();
-
-	# Get <dd> node attributes
-	my $tmp_bottom		= GetNodeAttr($node, $att_list->{ 'BOTTOM' });
-	my $tmp_top			= GetNodeAttr($node, $att_list->{ 'TOP' });
-	my $tmp_left		= GetNodeAttr($node, $att_list->{ 'LEFT' });
-	my $tmp_right		= GetNodeAttr($node, $att_list->{ 'RIGHT' });
-	my $tmp_bottom_dist	= GetNodeAttr($node, $att_list->{ 'BOTTOMDIST' });
-	my $tmp_top_dist	= GetNodeAttr($node, $att_list->{ 'TOPDIST' });
-	my $tmp_left_dist	= GetNodeAttr($node, $att_list->{ 'LEFTDIST' });
-	my $tmp_right_dist	= GetNodeAttr($node, $att_list->{ 'RIGHTDIST' });
-
-	# Check if there's any paragraph, col, table, or picture 
-	# The large number of possible children is due to the
-	# ambiguous structure of the Omnipage XML
-	my $dd_tag		= $tag_list->{ 'DD' };
-	my $img_tag		= $tag_list->{ 'PICTURE' };
-	my $para_tag	= $tag_list->{ 'PARA' };
-	my $table_tag	= $tag_list->{ 'TABLE' };
-	my $column_tag	= $tag_list->{ 'COLUMN' };
-	my $frame_tag	= $tag_list->{ 'FRAME' };
-
-	my $child = undef;
-	# Get the first child in the body text
-	$child = $node->first_child();
-
-	while (defined $child)
-	{
-		my $xpath = $child->path();
-
-		# if this child is a <para> tag
-		if ($xpath =~ m/\/$para_tag$/)
-		{
-			my $para = new Omni::Omnipara();
-
-			# Set raw content
-			$para->set_raw($child->sprint());
-
-			# Update paragraph list
-			push @tmp_objs, $para;
-
-			# Update content
-			$tmp_content = $tmp_content . $para->get_content() . "\n";
-		}
-		# if this child is a <dd> tag
-		elsif ($xpath =~ m/\/$dd_tag$/)
-		{
-			my $dd = new Omni::Omnidd();
-
-			# Set raw content
-			$dd->set_raw($child->sprint());
-
-			# Nested <dd> is not allowed so we copy the objects
-			my $objects = $dd->get_objs_ref();
-
-			# Update <dd> objects list
-			push @tmp_objs, @{ $objects };
-
-			# Update content
-			$tmp_content = $tmp_content . $dd->get_content() . "\n";
-		}
-		# if this child is a <table> tag
-		elsif ($xpath =~ m/\/$table_tag$/)
-		{
-			my $table = new Omni::Omnitable();
-
-			# Set raw content
-			$table->set_raw($child->sprint());
-
-			# Update paragraph list
-			push @tmp_objs, $table;
-
-			# Update content
-			$tmp_content = $tmp_content . $table->get_content() . "\n";
-		}
-		# if this child is a <picture> tag
-		elsif ($xpath =~ m/\/$img_tag$/)
-		{
-			#my $img = new Omni::Omniimg();
-
-			# Set raw content
-			#$img->set_raw($child->sprint());
-
-			# Update paragraph list
-			#push @tmp_objs, $img;
-
-			# Update content
-			#$tmp_content = $tmp_content . $img->get_content() . "\n";
-		}
-		# if this child is a <column> tag
-		elsif ($xpath =~ m/\/$column_tag$/)
-		{
-			#my $col = new Omni::Omnicol();
-
-			# Set raw content
-			#$col->set_raw($child->sprint());
-
-			# Update paragraph list
-			#push @tmp_objs, $col;
-
-			# Update content
-			#$tmp_content = $tmp_content . $col->get_content() . "\n";
-		}
-		# if this child is <frame>
-		elsif ($xpath =~ m/\/$frame_tag$/)
-		{
-			my $frame = new Omni::Omniframe();
-
-			# Set raw content
-			$frame->set_raw($child->sprint());
-
-			# Update column list
-			push @tmp_objs, $frame;
-
-			# Update content
-			$tmp_content = $tmp_content . $frame->get_content() . "\n";
-		}
-
-		# Little brother
-		if ($child->is_last_child) 
-		{ 
-			last; 
-		}
-		else
-		{
-			$child = $child->next_sibling();
-		}
-	}
-
-	# Copy information from temporary variables to class members
-	$$self->{ '_bottom' }		= $tmp_bottom;
-	$$self->{ '_top' }			= $tmp_top;
-	$$self->{ '_left' }			= $tmp_left;
-	$$self->{ '_right' } 		= $tmp_right;
-	$$self->{ '_bottom_dist' }	= $tmp_bottom_dist;
-	$$self->{ '_top_dist' }		= $tmp_top_dist;
-	$$self->{ '_left_dist' }	= $tmp_left_dist;
-	$$self->{ '_right_dist' }	= $tmp_right_dist;
-
-	# Copy content
-	$$self->{ '_content' }		= $tmp_content;
-
-	# Copy all objects 
-	@{$$self->{ '_objs' } }		= @tmp_objs;
-}
-
-sub get_name
-{
-	my ($self) = @_;
-	return $self->{ '_self' };
-}
-
-sub get_objs_ref
-{
-	my ($self) = @_;
-	return $self->{ '_objs' };
-}
-
-sub get_content
-{
-	my ($self) = @_;
-	return $self->{ '_content' };
-}
-
-sub get_bottom_pos
-{
-	my ($self) = @_;
-	return $self->{ '_bottom' };
-}
-
-sub get_top_pos
-{
-	my ($self) = @_;
-	return $self->{ '_top' };
-}
-
-sub get_left_pos
-{
-	my ($self) = @_;
-	return $self->{ '_left' };
-}
-
-sub get_right_pos
-{
-	my ($self) = @_;
-	return $self->{ '_right' };
-}
-
-sub get_bottom_distance
-{
-	my ($self) = @_;
-	return $self->{ '_bottom_dist' };
-}
-
-sub get_top_distance
-{
-	my ($self) = @_;
-	return $self->{ '_top_dist' };
-}
-
-sub get_left_distance
-{
-	my ($self) = @_;
-	return $self->{ '_left_dist' };
-}
-
-sub get_right_distance
-{
-	my ($self) = @_;
-	return $self->{ '_right_dist' };
-}
-
-# Support functions
-sub GetNodeAttr 
-{
-	my ($node, $attr) = @_;
-	return ($node->att($attr) ? $node->att($attr) : "");
-}
-
-sub SetNodeAttr 
-{
-	my ($node, $attr, $value) = @_;
-	$node->set_att($attr, $value);
-}
-
-sub GetNodeText
-{
-	my ($node) = @_;
-	return $node->text;
-}
-
-sub SetNodeText
-{
-	my ($node, $value) = @_;
-	$node->set_text($value);
-}
-
-1;

data/parscit/lib/Omni/Omnidoc.pm

@@ -1,153 +0,0 @@
-package Omni::Omnidoc;
-
-# Configuration
-use strict;
-
-# Local libraries
-use Omni::Config;
-use Omni::Omnipage;
-
-# Extern libraries
-use XML::Twig;
-use XML::Parser;
-
-# Global variables
-my $tag_list = $Omni::Config::tag_list;
-my $att_list = $Omni::Config::att_list;
-my $obj_list = $Omni::Config::obj_list;
-
-# Temporary variables
-my $tmp_content 	= undef;
-my @tmp_pages		= ();
-
-###
-# A whole document object in Omnipage xml: a document contains many pages 
-#
-# Do Hoang Nhat Huy, 09 Jan 2011
-###
-# Initialization
-sub new
-{
-	my ($class) = @_;
-
-	# Lines: a paragraph can have multiple lines
-	my @pages	= ();
-
-	# Class members
-	my $self = {	'_self'			=> $obj_list->{ 'OMNIDOC' },
-					'_raw'			=> undef,
-					'_content'		=> undef,
-					'_pages'		=> \@pages	};
-
-	bless $self, $class;
-	return $self;
-}
-
-# 
-sub set_raw
-{
-	my ($self, $raw) = @_;
-
-	# Save the raw xml <para> ... </para>
-	$self->{ '_raw' }	= $raw;
-
-	# At first, content is blank
-	$tmp_content 		= "";
-	# because there's no document
-	@tmp_pages			= ();
-
-	# Parse the raw string
-	my $twig_roots		= { $tag_list->{ 'DOCUMENT' }	=> 1 };
-	my $twig_handlers 	= { $tag_list->{ 'DOCUMENT' }	=> \&parse};
-
-	# XML::Twig 
-	my $twig = new XML::Twig(	twig_roots 		=> $twig_roots,
-						 	 	twig_handlers	=> $twig_handlers,
-						 	 	pretty_print 	=> 'indented'	);
-
-	# Start the XML parsing
-	$twig->parse($raw);
-	$twig->purge;
-
-	# Copy information from temporary variables to class members
-
-	# Copy all pages
-	@{$self->{ '_pages' } }	= @tmp_pages;
-	
-	# Copy content
-	$self->{ '_content' }	= $tmp_content;
-}
-
-sub get_raw
-{
-	my ($self) = @_;
-	return $self->{ '_raw' };
-}
-
-sub parse
-{
-	my ($twig, $node) = @_;
-
-	# Get <document> node attributes
-
-	# Check if there's any para
-	my @all_pages = $node->descendants( $tag_list->{ 'PAGE' } );
-	foreach my $pg (@all_pages)
-	{
-		my $page = new Omni::Omnipage();
-
-		# Set raw content
-		$page->set_raw($pg->sprint());
-
-		# Update page list
-		push @tmp_pages, $page;
-
-		# Update content
-		$tmp_content = $tmp_content . $page->get_content() . "\n";
-	}
-}
-
-sub get_name
-{
-	my ($self) = @_;
-	return $self->{ '_self' };
-}
-
-sub get_objs_ref
-{
-	my ($self) = @_;
-	return $self->{ '_pages' };
-}
-
-sub get_content
-{
-	my ($self) = @_;
-	return $self->{ '_content' };
-}
-
-# Support functions
-sub GetNodeAttr 
-{
-	my ($node, $attr) = @_;
-	return ($node->att($attr) ? $node->att($attr) : "");
-}
-
-sub SetNodeAttr 
-{
-	my ($node, $attr, $value) = @_;
-	$node->set_att($attr, $value);
-}
-
-sub GetNodeText
-{
-	my ($node) = @_;
-	return $node->text;
-}
-
-sub SetNodeText
-{
-	my ($node, $value) = @_;
-	$node->set_text($value);
-}
-
-1;

data/parscit/lib/Omni/Omniframe.pm

@@ -1,223 +0,0 @@
-package Omni::Omniframe;
-
-# Configuration
-use strict;
-
-# Local libraries
-use Omni::Config;
-use Omni::Omnipara;
-use Omni::Omnitable;
-
-# Extern libraries
-use XML::Twig;
-use XML::Parser;
-
-# Global variables
-my $tag_list = $Omni::Config::tag_list;
-my $att_list = $Omni::Config::att_list;
-my $obj_list = $Omni::Config::obj_list;
-
-###
-# A frame object in Omnipage xml: a frame contains paragraphs 
-# (this is my observation and can be invalid under close scrunity 
-# of new "evidence")
-#
-# Do Hoang Nhat Huy, 23 Feb 2011
-###
-# Initialization
-sub new
-{
-	my ($class) = @_;
-
-	# Objs: paragraphs 
-	my @objs		= ();
-
-	# Class members
-	my $self = {	'_self'			=> $obj_list->{ 'OMNIFRAME' },
-					'_raw'			=> undef,
-					'_content'		=> undef,
-					'_bottom'		=> undef,
-					'_top'			=> undef,
-					'_left'			=> undef,
-					'_right'		=> undef,
-					'_objs'			=> \@objs	};
-
-	bless $self, $class;
-	return $self;
-}
-
-sub set_raw
-{
-	my ($self, $raw) = @_;
-
-	# Save the raw xml <column> ... </column>
-	$self->{ '_raw' }	= $raw;
-
-	# Parse the raw string
-	my $twig_roots		= { $tag_list->{ 'FRAME' }	=> 1 };
-	my $twig_handlers 	= { $tag_list->{ 'FRAME' }	=> sub { parse(@_, \$self); } };
-
-	# XML::Twig 
-	my $twig = new XML::Twig(	twig_roots 		=> $twig_roots,
-						 	 	twig_handlers	=> $twig_handlers,
-						 	 	pretty_print 	=> 'indented'	);
-
-	# Start the XML parsing
-	$twig->parse($raw, \$self);
-	$twig->purge;
-}
-
-sub get_raw
-{
-	my ($self) = @_;
-	return $self->{ '_raw' };
-}
-
-sub parse
-{
-	my ($twig, $node, $self) = @_;
-
-	# At first, content is blank
-	my $tmp_content	= "";
-	# because there's no object
-	my @tmp_objs		= ();
-
-	# Get <column> node attributes
-	my $tmp_bottom		= GetNodeAttr($node, $att_list->{ 'BOTTOM' });
-	my $tmp_top			= GetNodeAttr($node, $att_list->{ 'TOP' });
-	my $tmp_left		= GetNodeAttr($node, $att_list->{ 'LEFT' });
-	my $tmp_right		= GetNodeAttr($node, $att_list->{ 'RIGHT' });
-
-	# Check if there's any paragraph, dd, table, or picture 
-	# The large number of possible children is due to the
-	# ambiguous structure of the Omnipage XML
-	my $para_tag	= $tag_list->{ 'PARA' };
-	my $table_tag	= $tag_list->{ 'TABLE' };
-
-	# Get the first child in the body text
-	my $child = $node->first_child();
-
-	while (defined $child)
-	{
-		my $xpath = $child->path();
-
-		# if this child is <para>
-		if ($xpath =~ m/\/$para_tag$/)
-		{
-			my $para = new Omni::Omnipara();
-		
-			# Set raw content
-			$para->set_raw($child->sprint());
-
-			# Update paragraph list
-			push @tmp_objs, $para;
-
-			# Update content
-			$tmp_content = $tmp_content . $para->get_content() . "\n";
-		}
-		elsif ($xpath =~ m/\/$table_tag$/)
-		{
-			my $table = new Omni::Omnitable();
-		
-			# Set raw content
-			$table->set_raw($child->sprint());
-
-			# Update paragraph list
-			push @tmp_objs, $table;
-
-			# Update content
-			$tmp_content = $tmp_content . $table->get_content() . "\n";
-		}
-
-		# Little brother
-		if ($child->is_last_child) 
-		{ 
-			last; 
-		}
-		else
-		{
-			$child = $child->next_sibling();
-		}
-	}
-
-	# Copy information from temporary variables to class members
-	$$self->{ '_bottom' }	= $tmp_bottom;
-	$$self->{ '_top' }		= $tmp_top;
-	$$self->{ '_left' }		= $tmp_left;
-	$$self->{ '_right' } 	= $tmp_right;
-
-	# Copy all objects 
-	@{$$self->{ '_objs' } }	= @tmp_objs;
-	
-	# Copy content
-	$$self->{ '_content' }	= $tmp_content;
-}
-
-sub get_name
-{
-	my ($self) = @_;
-	return $self->{ '_self' };
-}
-
-sub get_objs_ref
-{
-	my ($self) = @_;
-	return $self->{ '_objs' };
-}
-
-sub get_content
-{
-	my ($self) = @_;
-	return $self->{ '_content' };
-}
-
-sub get_bottom_pos
-{
-	my ($self) = @_;
-	return $self->{ '_bottom' };
-}
-
-sub get_top_pos
-{
-	my ($self) = @_;
-	return $self->{ '_top' };
-}
-
-sub get_left_pos
-{
-	my ($self) = @_;
-	return $self->{ '_left' };
-}
-
-sub get_right_pos
-{
-	my ($self) = @_;
-	return $self->{ '_right' };
-}
-
-# Support functions
-sub GetNodeAttr 
-{
-	my ($node, $attr) = @_;
-	return ($node->att($attr) ? $node->att($attr) : "");
-}
-
-sub SetNodeAttr 
-{
-	my ($node, $attr, $value) = @_;
-	$node->set_att($attr, $value);
-}
-
-sub GetNodeText
-{
-	my ($node) = @_;
-	return $node->text;
-}
-
-sub SetNodeText
-{
-	my ($node, $value) = @_;
-	$node->set_text($value);
-}
-
-1;