/* $VER: 1.0, ©1996 R.Florac. Gestion appels CXRef depuis Amitex */

OPTIONS RESULTS 			    /* enable return codes     */

'LOCK(-1)'
caller = ADDRESS()

OPTIONS FAILAT 6			    /* ignore warnings	       */
SIGNAL ON SYNTAX			    /* ensure clean exit       */

'BLOCK(1)'              /* lecture numéro de ligne début de bloc */
ld = result
if ld<=0 then do
    'WORD(0)'
    function = result
end
else do
    'BLOCK(3)'          /* lecture numéro de ligne de fin */
    lf = result
    if ld ~= lf then do
	'MESSAGE("Sélection incorrecte")'
	exit
    end
    'TEXTMARK(-1)'      /* lecture du bloc marqué */
    function = result
end

if function="" then do
    'ASK("Fonction à chercher ?")'
    function = result
end
if function="" then exit

if ~show(ports, FASTCREF) then
 do
  ADDRESS 'COMMAND' 'run >nil: Prog:Sources/CXRef/FastCXRef XREFFILE=Prog:Sources/CXRef/xrefs'
  ADDRESS 'COMMAND' 'SYS:REXXC/WaitForPort FASTCREF'
 end

ADDRESS FASTCREF

SEARCH stem a. WORD function

address value caller

if a.filename ~= "NONE" then do
	if a.filename ~= "OFF" then do

		'OPEN("'a.filename'")'
		/* SET READONLY TRUE */
		'GOTO(1,'a.linenumber')'
	end
end
else do
	'MESSAGE("CXRef"+CHR(10)+"'function' non trouvé")'
end

/* ---------------------------- END OF YOUR CODE --------------------- */

'UNLOCK(-1)'
EXIT

SYNTAX:
'MESSAGE("Erreur en ligne 'SIGL': 'ERRORTEXT(RC)'"):UNLOCK(-1)'
EXIT