lib/carne.c

   1 /*
   2  *  Copyright (C) 2015-2017  Thadeu Lima de Souza Cascardo <cascardo@cascardo.eti.br>
   3  *
   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.
   8  *
   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.
  13  *
  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.
  17  */
  18
  19 #include "carne.h"
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22 #include <string.h>
  23 #include <errno.h>
  24 #include <stdio.h>
  25 #include "cmd.h"
  26 #include "list.h"
  27 #include "util.h"
  28 #include "totais.h"
  29
  30 void carne_free(void *pointer)
  31 {
  32         struct carne *carne = pointer;
  33         free(carne);
  34 }
  35
  36 static struct carne * carne_new(char **args, int argc)
  37 {
  38         struct carne *carne;
  39         int r = 0;
  40         carne = malloc(sizeof(*carne));
  41         r += set_int(args[1], &carne->mes);
  42         r += set_llong(args[2], &carne->rendimento);
  43         r += set_llong(args[3], &carne->alugueis);
  44         r += set_llong(args[4], &carne->outros);
  45         r += set_llong(args[5], &carne->exterior);
  46         r += set_llong(args[6], &carne->caixa);
  47         r += set_llong(args[7], &carne->alimentos);
  48         r += set_llong(args[8], &carne->dependentes);
  49         r += set_llong(args[9], &carne->previdencia);
  50         r += set_llong(args[10], &carne->base);
  51         r += set_llong(args[11], &carne->imposto);
  52         if (argc == 13) {
  53                 r += set_int(args[12], &carne->dependente);
  54         } else {
  55                 carne->dependente = 0;
  56         }
  57         if (r < 0 || carne->mes < 0 || carne->dependente < 0 ||
  58             carne->rendimento < 0 || carne->alugueis < 0 ||
  59             carne->outros < 0 || carne->exterior < 0 || carne->caixa < 0 ||
  60             carne->alimentos < 0 || carne->dependentes < 0 ||
  61             carne->previdencia < 0 || carne->base < 0 || carne->imposto < 0) {
  62                 carne_free(carne);
  63                 return NULL;
  64         }
  65         return carne;
  66 }
  67
  68 static int run_carne(struct declaracao *dec, char **args, int argc)
  69 {
  70         struct carne *carne;
  71         int r = 0;
  72         if (argc < 12 || argc > 13)
  73                 return -EINVAL;
  74         carne = carne_new(args, argc);
  75         if (!carne)
  76                 return -ENOMEM;
  77         if (carne->dependente > list_size(dec->dependentes)) {
  78                 carne_free(carne);
  79                 return -EINVAL;
  80         }
  81         r += totais_add(dec, "RENDTRIB", carne->rendimento);
  82         r += totais_add(dec, "RENDTRIB", carne->exterior);
  83         r += totais_add(dec, "RENDEXT", carne->exterior);
  84         r += totais_add(dec, "RENDPF", carne->rendimento);
  85         r += totais_add(dec, "PAGO", carne->imposto);
  86         r += totais_add(dec, "CARNE", carne->imposto);
  87         r += totais_add(dec, "INSS", carne->previdencia);
  88         if (carne->dependente) {
  89                 r += totais_add(dec, "RENDPFDEP", carne->rendimento);
  90                 r += totais_add(dec, "RENDEXTDEP", carne->exterior);
  91                 r += totais_add(dec, "CARNEDEP", carne->imposto);
  92         } else {
  93                 r += totais_add(dec, "RENDPFTIT", carne->rendimento);
  94                 r += totais_add(dec, "RENDEXTTIT", carne->exterior);
  95                 r += totais_add(dec, "CARNETIT", carne->imposto);
  96         }
  97         if (r) {
  98                 carne_free(carne);
  99                 return r;
 100         }
 101         r = list_add(&dec->carne, carne);
 102         if (r < 0) {
 103                 carne_free(carne);
 104                 return r;
 105         }
 106         return 0;
 107 }
 108
 109 void carne_salva(struct declaracao *dec, FILE *f)
 110 {
 111         int i;
 112         struct carne *j;
 113         for (i = 0; j = list_get(dec->carne, i); i++)
 114                 fprintf(f, "carne %d %lld %lld %lld %lld %lld %lld %lld %lld %lld %lld %d\n",
 115                         j->mes, j->rendimento, j->alugueis, j->outros,
 116                         j->exterior, j->caixa, j->alimentos, j->dependentes,
 117                         j->previdencia, j->base, j->imposto,
 118                         j->dependente);
 119 }
 120
 121 static struct cmd cmd_carne = {
 122         .name = "carne",
 123         .run = run_carne,
 124 };
 125
 126 int carne_cmd_init(void)
 127 {
 128         cmd_add(&cmd_carne);
 129         return 0;
 130 }