60 lines
2.4 KiB
Plaintext
60 lines
2.4 KiB
Plaintext
STATUS:
|
|
-------
|
|
- Temos suporte para dois compiladores, MF e MB.
|
|
- Para usar o cbl2cob e converter para o microbase, use a opção "-d mb".
|
|
- Para executar os exemplos de conversão, vá até o diretório samples e
|
|
digite "Make -f Makefile.Mb".
|
|
|
|
Até o presente momento o cbl2cob faz as seguintes ações:
|
|
|
|
- Adiciona IDENTIFICATION DIVISION se preciso.
|
|
- Adiciona PROGRAM-ID se preciso.
|
|
- Converte conteúdo da PROGRAM-ID em minúsculo.
|
|
- Retira clausulas LOCK MODE.
|
|
- Retira clausulas DATA RECORD.
|
|
- Retira cláusulas VALUE OF FILE-ID.
|
|
- Acerta caracteres de continuacao de linha(simples ou duplos),
|
|
modificando-os de estarem na coluna 9 para a coluna 12.
|
|
- DISPLAY.
|
|
- Substituir clausula DISPLAY AT LINE .. COLUMN .. por DISPLAY AT ....
|
|
- Retirar clausulas BACKGROUND-COLOR, FOREGROUND-COLOR, BELL e PROMPT
|
|
- Substituir parametro AUTO-SKIP por AUTO.
|
|
- ACCEPT.
|
|
- Substituir clausula DISPLAY AT LINE .. COLUMN .. por DISPLAY AT ....
|
|
- Retirar clausulas BACKGROUND-COLOR, FOREGROUND-COLOR e PROMPT
|
|
- Substituir parametro AUTO-SKIP por AUTO.
|
|
- Remover clausula ACCEPT FROM ESCAPE KEY.
|
|
- Insere CRT STATUS IS <VARIAVEL-TECLA>.
|
|
- CALL e CANCEL
|
|
- Transforma o conteúdo entre aspas em lowercase
|
|
- Remove funcoes X"AF".
|
|
- Remove funcoes X"91".
|
|
- SELECT.
|
|
- Substitui ASSIGN TO <nome-arquivo> para ASSIGN TO EXTERNAL <nome-arquivo>
|
|
- Substitui ASSIGN TO DISK por ASSIGN TO EXTERNAL <nome-arquivo>
|
|
- Substitui ASSIGN TO PRINTER por ASSIGN TO EXTERNAL printer
|
|
- Substitui "\" por "/" nas strings.
|
|
- MOVE.
|
|
- Retirar "$" nas strings.
|
|
- Substituir "\" por "/" nas strings.
|
|
- DELETE.
|
|
- Remove a cláusula FILE, se usada junto com o DELETE.
|
|
- Pre-processa(abre/fecha) fontes, com o verbo COPY.
|
|
|
|
Futuramente, será implementado as seguintes ações:
|
|
|
|
- Inserir inteligencia no parser para indentar as linhas de continuacao
|
|
corretamente.
|
|
- Inserir inteligencia no parser para remover instrucoes que tenham mais
|
|
de uma linha.
|
|
- Inserir inteligencia no parser para usar diversas variaveis de arquivo.
|
|
- Substituir assign to PRINTER por assign to <nome-arquivo>
|
|
Inserir chamada SYSTEM.
|
|
- Substituir rotinas x"91" por rotina "cbl_call_system"
|
|
- Substituir rotinas x"AF" por rotina "cbl_read_kbd_char"
|
|
- Substituir rotinas x"B8" por rotina ...
|
|
- Substituir rotinas PC_PRINTER por rotina ...
|
|
- Substituir CBL_READ_SCR_CHATTRS por rotina cbl_read_scr_chattrs
|
|
- Substituir CBL_WRITE_SCR_CHATTRS por rotina cbl_write_scr_chattrs
|
|
|