#!/usr/bin/perl
# -*-Perl-*-

##
## \file    validateSBML.pl
## \brief   Validates an SBML file against the appropriate schema
## \author  TBI {xtof,raim}@tbi.univie.ac.at
##
## $Id: validateSBML.pl 8704 2009-01-04 02:26:05Z mhucka $
## $HeadURL: https://sbml.svn.sourceforge.net/svnroot/sbml/branches/rel-4-0-0/examples/perl/validateSBML.pl $

##
## Copyright 2005 TBI
##
## This library is free software; you can redistribute it and/or modify it
## under the terms of the GNU Lesser General Public License as published
## by the Free Software Foundation; either version 2.1 of the License, or
## any later version.
##
## This library is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY, WITHOUT EVEN THE IMPLIED WARRANTY OF
## MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  The software and
## documentation provided hereunder is on an "as is" basis, and the
## California Institute of Technology and Japan Science and Technology
## Corporation have no obligations to provide maintenance, support,
## updates, enhancements or modifications.  In no event shall the
## California Institute of Technology or the Japan Science and Technology
## Corporation be liable to any party for direct, indirect, special,
## incidental or consequential damages, including lost profits, arising
## out of the use of this software and its documentation, even if the
## California Institute of Technology and/or Japan Science and Technology
## Corporation have been advised of the possibility of such damage.  See
## the GNU Lesser General Public License for more details.
##
## You should have received a copy of the GNU Lesser General Public License
## along with this library; if not, write to the Free Software Foundation,
## Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
##
## The original code contained here was initially developed by:
##
##     Christoph Flamm and Rainer Machne
##     Institut fuer Theoretische Chemie
##     Universitaet Wien
##     Waehringerstrasse 17/3/308
##     A-1090 Wien, Austria

use File::Basename;
use Benchmark qw/:hireswallclock/;
use blib '../../src/bindings/perl';
use LibSBML;
use strict;
use vars qw/$tu/;

my $filename = shift()
    || do { printf STDERR "\n  usage: @{[basename($0)]} <filename>\n\n";
	    exit (1);
	  };

my $t0        = new Benchmark;
my $rd        = new LibSBML::SBMLReader();
my $d         = $rd->readSBML($filename);
my $t1        = new Benchmark;
(my $ellapsed = timestr(timediff($t1, $t0), 'nop')) =~ s/\A([\d\.]+)/$1/;
my $errors    = $d->getNumErrors();
$errors      += $d->checkConsistency();
my $size      = -s $filename;

printf( "\n" );
printf( "        filename: %s\n" , $filename          );
printf( "       file size: %lu\n", $size              );
printf( "  read time (%s): %lu\n", $tu, $ellapsed*1000);
printf( "        error(s): %u\n" , $errors            );

my $m  = $d->getModel();
my $ar = defined($m) ? $m->getRule(0) : undef;
printf( " expr = '%s'", $ar->getFormula()) if defined $ar;

if ($errors > 0) {
  $d->printErrors();
}

printf("\n");

BEGIN {
  $main::tu = 'ms';
  eval "use Time::HiRes";
  warn "\nModule Time::HiRes not installed.\n"
      . "Time granularity will be integer seconds not milliseconds!\n" if $@;
   $main::tu = ' s' if $@;
}

__END__
