/**
 * \file    list_of_fix.i
 * \brief   fix for using getListOfXXXXXXX methods in scalar and list context
 * \author  TBI {xtof,raim}@tbi.univie.ac.at
 *
 * $Id: list_of_fix.i 8704 2009-01-04 02:26:05Z mhucka $
 * $HeadURL: https://sbml.svn.sourceforge.net/svnroot/sbml/trunk/libsbml/src/bindings/perl/list_of_fix.i $
 */
/* 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
 *
 * Contributor(s):
 */

// ----------------------------------------------------------------------
// Model::getListOfXXXXXXX
//
// overwrite all Model::getListOfXXXXXXX functions to make their behave more
// perl-like; getListOfXXXXXXX returns a perl array of the requested objects
// instead of a ListOf-object; getListOfXXXXXXX can now be used in perl loop
// statements to iterate over the list of requested objects.
// ----------------------------------------------------------------------

%feature("shadow")
Model::getListOfFunctions()
%{
  sub getListOfFunctions {
    my $lox = LibSBMLc::Model_getListOfFunctions(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfFunctionDefinitions()
%{
  sub getListOfFunctionDefinitions {
    my $lox = LibSBMLc::Model_getListOfFunctionDefinitions(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfUnitDefinitions()
%{
  sub getListOfUnitDefinitions {
    my $lox = LibSBMLc::Model_getListOfUnitDefinitions(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfCompartmentTypes()
%{
  sub getListOfCompartmentTypes {
    my $lox = LibSBMLc::Model_getListOfCompartmentTypes(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfSpeciesTypes()
%{
  sub getListOfSpeciesTypes {
    my $lox = LibSBMLc::Model_getListOfSpeciesTypes(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfCompartments()
%{
  sub getListOfCompartments {
    my $lox = LibSBMLc::Model_getListOfCompartments(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfSpecies()
%{
  sub getListOfSpecies {
    my $lox = LibSBMLc::Model_getListOfSpecies(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfParameters()
%{
  sub getListOfParameters {
    my $lox = LibSBMLc::Model_getListOfParameters(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfInitialAssignments()
%{
  sub getListOfInitialAssignments {
    my $lox = LibSBMLc::Model_getListOfInitialAssignments(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfRules()
%{
  sub getListOfRules {
    my $lox = LibSBMLc::Model_getListOfRules(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfConstraints()
%{
  sub getListOfConstraints {
    my $lox = LibSBMLc::Model_getListOfConstraints(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfReactions()
%{
  sub getListOfReactions {
    my $lox = LibSBMLc::Model_getListOfReactions(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfEvents()
%{
  sub getListOfEvents {
    my $lox = LibSBMLc::Model_getListOfEvents(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Model::getListOfLayouts()
%{
  sub getListOfLayouts {
    my $lox = LibSBMLc::Model_getListOfLayouts(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

//
// UnitDefinition::getListOfUnits
//

%feature("shadow")
UnitDefinition::getListOfUnits()
%{
  sub getListOfUnits {
    my $lox = LibSBMLc::UnitDefinition_getListOfUnits(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

//
// Reaction::ListOfXXXX
//

%feature("shadow")
Reaction::getListOfReactants()
%{
  sub getListOfReactants {
    my $lox = LibSBMLc::Reaction_getListOfReactants(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Reaction::getListOfProducts()
%{
  sub getListOfProducts {
    my $lox = LibSBMLc::Reaction_getListOfProducts(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

%feature("shadow")
Reaction::getListOfModifiers()
%{
  sub getListOfModifiers {
    my $lox = LibSBMLc::Reaction_getListOfModifiers(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

//
// KineticLaw::getListOfParameters
//

%feature("shadow")
KineticLaw::getListOfParameters()
%{
  sub getListOfParameters {
    my $lox = LibSBMLc::KineticLaw_getListOfParameters(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

//
// Event::getListOfEventAssignments
//

%feature("shadow")
Event::getListOfEventAssignments()
%{
  sub getListOfEventAssignments {
    my $lox = LibSBMLc::Event_getListOfEventAssignments(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}

//
// ASTNode::getListOfNodes
//

%feature("shadow")
ASTNode::getListOfNodes()
%{
  sub getListOfNodes {
    my $lox = LibSBMLc::ASTNode_getListOfNodes(@_);
    my @lox = ();
    for (my $i=0; $i<$lox->size(); $i++) {
      push @lox, $lox->get($i);
    }
    return wantarray ? @lox : $lox;
  }
%}