tlpp.ffunc()

tlpp.ffunc( < cFunction >, [ lAdvPLCompat ] )

function u_verificaFuncao()

  local lFound   := .F.
  local cFunction

  //---------------------------------------------------------------------------------------------------
  // Exemplo de função que existe
  cFunction := "tlpp.environment.getIncludesTLPP"

  lFound := tlpp.ffunc( cFunction )  // Se compilado em um fonte TLPP ou PRW = .T. (verdadeiro pois a função existe)
  ConOut( 'Function [' + cFunction + '] ' + iif(lFound,'','NOT ') + 'found!' )

  lFound := tlpp.ffunc( cFunction, .T. )  // Se compilado em um fonte TLPP ou PRW = .T. (verdadeiro pois a função existe)
  ConOut( 'Function [' + cFunction + '] (AdvPL compatibility) ' + iif(lFound,'','NOT ') + 'found!' )
  
  //---------------------------------------------------------------------------------------------------
  // Exemplo de função que não existe, porém como em AdvPL só considera os 10 primeiros caracteres (tlpp.envir), ai pode encontrar uma função que começe com os 10 primeiros
  cFunction := "tlpp.environment.invalid_function_TLPP"

  lFound := tlpp.ffunc( cFunction )  // Se compilado em um fonte TLPP ou PRW = .F. (falso pois a função não existe)
  ConOut( 'Function [' + cFunction + '] ' + iif(lFound,'','NOT ') + 'found!' )

  lFound := tlpp.ffunc( cFunction, .T. )  // Se compilado em um fonte TLPP ou PRW = .T. (verdadeiro pois está buscando como se estivesse em um fonte ADVPL e ai só considera os 10 primeiros caracteres
  ConOut( 'Function [' + cFunction + '] (AdvPL compatibility) ' + iif(lFound,'','NOT ') + 'found!' )

  //---------------------------------------------------------------------------------------------------

return lFound