(********************************************************************) (* *) (* library.s7i Manage the C runtime libraries used. *) (* Copyright (C) 1990 - 1994, 2004 - 2014 Thomas Mertes *) (* *) (* This file is part of the Seed7 compiler. *) (* *) (* This program is free software; you can redistribute it and/or *) (* modify it under the terms of the GNU General Public License as *) (* published by the Free Software Foundation; either version 2 of *) (* the License, or (at your option) any later version. *) (* *) (* This program 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. See the *) (* GNU General Public License for more details. *) (* *) (* You should have received a copy of the GNU General Public *) (* License along with this program; if not, write to the *) (* Free Software Foundation, Inc., 51 Franklin Street, *) (* Fifth Floor, Boston, MA 02110-1301, USA. *) (* *) (********************************************************************) const type: programUsesLibrary is new struct var boolean: bigintLibrary is FALSE; var boolean: compDataLibrary is FALSE; var boolean: compilerLibrary is FALSE; var boolean: consoleLibrary is FALSE; var boolean: databaseLibrary is FALSE; var boolean: drawLibrary is FALSE; var boolean: mathLibrary is FALSE; end struct; var programUsesLibrary: programUses is programUsesLibrary.value;