DL_Externals

Revision
Revised on

Description

Code

function DL_Externals scr
  global DL_LastStackUpdated
  global gDL_XCMDs,gDL_XFCNs
  
  DL_BuildExternalsList
  
  put empty into resourcesUsed
  repeat with n = 1 to the number of lines in gDL_XCMDs
    set cursor to busy
    get line n of gDL_XCMDs
    if scr contains it then
      put it & comma after resourcesUsed
    end if
  end repeat
  
  repeat with n = 1 to the number of lines in gDL_XFCNs
    set cursor to busy
    get line n of gDL_XFCNs
    if scr contains it then
      put it & "()," after resourcesUsed
    end if
  end repeat
  
  delete last char of resourcesUsed
  return resourcesUsed
  
end DL_Externals