
#  N.B. the previous line should be blank.
#+
#  Name:
#     string_link_adam

#  Purpose:
#     Generate linker (ld) arguments for linking against adam STRING.

#  Type of Module:
#     Shell script.

#  Description:
#     This script should be invoked by those building ADAM applications
#     which use STRING in order to generate the correct arguments for the 
#     compiler (or ld) command. The arguments generated are written to 
#     the standard output.

#  Invocation:
#     The script is normally invoked as part of a compiler command line,
#     such as:
#
#        alink program.f -L/star/lib `string_link_adam`

#     although the ADAM "alink" command will normally link against STRING
#     anyway.

#  Copyright:
#     Copyright (C) 1995 Rutherford Appleton Laboratory

#  Authors:
#     RFWS: R.F. Warren-Smith (STARLINK, RAL)
#     BLY:  M.J. Bly (Starlink, RAL)
#     AJC:  A.J. Chipperfield (Starlink, RAL)
#     {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 STRING
#     {enter_further_changes_here}

#  Bugs:
#     {note_any_bugs_here}

#-

      echo -lstring_adam `chr_link_adam` `ems_link_adam` \
           | awk 'BEGIN{RS=" ";FS="\n"}
                  {f[i++]=$1}
                  END{for(;i--;)if(!w[f[i]]++)l=f[i]" "l;print l}'

#  End of script.
