home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Programowanie / FetchRefs2.1.lha / FetchRefs2.1 / Scripts / GetFileRef.Amitex < prev    next >
Encoding:
Text File  |  2001-01-28  |  1.3 KB  |  56 lines
  1. /* This script returns the name of the file where a reference can be found
  2.  * If several references can found, they are returned separated by line-feeds
  3.  * $VER: GetFileRef 1.00 (© R.Florac, 27/01/01) */
  4.  
  5. signal on syntax
  6.  
  7. OPTIONS RESULTS
  8.  
  9. caller = ADDRESS()
  10.  
  11. /* Get the function name from editor (get current word). */
  12. 'BLOCK(1)'          /* lecture numéro de ligne début de bloc */
  13. ld = result
  14. if ld<=0 then do
  15.     'WORD(0)'
  16.     function = result
  17. end
  18. else do
  19.     'BLOCK(3)'          /* lecture numéro de ligne de fin */
  20.     lf = result
  21.     if ld ~= lf then do
  22.     'MESSAGE("Sélection incorrecte")'
  23.     exit
  24.     end
  25.     'TEXTMARK(-1)'      /* lecture du bloc marqué */
  26.     function = result
  27. end
  28.  
  29. if function="" then do
  30.     function = getclip(fetchref)
  31.     'ASKTEXT("Fonction à chercher ?", "'function'")'
  32.     function = result
  33. end
  34. if function="" then exit
  35. a = setclip(fetchref,function)
  36.  
  37. address 'FETCHREFS'
  38. 'FR_FILE 'function' CASE'
  39. if rc=0 then file = rc2
  40. else do
  41.     address value caller
  42.     'MESSAGE("GetFileRef.Amitex script"+CHR(10)+"Erreur 'rc'"+CHR(10)+"'rc2'")'
  43.     exit
  44. end
  45.  
  46. address value caller
  47. 'MESSAGE("'file'")'
  48. exit
  49.  
  50. /* Traitement des erreurs, interruption du programme */
  51. syntax:
  52. erreur=RC
  53. 'MESSAGE("Script GetFileref.Amitex"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  54. address command
  55. exit
  56.