fonte do sort ou dbsort

[tonyx]

alquem teria o fonte em C ou em PRG do SORT ou __DBSORT()
TENTO COLOCAR NO XHARBOUR O __DBSORT MAS TA LENTO LA NO XH
POR ISTO PROCURO O FONTE DO __DBSORT().SRC
VERIFIQUEI NO XH/BIN/32 TEM DBSORT.C MAS NAO TEM A LOGICA EM SI ESPECIFICA

AGRADECO AJUDA :{


SE FOR ALGO GUARDADO A 7 CHAVES - JA ESTA COMPREENDIDO

[sygecom]

Segue abaixo o codigo fonte do xHarbour.
Localizado em: \xHarbour\source\rdd\dbsort.prg

Código: Selecionar todos

FUNCTION __dbSort( cToFileName, aFields, bFor, bWhile, nNext, nRecord, lRest,;
                   cRDD, nConnection, cCodePage )
   LOCAL nOldArea
   LOCAL nToArea
   LOCAL aStruct

   LOCAL oError
   LOCAL lError := .F.

   IF Empty( aStruct := dbStruct() )
      RETURN .F.
   ENDIF

   nOldArea := Select()

   BEGIN SEQUENCE

      dbCreate( cToFileName, aStruct, cRDD, .T., "", NIL, cCodePage, nConnection )
      nToArea := Select()
      dbSelectArea( nOldArea )
      __dbArrange( nToArea, aStruct, bFor, bWhile, nNext, nRecord, lRest, aFields )

   RECOVER USING oError
      lError := .T.
   END SEQUENCE

   IF nToArea != NIL
      dbSelectArea( nToArea )
      dbCloseArea()
   ENDIF

   dbSelectArea( nOldArea )

   IF lError
      Break( oError )
   ENDIF

   RETURN .T.

[tonyx]

entao o basico da organizacao do __dbsort esta nesta funcao aqui ??

__dbArrange( nToArea, aStruct, bFor, bWhile, nNext, nRecord, lRest, aFields )

tudo feito na memoria ??

//=============
no caso de demora para organizar sendo um pequeno arquivo
realizo num xp, no clipper a mesma funcao __dbsort() vai rapida

no xh ?? lerda

poderia ser agum include tipo setup.ch

[Maligno]

no xh ?? lerda

Poderia ser um bug na sua versão, não?