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 parse_header_2013(struct pmhash *hash, char *buffer);
78 static int parse_header_2014(struct pmhash *hash, char *buffer);
79 static int parse_header_2015(struct pmhash *hash, char *buffer);
80 static int decfile_parse_file(struct rnet_decfile *decfile);
82 static int decfile_parse_header(struct rnet_decfile *decfile)
84 char *buffer = get_header(decfile);
87 switch (strlen(buffer)) {
88 case RNET_HEADER_SIZE_2013:
89 return parse_header_2013(decfile->header, buffer);
90 case RNET_HEADER_SIZE_2014:
91 return parse_header_2014(decfile->header, buffer);
92 case RNET_HEADER_SIZE_2015:
93 return parse_header_2015(decfile->header, buffer);
99 static int decfile_parse(struct rnet_decfile *decfile)
104 while ((r = getline(&buffer, &len, decfile->file)) > 0) {
105 r = append_line(decfile, buffer);
113 if (!(r = decfile_parse_header(decfile)) && !(r = decfile_parse_file(decfile)))
116 decfile_release_lines(decfile);
120 struct rnet_decfile * rnet_decfile_open(char *filename)
122 struct rnet_decfile *decfile;
124 decfile = malloc(sizeof(*decfile));
127 decfile->header = pmhash_new();
128 if (!decfile->header)
130 decfile->message = rnet_message_new();
131 if (!decfile->message)
133 decfile->filename = strdup(filename);
134 if (!decfile->filename)
136 decfile->file = fopen(filename, "r");
139 decfile->lines_len = 0;
140 decfile->lines = NULL;
141 if ((r = decfile_parse(decfile)))
145 fclose(decfile->file);
147 free(decfile->filename);
149 rnet_message_del(decfile->message);
151 pmhash_del(decfile->header);
158 void rnet_decfile_close(struct rnet_decfile *decfile)
160 decfile_release_lines(decfile);
161 fclose(decfile->file);
162 free(decfile->filename);
166 static char * get_header(struct rnet_decfile *decfile)
169 for (i = 0; i < decfile->lines_len; i++) {
170 if (!strncmp(decfile->lines[i], "IRPF", 4)) {
171 return decfile->lines[i];
177 static int parse_header_2015(struct pmhash *hash, char *buffer)
185 #define parse(field, sz) \
187 val = malloc(sz + 1); \
191 memcpy(val, p, sz); \
193 key = strdup(field); \
196 if (pmhash_add(&hash, key, val)) \
201 if (strcmp(val, "2015")) {
206 parse("codigo_recnet", 4);
211 parse("nr_versao", 3);
216 if (p - buffer != RNET_HEADER_HEAD_2015) {
217 fprintf(stderr, "RNET_HEADER_HEAD_2015 in decfile.h needs to be adjusted to %ti\n", p - buffer);
225 parse("in_gerada", 1);
226 parse("nr_recibo_anterior", 10);
229 parse("versao_so", 7);
231 parse("nr_recibo", 10);
232 parse("municipio", 4);
233 parse("conjuge", 11);
235 parse("impdevido", 13);
236 parse("nr_recibo", 10);
246 parse("data_julgado", 8);
247 parse("imppagar", 13);
248 parse("tribfonte", 1);
250 parse("trib_rra", 1);
251 parse("cpf_rra2", 11);
252 parse("trib_3rra", 1);
253 parse("cpf_rra3", 11);
254 parse("trib_4rra", 1);
255 parse("cpf_rra4", 11);
256 parse("vr_doacao", 13);
261 parse("cpf_dep1", 11);
262 parse("dnas_dep1", 8);
263 parse("cpf_dep2", 11);
264 parse("dnas_dep2", 8);
265 parse("cpf_dep3", 11);
266 parse("dnas_dep3", 8);
267 parse("cpf_dep4", 11);
268 parse("dnas_dep4", 8);
269 parse("cpf_dep5", 11);
270 parse("dnas_dep5", 8);
271 parse("cpf_dep6", 11);
272 parse("dnas_dep6", 8);
273 parse("cnpj_med1", 14);
274 parse("cnpj_med2", 14);
275 parse("cpf_alim", 11);
276 parse("cpf_invent", 11);
277 parse("municipio", 40);
278 parse("contribuinte", 60);
281 parse("data_nao_residente", 8);
282 parse("cpf_procurador", 11);
283 parse("obrigatoriedade", 3);
284 parse("rendtrib", 13);
285 parse("cnpj_prev", 14);
286 parse("cnpj_prev2", 14);
287 parse("vr_totisentos", 13);
288 parse("vr_totexclusivo", 13);
289 parse("vr_totpagamentos", 13);
290 parse("nr_conta", 13);
291 parse("nr_dv_conta", 2);
292 parse("in_dv_conta", 1);
294 parse("codnaturezaocup", 2);
295 parse("cpfdomestic@", 11);
296 parse("nitdomestic@", 11);
297 parse("cpfdomestic@2", 11);
298 parse("nitdomestic@2", 11);
299 parse("cpfdomestic@3", 11);
300 parse("nitdomestic@3", 11);
301 parse("deciniciada", 1);
304 parse("utilonline", 1);
305 parse("utilrascunho", 1);
306 parse("utilprepreenchida", 1);
307 parse("utilfontes", 1);
308 parse("utilplanosaude", 1);
309 parse("utilrecuperar", 1);
310 parse("dectransmitida", 1);
313 parse("versaotestpgd", 3);
314 parse("controle", 10);
318 "missing CR at the %tith header character\n",
321 } else if (*p++ != '\n') {
323 "missing LF at the %tith header character\n",
326 } else if (*p != 0) {
328 "missing NUL at the %tith header character\n",
331 } else if (p - buffer != RNET_HEADER_SIZE_2015) {
332 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);
334 } else if (p - tail != RNET_HEADER_TAIL_2015) {
335 fprintf(stderr, "RNET_HEADER_TAIL_2015 in decfile.h needs to be adjusted to %ti\n", p - tail);
348 static int parse_header_2014(struct pmhash *hash, char *buffer)
356 #define parse(field, sz) \
358 val = malloc(sz + 1); \
362 memcpy(val, p, sz); \
364 key = strdup(field); \
367 if (pmhash_add(&hash, key, val)) \
372 if (strcmp(val, "2014")) {
377 parse("codigo_recnet", 4);
382 parse("nr_versao", 3);
387 if (p - buffer != RNET_HEADER_HEAD_2014) {
388 fprintf(stderr, "RNET_HEADER_HEAD_2014 in decfile.h needs to be adjusted to %ti\n", p - buffer);
396 parse("in_gerada", 1);
397 parse("nr_recibo_anterior", 10);
400 parse("versao_so", 7);
402 parse("nr_recibo", 10);
403 parse("municipio", 4);
404 parse("conjuge", 11);
406 parse("impdevido", 13);
407 parse("nr_recibo", 10);
417 parse("data_julgado", 8);
418 parse("imppagar", 13);
419 parse("tribfonte", 1);
421 parse("trib_rra", 1);
422 parse("cpf_rra2", 11);
423 parse("trib_3rra", 1);
424 parse("cpf_rra3", 11);
425 parse("trib_4rra", 1);
426 parse("cpf_rra4", 11);
427 parse("vr_doacao", 13);
432 parse("cpf_dep1", 11);
433 parse("dnas_dep1", 8);
434 parse("cpf_dep2", 11);
435 parse("dnas_dep2", 8);
436 parse("cpf_dep3", 11);
437 parse("dnas_dep3", 8);
438 parse("cpf_dep4", 11);
439 parse("dnas_dep4", 8);
440 parse("cpf_dep5", 11);
441 parse("dnas_dep5", 8);
442 parse("cpf_dep6", 11);
443 parse("dnas_dep6", 8);
444 parse("cnpj_med1", 14);
445 parse("cnpj_med2", 14);
446 parse("cpf_alim", 11);
447 parse("cpf_invent", 11);
448 parse("municipio", 40);
449 parse("contribuinte", 60);
450 parse("cpf_empregada", 11);
451 parse("hashcode", 12);
452 parse("data_nao_residente", 8);
453 parse("cpf_procurador", 11);
454 parse("obrigatoriedade", 3);
455 parse("rendtrib", 13);
456 parse("cnpj_prev", 14);
457 parse("cnpj_prev2", 14);
458 parse("vr_totisentos", 13);
459 parse("vr_totexclusivo", 13);
460 parse("vr_totpagamentos", 13);
461 parse("nr_conta", 13);
462 parse("nr_dv_conta", 2);
463 parse("in_dv_conta", 1);
467 parse("versaotestpgd", 3);
468 parse("controle", 10);
472 "missing CR at the %tith header character\n",
475 } else if (*p++ != '\n') {
477 "missing LF at the %tith header character\n",
480 } else if (*p != 0) {
482 "missing NUL at the %tith header character\n",
485 } else if (p - buffer != RNET_HEADER_SIZE_2014) {
486 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);
488 } else if (p - tail != RNET_HEADER_TAIL_2014) {
489 fprintf(stderr, "RNET_HEADER_TAIL_2014 in decfile.h needs to be adjusted to %ti\n", p - tail);
502 static int parse_header_2013(struct pmhash *hash, char *buffer)
510 #define parse(field, sz) \
512 val = malloc(sz + 1); \
516 memcpy(val, p, sz); \
518 key = strdup(field); \
521 if (pmhash_add(&hash, key, val)) \
526 if (strcmp(val, "2013")) {
531 parse("codigo_recnet", 4);
536 parse("nr_versao", 3);
541 if (p - buffer != RNET_HEADER_HEAD_2013) {
542 fprintf(stderr, "RNET_HEADER_HEAD_2013 in decfile.h needs to be adjusted to %ti\n", p - buffer);
550 parse("in_gerada", 1);
551 parse("nr_recibo_anterior", 10);
554 parse("versao_so", 7);
556 parse("nr_recibo", 10);
557 parse("municipio", 4);
558 parse("conjuge", 11);
560 parse("impdevido", 13);
561 parse("nr_recibo", 10);
571 parse("data_julgado", 8);
572 parse("imppagar", 13);
573 parse("tribfonte", 1);
575 parse("trib_rra", 1);
576 parse("cpf_rra2", 11);
577 parse("trib_3rra", 1);
578 parse("cpf_rra3", 11);
579 parse("vr_doacao", 13);
584 parse("cpf_dep1", 11);
585 parse("dnas_dep1", 8);
586 parse("cpf_dep2", 11);
587 parse("dnas_dep2", 8);
588 parse("cpf_dep3", 11);
589 parse("dnas_dep3", 8);
590 parse("cpf_dep4", 11);
591 parse("dnas_dep4", 8);
592 parse("cpf_dep5", 11);
593 parse("dnas_dep5", 8);
594 parse("cpf_dep6", 11);
595 parse("dnas_dep6", 8);
596 parse("cnpj_med1", 14);
597 parse("cnpj_med2", 14);
598 parse("cpf_alim", 11);
599 parse("cpf_invent", 11);
600 parse("municipio", 40);
601 parse("contribuinte", 60);
602 parse("cpf_empregada", 11);
603 parse("hashcode", 12);
604 parse("data_nao_residente", 8);
605 parse("cpf_procurador", 11);
606 parse("obrigatoriedade", 3);
607 parse("rendtrib", 13);
608 parse("cnpj_prev", 14);
609 parse("cnpj_prev2", 14);
610 parse("vr_totisentos", 13);
611 parse("vr_totexclusivo", 13);
612 parse("vr_totpagamentos", 13);
616 parse("versaotestpgd", 3);
617 parse("controle", 10);
621 "missing CR at the %tith header character\n",
624 } else if (*p++ != '\n') {
626 "missing LF at the %tith header character\n",
629 } else if (*p != 0) {
631 "missing NUL at the %tith header character\n",
634 } else if (p - buffer != RNET_HEADER_SIZE_2013) {
635 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);
637 } else if (p - tail != RNET_HEADER_TAIL_2013) {
638 fprintf(stderr, "RNET_HEADER_TAIL_2013 in decfile.h needs to be adjusted to %ti\n", p - tail);
651 char *rnet_decfile_get_header_field(struct rnet_decfile *decfile, char *field)
653 return pmhash_get(decfile->header, field);
656 /* returns true if register is declaration and not a receipt */
657 static int decfile_reg_is_dec(char *line)
659 if (line[0] >= '0' && line[0] <= '9' &&
660 line[1] >= '0' && line[1] <= '9')
662 if (!strncmp(line, "IRPF ", 8))
664 if (!strncmp(line, "T9", 2))
669 /* strip a register from its control number and append it to message */
670 static int append_stripped_reg_ctrl(struct rnet_message **message, char *line)
673 struct rnet_message *msg = *message;
675 if (!decfile_reg_is_dec(line))
680 growth = msg->len + len - 10 - msg->alen;
682 if (rnet_message_expand(message, growth))
686 memcpy(&msg->buffer[msg->len], line, len - 12);
687 msg->buffer[msg->len + len - 12] = '\r';
688 msg->buffer[msg->len + len - 11] = '\n';
689 msg->len += len - 10;
693 static int decfile_parse_file(struct rnet_decfile *decfile)
697 for (i = 0; i < decfile->lines_len; i++) {
698 r = append_stripped_reg_ctrl(&decfile->message,
706 struct rnet_message * rnet_decfile_get_file(struct rnet_decfile *decfile)
708 return decfile->message;
711 char * rnet_decfile_get_file_hash(struct rnet_decfile *decfile)
715 if (gcry_md_test_algo(GCRY_MD_MD5))
717 len = gcry_md_get_algo_dlen(GCRY_MD_MD5);
721 gcry_md_hash_buffer(GCRY_MD_MD5, hash, decfile->message->buffer,
722 decfile->message->len);
726 char * rnet_decfile_get_header(struct rnet_decfile *decfile)
728 return get_header(decfile);