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[10];
  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         strncmp(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 e) " AUML "ndern s) Speichern "
  54           "z) Zur" uUML "ck\r\n");
  55 }
  56
  57 struct credits_t *find_credit(char *name) {
  58   int i;
  59   for (i = 0; i < credits.num_items; i++)
  60     if (strncmp(name, credits.credits[i].nickname, NICKNAME_MAX_LEN + 1) == 0)
  61       return &credits.credits[i];
  62   return NULL;
  63 }
  64
  65 /*
  66  * Deposits credit for a user. Called in the credit manager (with input ==
  67  * NULL) or interactively when the user does not have enough money for his
  68  * intended purchase (with input == nickname).
  69  *
  70  */
  71 void deposit_credit(char *input) {
  72   char *time = get_time();
  73   struct credits_t *credit;
  74   unsigned int deposit;
  75
  76   if (input == NULL) {
  77     cprintf("\r\nName:\r\n");
  78     if ((input = get_input()) == NULL || *input == '\0')
  79       return; // no name given
  80   }
  81
  82   if ((credit = find_credit(input)) == NULL)
  83     return; // cannot find named credit
  84
  85   cprintf("\r\nEinzahlung in Cent:\r\n");
  86   if ((input = get_input()) == NULL || *input == '\0' ||
  87       (deposit = atoi(input)) == 0)
  88     return;
  89
  90   credit->credit += deposit;
  91
  92   print_the_buffer();
  93   cprintf("\r\nEinzahlung durchgef" uUML "hrt, dr" uUML "cke RETURN...\r\n");
  94   cget_return();
  95 }
  96
  97 static void new_credit(void) {
  98   char *input, *name;
  99   char *time;
 100   int credit;
 101
 102   if (credits.num_items == MAX_CREDIT_ITEMS) {
 103     cprintf("\rEs ist bereits die maximale Anzahl an Eintr" aUML
 104             "gen erreicht, dr" uUML "cke RETURN...\r\n");
 105     cget_return();
 106     return;
 107   }
 108
 109   clrscr();
 110   cprintf("\rNickname (max. 10 Zeichen):\r\n");
 111   if ((input = get_input()) == NULL || *input == '\0')
 112     return;
 113   name = strdup(input);
 114   cprintf("\r\nGuthaben in Cents:\r\n");
 115   if ((input = get_input()) == NULL || *input == '\0' ||
 116       (credit = atoi(input)) == 0)
 117     return;
 118   strncpy(credits.credits[credits.num_items].nickname, name, NICKNAME_MAX_LEN);
 119   credits.credits[credits.num_items].credit = credit;
 120
 121   time = get_time();
 122   sprintf(print_buffer, "%c%s - Guthaben mit %d Cent f" uUML "r %s angelegt\r",
 123           17, time, credit, name);
 124   print_the_buffer();
 125
 126   credits.num_items++;
 127   free(name);
 128 }
 129
 130 static void _delete_credit(BYTE num) {
 131   memset(credits.credits[num].nickname, '\0', NICKNAME_MAX_LEN + 1);
 132   credits.credits[num].credit = 0;
 133 }
 134
 135 static void delete_credit(void) {
 136   char *input;
 137   BYTE num, last;
 138
 139   cprintf("\r Welcher Eintrag soll gel" oUML "scht werden?\r\n");
 140   if ((input = get_input()) == NULL || *input == '\0')
 141     return;
 142   num = atoi(input);
 143   if (credits.num_items > 1) {
 144     /* Swap last item with this one and delete the last one to avoid holes */
 145     last = (credits.num_items - 1);
 146     strcpy(credits.credits[num].nickname, credits.credits[last].nickname);
 147     credits.credits[num].credit = credits.credits[last].credit;
 148     _delete_credit(last);
 149   } else {
 150     /* Just delete it */
 151     _delete_credit(num);
 152   }
 153   credits.num_items--;
 154 }
 155
 156 void credit_manager() {
 157   char *c;
 158   while (1) {
 159     credit_print_screen();
 160     c = get_input();
 161     switch (*c) {
 162     case 'n':
 163       new_credit();
 164       break;
 165     case 'd':
 166       delete_credit();
 167       break;
 168     case 's':
 169       save_credits();
 170       break;
 171     case 'f':
 172       if (current_credits_page < (credits.num_items / CREDITS_PER_PAGE))
 173         current_credits_page++;
 174       break;
 175     case 'b':
 176       if (current_credits_page > 0)
 177         current_credits_page--;
 178       break;
 179     case 'p':
 180       deposit_credit(NULL);
 181       break;
 182     case 'g':
 183       cprintf("Filter eingeben:\r\n");
 184       filter = get_input();
 185       if (filter == NULL || *filter == PETSCII_SP ||
 186           (filter_len = strlen(filter)) == 0)
 187         filter = NULL;
 188       break;
 189     case 'z':
 190       save_credits();
 191       return;
 192     default:
 193       cprintf("Unbekannter Befehl, dr" uUML "cke RETURN...\r\n");
 194       cget_return();
 195     }
 196   }
 197 }