Alvis-NLPPlatform
20 results

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN 


my $build = $class->new
    (
     module_name => 'Alvis::NLPPlatform',
     dist_version_from => 'lib/Alvis/NLPPlatform.pm',
     license => 'gpl',
     requires => {'perl' => '5.005',
		  Time::HiRes => 0,
		  IO => 0,
		  XML::Parser::PerlSAX => 0,
		  Data::Dumper => 0,
		  Alvis::TermTagger => 0.3,
		  Alvis::Pipeline => 0,
		  Alvis::Convert => 0,
		  XML::LibXML => 0,
		  IO::File => 0,
		  IO::Socket::INET => 0,
		  Getopt::Long => 0,
		  Pod::Usage => 0,
		  Config::General => 2.30,
		  Sys::Hostname => 0,

META.yml  view on Meta::CPAN 

  - 'Thierry Hamon <thierry.hamon@lipn.univ-paris13.fr> and Julien Deriviere <julien.deriviere@lipn.univ-paris13.fr>'
abstract: Perl extension for linguistically annotating XML documents in Alvis
license: gpl
resources:
  license: http://www.opensource.org/licenses/gpl-license.php
requires:
  Alvis::Convert: 0
  Alvis::Pipeline: 0
  Alvis::TermTagger: 0.3
  Config::General: 2.3
  Data::Dumper: 0
  Encode: 0
  Fcntl: 0
  File::Basename: 0
  File::MMagic: 0
  File::Path: 0
  File::Touch: 0
  Getopt::Long: 0
  IO: 0
  IO::File: 0
  IO::Socket::INET: 0

README  view on Meta::CPAN 


 It requires Mdoule::Build version 0.28 (at least) and File::chmod

DEPENDENCIES

This module requires the other modules and libraries:

  Time::HiRes
  IO
  XML::Parser::PerlSAX
  Data::Dumper
  Alvis::TermTagger
  Alvis::Pipeline
  Alvis::Convert
  XML::LibXML
  IO::File
  IO::Socket::INET
  Getopt::Long
  Pod::Usage
  Config::General
  Sys::Hostname

bin/alvis-nlp-client  view on Meta::CPAN 

#!/usr/bin/perl -w


use strict;
use IO::Socket;
use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Annotation;

use Pod::Usage;
use Config::General;
#use Data::Dumper;
use Getopt::Long;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

GetOptions('help|?' => \$help, man => \$man, "rcfile=s" => \$rcfile) or pod2usage(2);
pod2usage(1) if $help;

bin/alvis-nlp-server  view on Meta::CPAN 

# use IO::Socket;
# use IO::File;
# use IO::Socket::INET;
# use Fcntl qw(:flock);

use Alvis::NLPPlatform;

use Getopt::Long;
use Pod::Usage;
use Config::General;
#use Data::Dumper;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

GetOptions('help|?' => \$help, man => \$man, "rcfile=s" => \$rcfile) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;

bin/alvis-nlp-standalone  view on Meta::CPAN 


=cut

use strict;

use Alvis::NLPPlatform;

use Getopt::Long;
use Pod::Usage;
use Config::General;
# use Data::Dumper;

use Sys::Hostname;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

bin/ogmios-nlp-client  view on Meta::CPAN 

#!/usr/bin/perl -w


use strict;
use IO::Socket;
use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Annotation;

use Pod::Usage;
use Config::General;
use Data::Dumper;
use Getopt::Long;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

GetOptions('help|?' => \$help, man => \$man, "rcfile=s" => \$rcfile) or pod2usage(2);
pod2usage(1) if $help;

bin/ogmios-nlp-server  view on Meta::CPAN 

# use Fcntl qw(:flock);

use Alvis::Convert;

use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Convert;

use Getopt::Long;
use Pod::Usage;
use Config::General;
use Data::Dumper;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

my $current_dir;
my $dirfile;
my $file;

bin/ogmios-nlp-standalone  view on Meta::CPAN 

#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use Config::General;
use Pod::Usage;
use Data::Dumper;
use File::Basename;
use Sys::Hostname;

use Alvis::Convert;

use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Convert;

use Encode;

examples/NLP-standalone  view on Meta::CPAN 


=cut

use strict;

use Alvis::NLPPlatform;

use Getopt::Long;
use Pod::Usage;
use Config::General;
use Data::Dumper;

use Sys::Hostname;

# Process Option

# my $man = 0;
# my $help = 0;
my $rcfile = "./nlpplatform-test.rc";

examples/load_config  view on Meta::CPAN 

# URL : http://www-lipn.univ-paris13.fr/~hamon
# Version : 1
########################################################################


use strict;

use Getopt::Long;
use Config::General;
use Pod::Usage;
use Data::Dumper;
use File::Basename;
use Sys::Hostname;

use Alvis::Convert;

use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Convert;

use Encode;

lib/Alvis/NLPPlatform.pm  view on Meta::CPAN 

use IO::Socket;
use Sys::Hostname;
use XML::LibXML;
use IO::Socket;
use IO::Socket::INET;
use Fcntl qw(:DEFAULT :flock :seek);
use Alvis::Pipeline;
use File::Path qw(mkpath);
use File::Touch;

#use Data::Dumper;

my $cur_doc_nb;
my $done_parsing;

our $last_doc;

our @tab_end_sections_byaddr;
our @tab_end_sections_bytoken;
our %hash_tokens;
our %hash_words;

lib/Alvis/NLPPlatform/Convert.pm  view on Meta::CPAN 

use warnings;
use utf8;
no utf8;

use Alvis::NLPPlatform::Document;
use File::MMagic;
use File::Basename;
use File::Path qw(mkpath);
use File::Touch;

use Data::Dumper;
use Cwd;

our $VERSION=$Alvis::NLPPlatform::VERSION;

sub load_MagicNumber
{
    my $config = shift;

    my $mm = new File::MMagic; # use internal magic file

lib/Alvis/NLPPlatform/Document.pm  view on Meta::CPAN 

package Alvis::NLPPlatform::Document;

use strict;
use warnings;

use Lingua::Identify;

use Data::Dumper;

our $VERSION=$Alvis::NLPPlatform::VERSION;

# use YAML qw( Dump );

sub getnamespace
{
    my $file = shift;

    my $line;

lib/Alvis/NLPPlatform/MyReceiver.pm  view on Meta::CPAN 

package Alvis::NLPPlatform::MyReceiver;
#use Data::Dumper;


use strict;
use warnings;

use XML::Parser::PerlSAX;
# use utf8;

use Alvis::NLPPlatform::XMLEntities;

use Data::Dumper;

our $VERSION=$Alvis::NLPPlatform::VERSION;

###
### Package
###


my $data;

lib/Alvis/NLPPlatform/ParseConstituents.pm  view on Meta::CPAN 

package Alvis::NLPPlatform::ParseConstituents;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
use Parse::Yapp::Driver;

#line 12 "lib/Alvis/NLPPlatform/ParseConstituents.yp"

    use Alvis::NLPPlatform;
    use Data::Dumper;
    use warnings;


    our $VERSION=$Alvis::NLPPlatform::VERSION;

    my $doc_hash;
    my $decal_phrase_idx;

    my $debug_mode=0;
    my $lconst = 0;

lib/Alvis/NLPPlatform/ParseConstituents.yp  view on Meta::CPAN 

#  used to generate Alvis::NLPPlatform::ParseConstituents.pm
#
#  Use: yapp -m 'Alvis::NLPPlatform::ParseConstituents' -o lib/Alvis/NLPPlatform/ParseConstituents.pm lib/Alvis/NLPPlatform/ParseConstituents.yp
#
# Parse::Yapp input grammar for parsing the constituents of bioLG
#
#
#
%{
    use Alvis::NLPPlatform;
    use Data::Dumper;
    use warnings;


    our $VERSION=$Alvis::NLPPlatform::VERSION;

    my $doc_hash;
    my $decal_phrase_idx;

    my $debug_mode=0;
    my $lconst = 0;

lib/Alvis/NLPPlatform/UserNLPWrappers.pm  view on Meta::CPAN 

package Alvis::NLPPlatform::UserNLPWrappers;


use Alvis::NLPPlatform::NLPWrappers;

use strict;
use warnings;

use Data::Dumper;

use UNIVERSAL qw(isa);

our @ISA = ("Alvis::NLPPlatform::NLPWrappers");


our $VERSION=$Alvis::NLPPlatform::VERSION;


sub tokenize {

t/1-loadconfig.t  view on Meta::CPAN 


# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

# Instantiation of abstract subclass
my %config;
my $def_config;
my $doc_xml;
eval { use Alvis::NLPPlatform; };
eval { use Config::General; };
eval { use Data::Dumper; };
eval { (%config = Alvis::NLPPlatform::load_config("etc/alvis-nlpplatform/nlpplatform.rc")) && ($def_config=1); };
ok(defined $def_config);

t/2-tokenisation.t  view on Meta::CPAN 


# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

# Instantiation of abstract subclass
my %config;
my $def_config;
my $doc_xml;
eval { use Alvis::NLPPlatform; };
eval { use Config::General; };
eval { use Data::Dumper; };
eval { (%config = Alvis::NLPPlatform::load_config("etc/alvis-nlpplatform/nlpplatform-test.rc")) && ($def_config=1)  };
ok(defined $def_config);
eval {
     *STDERR=*STDOUT;
     local $/ ="";
     open DATAFILE, "lib/Alvis/NLPPlatform/data/pmid10788508-v2-3.xml";
     $doc_xml = <DATAFILE>;
     close DATAFILE;
     print STDERR "\n";
};



( run in 0.342 second using v1.01-cache-2.11-cpan-4d50c553e7e )