##############################################################################
# Copyright (c) 2013-2018, Lawrence Livermore National Security, LLC.
# Produced at the Lawrence Livermore National Laboratory.
#
# This file is part of Spack.
# Created by Todd Gamblin, tgamblin@llnl.gov, All rights reserved.
# LLNL-CODE-647188
#
# For details, see https://github.com/spack/spack
# Please also see the NOTICE and LICENSE files for our notice and the LGPL.
#
# This program 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) version 2.1, February 1999.
#
# 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 terms and
# conditions of 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 program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
##############################################################################
from spack import *


class Fpc(Package):
    """Free Pascal is a 32, 64 and 16 bit professional Pascal compiler."""

    homepage = "https://www.freepascal.org/"
    url      = "https://downloads.sourceforge.net/project/freepascal/Linux/3.0.2/fpc-3.0.2.x86_64-linux.tar"

    version('3.0.2', 'e5721c1843cff301c5b46abfee17c890')

    def install(self, spec, prefix):
        install = Executable('./install.sh')

        # Questions:
        #
        # Install prefix:
        # Install Textmode IDE (Y/n) ?
        # Install documentation (Y/n) ?
        # Install demos (Y/n) ?

        install_answers = ['%s\n' % prefix, 'Y\n', 'Y\n', 'n\n']

        install_answers_filename = 'spack-install.in'

        with open(install_answers_filename, 'w') as f:
            f.writelines(install_answers)

        with open(install_answers_filename, 'r') as f:
            install(input=f)
