Skip to content

Commit

Permalink
Ajustado bug no compilador
Browse files Browse the repository at this point in the history
  • Loading branch information
elenderg committed Apr 27, 2024
1 parent 1c65f76 commit 475fe5c
Show file tree
Hide file tree
Showing 9 changed files with 20,847 additions and 49 deletions.
20,791 changes: 20,791 additions & 0 deletions Algoritmos de Exemplo/novo/Biblioteca padrão.pop

Large diffs are not rendered by default.

Binary file added Algoritmos de Exemplo/novo/novo.exe
Binary file not shown.
7 changes: 7 additions & 0 deletions Algoritmos de Exemplo/novo/teste.pop
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
Rotina para que se execute o programa:
Inicialize os componentes.
\Obtenha o N�mero Identificador do Fluxo de Entrada Padr�o.
\Defina o CodePage do Console.
\Obtenha o Modo do Console.
Escreva "123" junto com o texto CRLF para StdOut.
Feche o nosso programa.
32 changes: 16 additions & 16 deletions Algoritmos de Exemplo/stdin/Biblioteca padrão.pop
Original file line number Diff line number Diff line change
Expand Up @@ -9585,10 +9585,10 @@ Rotina para que se inicialize a janela do programa:
e 0 [hMenu]
e O n�mero identificador deste m�dulo [hInstance]
e 0. [lpParam]
Processe "user32.dll" "ShowWindow" com \ Define o estado de exibi��o da janela especificada.
\Processe "user32.dll" "ShowWindow" com \ Define o estado de exibi��o da janela especificada.
\ Documenta��o: -> https://learn.microsoft.com/pt-br/windows/win32/api/winuser/nf-winuser-showwindow
A janela principal do programa [hWnd]
e 1. [nCmdShow = SW_SHOWNORMAL]
\A janela principal do programa [hWnd]
\e 1. [nCmdShow = SW_SHOWNORMAL]

Rotina para que se inicialize a infraestrutura WinSock:
Processe "ws2_32.dll" "WSAStartup" com \ Inicia o uso da DLL Winsock por um processo.
Expand Down Expand Up @@ -12623,21 +12623,21 @@ Rotina para que se carregue as bibliotecas padr
Rotina para que se carregue as bibliotecas padr�o do sistema;
Rotina para que se inicialize tudo;
Rotina para que se inicialize os componentes:
\Inicialize o Component Object Model.
Inicialize o Component Object Model.
Inicialize a infraestrutura WinSock.
\Inicialize gdi+.
\Inicialize o talker.
Inicialize gdi+.
Inicialize o talker.
Inicialize o m�dulo.
\Inicialize as cores.
\Inicialize o tela.
\Inicialize a janela do programa.
\Inicialize as fontes.
\Inicialize os cursors.
\Inicialize o mouse.
\Inicialize os contextos de dispositivo.
\Inicialize o contexto.
\Inicialize o terminal.
\Crie o console.
Inicialize as cores.
Inicialize o tela.
Inicialize a janela do programa.
Inicialize as fontes.
Inicialize os cursors.
Inicialize o mouse.
Inicialize os contextos de dispositivo.
Inicialize o contexto.
Inicialize o terminal.
Crie o console.

Rotina para que se comece para cima o cgi:
Inicialize a infraestrutura WinSock.
Expand Down
Binary file modified Algoritmos de Exemplo/stdin/stdin.exe
Binary file not shown.
9 changes: 5 additions & 4 deletions Algoritmos de Exemplo/stdin/stdin.pop
Original file line number Diff line number Diff line change
Expand Up @@ -7,14 +7,15 @@ Rotina para que se execute o programa:
Obtenha o N�mero Identificador do Fluxo de Entrada Padr�o.
Defina o CodePage do Console.
Obtenha o Modo do Console.
Escreva "Digite alguma coisa: " para Stdout.
Escreva "Digite alguma coisa: " junto com o texto CRLF para StdOut.
Leia um trecho desde a STDIN.
Remova o �ltimo caractere desde o trecho.
Escreva "String digitada: " junto com o trecho junto com o texto CRLF para StdOut.
Escreva "String digitada: " junto com o trecho para StdOut.
\Escreva "Pressione Ctrl+C para sair do programa" para StdOut.
\Aguarde 1 segundo.
\Desenfileire um evento.
\Delegue o controle.
Feche o programa.
Delegue o controle.
Feche o nosso programa.

Rotina para que se obtenha o N�mero Identificador do Fluxo de Entrada Padr�o:
Processe "kernel32.dll" "GetStdHandle" com
Expand Down
Binary file modified Binários/Compilador.exe
Binary file not shown.
57 changes: 28 additions & 29 deletions Código-Fonte/Biblioteca padrão.pop
Original file line number Diff line number Diff line change
@@ -1,3 +1,9 @@
Um array � uma estrutura com
Um ponteiro denominado endere�o,
Um n�mero denominado tamanho.


A cor eigengrau � uma cor.
\O conte�do deste arquivo foi traduzido a parir do arquivo "The noodle" do projeto "CAL-4700"
\Todos os direitos originais pertencem � "Osmosian Order of Plain Language Programmers"- - Fundada em 2006
\O conte�do deste arquivo, por�m, possui autoriza��o para divulga��o, modifica��o e redistribui��o no dom�nio p�blico sem a necessidade de pr�via autoriza��o.
Expand Down Expand Up @@ -260,14 +266,9 @@ Um vers

Um c�digo bin�rio � uma string.
Um brilho � uma luminosidade.

Um contagem de recipientes � uma contagem.

Um conjunto de recipientes � uma estrutura com
Umas refer�ncias.

Um conjunto de recipientes � uma estrutura com umas refer�ncias.
Um recipiente � um ponteiro [que aponta] para um conjunto de recipientes.

Um trecho � uma string.
Uma quantidade de bytes � uma contagem.
Um cursor de texto � um posicionamento.
Expand Down Expand Up @@ -2062,7 +2063,6 @@ A grossura da canetinha
\CORES

\CORES V�VIDAS
A cor eigengrau � uma cor.
A cor branco � uma cor.
A cor branca � uma cor.
A cor preta � uma cor. \
Expand Down Expand Up @@ -6029,8 +6029,8 @@ Fun
Compare a string para a segunda string usando a quantidade de caracteres desta string e a quantidade de caracteres desta segunda string e o tabela de caracteres min�sculos ascii (iguais somente).

Fun��o para que se determine se uma string � uma segunda string ou uma terceira string:
Se a string a segunda string, diga sim.
Se a string a terceira string, diga sim.
Se a string for a segunda string, diga sim.
Se a string for a terceira string, diga sim.
Diga n�o.

Fun��o para que se determine se uma string � algum fra��o literal;
Expand Down Expand Up @@ -7354,16 +7354,14 @@ Rotina para que se preencha uma string com um byte usando uma contagem:

Rotina para que se exiba a contagem de elementos presentes no heap;
Rotina para que se finalize ap�s execu��o:
Se a contagem do heap for 0,
Retorne.
\Se a contagem do heap n�o for 0,
Atribua a contagem do heap para uma contagem.
Atribua "Aviso: Voc� esqueceu de destruir " junto com a contagem seguido de " elemento(s) no heap." para uma string.
Produza o relat�rio de informa��es usando a string.
Se a contagem do heap for 0, retorne.
Atribua a contagem do heap para uma contagem.
Atribua "Aviso: Voc� esqueceu de destruir " junto com a contagem seguido de " elemento(s) no heap." para uma string.
Produza o relat�rio de informa��es usando a string.

Rotina para que se finalize os contextos de dispositivo:
Finalize o contexto de dispositivo de mem�ria.
\Finalize o canvas da tela.
\Finalize o canvas da tela. -> Rotina ainda n�o criada.

Rotina para que se finalize o CGI:
Processe "kernel32.dll" "FreeConsole". \ Desanexa o processo chamador de seu respectivo console.
Expand All @@ -7372,9 +7370,9 @@ Rotina para que se finalize o CGI:
\Rotina para que se finalize as cores:

Rotina para que se finalize o Component Object Model:
Processe "ole32.dll" "CoUninitialize". \ Fecha a biblioteca COM no thread atual
Processe "ole32.dll" "CoUninitialize". \ Decha a biblioteca COM no thread atual
\ Descarrega todas as DLLs carregadas pelo thread,
\ Libera quaisquer outros recursos que o thread mant�m;
\ Libera quaisquer outros recursos que o thread mant�m e
\ For�a o fechamento de todas as conex�es RPC no thread.
\ Documenta��o: -> https://learn.microsoft.com/pt-br/windows/win32/api/combaseapi/nf-combaseapi-couninitialize

Expand Down Expand Up @@ -9587,16 +9585,16 @@ Rotina para que se inicialize a janela do programa:
e 0 [hMenu]
e O n�mero identificador deste m�dulo [hInstance]
e 0. [lpParam]
Processe "user32.dll" "ShowWindow" com \ Define o estado de exibi��o da janela especificada.
\Processe "user32.dll" "ShowWindow" com \ Define o estado de exibi��o da janela especificada.
\ Documenta��o: -> https://learn.microsoft.com/pt-br/windows/win32/api/winuser/nf-winuser-showwindow
A janela principal do programa [hWnd]
e 1. [nCmdShow = SW_SHOWNORMAL]
\A janela principal do programa [hWnd]
\e 1. [nCmdShow = SW_SHOWNORMAL]

Rotina para que se inicialize a infraestrutura WinSock:
Processe "ws2_32.dll" "WSAStartup" com \ Inicia o uso da DLL Winsock por um processo.
\ Documenta��o: -> https://learn.microsoft.com/pt-br/windows/win32/api/winsock/nf-winsock-wsastartup
2 [wVersionRequired]
e O endere�amento dum WSAData. [lpWSAData]
e O endere�amento dum WSADATA. [lpWSAData]

Rotina para que se acrescente um byte em uma caixa de texto;
Rotina para que se adicione um byte para uma caixa de texto;
Expand Down Expand Up @@ -11580,15 +11578,15 @@ Rotina para que se role um console usando um evento:

Rotina para que se role uma caixa de texto para a base:
Se a caixa de texto for inexistente, retorne.
Se o sinalizador de rolagem vertical desta caixa de texto n�o estiver ativo, retorne.
Se o sinalizador de rolagem vertical desta caixa de texto n�o estiver ativo, retorne.
Atribua a contagem de linhas desta caixa de texto menos 1 para um n�mero. \ calculated field
Atribua - o n�mero vezes a altura da linha desta caixa de texto � coordenada Y desta caixa de texto.\ calculated field
Delimite a origem de a caixa de texto.

Multiplique o n�mero por -1.
Multiplique o n�mero pela altura da linha deste texto.
Multiplique o n�mero pela altura da linha desta caixa de texto.
Adicione 2 ao n�mero.
Atribua o n�mero � Coordenada Y deste texto.
Atribua o n�mero � Coordenada Y desta caixa de texto.


Rotina para que se role uma caixa de texto para o cursor de texto:
Se a caixa de texto for inexistente, retorne.
Expand Down Expand Up @@ -12525,7 +12523,7 @@ Rotina para que se comece um process usando um endere
Atribua "Erro. Este processo j� est� sendo executado." ao erro do fluxo de entrada/sa�da;
Escreva o erro do fluxo de entrada/sa�da junto com o texto CRLF para StdOut;
Retorne.
Atribua a magnitude duma StartupInfo ao CB desta startupinfo.
Atribua a magnitude duma STARTUPINFO ao CB desta STARTUPINFO.
Extraia um endere�o da pasta desde o endere�o completo.
Anexe o caractere NULL ap�s o endere�o da pasta.
Preserve o endere�o completo. Anexe o caractere NULL ap�s o endere�o completo.
Expand All @@ -12543,7 +12541,7 @@ Rotina para que se comece um process usando um endere
\ https://learn.microsoft.com/pt-br/windows/desktop/api/processthreadsapi/nf-processthreadsapi-getpriorityclass
e 0 [lpEnvironment]
e O caractere inicial deste endere�o da pasta [lpCurrentDirectory]
e O endere�amento desta startupinfo [lpStartupInfo]
e O endere�amento desta STARTUPINFO [lpStartupInfo]
\ Consulte https://learn.microsoft.com/pt-br/windows/win32/api/processthreadsapi/ns-processthreadsapi-startupinfoa
e O endere�amento duma PROCESS_INFORMATION [lpProcessInformation]
\ Consulte https://learn.microsoft.com/pt-br/windows/win32/api/processthreadsapi/ns-processthreadsapi-process_information
Expand Down Expand Up @@ -13595,7 +13593,8 @@ Rotina para que se atribua stdin para um trecho:
Se o valor da d�ade estiver em branco,
Atribua "Erro ao tentar obter o conte�do da vari�vel de ambiente CONTENT_LENGTH." ao erro do fluxo de entrada/sa�da;
Escreva o erro do fluxo de entrada/sa�da junto com o texto CRLF para StdOut;
Retorne.
Atribua "256" para o valor da d�ade.
\Retorne.
Converta o valor da d�ade para uma quantidade de caracteres.
Se a quantidade de caracteres for 0, retorne.
Reaponte o caractere inicial deste trecho usando a quantidade de caracteres.
Expand Down
Binary file added Código-Fonte/Código-Fonte.exe
Binary file not shown.

0 comments on commit 475fe5c

Please sign in to comment.