2 * RGB2R-C128-Kassenprogramm
3 * (c) 2007-2008 phil_fry, sECuRE, sur5r
4 * See LICENSE for license information
17 #include "credit_manager.h"
22 /* NOTE: undocumented function which scratches files
23 We need to use this function because linking unistd.h
24 makes our program break at runtime.
26 unsigned char __fastcall__ _sysremove(const char *name);
28 static void sane_exit() {
34 /* Hauptbildschirm ausgeben */
35 static void print_screen() {
37 char *time = get_time();
40 if (format_euro(profit, 10, money) == NULL) {
41 cprintf("Einnahme %ld konnte nicht umgerechnet werden\r\n", money);
44 cprintf("C128-Kassenprogramm (phil_fry, sECuRE, sur5r)\r\
45 \r\nUhrzeit: %s (wird nicht aktualisiert)\r\
46 Eingenommen: %s, Verkauft: %ld Flaschen, Drucken: %s\r\n\r\n",
47 time, profit, items_sold, (printing == 1 ? "ein" : "aus"));
48 for (; i < status.num_items; ++i)
49 cprintf("Eintrag %x: %s (%d Cents, %d mal verkauft)\r\n",
50 i, status.status[i].item_name, status.status[i].price, status.status[i].times_sold);
51 cprintf("\r\nBefehle: s) Daten sichern d) Drucken umschalten\r\
52 g) Guthabenverwaltung z) Zeit setzen\r\
53 f) Freitext verkaufen q) Beenden\r\n");
56 static void log_file(const char *s) {
57 /* A log-entry has usually 50 bytes, so we take 64 bytes.
58 Because files are wrapped (log.0, log.1, ...) every 100
59 lines, we don't need more than 100 * 64 bytes. */
60 char *buffer = malloc(sizeof(char) * 64 * 100);
65 cprintf("No memory available\n");
68 if (((++log_lines_written) % 100) == 0)
70 sprintf(filename, "log-%d", log_num);
71 /* Don't read log if there were no lines written before */
72 if (log_lines_written != 1) {
73 if ((c = cbm_open((BYTE)8, (BYTE)8, (BYTE)0, filename)) != 0) {
74 c128_perror(c, "cbm_open(log)");
77 read = cbm_read((BYTE)8, buffer, sizeof(char) * 64 * 100);
81 if ((c = cbm_open((BYTE)8, (BYTE)8, (BYTE)1, filename)) != 0) {
82 c128_perror(c, "cbm_open(log)");
86 cprintf("Could not read existing logfile (read returned %d)\n", read);
89 strcpy(buffer+read, s);
90 c = cbm_write((BYTE)8, buffer, read+strlen(s));
91 if (c != (read+strlen(s))) {
92 cprintf("Could not save logfile (wrote %d bytes, wanted %d bytes), please make sure the floppy is not full!\n", c, (read+strlen(s)));
99 static char retry_or_quit() {
102 cprintf("\r\nr)etry or q)uit?\r\n");
104 } while ((*c != 'r') && (*c != 'q'));
108 /* Prints a line and logs it to file */
109 static void print_log(char *name, int item_price, int einheiten, char *nickname, char *rest) {
111 char *time = get_time();
114 Transaction-ID (Anzahl verkaufter Einträge, inklusive des zu druckenden!) -- 6-stellig
116 Eintragname (= Getränk) -- 9-stellig
117 Preis (in Cents) -- 7-stellig
119 Nickname (falls es vom Guthaben abgezogen wird) -- 10-stellig
120 restguthaben (9-stellig)
125 if (format_euro(price, 10, item_price) == NULL) {
126 cprintf("Preis %d konnte nicht umgerechnet werden\r\n", item_price);
130 sprintf(print_buffer, "%c[%lu] %s - %-9s - %s - r %s - %d - an %s\r", 17,
131 items_sold, time, name, price, rest,
132 einheiten, (*nickname != '\0' ? nickname : "Unbekannt"));
134 c = cbm_open((BYTE)4, (BYTE)4, (BYTE)0, NULL);
136 c128_perror(c, "cbm_open(printer)");
137 if (retry_or_quit() == 'q')
142 c = cbm_write((BYTE)4, print_buffer, strlen(print_buffer));
143 if (c != strlen(print_buffer)) {
144 c128_perror(c, "write(printer)");
145 if (retry_or_quit() == 'q') {
153 log_file(print_buffer);
156 /* dialog which is called for each bought item */
157 BYTE buy(char *name, unsigned int price) {
159 char entered[5] = {'1', 0, 0, 0, 0};
160 BYTE i = 0, matches = 0;
161 BYTE c, nickname_len;
166 struct credits_t *credit;
168 memset(rest, ' ', sizeof(rest));
171 cprintf("Wieviel Einheiten \"%s\"? [1] \r\n", name);
177 cprintf("Kauf abgebrochen, druecke RETURN...\r\n");
180 } else if (c == '-' && i == 0)
182 else if (c > 47 && c < 58)
185 einheiten = atoi(entered) * negative;
188 cprintf("%dx %s fuer ", einheiten, name);
191 cprintf("\r\nAuf ein Guthaben kaufen? Wenn ja, Nickname eingeben:\r\n");
193 strncpy(nickname, input, 11);
194 if (*nickname != '\0') {
196 cprintf("%s\r\n", nickname);
200 if (nickname != NULL && *nickname != '\0' && *nickname != 32) {
201 nickname_len = strlen(nickname);
202 /* go through credits and remove the amount of money or set nickname
203 * to NULL if no such credit could be found */
204 credit = find_credit(nickname);
205 if (credit != NULL) {
206 if ((signed int)credit->credit < ((signed int)price * einheiten)) {
207 cprintf("Sorry, %s hat nicht genug Geld :-(\r\n", nickname);
211 /* substract money */
212 credit->credit -= (price * einheiten);
214 if (format_euro(rest, 10, credit->credit) == NULL) {
215 cprintf("Preis %d konnte nicht umgerechnet werden\r\n", credit->credit);
219 cprintf("\r\nVerbleibendes Guthaben fuer %s: %s. Druecke RETURN...\r\n",
222 cprintf("\r\nDein verbleibendes Guthaben betraegt %s.\r\n", rest);
227 cprintf("\r\nNickname nicht gefunden in der Guthabenverwaltung! Abbruch, druecke RETURN...\r\n");
232 /* Ensure that nickname is NULL if it's empty because it's used in print_log */
236 money += price * einheiten;
237 items_sold += einheiten;
239 print_log(name, price, einheiten, nickname, rest);
244 void buy_stock(BYTE n) {
245 if (n >= status.num_items || status.status[n].item_name == NULL) {
246 cprintf("FEHLER: Diese Einheit existiert nicht.\r\n");
251 status.status[n].times_sold += buy(status.status[n].item_name, status.status[n].price);
257 char entered[5] = {'1', 0, 0, 0, 0};
258 char *input, name[20];
261 memset(name, '\0', 20);
262 cprintf("\r\nWas soll gekauft werden?\r\n");
264 strncpy(name, input, 20);
268 cprintf("\r\nWie teuer ist \"%s\" (in cents)?\r\n", name);
274 cprintf("Kauf abgebrochen, druecke RETURN...\r\n");
277 } else if (c == '-' && i == 0)
279 else if (c > 47 && c < 58)
282 price = atoi(entered) * negative;
289 void set_time_interactive() {
290 BYTE part[3] = {'0', '0', '\0'};
292 char *time_input, *time;
293 cprintf("Gib die aktuelle Uhrzeit ein (Format HHMMSS):\r\n");
294 time_input = get_input();
295 part[0] = time_input[0];
296 part[1] = time_input[1];
298 part[0] = time_input[2];
299 part[1] = time_input[3];
301 part[0] = time_input[4];
302 part[1] = time_input[5];
304 set_time(tp1, tp2, tp3);
307 cprintf("\r\nZeit gesetzt: %s\r\n", time);
315 /* Set time initially, c128 doesn't know it */
316 set_time_interactive();
320 /* Load configuration */
322 cprintf("got %d logfiles\r\n", log_num);
324 /* Load items (= drinks) */
331 /* ...display dialogs eventually */
332 if (*c > 47 && *c < 58) {
333 buy_stock((*c) - 48);
337 } else if (*c == 'f') {
342 } else if (*c == 's') {
345 cprintf("Statefile/Creditfile gesichert, druecke RETURN...\r\n");
347 } else if (*c == 'd') {
348 /* enable/disable printing */
349 printing = (printing == 1 ? 0 : 1);
350 cprintf("Drucken ist nun %s, druecke RETURN...\r\n",
351 (printing == 1 ? "eingeschaltet" : "ausgeschaltet"));
353 } else if (*c == 'g') {
355 } else if (*c == 'z') {
356 set_time_interactive();
357 } else if (*c == 'q')
360 cprintf("BYEBYE\r\n");