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) {
111 char *time = get_time();
114 Transaction-ID (Anzahl verkaufter Einträge, inklusive des zu druckenden!)
116 Eintragname (= Getränk)
119 Nickname (falls es vom Guthaben abgezogen wird)
121 if (format_euro(price, 10, item_price) == NULL) {
122 cprintf("Preis %d konnte nicht umgerechnet werden\r\n", item_price);
126 sprintf(print_buffer, "%c[%lu] %s - %s - %s - %d - an %s\r", 17,
127 items_sold, time, name, price,
128 einheiten, (*nickname != '\0' ? nickname : "Unbekannt"));
130 c = cbm_open((BYTE)4, (BYTE)4, (BYTE)0, NULL);
132 c128_perror(c, "cbm_open(printer)");
133 if (retry_or_quit() == 'q')
138 c = cbm_write((BYTE)4, print_buffer, strlen(print_buffer));
139 if (c != strlen(print_buffer)) {
140 c128_perror(c, "write(printer)");
141 if (retry_or_quit() == 'q') {
149 log_file(print_buffer);
152 /* dialog which is called for each bought item */
153 BYTE buy(char *name, unsigned int price) {
155 char entered[5] = {'1', 0, 0, 0, 0};
156 BYTE i = 0, matches = 0;
157 BYTE c, nickname_len;
161 struct credits_t *credit;
163 cprintf("Wieviel Einheiten \"%s\"? [1] \r\n", name);
169 cprintf("Kauf abgebrochen, druecke RETURN...\r\n");
172 } else if (c == '-' && i == 0)
174 else if (c > 47 && c < 58)
177 einheiten = atoi(entered) * negative;
180 cprintf("%dx %s fuer ", einheiten, name);
183 cprintf("\r\nAuf ein Guthaben kaufen? Wenn ja, Nickname eingeben:\r\n");
185 strncpy(nickname, input, 11);
186 if (*nickname != '\0') {
188 cprintf("%s\r\n", nickname);
192 if (nickname != NULL && *nickname != '\0' && *nickname != 32) {
193 nickname_len = strlen(nickname);
194 /* go through credits and remove the amount of money or set nickname
195 * to NULL if no such credit could be found */
196 credit = find_credit(nickname);
197 if (credit != NULL) {
198 if ((signed int)credit->credit < ((signed int)price * einheiten)) {
199 cprintf("Sorry, %s hat nicht genug Geld :-(\r\n", nickname);
203 /* substract money */
204 credit->credit -= (price * einheiten);
205 cprintf("\r\nVerbleibendes Guthaben fuer %s: %d Cents. Druecke RETURN...\r\n",
206 nickname, credit->credit);
208 cprintf("\r\nDein verbleibendes Guthaben betraegt %d Cents.\r\n", credit->credit);
213 cprintf("\r\nNickname nicht gefunden in der Guthabenverwaltung! Abbruch, druecke RETURN...\r\n");
218 /* Ensure that nickname is NULL if it's empty because it's used in print_log */
222 money += price * einheiten;
223 items_sold += einheiten;
225 print_log(name, price, einheiten, nickname);
230 void buy_stock(BYTE n) {
231 if (n >= status.num_items || status.status[n].item_name == NULL) {
232 cprintf("FEHLER: Diese Einheit existiert nicht.\r\n");
237 status.status[n].times_sold += buy(status.status[n].item_name, status.status[n].price);
243 char entered[5] = {'1', 0, 0, 0, 0};
244 char *input, name[20];
247 memset(name, '\0', 20);
248 cprintf("\r\nWas soll gekauft werden?\r\n");
250 strncpy(name, input, 20);
254 cprintf("\r\nWie teuer ist \"%s\" (in cents)?\r\n", name);
260 cprintf("Kauf abgebrochen, druecke RETURN...\r\n");
263 } else if (c == '-' && i == 0)
265 else if (c > 47 && c < 58)
268 price = atoi(entered) * negative;
275 void set_time_interactive() {
276 BYTE part[3] = {'0', '0', '\0'};
278 char *time_input, *time;
279 cprintf("Gib die aktuelle Uhrzeit ein (Format HHMMSS):\r\n");
280 time_input = get_input();
281 part[0] = time_input[0];
282 part[1] = time_input[1];
284 part[0] = time_input[2];
285 part[1] = time_input[3];
287 part[0] = time_input[4];
288 part[1] = time_input[5];
290 set_time(tp1, tp2, tp3);
293 cprintf("\r\nZeit gesetzt: %s\r\n", time);
301 /* Set time initially, c128 doesn't know it */
302 set_time_interactive();
306 /* Load configuration */
308 cprintf("got %d logfiles\r\n", log_num);
310 /* Load items (= drinks) */
317 /* ...display dialogs eventually */
318 if (*c > 47 && *c < 58) {
319 buy_stock((*c) - 48);
323 } else if (*c == 'f') {
328 } else if (*c == 's') {
331 cprintf("Statefile/Creditfile gesichert, druecke RETURN...\r\n");
333 } else if (*c == 'd') {
334 /* enable/disable printing */
335 printing = (printing == 1 ? 0 : 1);
336 cprintf("Drucken ist nun %s, druecke RETURN...\r\n",
337 (printing == 1 ? "eingeschaltet" : "ausgeschaltet"));
339 } else if (*c == 'g') {
341 } else if (*c == 'z') {
342 set_time_interactive();
343 } else if (*c == 'q')
346 cprintf("BYEBYE\r\n");