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