?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
as3525v2: show the correct freqs in debug menu, CGU_PERI uses fclk as source
[kugel-rb.git] / apps / plugins / euroconverter.c
blobf85ee798c4015e0887e446753937a5fe7333cd05
1 /***************************************************************************
2 * __________ __ ___.
3 * Open \______ \ ____ ____ | | _\_ |__ _______ ___
4 * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
5 * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
6 * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
7 * \/ \/ \/ \/ \/
8 * $Id$
9 *
10 * Copyright (C) 2003 Pierre Delore
11 *
12 * This program is free software; you can redistribute it and/or
13 * modify it under the terms of the GNU General Public License
14 * as published by the Free Software Foundation; either version 2
15 * of the License, or (at your option) any later version.
16 *
17 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
18 * KIND, either express or implied.
19 *
20 ****************************************************************************/
21 #include "plugin.h"
22 #include "lib/configfile.h"
23
24 #ifdef HAVE_LCD_CHARCELLS
25
26 /* Euro converter for the player */
27 /*
28 Use:
29 + : Digit +1
30 - : Digit -1
31 PLAY : Next digit
32 STOP : Prev digit
33 ON : RESET
34 ON+PLAY : Swap Euro<>Home
35 MENU : Display the Menu
36 Currency -> Allows to choose the currency
37 Exit-> Exit the plugin
38
39 Notes:
40 I don't use float.
41 I use signed long long (64 bits).
42 A value have 5 digits after the . (123.45 = 12345000)
43
44 To do:
45 - The Irish currency needs 6 digits after the . to have sufficient precision on big number
46 */
47
48 PLUGIN_HEADER
49
50 /* Name and path of the config file*/
51 static const char cfg_filename[] = "euroconverter.cfg";
52 #define CFGFILE_VERSION 0 /* Current config file version */
53 #define CFGFILE_MINVERSION 0 /* Minimum config file version to accept */
54
55 /* typedef for simplifying usage of long long type */
56 typedef long long int longlong_t;
57
58 /*Pattern for the converter*/
59 static unsigned char pattern_euro[]={0x07, 0x08, 0x1E, 0x10, 0x1E, 0x08, 0x07}; /* € */
60 static unsigned char pattern_home[]={0x04, 0x0A, 0x11, 0x1F, 0x11, 0x11, 0x1F}; /* Home icon*/
61
62 /* 1 euro = ... (remenber 5 digits after the .)*/
63 static int currency[12]={
64 655957, /*FRF France*/
65 195583, /*DEM Germany*/
66 1376030, /*ATS Austria*/
67 4033990, /*BEF Belgium*/
68 16638600, /*ESP Spain*/
69 594573, /*FIM Finland*/
70 78756, /*IEP Ireland*/
71 193627000, /*ITL Italy*/
72 4033990, /*LUF Luxemburg*/
73 220371, /*NLG Netherlands*/
74 20048200, /*PTE Portugal*/
75 34075100, /*GRD Greece*/
76 };
77
78 /* Number of digit of the currency (for the display) */
79 static int nb_digit[12]={
80 2, /*FRF France*/
81 2, /*DEM Germany*/
82 2, /*ATS Austria*/
83 2, /*BEF Belgium*/
84 0, /*ESP Spain*/
85 2, /*FIM Finland*/
86 2, /*IEP Ireland*/
87 0, /*ITL Italy*/
88 2, /*LUF Luxemburg*/
89 2, /*NLG Netherlands*/
90 0, /*PTE Portugal*/
91 0 /*GRD Greece*/
92 };
93
94 /* max euro to have home currency */
95 static longlong_t max_euro[12]={
96 99999999000LL, /*FRF France 999 999.99 */
97 99999999000LL, /*DEM Germany 999 999.99 */
98 99999999000LL, /*ATS Austria 999 999.99 */
99 99999999000LL, /*BEF Belgium 999 999.99 */
100 99999999000LL, /*ESP Spain 99 999 999 */
101 99999999000LL, /*FIM Finland 999 999.99 */
102 99999999000LL, /*IEP Ireland 999 999.99 */
103 51645690000LL, /*ITL Italy 999 999 999 */
104 99999999000LL, /*LUF Luxemburg 999 999.99 */
105 99999999000LL, /*NLG Netherlands 999 999.99 */
106 99999999000LL, /*PTE Portugal 99 999 999 */
107 29347028000LL /*GRD Greece 99 999 999 */
108 };
109
110 /* max home to have euro currency */
111 /* 92233720300000 Limitation due to the max capacity of long long (2^63)*/
112 static longlong_t max_curr[12]={
113 99999999000LL, /*FRF France 152449.02 */
114 99999999000LL, /*DEM Germany 511291.88 */
115 99999999000LL, /*ATS Austria 72672.83 */
116 99999999000LL, /*BEF Belgium 24789.35 */
117 92233720300000LL,/*ESP Spain 5543358.23 */
118 99999999000LL, /*FIM Finland 168187.92 */
119 9999999900LL, /*IEP Ireland 1269744.51 exact value=1269738.07 */
120 92233720300000LL,/*ITL Italy 476347.41 */
121 99999999000LL, /*LUF Luxemburg 24789.35 */
122 99999999000LL, /*NLG Netherlands 453780.21 */
123 92233720300000LL,/*PTE Portugal 4600598.57 */
124 92233720300000LL /*GRD Greece 2706777.69 */
125 };
126
127 static unsigned char *abbrev_str[12] = {
128 "...FRF...", /*France*/
129 "...DEM...", /*Germany*/
130 "...ATS...", /*Austria*/
131 "...BEF...", /*Belgium*/
132 "...ESP...", /*Spain*/
133 "...FIM...", /*Finland*/
134 "...IEP...", /*Ireland*/
135 "...ITL...", /*Italy*/
136 "...LUF...", /*Luxemburg*/
137 "...NLG...", /*Netherlands*/
138 "...PTE...", /*Portugal*/
139 "...GRD..." /*Greece*/
140 };
141
142
143 static unsigned long heuro,hhome; /*Handles for the new patterns*/
144
145 static char *currency_str[12] = {
146 "France",
147 "Germany",
148 "Austria",
149 "Belgium",
150 "Spain",
151 "Finland",
152 "Ireland",
153 "Italy",
154 "Luxemburg",
155 "Netherlands",
156 "Portugal",
157 "Greece"
158 };
159
160
161 static int country; /*Country selected*/
162 static int cur_pos; /*Cursor position*/
163 static longlong_t inc;
164
165 /* Persistent settings */
166 static struct configdata config[] = {
167 { TYPE_ENUM, 0, 12, { .int_p = &country }, "country", currency_str }
168 };
169
170
171 /* 64bits*64 bits with 5 digits after the . */
172 static longlong_t mymul(longlong_t a, longlong_t b)
173 {
174 return((a*b)/100000LL);
175 }
176
177
178 /* 64bits/64 bits with 5 digits after the . */
179 static longlong_t mydiv(longlong_t a, longlong_t b)
180 {
181 return((a*100000LL)/b);
182 }
183
184
185 /* 123.45=12345000 split => i=123 f=45000*/
186 static void split(longlong_t v, longlong_t* i, longlong_t* f)
187 {
188 longlong_t t;
189
190 t=v/100000LL;
191 (*i)=t;
192 (*f)=(v-(t*100000LL));
193 }
194
195
196 /* result=10^n */
197 static longlong_t pow10(int n)
198 {
199 int i;
200 longlong_t r;
201
202 r=1;
203 for (i=0;i<n;i++)
204 r=r*10LL;
205 return(r);
206 }
207
208
209 /* round the i.f at n digit after the . */
210 static void round(longlong_t* i, longlong_t* f, int n)
211 {
212
213 longlong_t m;
214 int add=0;
215
216 m=(int)pow10(5-n-1);
217 if (((*f)/m)%10>=5)
218 add=1;
219 if (n>0)
220 {
221 (*f)=((*f)/(int)pow10(5-n))+add;
222 if ((*f)==100LL)
223 {
224 (*i)+=1;
225 (*f)=0;
226 }
227 }
228 else
229 {
230 (*i)+=add;
231 (*f)=0;
232 }
233 }
234
235
236 /* Display the imput and the result
237 pos: false : first line
238 : true : second line
239 */
240 static void display(longlong_t euro, longlong_t home, bool pos)
241 {
242 longlong_t i,f;
243 unsigned char str[20];
244 unsigned char s1[20];
245 unsigned char s2[20];
246
247 if (pos)
248 { /*Edit the second line*/
249 rb->strcpy(s1," %6d.%02d");
250 if (nb_digit[country]==2)
251 rb->strcpy(s2,"\xee\x84\x90%06d.%02d");
252 else
253 rb->strcpy(s2,"\xee\x84\x90%09d");
254 }
255 else
256 {
257 rb->strcpy(s1,"\xee\x84\x90%06d.%02d");
258 if (nb_digit[country]==2)
259 rb->strcpy(s2," %6d.%02d");
260 else
261 rb->strcpy(s2," %9d");
262 }
263
264 rb->lcd_remove_cursor();
265 /*First line*/
266 rb->lcd_putc(0,0,heuro);
267 split(euro,&i,&f);
268 if (pos)
269 round(&i,&f,2);
270 rb->snprintf(str,sizeof(str),s1,(int)i,(int)f);
271
272 if (!pos)
273 {
274 rb->lcd_puts(1,0,str);
275 rb->lcd_put_cursor(10-cur_pos,0,0x5F);
276 }
277 else
278 rb->lcd_puts_scroll(1,0,str);
279
280 /*Second line*/
281 rb->lcd_putc(0,1,hhome);
282 split(home,&i,&f);
283 if (!pos)
284 round(&i,&f,nb_digit[country]);
285 rb->snprintf(str,sizeof(str),s2,(int)i,(int)f);
286 if (pos)
287 {
288 rb->lcd_puts(1,1,str);
289 rb->lcd_put_cursor(10-cur_pos,1,0x5F);
290 }
291 else
292 rb->lcd_puts_scroll(1,1,str);
293
294 rb->lcd_update();
295 }
296
297
298 /* Show country Abbreviation */
299 static void show_abbrev(void)
300 {
301 rb->splash(HZ*3/4,abbrev_str[country]);
302 }
303
304
305 /* Save the config to disk */
306 static void save_config(void)
307 {
308 configfile_save(cfg_filename, config, 1, CFGFILE_VERSION);
309 }
310
311
312 /* Load the config from disk */
313 static void load_config(void)
314 {
315 configfile_load(cfg_filename, config, 1, CFGFILE_MINVERSION);
316 }
317
318
319 /*Currency choice*/
320 static void currency_menu(void)
321 {
322 int c=country;
323
324 rb->lcd_clear_display();
325 while (true)
326 {
327 rb->lcd_puts(0,0,"Currency:");
328 rb->lcd_puts(0,1,currency_str[c]);
329 rb->lcd_update();
330 switch (rb->button_get(true))
331 {
332 case BUTTON_RIGHT|BUTTON_REL:
333 c++;
334 if (c>11)
335 c=0;
336 break;
337 case BUTTON_LEFT|BUTTON_REL:
338 c--;
339 if (c<0)
340 c=11;
341 break;
342 case BUTTON_PLAY|BUTTON_REL:
343 country=c;
344 save_config();
345 return;
346 break;
347 case BUTTON_STOP|BUTTON_REL:
348 return;
349 }
350 }
351 }
352
353
354 /* Display the choice menu. */
355 static int euro_menu(void)
356 {
357 int c=0;
358
359
360 while (true)
361 {
362 rb->lcd_clear_display();
363 rb->lcd_puts(0,0," Currency");
364 rb->lcd_puts(0,1," Exit");
365 rb->lcd_putc(0,c,0xe110);
366 rb->lcd_update();
367
368 switch (rb->button_get(true))
369 {
370 case BUTTON_RIGHT|BUTTON_REL:
371 c=1;
372 break;
373 case BUTTON_LEFT|BUTTON_REL:
374 c=0;
375 break;
376 case BUTTON_PLAY|BUTTON_REL:
377 if (c==0)
378 currency_menu();
379 else
380 return 1;
381 break;
382 case BUTTON_STOP|BUTTON_REL:
383 return 0;
384 }
385 }
386 }
387
388
389 /* Call when the program end */
390 static void euro_exit(void *parameter)
391 {
392 (void)parameter;
393
394 //Restore the old pattern (i don't find another way to do this. An idea?)
395 rb->lcd_unlock_pattern(heuro);
396 rb->lcd_unlock_pattern(hhome);
397
398 //Clear the screen
399 rb->lcd_clear_display();
400 rb->lcd_update();
401 }
402
403
404 /* this is the plugin entry point */
405 enum plugin_status plugin_start(const void* parameter)
406 {
407 bool end, pos;
408 longlong_t e,h,old_e,old_h;
409 int button;
410
411 /* if you don't use the parameter, you can do like
412 this to avoid the compiler warning about it */
413 (void)parameter;
414
415 /*Get the pattern handle*/
416 heuro=rb->lcd_get_locked_pattern();
417 hhome=rb->lcd_get_locked_pattern();
418 rb->lcd_define_pattern(heuro, pattern_euro);
419 rb->lcd_define_pattern(hhome, pattern_home);
420
421 h=0;
422 e=0;
423 end=false;
424 pos=false;
425 country=0;
426 cur_pos=3;
427 inc=100000;
428
429 load_config();
430
431 /*Empty the event queue*/
432 rb->button_clear_queue();
433
434 display(e,h,false);
435 show_abbrev();
436 display(e,h,false);
437
438 /*Main loop*/
439 while(end!=true)
440 {
441 button = rb->button_get(true);
442 switch (button)
443 {
444 case BUTTON_MENU|BUTTON_REL:
445 switch (euro_menu())
446 {
447 case 1:
448 end=true;
449 break;
450 }
451 if (!pos)
452 {
453 if (e>max_euro[country])
454 e=0;
455 cur_pos=3;
456 }
457 else
458 {
459 if (h>max_curr[country])
460 h=0;
461 if (nb_digit[country]==2)
462 cur_pos=3;
463 else
464 cur_pos=0;
465 }
466
467 display(e,h,pos);
468 break;
469
470 case BUTTON_ON | BUTTON_PLAY:
471 pos=!pos;
472
473 case BUTTON_ON | BUTTON_REL:
474 e=0;
475 h=0;
476 if (!pos)
477 {
478 cur_pos=3;
479 inc=100000;
480 }
481 else
482 {
483 inc=100000;
484 if (nb_digit[country]==2)
485 cur_pos=3;
486 else
487 cur_pos=0;
488 }
489 show_abbrev();
490 break;
491
492 case BUTTON_STOP|BUTTON_REL:
493 cur_pos--;
494 if (!pos)
495 {
496 if (cur_pos<0)
497 cur_pos=0;
498 if (cur_pos==2)
499 cur_pos=1;
500 if (cur_pos>2)
501 inc=pow10(3+cur_pos-1);
502 else
503 inc=pow10(3+cur_pos);
504 }
505 else
506 {
507 if (cur_pos<0)
508 cur_pos=0;
509 if (nb_digit[country]==2)
510 {
511 if (cur_pos==2)
512 cur_pos=1;
513 if (cur_pos>2)
514 inc=pow10(3+cur_pos-1);
515 else
516 inc=pow10(3+cur_pos);
517 }
518 else
519 inc=pow10(5+cur_pos);
520
521 }
522 break;
523
524 case BUTTON_PLAY|BUTTON_REL:
525 cur_pos++;
526 if (!pos)
527 {
528 if (cur_pos>8)
529 cur_pos=8;
530 if (cur_pos==2)
531 cur_pos=3;
532 if (cur_pos>2)
533 inc=pow10(3+cur_pos-1);
534 else
535 inc=pow10(3+cur_pos);
536 }
537 else
538 {
539 if (cur_pos>8)
540 cur_pos=8;
541 if (nb_digit[country]==2)
542 {
543 if (cur_pos==2)
544 cur_pos=3;
545 if (cur_pos>2)
546 inc=pow10(3+cur_pos-1);
547 else
548 inc=pow10(3+cur_pos);
549 }
550 else
551 inc=pow10(5+cur_pos);
552 }
553 break;
554
555 case BUTTON_LEFT|BUTTON_REL:
556 case BUTTON_LEFT|BUTTON_REPEAT:
557 if (!pos)
558 {
559 e-=inc;
560 if (e<0)
561 e=0;
562 }
563 else
564 {
565 h-=inc;
566 if (h<0)
567 h=0;
568 }
569 break;
570
571 case BUTTON_RIGHT|BUTTON_REL:
572 case BUTTON_RIGHT|BUTTON_REPEAT:
573 old_e=e;
574 old_h=h;
575 if (!pos)
576 {
577 e+=inc;
578 if (e>max_euro[country])
579 e=old_e;
580 }
581 else
582 {
583 h+=inc;
584 if (h>max_curr[country])
585 h=old_h;
586 }
587 break;
588
589 default:
590 if (rb->default_event_handler_ex(button, euro_exit, NULL)
591 == SYS_USB_CONNECTED)
592 return PLUGIN_USB_CONNECTED;
593 break;
594 }
595 /*Display*/
596 if (!pos) /*Euro>home*/
597 h=mymul(e,currency[country]);
598 else /*Home>euro*/
599 e=mydiv(h,currency[country]);
600 display(e,h,pos);
601 }
602 euro_exit(NULL);
603 return PLUGIN_OK;
604 }
605
606 #endif
My public Rockbox git repo