#!/bin/bash
# Author of this script: http://www.getlazarus.org
# This is the universal script to install fpc 3.0.0 minimal
# If you need to fix something and or want to contribute, send your
# changes to admin at getlazarus dot org with
# "fpc lazazarus install" in the subject line.
# Prevent this script from running as root
if [ "$(id -u)" = "0" ]; then
echo "This script should not be run as root"
exit 1
fi
# Prevent this script from running as root
if [ "$(id -u)" = "0" ]; then
echo "This script should not be run as root"
exit 1
fi
# function download(url, output)
function download() {
if type "curl" > /dev/null; then
curl -o "$1" "$2"
elif type "wget" > /dev/null; then
wget -O "$1" "$2"
fi
}
# Cross platform function expandPath(path)
function expandPath() {
if [ `uname`="Darwin" ]; then
[[ $1 = /* ]] && echo "$1" || echo "$PWD/${1#./}";
else
echo $(readlink -m `$1`)
fi
}
clear
echo "Prerequisites for Free Pascal and Lazarus on Raspbian"
echo "-----------------------------------------------------"
echo "Lazarus requires the following Gtk+ dev packages which"
echo "can be installed on Raspbian by using:"
echo
echo "sudo apt-get install libgtk2.0-dev libcairo2-dev \\"
echo " libpango1.0-dev libgdk-pixbuf2.0-dev libatk1.0-dev \\"
echo " libghc-x11-dev"
echo
echo -n "Press return to check your system"
read CHOICE
echo
# function requirePackage(package)
function requirePackage() {
INSTALLED=$(dpkg-query -W --showformat='${Status}\n' $1 2> /dev/null | grep "install ok installed")
if [ "$INSTALLED" = "" ]; then
echo "$1 not found"
echo
echo "An error occured"
echo
echo "This script requires the package $1"
echo
echo "Use the command:"
echo
echo "sudo apt-get install $1"
echo
echo "Then re-run this script"
echo
exit 1
fi
echo "$1 found"
}
requirePackage "libgtk2.0-dev"
requirePackage "libcairo2-dev"
requirePackage "libpango1.0-dev"
requirePackage "libgdk-pixbuf2.0-dev"
requirePackage "libatk1.0-dev"
requirePackage "libghc-x11-dev"
sleep 2s
# Present a description of this script
clear
echo "Raspberry Free Pascal 3.0 with Lazarus install script"
echo "-----------------------------------------------------"
echo "This script will install a lightweight version of"
echo
echo "The Free Pascal Compiler version 3.0"
echo "The Lazarus Development Environment"
echo
echo "After install 280MB of drive space will be used"
echo
echo "This lightweight version is designed specifically"
echo "for the Raspberry Pi running Raspbian OS"
echo
# The default folder
BASE=$HOME/Development/FreePascal
# Ask a series of questions
while true; do
# Ask for an install location
echo "Enter an installation folder or press return to"
echo "accept the default install location"
echo
echo -n "[$BASE]: "
read CHOICE
echo
# Use BASE as the default
if [ -z "$CHOICE" ]; then
CHOICE=$BASE
fi
# Allow for relative paths
CHOICE=`eval echo $CHOICE`
EXPAND=`expandPath "$CHOICE"`
EXPAND=${EXPAND%/}
# Allow install only under your home folder
if [[ $EXPAND == $HOME* ]]; then
echo "The install folder will be:"
echo "$EXPAND"
echo
else
echo "The install folder must be under your personal home folder"
echo
continue
fi
# Confirm their choice
echo -n "Continue? (y,n): "
read CHOICE
echo
case $CHOICE in
[yY][eE][sS]|[yY])
;;
*)
echo "done."
echo
exit 1
;;
esac
# If folder already exists ask to remove it
if [ -d "$EXPAND" ]; then
echo "Directory already exist"
echo -n "Remove the entire folder and overwrite? (y,n): "
read CHOICE
case $CHOICE in
[yY][eE][sS]|[yY])
echo
rm -rf $EXPAND
;;
*)
echo
echo "done."
echo
exit 1
;;
esac
fi
break
done
# Confirm their choice
echo "After install do you want to shortcuts created in:"
read -r -p "$HOME/.local/share/applications (y/n)? " SHORTCUT
echo
# Create the folder
BASE=$EXPAND
mkdir -p $BASE
# Exit if the folder could not be created
if [ ! -d "$BASE" ]; then
echo "Could not create directory"
echo
echo "done."
echo
exit 1;
fi
cd $BASE
# Note we use our bucket instead of sourceforge or svn for the following
# reason:
# It would be unethical to leach other peoples bandwidth and data
# transfer charges. As such, we rehost the same fpc stable binary, fpc
# test sources, and lazarus test sources from sourceforge and free
# pascal svn servers using our own Amazon S3 bucket.
# Download from our Amazon S3 bucket
URL=http://cache.getlazarus.org/archives
# download fpc.lazarus.raspberry.tar.gz $URL/fpc.lazarus.raspberry.tar.gz
# trying dropbox to save money on bandwidth charges from amazon s3
download fpc.lazarus.raspberry.tar.gz https://www.dropbox.com/s/90cuaf1rvh8asj5/fpc.lazarus.raspberry.tar.gz
tar xvf fpc.lazarus.raspberry.tar.gz
rm fpc.lazarus.raspberry.tar.gz
# Create the cfg file
"$BASE/fpc/bin/fpcmkcfg" -d "basepath=$BASE/fpc/lib/fpc/\$FPCVERSION" -o "$BASE/fpc/bin/fpc.cfg"
# function replace(folder, files, before, after)
function replace() {
BEFORE=$(echo "$3" | sed 's/[\*\.]/\\&/g')
BEFORE=$(echo "$BEFORE" | sed 's/\//\\\//g')
AFTER=$(echo "$4" | sed 's/[\*\.]/\\&/g')
AFTER=$(echo "$AFTER" | sed 's/\//\\\//g')
find "$1" -name "$2" -exec sed -i "s/$BEFORE/$AFTER/g" {} \;
}
# Replace paths from their original location to the new one
ORIGIN="/home/pi/Development/Base"
replace "$BASE/lazarus/config" "*.xml" "$ORIGIN" "$BASE"
replace "$BASE/lazarus/config" "*.cfg" "$ORIGIN" "$BASE"
replace "$BASE/lazarus" "lazarus.sh" "$ORIGIN" "$BASE"
replace "$BASE/lazarus" "lazarus.desktop" "$ORIGIN" "$BASE"
case $SHORTCUT in
[yY][eE][sS]|[yY])
cp "$BASE/lazarus/lazarus.desktop" "$HOME/.local/share/applications/"
;;
*)
;;
esac
mv "$BASE/lazarus/lazarus.desktop" "$BASE/lazarus.desktop"
FPCDIR="$BASE/fpc"
# Create a terminal configuration
TERMINAL="$FPCDIR/bin/fpc-terminal.sh"
echo "#!/bin/bash" > $TERMINAL
echo "export PPC_CONFIG_PATH=$FPCDIR/bin" >> $TERMINAL
echo "export PATH=\$PPC_CONFIG_PATH:\$PATH" >> $TERMINAL
echo "\$SHELL" >> $TERMINAL
chmod +x $TERMINAL
# Get the current terminal program name
APP=`ps -p $(ps -p $(ps -p $$ -o ppid=) -o ppid=) o args=`
# Create a shortcut file
DESKTOP="$BASE/freepascal.desktop"
echo "[Desktop Entry]" > $DESKTOP
echo "Name=Free Pascal Terminal" >> $DESKTOP
echo "Comment=Open a new terminal with the fpc program made available" >> $DESKTOP
echo "Icon=terminal" >> $DESKTOP
echo "Exec=$APP -e \"$TERMINAL\"" >> $DESKTOP
echo "Terminal=false" >> $DESKTOP
echo "Type=Application" >> $DESKTOP
chmod +x $DESKTOP
function hit() {
if type "curl" > /dev/null; then
curl -s -o /dev/null "$1"
elif type "wget" > /dev/null; then
wget -q -O /dev/null "$1"
fi
}
hit "http://www.getlazarus.org/installed/?platform=raspberry"
echo
echo "Your Free Pascal 3.0 with Lazarus is now installed"
echo
I see dropbox link in that script, too.
Recent
