[BACK]Return to rpllink.in CVS log [TXT] [DIR] Up to [local] / rpl / scripts
File:  [local] / rpl / scripts / rpllink.in
Revision 1.4: download - view: text, annotated - select for diffs - revision graph
Mon Jul 21 09:12:34 2014 UTC (10 years, 9 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_35, rpl-4_1_34, rpl-4_1_33, rpl-4_1_32, rpl-4_1_31, rpl-4_1_30, rpl-4_1_29, rpl-4_1_28, rpl-4_1_27, rpl-4_1_26, rpl-4_1_25, rpl-4_1_24, rpl-4_1_23, rpl-4_1_22, rpl-4_1_21, rpl-4_1_20, rpl-4_1_19, HEAD
Modification des chemins des scripts (NetBSD).

    1: #!@BASH_PATH@
    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>