Clipper On Line • Ver Tópico - CLIP - I.T.K.
Página 1 de 1

CLIP - I.T.K.

MensagemEnviado: 08 Set 2019 21:58
por JoséQuintas
hazael escreveu:Era um "Clipper para Linux" que tinha até participação do Przemek e do Kresin


Os dois fizeram/fazem parte da HWGUI.
Se deixaram esse projeto de lado e foram pra outro...

hazael escreveu:A coisa mais interessante é que ele tinha suporte para a Hyper-Six que não tem no Harbour, somente no xHarbour comercial, além de uma boa compatibilidade com o Clipper.Nada impede que alguém dê uma olhada nesta parte da Hyper-Six do Clip e porte para o Harbour, é claro... o Przemek tinha um acordo com o xHarbour Comercial de fornecimento exclusivo... mas seria muito interessante se um dia isso for liberado para o Harbour, daria um grande salto na vida dos .DBF


Já foi dito sobre isso:
HyperSix tem alguma coisa no Harbour, não tem tudo porque não houve interesse.

Salto na vida dos DBFs.... nunca... só se acabar com toda compatibilidade com DBF, e aí não seria mais DBF.

CLIP - I.T.K.

MensagemEnviado: 11 Set 2019 21:21
por rochinha
Amiguinhos,

O Harbour realmente não surgiu do nada, veio de um anseio de vários projetos que não deram seguimento, como este Clipper Russo.

Quanto a HyperSix como não a uso no Harbour nem me aprofundei em saber sobre ela. O Harbour é uma caixa de ferramentas das quais algumas não usamos mas está ali para qualquer eventualidade.

Que eu saiba, alguma coisa do SIX foi portada para o ambiente como as bibliotecas hbSix, rddsix.

Muitas bibliotecas do Clipper não foram portadas porque precisa haver uma ligação masi próxima com o propósito do motor. Alguma perfumaria existente nestas bibliotecas super conhecidas pode até vir a fazer parte, mas o grosso da compatibilidade de se poder recompilar uma aplicação Clipper com 98% de compatibilidade já é o ideal.

Com certeza muito do mundo Clipper não faz parte do Haarbour hoje porque alguns dos criadores já estão programando em outro plano.

O que podemos enchergar hoje é que o Harbour se tornou muito maior do que seus idealizadores puderam imaginar.

CLIP - I.T.K.

MensagemEnviado: 13 Set 2019 03:58
por rochinha

CLIP - I.T.K.

MensagemEnviado: 08 Out 2019 10:35
por clodoaldomonteiro
Continuando a falar em rapidez na busca.

Em 2014 me vi com um problema de velocidade na busca com a função AScan(), onde tinha que fazer um processamento de um arquivo XML com mais ou menos 30MB em que cada lançamento de registro tinha que verificar uma array com mais de 10.000 elementos.

No fim, isso ficava muito lento, pois se imaginarmos fazer uma única busca e levar um único segundo, é bem rápido, mas se tivermos necessidade de se fazer 1.000 buscas ou mais, isso levaria 1.000 segundos, no mínimo.

A solução, foi refazer a função Ascan() que gerou um ganho muito considerável na velocidade. Veja abaixo a função que acho ter pego por aqui mesmo:
Function aScan2( a, mBuscab, mColb)
   local i, low, high, mid, mtam_plv, x
   low=1
   high=len(a)

   If high=0
      return(0)
   Endif

   mid=int((low+high)/2)
   mtam_plv=len(mbuscab)

   Do while substr(a[mid],1,mtam_plv) # mBuscab .and. low <= high

      if mbuscab>substr(a[mid],1,mtam_plv)
         low=mid+1
      else
         high=mid-1
         if high<1
            return(0)
         endif
      endif
      mid=int((low+high)/2)

   enddo

   if substr(a[mid],1,mtam_plv) # mbuscab
      mid=0
   else
      for x=mid-1 to 1 step -1
         if substr(a[x],1,mtam_plv)=mbuscab
            mid=x
         else
            exit
         endif
      next
   endif
   return(mid)

Penso o seguinte, se é possível evoluir, temos que o fazer.