Clipper On Line • Ver Tópico - CLIP - I.T.K.

CLIP - I.T.K.

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

CLIP - I.T.K.

Mensagempor JoséQuintas » 08 Set 2019 21:58

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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

CLIP - I.T.K.

Mensagempor rochinha » 11 Set 2019 21:21

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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

CLIP - I.T.K.

Mensagempor rochinha » 13 Set 2019 03:58

OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

CLIP - I.T.K.

Mensagempor clodoaldomonteiro » 08 Out 2019 10:35

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.
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 110 vezes
Mens.Curtidas: 31 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro