2 * Copyright (C) 2012-2014 Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
3 * Copyright (C) 2014 Alexandre Oliva <lxoliva@fsfla.org>
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License along
16 * with this program; if not, write to the Free Software Foundation, Inc.,
17 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
29 #include "rnet_message.h"
32 #define MAX(a,b) (a >= b) ? a : b
40 struct pmhash *header;
41 struct rnet_message *message;
45 * line should be an allocated buffer given to append_line
46 * this means, free(line) will be called when decfile is released
48 static int append_line(struct rnet_decfile *decfile, char *line)
52 decfile->lines_len += 1;
53 len = sizeof(*decfile->lines) * decfile->lines_len;
54 old_lines = decfile->lines;
55 decfile->lines = realloc(decfile->lines, len);
56 if (!decfile->lines) {
57 decfile->lines = old_lines;
60 decfile->lines[decfile->lines_len - 1] = line;
63 decfile->lines_len -= 1;
67 static void decfile_release_lines(struct rnet_decfile *decfile)
70 for (i = 0; i < decfile->lines_len; i++)
71 free(decfile->lines[i]);
73 decfile->lines = NULL;
76 static char * get_header(struct rnet_decfile *decfile);
77 static int decfile_parse_file(struct rnet_decfile *decfile);
79 #define parse(field, sz) \
81 val = malloc(sz + 1); \
87 key = strdup(field); \
90 if (pmhash_add(&hash, key, val)) \
93 static int decfile_parse_header(struct rnet_decfile *decfile)
104 p = buffer = get_header(decfile);
108 hash = decfile->header;
110 /* Common header fields. Most of these are used by rnet_encode. */
114 parse("codigo_recnet", 4);
119 parse("nr_versao", 3);
124 /* Assert the size of the common header matches the expectation. */
125 if (p - buffer != RNET_HEADER_HEAD_COMMON) {
126 fprintf(stderr, "RNET_HEADER_HEAD_COMMON in decfile.h needs to be adjusted to %ti\n", p - buffer);
130 /* Retrieve exerc from the hash table. */
131 exerc = atoi(pmhash_get(hash, "exerc"));
133 /* Assert exerc is no less than the minimum supported version */
135 fprintf(stderr, "This software does not support declarations older than 2013.\n");
139 /* Check for tested versions. */
141 fprintf(stderr, "Unknown file version, but proceeding anyway.\n");
145 /* These fields exist at least since 2013. */
150 parse("in_gerada", 1);
151 parse("nr_recibo_anterior", 10);
154 parse("versao_so", 7);
156 parse("nr_recibo", 10);
157 parse("municipio", 4);
158 parse("conjuge", 11);
160 parse("impdevido", 13);
161 parse("nr_recibo", 10);
171 parse("data_julgado", 8);
172 parse("imppagar", 13);
173 parse("tribfonte", 1);
175 parse("trib_rra", 1);
176 parse("cpf_rra2", 11);
177 parse("trib_3rra", 1);
178 parse("cpf_rra3", 11);
180 /* Fields added in 2014. */
182 parse("trib_4rra", 1);
183 parse("cpf_rra4", 11);
186 /* These fields exist at least since 2013. */
187 parse("vr_doacao", 13);
192 parse("cpf_dep1", 11);
193 parse("dnas_dep1", 8);
194 parse("cpf_dep2", 11);
195 parse("dnas_dep2", 8);
196 parse("cpf_dep3", 11);
197 parse("dnas_dep3", 8);
198 parse("cpf_dep4", 11);
199 parse("dnas_dep4", 8);
200 parse("cpf_dep5", 11);
201 parse("dnas_dep5", 8);
202 parse("cpf_dep6", 11);
203 parse("dnas_dep6", 8);
204 parse("cnpj_med1", 14);
205 parse("cnpj_med2", 14);
206 parse("cpf_alim", 11);
207 parse("cpf_invent", 11);
208 parse("municipio", 40);
209 parse("contribuinte", 60);
211 /* The contents of this field until 2014 (cpf_empregada) were moved to
212 * the end of the header in 2015 (cpfdomestic@). This field has then
213 * been converted into a filler field. */
215 parse("cpf_empregada", 11);
220 /* These fields exist at least since 2013. */
222 parse("data_nao_residente", 8);
223 parse("cpf_procurador", 11);
224 parse("obrigatoriedade", 3);
225 parse("rendtrib", 13);
226 parse("cnpj_prev", 14);
227 parse("cnpj_prev2", 14);
228 parse("vr_totisentos", 13);
229 parse("vr_totexclusivo", 13);
230 parse("vr_totpagamentos", 13);
232 /* End of header in 2013. */
234 /* Fields added in 2014. */
236 parse("nr_conta", 13);
237 parse("nr_dv_conta", 2);
238 parse("in_dv_conta", 1);
241 /* End of header in 2014. */
243 /* Fields added in 2015. */
245 parse("codnaturezaocup", 2);
246 parse("cpfdomestic@", 11);
247 parse("nitdomestic@", 11);
248 parse("cpfdomestic@2", 11);
249 parse("nitdomestic@2", 11);
250 parse("cpfdomestic@3", 11);
251 parse("nitdomestic@3", 11);
252 parse("deciniciada", 1);
255 parse("utilonline", 1);
256 parse("utilrascunho", 1);
257 parse("utilprepreenchida", 1);
258 parse("utilfontes", 1);
259 parse("utilplanosaude", 1);
260 parse("utilrecuperar", 1);
261 parse("dectransmitida", 1);
264 /* End of header in 2015. */
266 /* Fields added in 2016. */
268 parse("dedutivelmaior1", 14);
269 parse("dedutivelmaior2", 14);
270 parse("dedutivelmaior3", 14);
271 parse("dedutivelmaior4", 14);
272 parse("dedutivelmaior5", 14);
273 parse("dedutivelmaior6", 14);
274 parse("funprespmaior", 14);
277 /* End of header in 2016. */
279 /* Tail fields, which exist at least since 2013. */
281 parse("versaotestpgd", 3);
282 parse("controle", 10);
286 "missing CR at the %tith header character\n",
289 } else if (*p++ != '\n') {
291 "missing LF at the %tith header character\n",
294 } else if (*p != 0) {
296 "missing NUL at the %tith header character\n",
299 } else if (p - tail != RNET_HEADER_TAIL_COMMON) {
300 fprintf(stderr, "RNET_HEADER_TAIL_COMMON in decfile.h needs to be adjusted to %ti\n", p - tail);
304 /* Verify header size */
307 if (p - buffer != RNET_HEADER_SIZE_2013) {
308 fprintf(stderr, "RNET_HEADER_SIZE_2013 in decfile.h needs to be adjusted to %ti,\nor parse_header in decfile.c needs updating\n", p - buffer);
313 if (p - buffer != RNET_HEADER_SIZE_2014) {
314 fprintf(stderr, "RNET_HEADER_SIZE_2014 in decfile.h needs to be adjusted to %ti,\nor parse_header in decfile.c needs updating\n", p - buffer);
319 if (p - buffer != RNET_HEADER_SIZE_2015) {
320 fprintf(stderr, "RNET_HEADER_SIZE_2015 in decfile.h needs to be adjusted to %ti,\nor parse_header in decfile.c needs updating\n", p - buffer);
325 if (p - buffer != RNET_HEADER_SIZE_2016) {
326 fprintf(stderr, "RNET_HEADER_SIZE_2016 in decfile.h needs to be adjusted to %ti,\nor parse_header in decfile.c needs updating\n", p - buffer);
331 /* This case should never be reached even for later
332 years, because later years should not be parsed
333 further than the common header. */
334 fprintf(stderr, "Error while processing header. Unrecognized version\n");
350 static int decfile_parse(struct rnet_decfile *decfile)
355 while ((r = getline(&buffer, &len, decfile->file)) > 0) {
356 r = append_line(decfile, buffer);
364 if (!(r = decfile_parse_header(decfile)) && !(r = decfile_parse_file(decfile)))
367 decfile_release_lines(decfile);
371 struct rnet_decfile * rnet_decfile_open(char *filename)
373 struct rnet_decfile *decfile;
375 decfile = malloc(sizeof(*decfile));
378 decfile->header = pmhash_new();
379 if (!decfile->header)
381 decfile->message = rnet_message_new();
382 if (!decfile->message)
384 decfile->filename = strdup(filename);
385 if (!decfile->filename)
387 decfile->file = fopen(filename, "r");
390 decfile->lines_len = 0;
391 decfile->lines = NULL;
392 if ((r = decfile_parse(decfile)))
396 fclose(decfile->file);
398 free(decfile->filename);
400 rnet_message_del(decfile->message);
402 pmhash_del(decfile->header);
409 void rnet_decfile_close(struct rnet_decfile *decfile)
411 decfile_release_lines(decfile);
412 fclose(decfile->file);
413 free(decfile->filename);
417 static char * get_header(struct rnet_decfile *decfile)
420 for (i = 0; i < decfile->lines_len; i++) {
421 if (!strncmp(decfile->lines[i], "IRPF", 4)) {
422 return decfile->lines[i];
428 char *rnet_decfile_get_header_field(struct rnet_decfile *decfile, char *field)
430 return pmhash_get(decfile->header, field);
433 /* returns true if register is declaration and not a receipt */
434 static int decfile_reg_is_dec(char *line)
436 if (line[0] >= '0' && line[0] <= '9' &&
437 line[1] >= '0' && line[1] <= '9')
439 if (!strncmp(line, "IRPF ", 8))
441 if (!strncmp(line, "T9", 2))
446 /* strip a register from its control number and append it to message */
447 static int append_stripped_reg_ctrl(struct rnet_message **message, char *line)
450 struct rnet_message *msg = *message;
452 if (!decfile_reg_is_dec(line))
457 growth = msg->len + len - 10 - msg->alen;
459 if (rnet_message_expand(message, growth))
463 memcpy(&msg->buffer[msg->len], line, len - 12);
464 msg->buffer[msg->len + len - 12] = '\r';
465 msg->buffer[msg->len + len - 11] = '\n';
466 msg->len += len - 10;
470 static int decfile_parse_file(struct rnet_decfile *decfile)
474 for (i = 0; i < decfile->lines_len; i++) {
475 r = append_stripped_reg_ctrl(&decfile->message,
483 struct rnet_message * rnet_decfile_get_file(struct rnet_decfile *decfile)
485 return decfile->message;
488 char * rnet_decfile_get_file_hash(struct rnet_decfile *decfile)
492 if (gcry_md_test_algo(GCRY_MD_MD5))
494 len = gcry_md_get_algo_dlen(GCRY_MD_MD5);
498 gcry_md_hash_buffer(GCRY_MD_MD5, hash, decfile->message->buffer,
499 decfile->message->len);
503 char * rnet_decfile_get_header(struct rnet_decfile *decfile)
505 return get_header(decfile);