home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / misc / FetchRefs1.3.lha / FetchRefs1.3 / Scripts / GoFetchRefs.frexxed < prev    next >
Encoding:
Text File  |  1996-02-23  |  589 b   |  26 lines
  1. /* $VER: GoFetchRefs.frexxed 1.1 (13.2.95)
  2.  *
  3.  * The Arexx part of the GoFetchRefs.FPL program.
  4.  *
  5.  * by Mogens Isager (2:235/419.9@fidonet).
  6.  *
  7.  */
  8.  
  9. PARSE ARG Function Filename
  10.  
  11. ADDRESS 'FETCHREFS'
  12.  
  13. FR_GET Function || '(%|Tags|TagList|A)' Filename FILEREF
  14.  
  15. Gotoline = rc2
  16. Result = rc
  17.  
  18. Call Open(ResultFile, "T:FetchRefsResult", W)
  19.  
  20. Call WriteLn(ResultFile, 'if ( (result = ' || rc || ') == 10)' || '0A'x ||,
  21.              '   Request( sprintf( "%s", "' || rc2 || '"), "FetchRefs Information", "Okay!");' || '0A'x ||,
  22.              'else' || '0A'x ||,
  23.              '   line = ' || rc2 || ';' )
  24.  
  25. Call Close(ResultFile)
  26.