# N.B. the previous line should be blank. #+ # Name: # dtask_link_adam # Purpose: # Generate linker (ld) arguments for linking against adam DTASK. # Language: # {routine_language} # Type Of Module: # Shell script. # Invocation: # The script is normally invoked as part of a compiler command line, # such as: # # alink program.f -L/star/lib `dtask_link_adam` # # although the ADAM "alink" command will normally link against DTASK # anyway. # Description: # This script should be invoked by those building ADAM applications # which use DTASK in order to generate the correct arguments for the # compiler (or ld) command. The arguments generated are written to # the standard output. # Copyright: # Copyright (C) 1995 Rutherford Appleton Laboratory # Licence: # 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 # Authors: # RFWS: R.F. Warren-Smith (STARLINK, RAL) # BLY: M.J. Bly (Starlink, RAL) # AJC: A.J. Chipperfield (Starlink, RAL) # TIMJ: Tim Jenness (JAC, Hawaii) # {enter_new_authors_here} # History: # 7-JUL-1993 (RFWS): # Original version. # 21-JUN-1995 (RFWS): # Added new awk script to permit larger numbers of libraries. # 22-JUN-1995 (BLY): # Generic version. # 14-SEP-1995 (AJC): # Modified for DTASK # 8-JUL-2004 (TIMJ): # Now use err_link_adam rather than explicit liberr # {enter_further_changes_here} # Bugs: # {note_any_bugs_here} #- echo -ldtask_adam -ltask_adam `err_link_adam` `subpar_link_adam` `starmem_link` \ | awk 'BEGIN{RS=" ";FS="\n"} {f[i++]=$1} END{for(;i--;)if(!w[f[i]]++)l=f[i]" "l;print l}' # End of script.