1#!/usr/bin/env perl 2# -*-Perl-*- 3## 4## @file printsupported.pl 5## @brief Prints all SBML Levels and Versions supported by this version 6## of libsbml. 7## @author Frank Bergmann 8## 9## 10## <!-------------------------------------------------------------------------- 11## This sample program is distributed under a different license than the rest 12## of libSBML. This program uses the open-source MIT license, as follows: 13## 14## Copyright (c) 2013-2018 by the California Institute of Technology 15## (California, USA), the European Bioinformatics Institute (EMBL-EBI, UK) 16## and the University of Heidelberg (Germany), with support from the National 17## Institutes of Health (USA) under grant R01GM070923. All rights reserved. 18## 19## Permission is hereby granted, free of charge, to any person obtaining a 20## copy of this software and associated documentation files (the "Software"), 21## to deal in the Software without restriction, including without limitation 22## the rights to use, copy, modify, merge, publish, distribute, sublicense, 23## and/or sell copies of the Software, and to permit persons to whom the 24## Software is furnished to do so, subject to the following conditions: 25## 26## The above copyright notice and this permission notice shall be included in 27## all copies or substantial portions of the Software. 28## 29## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 30## IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 31## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 32## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 33## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 34## FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 35## DEALINGS IN THE SOFTWARE. 36## 37## Neither the name of the California Institute of Technology (Caltech), nor 38## of the European Bioinformatics Institute (EMBL-EBI), nor of the University 39## of Heidelberg, nor the names of any contributors, may be used to endorse 40## or promote products derived from this software without specific prior 41## written permission. 42## ------------------------------------------------------------------------ --> 43## 44 45use LibSBML; 46no strict; 47print("Supported by LibSBML " , LibSBML::getLibSBMLDottedVersion(), "\n"); 48 49$supported = LibSBML::SBMLNamespaces::getSupportedNamespaces(); 50for ($i = 0; $i < $supported->getSize(); $i ++) { 51 $current = $supported->get($i); 52 print("\tSBML Level: ", $current->getLevel(), " Version: ", $current->getVersion(), "\n"); 53} 54print("\n"); 55 56 57 58