1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
/*
* Nome: Leonardo Koosuke Azuma
* SO: Arch Linux x86_64
* Compilador: gcc (GCC) 13.2.1 20230801
*/
#include <stdio.h>
#include <stdlib.h>
#include "include/map.h"
#include "include/lexical.h"
char proximo = '\n';
int is_EOF = 0;
int linha = 0; // Numero da linha atual)
int identificador_num = 1;
FILE *fout;
string_map special_char;
string_map simbolos_especiais;
string_map simbolos_especiais_composto;
string_map simbolos_especiais_composto_negrito;
string_map simbolos_identificadores;
string_map simbolos_numeros;
void init_simbolos_especiais_compostos_negrito(){
simbolos_especiais_composto_negrito = init_map(1031);
insert_map("program", "secn01", simbolos_especiais_composto_negrito);
insert_map("label", "secn02", simbolos_especiais_composto_negrito);
insert_map("var", "secn03", simbolos_especiais_composto_negrito);
insert_map("procedure", "secn04", simbolos_especiais_composto_negrito);
insert_map("function", "secn05", simbolos_especiais_composto_negrito);
insert_map("begin", "secn06", simbolos_especiais_composto_negrito);
insert_map("end", "secn07", simbolos_especiais_composto_negrito);
insert_map("if", "secn08", simbolos_especiais_composto_negrito);
insert_map("then", "secn09", simbolos_especiais_composto_negrito);
insert_map("else", "secn10", simbolos_especiais_composto_negrito);
insert_map("while", "secn11", simbolos_especiais_composto_negrito);
insert_map("do", "secn12", simbolos_especiais_composto_negrito);
insert_map("or", "secn13", simbolos_especiais_composto_negrito);
insert_map("and", "secn14", simbolos_especiais_composto_negrito);
insert_map("div", "secn15", simbolos_especiais_composto_negrito);
insert_map("not", "secn16", simbolos_especiais_composto_negrito);
}
void init_simbolos_especiais_compostos(){
simbolos_especiais_composto = init_map(1031);
insert_map(":=", "sec1", simbolos_especiais_composto);
insert_map("(*", "sec2", simbolos_especiais_composto);
insert_map("*)", "sec3", simbolos_especiais_composto);
}
int is_caracter(char tmp){
return (tmp >= 'a' && tmp <= 'z');
}
int is_numero(char tmp){
return (tmp >= '0' && tmp <= '9');
}
void init_simbolos_especiais(){
simbolos_especiais = init_map(1031);
insert_map(".", "se01", simbolos_especiais);
insert_map(";", "se02", simbolos_especiais);
insert_map(",", "se03", simbolos_especiais);
insert_map("(", "se04", simbolos_especiais);
insert_map(")", "se05", simbolos_especiais);
insert_map(":", "se06", simbolos_especiais);
insert_map("=", "se07", simbolos_especiais);
insert_map("<", "se08", simbolos_especiais);
insert_map(">", "se09", simbolos_especiais);
insert_map("+", "se10", simbolos_especiais);
insert_map("-", "se11", simbolos_especiais);
insert_map("*", "se12", simbolos_especiais);
}
void init_all_map(){
init_simbolos_especiais();
init_simbolos_especiais_compostos();
init_simbolos_especiais_compostos_negrito();
simbolos_identificadores = init_map(1031);
simbolos_numeros = init_map(1031);
}
void PROXIMO(FILE *fp){
if(is_EOF) return;
if(proximo == '\n'){
if(linha != 0){
printf("\n");
fprintf(fout, "\n");
}
linha++;
printf("linha %d: ", linha);
fprintf(fout, "linha %d: ", linha);
}
if(fscanf(fp, "%c", &proximo) == EOF){
is_EOF = 1;
return ;
}
return ;
}
char* CODIGO(char *cod){
char *tmp;
if((tmp = get_value(cod, simbolos_especiais)) != NULL){
return tmp;
}
if((tmp = get_value(cod, simbolos_especiais_composto)) != NULL){
return tmp;
}
if((tmp = get_value(cod, simbolos_especiais_composto_negrito)) != NULL){
return tmp;
}
if((tmp = get_value(cod, simbolos_numeros)) != NULL){
return tmp;
}
if((tmp = get_value(cod, simbolos_identificadores)) != NULL){
return tmp;
}
return NULL;
}
void ERRO(enum error_type error_code){
fprintf(stderr, "Erro na linha %d\n", linha);
if(error_code == SIMBOLO_ESPECIAL_DESCONHECIDO){
fprintf(stderr, "ERRO: Simbolo especial desconhecido\n");
}
else{
fprintf(stderr, "ERRO: Identificador ou numero mal formado\n");
}
exit(1);
}
|
