2 * Copyright (C) 2012-2013 Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 3 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License along
15 * with this program; if not, write to the Free Software Foundation, Inc.,
16 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
28 #include "rnet_message.h"
31 #define MAX(a,b) (a >= b) ? a : b
39 struct pmhash *header;
40 struct rnet_message *message;
44 * line should be an allocated buffer given to append_line
45 * this means, free(line) will be called when decfile is released
47 static int append_line(struct rnet_decfile *decfile, char *line)
51 decfile->lines_len += 1;
52 len = sizeof(*decfile->lines) * decfile->lines_len;
53 old_lines = decfile->lines;
54 decfile->lines = realloc(decfile->lines, len);
55 if (!decfile->lines) {
56 decfile->lines = old_lines;
59 decfile->lines[decfile->lines_len - 1] = line;
62 decfile->lines_len -= 1;
66 static void decfile_release_lines(struct rnet_decfile *decfile)
69 for (i = 0; i < decfile->lines_len; i++)
70 free(decfile->lines[i]);
72 decfile->lines = NULL;
75 static char * get_header(struct rnet_decfile *decfile);
76 static int parse_header_2013(struct pmhash *hash, char *buffer);
77 static int parse_header_2014(struct pmhash *hash, char *buffer);
78 static int decfile_parse_file(struct rnet_decfile *decfile);
80 static int decfile_parse_header(struct rnet_decfile *decfile)
82 char *buffer = get_header(decfile);
85 switch (strlen(buffer)) {
86 case RNET_HEADER_SIZE_2013:
87 return parse_header_2013(decfile->header, buffer);
88 case RNET_HEADER_SIZE_2014:
89 return parse_header_2014(decfile->header, buffer);
95 static int decfile_parse(struct rnet_decfile *decfile)
100 while ((r = getline(&buffer, &len, decfile->file)) > 0) {
101 r = append_line(decfile, buffer);
109 if (!(r = decfile_parse_header(decfile)) && !(r = decfile_parse_file(decfile)))
112 decfile_release_lines(decfile);
116 struct rnet_decfile * rnet_decfile_open(char *filename)
118 struct rnet_decfile *decfile;
120 decfile = malloc(sizeof(*decfile));
123 decfile->header = pmhash_new();
124 if (!decfile->header)
126 decfile->message = rnet_message_new();
127 if (!decfile->message)
129 decfile->filename = strdup(filename);
130 if (!decfile->filename)
132 decfile->file = fopen(filename, "r");
135 decfile->lines_len = 0;
136 decfile->lines = NULL;
137 if ((r = decfile_parse(decfile)))
141 fclose(decfile->file);
143 free(decfile->filename);
145 rnet_message_del(decfile->message);
147 pmhash_del(decfile->header);
154 void rnet_decfile_close(struct rnet_decfile *decfile)
156 decfile_release_lines(decfile);
157 fclose(decfile->file);
158 free(decfile->filename);
162 static char * get_header(struct rnet_decfile *decfile)
165 for (i = 0; i < decfile->lines_len; i++) {
166 if (!strncmp(decfile->lines[i], "IRPF", 4)) {
167 return decfile->lines[i];
173 static int parse_header_2014(struct pmhash *hash, char *buffer)
181 #define parse(field, sz) \
183 val = malloc(sz + 1); \
187 memcpy(val, p, sz); \
189 key = strdup(field); \
192 if (pmhash_add(&hash, key, val)) \
197 if (strcmp(val, "2014")) {
202 parse("codigo_recnet", 4);
207 parse("nr_versao", 3);
212 if (p - buffer != RNET_HEADER_HEAD_2014) {
213 fprintf(stderr, "RNET_HEADER_HEAD_2014 in decfile.h needs to be adjusted to %li\n", p - buffer);
221 parse("in_gerada", 1);
222 parse("nr_recibo_anterior", 10);
225 parse("versao_so", 7);
227 parse("nr_recibo", 10);
228 parse("municipio", 4);
229 parse("conjuge", 11);
231 parse("impdevido", 13);
232 parse("nr_recibo", 10);
242 parse("data_julgado", 8);
243 parse("imppagar", 13);
244 parse("tribfonte", 1);
246 parse("trib_rra", 1);
247 parse("cpf_rra2", 11);
248 parse("trib_3rra", 1);
249 parse("cpf_rra3", 11);
250 parse("trib_4rra", 1);
251 parse("cpf_rra4", 11);
252 parse("vr_doacao", 13);
257 parse("cpf_dep1", 11);
258 parse("dnas_dep1", 8);
259 parse("cpf_dep2", 11);
260 parse("dnas_dep2", 8);
261 parse("cpf_dep3", 11);
262 parse("dnas_dep3", 8);
263 parse("cpf_dep4", 11);
264 parse("dnas_dep4", 8);
265 parse("cpf_dep5", 11);
266 parse("dnas_dep5", 8);
267 parse("cpf_dep6", 11);
268 parse("dnas_dep6", 8);
269 parse("cnpj_med1", 14);
270 parse("cnpj_med2", 14);
271 parse("cpf_alim", 11);
272 parse("cpf_invent", 11);
273 parse("municipio", 40);
274 parse("contribuinte", 60);
275 parse("cpf_empregada", 11);
276 parse("hashcode", 12);
277 parse("data_nao_residente", 8);
278 parse("cpf_procurador", 11);
279 parse("obrigatoriedade", 3);
280 parse("rendtrib", 13);
281 parse("cnpj_prev", 14);
282 parse("cnpj_prev2", 14);
283 parse("vr_totisentos", 13);
284 parse("vr_totexclusivo", 13);
285 parse("vr_totpagamentos", 13);
286 parse("nr_conta", 13);
287 parse("nr_dv_conta", 2);
288 parse("in_dv_conta", 1);
292 parse("versaotestpgd", 3);
293 parse("controle", 10);
297 "missing CR at the %lith header character\n",
300 } else if (*p++ != '\n') {
302 "missing LF at the %lith header character\n",
305 } else if (*p != 0) {
307 "missing NUL at the %lith header character\n",
310 } else if (p - buffer != RNET_HEADER_SIZE_2014) {
311 fprintf(stderr, "RNET_HEADER_SIZE_2014 in decfile.h needs to be adjusted to %li,\nor parse_header in decfile.c needs updating\n", p - buffer);
313 } else if (p - tail != RNET_HEADER_TAIL_2014) {
314 fprintf(stderr, "RNET_HEADER_TAIL_2014 in decfile.h needs to be adjusted to %li\n", p - tail);
327 static int parse_header_2013(struct pmhash *hash, char *buffer)
335 #define parse(field, sz) \
337 val = malloc(sz + 1); \
341 memcpy(val, p, sz); \
343 key = strdup(field); \
346 if (pmhash_add(&hash, key, val)) \
351 if (strcmp(val, "2013")) {
356 parse("codigo_recnet", 4);
361 parse("nr_versao", 3);
366 if (p - buffer != RNET_HEADER_HEAD_2013) {
367 fprintf(stderr, "RNET_HEADER_HEAD_2013 in decfile.h needs to be adjusted to %li\n", p - buffer);
375 parse("in_gerada", 1);
376 parse("nr_recibo_anterior", 10);
379 parse("versao_so", 7);
381 parse("nr_recibo", 10);
382 parse("municipio", 4);
383 parse("conjuge", 11);
385 parse("impdevido", 13);
386 parse("nr_recibo", 10);
396 parse("data_julgado", 8);
397 parse("imppagar", 13);
398 parse("tribfonte", 1);
400 parse("trib_rra", 1);
401 parse("cpf_rra2", 11);
402 parse("trib_3rra", 1);
403 parse("cpf_rra3", 11);
404 parse("vr_doacao", 13);
409 parse("cpf_dep1", 11);
410 parse("dnas_dep1", 8);
411 parse("cpf_dep2", 11);
412 parse("dnas_dep2", 8);
413 parse("cpf_dep3", 11);
414 parse("dnas_dep3", 8);
415 parse("cpf_dep4", 11);
416 parse("dnas_dep4", 8);
417 parse("cpf_dep5", 11);
418 parse("dnas_dep5", 8);
419 parse("cpf_dep6", 11);
420 parse("dnas_dep6", 8);
421 parse("cnpj_med1", 14);
422 parse("cnpj_med2", 14);
423 parse("cpf_alim", 11);
424 parse("cpf_invent", 11);
425 parse("municipio", 40);
426 parse("contribuinte", 60);
427 parse("cpf_empregada", 11);
428 parse("hashcode", 12);
429 parse("data_nao_residente", 8);
430 parse("cpf_procurador", 11);
431 parse("obrigatoriedade", 3);
432 parse("rendtrib", 13);
433 parse("cnpj_prev", 14);
434 parse("cnpj_prev2", 14);
435 parse("vr_totisentos", 13);
436 parse("vr_totexclusivo", 13);
437 parse("vr_totpagamentos", 13);
441 parse("versaotestpgd", 3);
442 parse("controle", 10);
446 "missing CR at the %lith header character\n",
449 } else if (*p++ != '\n') {
451 "missing LF at the %lith header character\n",
454 } else if (*p != 0) {
456 "missing NUL at the %lith header character\n",
459 } else if (p - buffer != RNET_HEADER_SIZE_2013) {
460 fprintf(stderr, "RNET_HEADER_SIZE_2013 in decfile.h needs to be adjusted to %li,\nor parse_header in decfile.c needs updating\n", p - buffer);
462 } else if (p - tail != RNET_HEADER_TAIL_2013) {
463 fprintf(stderr, "RNET_HEADER_TAIL_2013 in decfile.h needs to be adjusted to %li\n", p - tail);
476 char *rnet_decfile_get_header_field(struct rnet_decfile *decfile, char *field)
478 return pmhash_get(decfile->header, field);
481 /* returns true if register is declaration and not a receipt */
482 static int decfile_reg_is_dec(char *line)
484 if (line[0] >= '0' && line[0] <= '9' &&
485 line[1] >= '0' && line[1] <= '9')
487 if (!strncmp(line, "IRPF ", 8))
489 if (!strncmp(line, "T9", 2))
494 /* strip a register from its control number and append it to message */
495 static int append_stripped_reg_ctrl(struct rnet_message **message, char *line)
498 struct rnet_message *msg = *message;
500 if (!decfile_reg_is_dec(line))
505 growth = msg->len + len - 10 - msg->alen;
507 if (rnet_message_expand(message, growth))
511 memcpy(&msg->buffer[msg->len], line, len - 12);
512 msg->buffer[msg->len + len - 12] = '\r';
513 msg->buffer[msg->len + len - 11] = '\n';
514 msg->len += len - 10;
518 static int decfile_parse_file(struct rnet_decfile *decfile)
522 for (i = 0; i < decfile->lines_len; i++) {
523 r = append_stripped_reg_ctrl(&decfile->message,
531 struct rnet_message * rnet_decfile_get_file(struct rnet_decfile *decfile)
533 return decfile->message;
536 char * rnet_decfile_get_file_hash(struct rnet_decfile *decfile)
540 if (gcry_md_test_algo(GCRY_MD_MD5))
542 len = gcry_md_get_algo_dlen(GCRY_MD_MD5);
546 gcry_md_hash_buffer(GCRY_MD_MD5, hash, decfile->message->buffer,
547 decfile->message->len);
551 char * rnet_decfile_get_header(struct rnet_decfile *decfile)
553 return get_header(decfile);