biblicit 2.0.3 → 2.0.4

data/parscit/lib/Omni/Omnitable.pm

@@ -1,336 +0,0 @@
-package Omni::Omnitable;
-
-# Configuration
-use strict;
-
-# Local libraries
-use Omni::Config;
-use Omni::Omnicell;
-
-# 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 table object in Omnipage xml: a table contains cells with various objects
-#
-# Do Hoang Nhat Huy, 11 Feb 2011
-###
-# Initialization
-sub new
-{
-	my ($class) = @_;
-
-	# Objs: a table can have many cells
-	my @objs		= ();
-
-	# Grid coordinates
-	my @grid_cols	= ();
-	my @grid_rows	= ();
-
-	# Content of all rows in the table
-	my @rcontent	= ();
-
-	# Class members
-	my $self = {	'_self'			=> $obj_list->{ 'OMNITABLE' },
-					'_raw'			=> undef,
-					'_content'		=> undef,
-					'_rcontent'		=> \@rcontent,
-					'_bottom'		=> undef,
-					'_top'			=> undef,
-					'_left'			=> undef,
-					'_right'		=> undef,
-					'_alignment'	=> undef,
-					'_grid_cols'	=> \@grid_cols,
-					'_grid_rows'	=> \@grid_rows,
-					'_objs'			=> \@objs	};
-
-	bless $self, $class;
-	return $self;
-}
-
-# 
-sub set_raw
-{
-	my ($self, $raw) = @_;
-
-	# Save the raw xml <table> ... </table>
-	$self->{ '_raw' }	= $raw;
-
-	# Parse the raw string
-	my $twig_roots		= { $tag_list->{ 'TABLE' }	=> 1 };
-	my $twig_handlers 	= { $tag_list->{ 'TABLE' }	=> 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		= "";
-	my @tmp_rcontent	= ();
-	# because there's no object
-	my @tmp_objs		= ();
-	# and no coordinate
-	my @tmp_grid_cols	= ();
-	my @tmp_grid_rows	= ();
-
-	# Get <table> 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_alignment	= GetNodeAttr($node, $att_list->{ 'ALIGN' });
-
-	# A table contains <cell> and <gridtable> tag
-	my $cell_tag		= $tag_list->{ 'CELL' };
-	my $grid_tag		= $tag_list->{ 'GRID' };
-	my $grid_col_tag	= $tag_list->{ 'GRID-COL' };
-	my $grid_row_tag	= $tag_list->{ 'GRID-ROW' };
-
-	my $child = undef;
-	# Get the first child which is tha <gridtable>
-	$child = $node->first_child( $grid_tag );
-
-	# Grid table found, a formatted table
-	if (defined $child) 	
-	{ 
-		# Get the first grid coordinate
-		$child = $child->first_child();
-
-		# Extract the grid coodinates
-		while (defined $child)
-		{
-			my $xpath = $child->path();
-
-			# if this child is a <gridCol> tag
-			if ($xpath =~ m/\/$grid_col_tag$/)
-			{
-				push @tmp_grid_cols, GetNodeText( $child );
-			}
-			# if this child is a <gridRow> tag
-			elsif ($xpath =~ m/\/$grid_row_tag$/)
-			{
-				push @tmp_grid_rows, GetNodeText( $child );
-			}
-
-			# Little brother
-			if ($child->is_last_child) 
-			{ 
-				last; 
-			}
-			else
-			{
-				$child = $child->next_sibling();
-			}
-		}
-	}
-
-	# All cells
-	my @all_cells = $node->descendants( $cell_tag );
-	foreach my $cell (@all_cells)
-	{
-		my $obj = new Omni::Omnicell();
-
-		# Set raw content
-		$obj->set_raw($cell->sprint());
-
-		# Update cell list
-		push @tmp_objs, $obj;
-
-	}
-
-	# Unformatted table
-	if ((scalar(@tmp_grid_cols) == 0) || (scalar(@tmp_grid_rows) == 0))
-	{
-		# Just append cell content
-		foreach my $cell (@tmp_objs) { $tmp_content = $tmp_content . $cell->get_content() . "\n"; }
-	}
-	# Formatted table
-	else
-	{
-		# Table content
-		my @content_matrix = ();
-		
-		# Matrix initialization
-		for(my $i = 0; $i < scalar(@tmp_grid_rows); $i++)
-		{
-			# Empty row
-			my @row = ();
-			# Update the row
-			for(my $j = 0; $j < scalar(@tmp_grid_cols); $j++) { push @row, ""; }
-			# Save the row
-			push @content_matrix, [ @row ];
-		}
-
-		# Update table content
-		foreach my $cell (@tmp_objs)
-		{
-			my $row_index = $cell->get_grid_row_from();
-			my $col_index = $cell->get_grid_col_from();
-
-			# Check index and update
-			if (($row_index < scalar(@content_matrix)) && ($col_index < scalar(@{ $content_matrix[ $row_index ] })))
-			{
-				my $cell_content = undef;
-				# Get content
-				$cell_content	 = $cell->get_content();
-				# Trim
-				$cell_content	 =~ s/^\s+|\s+$//g;
-				# Remove blank line
-				$cell_content	 =~ s/\n\s*\n/\n/g;
-
-				$content_matrix[ $row_index ][ $col_index ] = $cell_content;
-			}
-		}
-
-		# Save content
-		foreach my $row (@content_matrix)
-		{
-			# This is used to handle the case in which a cell have multiple lines
-			my @lines = ();
-			# Foreach cell in the row, get its content
-			foreach my $cell (@{ $row })
-			{
-				my @local_lines = split /\n/, $cell;
-				for (my $i = 0; $i < scalar(@local_lines); $i++)
-				{
-					if ($i == scalar(@lines)) { push @lines, ""; }
-					$lines[ $i ] = $lines[ $i ] . $local_lines[ $i ] . "\t";
-				}
-			}
-
-			my $row_content = "";
-			# Add a new row to the table content and the row content
-			foreach my $line (@lines)
-			{
-				$row_content = $row_content . $line . "\n";
-				$tmp_content = $tmp_content . $line . "\n";
-			}
-			
-			# Save row content
-			push @tmp_rcontent, $row_content;
-		}
-	}
-
-	# 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->{ '_alignment' }		= $tmp_alignment;
-
-	# Copy all cells 
-	@{$$self->{ '_objs' } }			= @tmp_objs;
-
-	# Copy all grid columns
-	@{$$self->{ '_grid_cols' } }	= @tmp_grid_cols;
-	# Copy all grid rows
-	@{$$self->{ '_grid_rows' } }	= @tmp_grid_rows;
-	
-	# Copy content
-	$$self->{ '_content' }			= $tmp_content;
-	# Copy row content
-	@{ $$self->{ '_rcontent' } }	= @tmp_rcontent;
-}
-
-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_row_content
-{
-	my ($self) = @_;
-	return $self->{ '_rcontent' };	
-}
-
-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_alignment
-{
-	my ($self) = @_;
-	return $self->{ '_alignment' };
-}
-
-# 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/Omniword.pm

@@ -1,162 +0,0 @@
-package Omni::Omniword;
-
-# Configuration
-use strict;
-
-# Local libraries
-use Omni::Config;
-use Omni::Omnirun;
-
-# 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_bottom		= undef;
-my $tmp_top			= undef;
-my $tmp_left		= undef;
-my $tmp_right		= undef;
-
-###
-# A word object in Omnipage xml: basic blocks of the xml
-#
-# Do Hoang Nhat Huy, 07 Jan 2011
-###
-# Initialization
-sub new
-{
-	my ($class) = @_;
-
-	# Class members
-	my $self = {	'_self'			=> $obj_list->{ 'OMNIWORD' },
-					'_raw'			=> undef,
-					'_content'		=> undef,
-					'_bottom'		=> undef,
-					'_top'			=> undef,
-					'_left'			=> undef,
-					'_right'		=> undef	};
-
-	bless $self, $class;
-	return $self;
-}
-
-# 
-sub set_raw
-{
-	my ($self, $raw) = @_;
-
-	# Save the raw xml <wd> ... </wd>
-	$self->{ '_raw' }	= $raw;
-
-	# Parse the raw string
-	my $twig_roots		= { $tag_list->{ 'WORD' }	=> 1 };
-	my $twig_handlers 	= { $tag_list->{ 'WORD' }	=> \&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
-	$self->{ '_bottom' }	= $tmp_bottom;
-	$self->{ '_top' }		= $tmp_top;
-	$self->{ '_left' }		= $tmp_left;
-	$self->{ '_right' } 	= $tmp_right;
-	
-	# Copy content
-	$self->{ '_content' }	= $tmp_content;
-}
-
-sub get_raw
-{
-	my ($self) = @_;
-	return $self->{ '_raw' };
-}
-
-sub parse
-{
-	my ($twig, $node) = @_;
-
-	# Get <run> node attributes
-	$tmp_bottom		= GetNodeAttr($node, $att_list->{ 'BOTTOM' });
-	$tmp_top		= GetNodeAttr($node, $att_list->{ 'TOP' });
-	$tmp_left		= GetNodeAttr($node, $att_list->{ 'LEFT' });
-	$tmp_right		= GetNodeAttr($node, $att_list->{ 'RIGHT' });
-	
-	# Get the word's content
-	$tmp_content 	= GetNodeText($node);
-	$tmp_content	=~ s/^\s+|\s+$//g;
-}
-
-sub get_name
-{
-	my ($self) = @_;
-	return $self->{ '_self' };
-}
-
-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;