Annotation of rpl/scripts/rpllink.in, revision 1.1
1.1 ! bertrand 1: #!/bin/bash
! 2:
! 3: #===============================================================================
! 4: # RPL/2 version @VERSION@
! 5: # Interpréteur du langage de programmation du calculateur HP-28S,
! 6: #
! 7: # Date de création : 02 Avril 1.998
! 8: #
! 9: # Tous droits réservés à l'auteur, Joël BERTRAND
! 10: #===============================================================================
! 11:
! 12: #===============================================================================
! 13: # Copyright (C) 2001 BERTRAND Joël
! 14: #
! 15: # This file is part of RPL/2.
! 16: #
! 17: # RPL/2 is free software; you can redistribute it and/or modify it
! 18: # under the terms of the GNU General Public License as published by the
! 19: # Free Software Foundation; either version 2, or (at your option) any
! 20: # later version.
! 21: #
! 22: # RPL/2 is distributed in the hope that it will be useful, but WITHOUT
! 23: # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
! 24: # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
! 25: # for more details.
! 26: #
! 27: # You should have received a copy of the GNU General Public License
! 28: # along with Octave; see the file COPYING. If not, write to the Free
! 29: # Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
! 30: #===============================================================================
! 31:
! 32: #===============================================================================
! 33: # Script de compilation des bibliothèques partagées du langage RPL/2
! 34: #
! 35: # Tous droits réservés, J. BERTRAND 20.07.2007
! 36: #===============================================================================
! 37:
! 38: #===============================================================================
! 39: # Les paramètres du script sont identiques à ceux de gfortran. Le script
! 40: # crée un exécutable à partir des objets
! 41: #
! 42: # Exemples :
! 43: # rpllink -o essai essai.o
! 44: #===============================================================================
! 45:
! 46: echo +++Linker for RPL/2 version @VERSION@
! 47: echo $0 $@
! 48:
! 49: PRESENCE_FICHIER_SORTIE=FAUX
! 50: DRAPEAU=FAUX
! 51: P=1
! 52:
! 53: for i in $@;
! 54: do
! 55: P=$(($P+1))
! 56:
! 57: if [ $DRAPEAU = "VRAI" ]; then
! 58: DRAPEAU=FAUX
! 59: FICHIER_SORTIE=$i
! 60: fi
! 61:
! 62: if [ $i = "-o" ]; then
! 63: if [ $PRESENCE_FICHIER_SORTIE = VRAI ]; then
! 64: echo +++Error: more than one output file
! 65: exit 1
! 66: fi
! 67:
! 68: PRESENCE_FICHIER_SORTIE=VRAI
! 69:
! 70: if [ $P -gt $# ]; then
! 71: echo +++Error: no output file
! 72: exit 1
! 73: else
! 74: DRAPEAU=VRAI
! 75: fi
! 76: fi
! 77: done
! 78:
! 79: if [ $PRESENCE_FICHIER_SORTIE = FAUX ]; then
! 80: echo +++Error: no output file
! 81: exit 1
! 82: fi
! 83:
! 84: ARGUMENTS_G77=""
! 85:
! 86: for i in $@;
! 87: do
! 88: ARGUMENTS_G77="$ARGUMENTS_G77 $i"
! 89: done
! 90:
! 91: P=0
! 92: for i in $(which $0 | tr '/' ' ');
! 93: do
! 94: P=$(($P+1))
! 95: done
! 96:
! 97: gfortran $ARGUMENTS_G77 -DRPLCONFIG $OPTIONS $CFLAGS\
! 98: $(which $0 | cut -d '/' -f -$(($P-1)))/lib/librpl.a \
! 99: -lz @libX@ @libMySQLlib@
! 100:
! 101: exit 0
CVSweb interface <joel.bertrand@systella.fr>