git.sur5r.net Git - c128-kasse/blob - src/credit_manager.c

   1 /*
   2  * RGB2R-C128-Kassenprogramm
   3  * © 2007-2009 phil_fry, sECuRE, sur5r
   4  * See LICENSE for license information
   5  *
   6  */
   7 #include <conio.h>
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11
  12 #include "config.h"
  13 #include "general.h"
  14 #include "kasse.h"
  15 #include "c128time.h"
  16 #include "print.h"
  17 #include "version.h"
  18 #include "vdc_patch_charset.h"
  19
  20 static char *filter = NULL;
  21 static BYTE filter_len;
  22
  23 static BYTE current_credits_page = 0;
  24
  25 static void credit_print_screen(void) {
  26   BYTE i, pages;
  27   char buffer[EUR_FORMAT_MINLEN + 1];
  28
  29   clrscr();
  30   cprintf("credit_manager (phil_fry, sECuRE, sur5r) v:" GV "\r\n\r\n");
  31   pages = (credits.num_items / CREDITS_PER_PAGE);
  32   if (current_credits_page > pages)
  33     current_credits_page = pages;
  34   cprintf("Datei: CREDITS (Seite %d von %d)\r\n\r\n", current_credits_page,
  35           pages);
  36   for (i = (current_credits_page * CREDITS_PER_PAGE);
  37        i < credits.num_items &&
  38        i < ((current_credits_page + 1) * CREDITS_PER_PAGE);
  39        i++) {
  40     if (filter == NULL ||
  41         strncasecmp(credits.credits[i].nickname, filter, filter_len) == 0) {
  42       if (format_euro(buffer, sizeof(buffer), credits.credits[i].credit) !=
  43           buffer) {
  44         cprintf("Error: Could not format credit %d\r\n",
  45                 credits.credits[i].credit);
  46         exit(1);
  47       }
  48
  49       cprintf("%d: %s: %s\r\n", i, credits.credits[i].nickname, buffer);
  50     }
  51   }
  52   cprintf("\r\nn) Neu d) L" oUML "schen p) Einzahlen b) Seite hoch "
  53           "f) Seite runter\r\ng) Filtern s) Speichern z) Zur" uUML "ck\r\n");
  54 }
  55
  56 static int8_t find_credit_idx(char *name) {
  57   int8_t i;
  58   for (i = 0; i < credits.num_items; ++i) {
  59     if (strncasecmp(name, credits.credits[i].nickname, NICKNAME_MAX_LEN + 1) ==
  60         0) {
  61       return i;
  62     }
  63   }
  64   return -1;
  65 }
  66
  67 struct credits_t *find_credit(char *name) {
  68   int i;
  69   if ((i = find_credit_idx(name)) >= 0) {
  70     return &credits.credits[i];
  71   }
  72   return NULL;
  73 }
  74
  75 void deposit_credit(char *nickname) {
  76   char *time = get_time();
  77   struct credits_t *credit;
  78   unsigned int deposit;
  79
  80   if ((credit = find_credit(nickname)) == NULL)
  81     return; // cannot find named credit
  82
  83   cprintf("\r\nEinzahlung in Cent:\r\n");
  84   if ((deposit = cget_number(0)) == 0)
  85     return;
  86
  87   credit->credit += deposit;
  88
  89   print_the_buffer();
  90   cprintf("\r\nEinzahlung durchgef" uUML "hrt, dr" uUML "cke RETURN...\r\n");
  91   cget_return();
  92 }
  93
  94 static void new_credit(void) {
  95   char name[NICKNAME_MAX_LEN + 1];
  96   char *time;
  97   int credit;
  98
  99   if (credits.num_items == MAX_CREDIT_ITEMS) {
 100     cprintf("\rEs ist bereits die maximale Anzahl an Eintr" aUML
 101             "gen erreicht, dr" uUML "cke RETURN...\r\n");
 102     cget_return();
 103     return;
 104   }
 105
 106   clrscr();
 107   cprintf("\rNickname (max. 10 Zeichen):\r\n");
 108   if (cgetn_input(name, sizeof(name)) == 0)
 109     return;
 110
 111   if (find_credit_idx(name) >= 0) {
 112     cprintf("\rNickname existiert bereits, dr" uUML "cke RETURN...\r\n");
 113     cget_return();
 114     return;
 115   }
 116
 117   cprintf("\r\nGuthaben in Cents:\r\n");
 118   if ((credit = cget_number(0)) == 0)
 119     return;
 120   strncpy(credits.credits[credits.num_items].nickname, name, NICKNAME_MAX_LEN);
 121   credits.credits[credits.num_items].credit = credit;
 122
 123   time = get_time();
 124   sprintf(print_buffer, "%c%s - Guthaben mit %d Cent f" uUML "r %s angelegt\r",
 125           17, time, credit, name);
 126   print_the_buffer();
 127
 128   credits.num_items++;
 129 }
 130
 131 static void delete_credit(char *nickname) {
 132   int8_t i;
 133   if ((i = find_credit_idx(nickname)) < 0) {
 134     cprintf("\r Nick existiert nicht\r\n");
 135     return;
 136   }
 137   --credits.num_items;
 138   if (i != credits.num_items) {
 139     credits.credits[i] = credits.credits[credits.num_items];
 140   }
 141   memset(credits.credits[credits.num_items].nickname, '\0',
 142          NICKNAME_MAX_LEN + 1);
 143   credits.credits[credits.num_items].credit = 0;
 144   return;
 145 }
 146
 147 void credit_manager() {
 148   char nickname[NICKNAME_MAX_LEN + 1];
 149   char *c;
 150   while (1) {
 151     credit_print_screen();
 152     c = get_input();
 153     switch (*c) {
 154     case 'n':
 155       new_credit();
 156       break;
 157     case 'd':
 158       cputs("\rName?\r\n");
 159       if (cget_nickname(nickname, sizeof(nickname))) {
 160         delete_credit(nickname);
 161       }
 162       break;
 163     case 's':
 164       save_credits();
 165       break;
 166     case 'f':
 167       if (current_credits_page < (credits.num_items / CREDITS_PER_PAGE))
 168         current_credits_page++;
 169       break;
 170     case 'b':
 171       if (current_credits_page > 0)
 172         current_credits_page--;
 173       break;
 174     case 'p':
 175       cputs("\rName?\r\n");
 176       if (cget_nickname(nickname, sizeof(nickname))) {
 177         deposit_credit(nickname);
 178       }
 179       break;
 180     case 'g':
 181       cprintf("Filter eingeben:\r\n");
 182       filter = get_input();
 183       if (filter == NULL || *filter == PETSCII_SP ||
 184           (filter_len = strlen(filter)) == 0)
 185         filter = NULL;
 186       break;
 187     case 'z':
 188       save_credits();
 189       return;
 190     default:
 191       cprintf("Unbekannter Befehl, dr" uUML "cke RETURN...\r\n");
 192       cget_return();
 193     }
 194   }
 195 }