3933 páginas de puro Harbour!!!

[yugi386]

Saudações!!!

Encontrei este arquivo PDF que concentra em um só lugar todos os códigos prg que estão no pacote Harbour.
Achei interessante para pesquisar através do CTRL + F.

Segue o Link: http://www.4shared.com/rar/0N17Obusba/Harbour-doc.html

[]s

[lugab]

Legal, obrigado Yugi

[lucimauro]

Pena que no momento nao esteja mais disponivel no link.

[yugi386]

Puxa, de fato não está mais disponível. Mas consegui recriar um arquivo semelhante com recursos de programação.

Está disponível no link: http://www.4shared.com/zip/chWYwjXnba/h ... ocpdf.html

Código fonte utilizado:

Código: Selecionar todos

function main()
public arq, dest, ler:=space(1), ct:=0, acm:= "", arquivos := {},;
		diretorio:="", num:=0, arq33, separa := replicate("=",80)

	cls

	arq := fopen("lista.txt")
	destc :=  fcreate("harbour2.txt",2)
	ct:= 1	
	
	do while.t.
		acm := ""
		do while.t.
			fread(arq,@ler,1) 	
			if ler <> ":"
				acm := acm + ler
				IF LEN(ALLTRIM(ACM)) == 0
					LER = ""
					EXIT
				ENDIF
			else
				exit
			endif
		enddo

		if ler == ""
			exit
		endif

		diretorio = alltrim(strtran(acm,"./","/")) + "/"

		acm := ""
		do while.t.
			fread(arq,@ler,1) 	
			if ler <> "/"
				acm := acm + ler
			else
				exit
			endif
		enddo

		acm = strtran(acm,chr(13),"")
		acm = strtran(acm,chr(10),"")
		acm = strtran(acm,"//","/")

		CT := 1
		do while.t.
			arq33 := ""
			do while.t.
				arq33 += substr(acm,ct,1)
				if substr(arq33,len(arq33),1) == ","
					file55 = alltrim(diretorio + alltrim(arq33))
					aadd(arquivos,substr(file55,1,len(file55)-1))
					++ct
					exit
				endif	

				++ct
				if ct > len(acm)
					file55 = alltrim(diretorio + alltrim(arq33))
					aadd(arquivos,substr(file55,1,len(file55)-1))
					exit
				endif
			enddo	
			if ct > len(acm)
				exit
			endif
		enddo
		
	enddo

	contador := 1
	for ct:= 1 to len(arquivos)

		// gravando documentação
		if (".prg" $ lower(arquivos[ct])) //.or. (".ch" $ lower(arquivos[ct])) 
			leitura := memoread(arquivos[ct])
			fwrite(destc, separa,len(separa))
			fwrite(destc, chr(10),1)
			fwrite(destc,"["+strzero(contador,4)+ "] ",7)
			fwrite(destc, arquivos[ct],len(arquivos[ct]))
			fwrite(destc, chr(10),1)
			fwrite(destc, separa,len(separa))
			fwrite(destc, chr(10),1)
			fwrite(destc, leitura,len(leitura))
			fwrite(destc, chr(10),1)
			++contador
		endif
	next

	fclose(arq)
	fclose(destc)

return nil

O arquivo lista.txt necessário para a compilação está em anexo. Compilado no linux ubuntu 12.04
O arquivo deve ser compilado na raiz do pacote Harbour para que o arquivo seja gerado. No windows não deve funcionar porque o caminho dos arquivos é diferente.

[]s

[Toledo]

yugi386, quem é o autor do arquivo PDF que estava no link que você postou na sua mensagem inicial?

Na página inicial do PDF tem uma "capa" com textos em português, mas não tem qualquer referência ao autor do arquivo.

Abraços,

[yugi386]

yugi386, quem é o autor do arquivo PDF que estava no link que você postou na sua mensagem inicial?

Foi um amigo, também amante do Harbour. Ele disse que retirou o arquivo porque no visualizador de pdf do linux o mesmo aparecia com 3934 páginas, mas era como se a primeira página fosse apresentada as 3933 vezes. Abri aqui no linux ubuntu utilizando o visualizador de arquivos padrão e aconteceu isto mesmo. Mas com o adobe parece que está tudo certo. Desta forma vou publicá-lo em minha conta no 4shared.

Link: http://www.4shared.com/zip/JGwvnCs7ba/H ... f__1_.html

Vale lembrar que o arquivo que fiz de acordo com o código fonte anterior tem conteúdo semelhante, senão idêntico, porque ambos os arquivos foram criados a partir do pacote harbour-core-master.

[]s

Yugi

[JoséQuintas]

Só comentário:

Se o arquivo contém apenas os fontes do Harbour, então é o mesmo resultado obtido instalando os fontes no computador e usando um editor de texto moderno.
Aqui utilizo o programmers notepad. em find in files, só especificar a pasta dos fontes do harbour.
Com a vantagem de que mostra a lista com nomes de arquivos, e dá pra escolher qual abrir.