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

##
## \file    extractReactions.pl
## \brief   Illustrates howto extract the reactions from a SBML file
## \author  TBI {xtof,raim}@tbi.univie.ac.at
##
## $Id: extractReactions.pl 8704 2009-01-04 02:26:05Z mhucka $
## $HeadURL: https://sbml.svn.sourceforge.net/svnroot/sbml/trunk/libsbml/examples/perl/extractReactions.pl $

##
## Copyright 2007 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 blib '../../src/bindings/perl';
use LibSBML;
use strict;

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

print "Reading \"$filename\"\n";

my $rd = new LibSBML::SBMLReader();
my $d  = $rd->readSBML($filename);

$d->printErrors();

my $model = $d->getModel();
my @reactions = ();

foreach my $reaction ($model->getListOfReactions()) {
  my @reactants = $reaction->getListOfReactants();
  my $reactants = to_string(@reactants);
  my @products = $reaction->getListOfProducts();
  my $products  = to_string(@products);
  push @reactions, [ $reaction->getId(),
		     join " ",
		     $reactants,
		     $reaction->getReversible() ? '<=>' : '->',
		     $products ];
}

@reactions = sort {length $b->[0] <=> length $a->[0]} @reactions;
my $format = sprintf("%%%ds: %%s\n", length $reactions[0]->[0]);
foreach my $r (@reactions) {
  printf $format, @$r;
}

#---
sub to_string { join(" + ",
		     map { join(" * ",
				$_->getStoichiometry(),
				$_->getSpecies()) } @_ ) }

__END__
