apps/misc.c

   1 /***************************************************************************
   2  *             __________               __   ___.
   3  *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4  *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5  *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6  *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7  *                     \/            \/     \/    \/            \/
   8  * $Id$
   9  *
  10  * Copyright (C) 2002 by Daniel Stenberg
  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 <stdlib.h>
  22 #include <ctype.h>
  23 #include "config.h"
  24 #include "misc.h"
  25 #include "lcd.h"
  26 #include "file.h"
  27 #ifdef __PCTOOL__
  28 #include <stdint.h>
  29 #include <stdarg.h>
  30 #include <stdio.h>
  31 #ifdef WPSEDITOR
  32 #include "string.h"
  33 #endif
  34 #else
  35 #include "sprintf.h"
  36 #include "lang.h"
  37 #include "string.h"
  38 #include "dir.h"
  39 #include "lcd-remote.h"
  40 #include "errno.h"
  41 #include "system.h"
  42 #include "timefuncs.h"
  43 #include "screens.h"
  44 #include "talk.h"
  45 #include "mpeg.h"
  46 #include "audio.h"
  47 #include "mp3_playback.h"
  48 #include "settings.h"
  49 #include "storage.h"
  50 #include "ata_idle_notify.h"
  51 #include "kernel.h"
  52 #include "power.h"
  53 #include "powermgmt.h"
  54 #include "backlight.h"
  55 #include "version.h"
  56 #include "font.h"
  57 #include "splash.h"
  58 #include "tagcache.h"
  59 #include "scrobbler.h"
  60 #include "sound.h"
  61 #include "playlist.h"
  62 #include "yesno.h"
  63
  64 #if (CONFIG_STORAGE & STORAGE_MMC)
  65 #include "ata_mmc.h"
  66 #endif
  67 #include "tree.h"
  68 #include "eeprom_settings.h"
  69 #if defined(HAVE_RECORDING) && !defined(__PCTOOL__)
  70 #include "recording.h"
  71 #endif
  72 #if defined(HAVE_LCD_BITMAP) && !defined(__PCTOOL__)
  73 #include "bmp.h"
  74 #include "icons.h"
  75 #endif /* End HAVE_LCD_BITMAP */
  76 #include "gui/gwps-common.h"
  77 #include "bookmark.h"
  78
  79 #include "playback.h"
  80
  81 #ifdef BOOTFILE
  82 #if !defined(USB_NONE) && !defined(USB_IPODSTYLE)
  83 #include "rolo.h"
  84 #include "yesno.h"
  85 #endif
  86 #endif
  87
  88 /* Format a large-range value for output, using the appropriate unit so that
  89  * the displayed value is in the range 1 <= display < 1000 (1024 for "binary"
  90  * units) if possible, and 3 significant digits are shown. If a buffer is
  91  * given, the result is snprintf()'d into that buffer, otherwise the result is
  92  * voiced.*/
  93 char *output_dyn_value(char *buf, int buf_size, int value,
  94                        const unsigned char **units, bool bin_scale)
  95 {
  96     int scale = bin_scale ? 1024 : 1000;
  97     int fraction = 0;
  98     int unit_no = 0;
  99     char tbuf[5];
 100
 101     while (value >= scale)
 102     {
 103         fraction = value % scale;
 104         value /= scale;
 105         unit_no++;
 106     }
 107     if (bin_scale)
 108         fraction = fraction * 1000 / 1024;
 109
 110     if (value >= 100 || !unit_no)
 111         tbuf[0] = '\0';
 112     else if (value >= 10)
 113         snprintf(tbuf, sizeof(tbuf), "%01d", fraction / 100);
 114     else
 115         snprintf(tbuf, sizeof(tbuf), "%02d", fraction / 10);
 116
 117     if (buf)
 118     {
 119         if (strlen(tbuf))
 120             snprintf(buf, buf_size, "%d%s%s%s", value, str(LANG_POINT),
 121                      tbuf, P2STR(units[unit_no]));
 122         else
 123             snprintf(buf, buf_size, "%d%s", value, P2STR(units[unit_no]));
 124     }
 125     else
 126     {
 127         talk_fractional(tbuf, value, P2ID(units[unit_no]));
 128     }
 129     return buf;
 130 }
 131
 132 /* Create a filename with a number part in a way that the number is 1
 133  * higher than the highest numbered file matching the same pattern.
 134  * It is allowed that buffer and path point to the same memory location,
 135  * saving a strcpy(). Path must always be given without trailing slash.
 136  * "num" can point to an int specifying the number to use or NULL or a value
 137  * less than zero to number automatically. The final number used will also
 138  * be returned in *num. If *num is >= 0 then *num will be incremented by
 139  * one. */
 140 char *create_numbered_filename(char *buffer, const char *path,
 141                                const char *prefix, const char *suffix,
 142                                int numberlen IF_CNFN_NUM_(, int *num))
 143 {
 144     DIR *dir;
 145     struct dirent *entry;
 146     int max_num;
 147     int pathlen;
 148     int prefixlen = strlen(prefix);
 149     char fmtstring[12];
 150
 151     if (buffer != path)
 152         strncpy(buffer, path, MAX_PATH);
 153
 154     pathlen = strlen(buffer);
 155
 156 #ifdef IF_CNFN_NUM
 157     if (num && *num >= 0)
 158     {
 159         /* number specified */
 160         max_num = *num;
 161     }
 162     else
 163 #endif
 164     {
 165         /* automatic numbering */
 166         max_num = 0;
 167
 168     dir = opendir(pathlen ? buffer : "/");
 169     if (!dir)
 170         return NULL;
 171
 172     while ((entry = readdir(dir)))
 173     {
 174         int curr_num;
 175
 176         if (strncasecmp((char *)entry->d_name, prefix, prefixlen)
 177             || strcasecmp((char *)entry->d_name + prefixlen + numberlen, suffix))
 178             continue;
 179
 180         curr_num = atoi((char *)entry->d_name + prefixlen);
 181         if (curr_num > max_num)
 182             max_num = curr_num;
 183     }
 184
 185     closedir(dir);
 186     }
 187
 188     max_num++;
 189
 190     snprintf(fmtstring, sizeof(fmtstring), "/%%s%%0%dd%%s", numberlen);
 191     snprintf(buffer + pathlen, MAX_PATH - pathlen, fmtstring, prefix,
 192              max_num, suffix);
 193
 194 #ifdef IF_CNFN_NUM
 195     if (num)
 196         *num = max_num;
 197 #endif
 198
 199     return buffer;
 200 }
 201
 202
 203 #if CONFIG_RTC
 204 /* Create a filename with a date+time part.
 205    It is allowed that buffer and path point to the same memory location,
 206    saving a strcpy(). Path must always be given without trailing slash.
 207    unique_time as true makes the function wait until the current time has
 208    changed. */
 209 char *create_datetime_filename(char *buffer, const char *path,
 210                                const char *prefix, const char *suffix,
 211                                bool unique_time)
 212 {
 213     struct tm *tm = get_time();
 214     static struct tm last_tm;
 215     int pathlen;
 216
 217     while (unique_time && !memcmp(get_time(), &last_tm, sizeof (struct tm)))
 218         sleep(HZ/10);
 219
 220     last_tm = *tm;
 221
 222     if (buffer != path)
 223         strncpy(buffer, path, MAX_PATH);
 224
 225     pathlen = strlen(buffer);
 226     snprintf(buffer + pathlen, MAX_PATH - pathlen,
 227              "/%s%02d%02d%02d-%02d%02d%02d%s", prefix,
 228              tm->tm_year % 100, tm->tm_mon + 1, tm->tm_mday,
 229              tm->tm_hour, tm->tm_min, tm->tm_sec, suffix);
 230
 231     return buffer;
 232 }
 233 #endif /* CONFIG_RTC */
 234
 235 /* Ask the user if they really want to erase the current dynamic playlist
 236  * returns true if the playlist should be replaced */
 237 bool warn_on_pl_erase(void)
 238 {
 239     if (global_settings.warnon_erase_dynplaylist &&
 240         !global_settings.party_mode &&
 241         playlist_modified(NULL))
 242     {
 243         static const char *lines[] =
 244             {ID2P(LANG_WARN_ERASEDYNPLAYLIST_PROMPT)};
 245         static const struct text_message message={lines, 1};
 246
 247         return (gui_syncyesno_run(&message, NULL, NULL) == YESNO_YES);
 248     }
 249     else
 250         return true;
 251 }
 252
 253 /* Read (up to) a line of text from fd into buffer and return number of bytes
 254  * read (which may be larger than the number of bytes stored in buffer). If
 255  * an error occurs, -1 is returned (and buffer contains whatever could be
 256  * read). A line is terminated by a LF char. Neither LF nor CR chars are
 257  * stored in buffer.
 258  */
 259 int read_line(int fd, char* buffer, int buffer_size)
 260 {
 261     int count = 0;
 262     int num_read = 0;
 263
 264     errno = 0;
 265
 266     while (count < buffer_size)
 267     {
 268         unsigned char c;
 269
 270         if (1 != read(fd, &c, 1))
 271             break;
 272
 273         num_read++;
 274
 275         if ( c == '\n' )
 276             break;
 277
 278         if ( c == '\r' )
 279             continue;
 280
 281         buffer[count++] = c;
 282     }
 283
 284     buffer[MIN(count, buffer_size - 1)] = 0;
 285
 286     return errno ? -1 : num_read;
 287 }
 288
 289 /* Performance optimized version of the previous function. */
 290 int fast_readline(int fd, char *buf, int buf_size, void *parameters,
 291                   int (*callback)(int n, const char *buf, void *parameters))
 292 {
 293     char *p, *next;
 294     int rc, pos = 0;
 295     int count = 0;
 296
 297     while ( 1 )
 298     {
 299         next = NULL;
 300
 301         rc = read(fd, &buf[pos], buf_size - pos - 1);
 302         if (rc >= 0)
 303             buf[pos+rc] = '\0';
 304
 305         if ( (p = strchr(buf, '\r')) != NULL)
 306         {
 307             *p = '\0';
 308             next = ++p;
 309         }
 310         else
 311             p = buf;
 312
 313         if ( (p = strchr(p, '\n')) != NULL)
 314         {
 315             *p = '\0';
 316             next = ++p;
 317         }
 318
 319         rc = callback(count, buf, parameters);
 320         if (rc < 0)
 321             return rc;
 322
 323         count++;
 324         if (next)
 325         {
 326             pos = buf_size - ((long)next - (long)buf) - 1;
 327             memmove(buf, next, pos);
 328         }
 329         else
 330             break ;
 331     }
 332
 333     return 0;
 334 }
 335
 336 #ifdef HAVE_LCD_BITMAP
 337
 338 #if LCD_DEPTH == 16
 339 #define BMP_COMPRESSION 3 /* BI_BITFIELDS */
 340 #define BMP_NUMCOLORS 3
 341 #else
 342 #define BMP_COMPRESSION 0 /* BI_RGB */
 343 #if LCD_DEPTH <= 8
 344 #define BMP_NUMCOLORS (1 << LCD_DEPTH)
 345 #else
 346 #define BMP_NUMCOLORS 0
 347 #endif
 348 #endif
 349
 350 #if LCD_DEPTH == 1
 351 #define BMP_BPP 1
 352 #define BMP_LINESIZE ((LCD_WIDTH/8 + 3) & ~3)
 353 #elif LCD_DEPTH <= 4
 354 #define BMP_BPP 4
 355 #define BMP_LINESIZE ((LCD_WIDTH/2 + 3) & ~3)
 356 #elif LCD_DEPTH <= 8
 357 #define BMP_BPP 8
 358 #define BMP_LINESIZE ((LCD_WIDTH + 3) & ~3)
 359 #elif LCD_DEPTH <= 16
 360 #define BMP_BPP 16
 361 #define BMP_LINESIZE ((LCD_WIDTH*2 + 3) & ~3)
 362 #else
 363 #define BMP_BPP 24
 364 #define BMP_LINESIZE ((LCD_WIDTH*3 + 3) & ~3)
 365 #endif
 366
 367 #define BMP_HEADERSIZE (54 + 4 * BMP_NUMCOLORS)
 368 #define BMP_DATASIZE   (BMP_LINESIZE * LCD_HEIGHT)
 369 #define BMP_TOTALSIZE  (BMP_HEADERSIZE + BMP_DATASIZE)
 370
 371 #define LE16_CONST(x) (x)&0xff, ((x)>>8)&0xff
 372 #define LE32_CONST(x) (x)&0xff, ((x)>>8)&0xff, ((x)>>16)&0xff, ((x)>>24)&0xff
 373
 374 static const unsigned char bmpheader[] =
 375 {
 376     0x42, 0x4d,                 /* 'BM' */
 377     LE32_CONST(BMP_TOTALSIZE),  /* Total file size */
 378     0x00, 0x00, 0x00, 0x00,     /* Reserved */
 379     LE32_CONST(BMP_HEADERSIZE), /* Offset to start of pixel data */
 380
 381     0x28, 0x00, 0x00, 0x00,     /* Size of (2nd) header */
 382     LE32_CONST(LCD_WIDTH),      /* Width in pixels */
 383     LE32_CONST(LCD_HEIGHT),     /* Height in pixels */
 384     0x01, 0x00,                 /* Number of planes (always 1) */
 385     LE16_CONST(BMP_BPP),        /* Bits per pixel 1/4/8/16/24 */
 386     LE32_CONST(BMP_COMPRESSION),/* Compression mode */
 387     LE32_CONST(BMP_DATASIZE),   /* Size of bitmap data */
 388     0xc4, 0x0e, 0x00, 0x00,     /* Horizontal resolution (pixels/meter) */
 389     0xc4, 0x0e, 0x00, 0x00,     /* Vertical resolution (pixels/meter) */
 390     LE32_CONST(BMP_NUMCOLORS),  /* Number of used colours */
 391     LE32_CONST(BMP_NUMCOLORS),  /* Number of important colours */
 392
 393 #if LCD_DEPTH == 1
 394 #ifdef MROBE_100
 395     2, 2, 94,  0x00,            /* Colour #0 */
 396     3, 6, 241, 0x00             /* Colour #1 */
 397 #else
 398     0x90, 0xee, 0x90, 0x00,     /* Colour #0 */
 399     0x00, 0x00, 0x00, 0x00      /* Colour #1 */
 400 #endif
 401 #elif LCD_DEPTH == 2
 402     0xe6, 0xd8, 0xad, 0x00,     /* Colour #0 */
 403     0x99, 0x90, 0x73, 0x00,     /* Colour #1 */
 404     0x4c, 0x48, 0x39, 0x00,     /* Colour #2 */
 405     0x00, 0x00, 0x00, 0x00      /* Colour #3 */
 406 #elif LCD_DEPTH == 16
 407     0x00, 0xf8, 0x00, 0x00,     /* red bitfield mask */
 408     0xe0, 0x07, 0x00, 0x00,     /* green bitfield mask */
 409     0x1f, 0x00, 0x00, 0x00      /* blue bitfield mask */
 410 #endif
 411 };
 412
 413 static void (*screen_dump_hook)(int fh) = NULL;
 414
 415 void screen_dump(void)
 416 {
 417     int fh;
 418     char filename[MAX_PATH];
 419     int bx, by;
 420 #if LCD_DEPTH == 1
 421     static unsigned char line_block[8][BMP_LINESIZE];
 422 #elif LCD_DEPTH == 2
 423 #if LCD_PIXELFORMAT == HORIZONTAL_PACKING
 424     static unsigned char line_block[BMP_LINESIZE];
 425 #elif LCD_PIXELFORMAT == VERTICAL_PACKING
 426     static unsigned char line_block[4][BMP_LINESIZE];
 427 #elif LCD_PIXELFORMAT == VERTICAL_INTERLEAVED
 428     static unsigned char line_block[8][BMP_LINESIZE];
 429 #endif
 430 #elif LCD_DEPTH == 16
 431     static unsigned short line_block[BMP_LINESIZE/2];
 432 #endif
 433
 434 #if CONFIG_RTC
 435     create_datetime_filename(filename, "", "dump ", ".bmp", false);
 436 #else
 437     create_numbered_filename(filename, "", "dump_", ".bmp", 4
 438                              IF_CNFN_NUM_(, NULL));
 439 #endif
 440
 441     fh = creat(filename);
 442     if (fh < 0)
 443         return;
 444
 445     if (screen_dump_hook)
 446     {
 447         screen_dump_hook(fh);
 448     }
 449     else
 450     {
 451         write(fh, bmpheader, sizeof(bmpheader));
 452
 453         /* BMP image goes bottom up */
 454 #if LCD_DEPTH == 1
 455         for (by = LCD_FBHEIGHT - 1; by >= 0; by--)
 456         {
 457             unsigned char *src = &lcd_framebuffer[by][0];
 458             unsigned char *dst = &line_block[0][0];
 459
 460             memset(line_block, 0, sizeof(line_block));
 461             for (bx = LCD_WIDTH/8; bx > 0; bx--)
 462             {
 463                 unsigned dst_mask = 0x80;
 464                 int ix;
 465
 466                 for (ix = 8; ix > 0; ix--)
 467                 {
 468                     unsigned char *dst_blk = dst;
 469                     unsigned src_byte = *src++;
 470                     int iy;
 471
 472                     for (iy = 8; iy > 0; iy--)
 473                     {
 474                         if (src_byte & 0x80)
 475                             *dst_blk |= dst_mask;
 476                         src_byte <<= 1;
 477                         dst_blk += BMP_LINESIZE;
 478                     }
 479                     dst_mask >>= 1;
 480                 }
 481                 dst++;
 482             }
 483
 484             write(fh, line_block, sizeof(line_block));
 485         }
 486 #elif LCD_DEPTH == 2
 487 #if LCD_PIXELFORMAT == HORIZONTAL_PACKING
 488         for (by = LCD_FBHEIGHT - 1; by >= 0; by--)
 489         {
 490             unsigned char *src = &lcd_framebuffer[by][0];
 491             unsigned char *dst = line_block;
 492
 493             memset(line_block, 0, sizeof(line_block));
 494             for (bx = LCD_FBWIDTH; bx > 0; bx--)
 495             {
 496                 unsigned src_byte = *src++;
 497
 498                 *dst++ = ((src_byte >> 2) & 0x30) | ((src_byte >> 4) & 0x03);
 499                 *dst++ = ((src_byte << 2) & 0x30) | (src_byte & 0x03);
 500             }
 501
 502             write(fh, line_block, sizeof(line_block));
 503         }
 504 #elif LCD_PIXELFORMAT == VERTICAL_PACKING
 505         for (by = LCD_FBHEIGHT - 1; by >= 0; by--)
 506         {
 507             unsigned char *src = &lcd_framebuffer[by][0];
 508             unsigned char *dst = &line_block[3][0];
 509
 510             memset(line_block, 0, sizeof(line_block));
 511             for (bx = LCD_WIDTH/2; bx > 0; bx--)
 512             {
 513                 unsigned char *dst_blk = dst++;
 514                 unsigned src_byte0 = *src++ << 4;
 515                 unsigned src_byte1 = *src++;
 516                 int iy;
 517
 518                 for (iy = 4; iy > 0; iy--)
 519                 {
 520                     *dst_blk = (src_byte0 & 0x30) | (src_byte1 & 0x03);
 521                     src_byte0 >>= 2;
 522                     src_byte1 >>= 2;
 523                     dst_blk -= BMP_LINESIZE;
 524                 }
 525             }
 526
 527             write(fh, line_block, sizeof(line_block));
 528         }
 529 #elif LCD_PIXELFORMAT == VERTICAL_INTERLEAVED
 530         for (by = LCD_FBHEIGHT - 1; by >= 0; by--)
 531         {
 532             const fb_data *src = &lcd_framebuffer[by][0];
 533             unsigned char *dst = &line_block[7][0];
 534
 535             memset(line_block, 0, sizeof(line_block));
 536             for (bx = LCD_WIDTH/2; bx > 0; bx--)
 537             {
 538                 unsigned char *dst_blk = dst++;
 539                 unsigned src_data0 = *src++ << 4;
 540                 unsigned src_data1 = *src++;
 541                 int iy;
 542
 543                 for (iy = 8; iy > 0; iy--)
 544                 {
 545                     *dst_blk = (src_data0 & 0x10) | (src_data1 & 0x01)
 546                              | ((src_data0 & 0x1000) | (src_data1 & 0x0100)) >> 7;
 547                     src_data0 >>= 1;
 548                     src_data1 >>= 1;
 549                     dst_blk -= BMP_LINESIZE;
 550                 }
 551             }
 552
 553             write(fh, line_block, sizeof(line_block));
 554         }
 555 #endif
 556 #elif LCD_DEPTH == 16
 557         for (by = LCD_HEIGHT - 1; by >= 0; by--)
 558         {
 559             unsigned short *src = &lcd_framebuffer[by][0];
 560             unsigned short *dst = line_block;
 561
 562             memset(line_block, 0, sizeof(line_block));
 563             for (bx = LCD_WIDTH; bx > 0; bx--)
 564             {
 565 #if (LCD_PIXELFORMAT == RGB565SWAPPED)
 566                 /* iPod LCD data is big endian although the CPU is not */
 567                 *dst++ = htobe16(*src++);
 568 #else
 569                 *dst++ = htole16(*src++);
 570 #endif
 571             }
 572
 573             write(fh, line_block, sizeof(line_block));
 574         }
 575 #endif /* LCD_DEPTH */
 576     }
 577
 578     close(fh);
 579 }
 580
 581 void screen_dump_set_hook(void (*hook)(int fh))
 582 {
 583     screen_dump_hook = hook;
 584 }
 585
 586 #endif /* HAVE_LCD_BITMAP */
 587
 588 /* parse a line from a configuration file. the line format is:
 589
 590    name: value
 591
 592    Any whitespace before setting name or value (after ':') is ignored.
 593    A # as first non-whitespace character discards the whole line.
 594    Function sets pointers to null-terminated setting name and value.
 595    Returns false if no valid config entry was found.
 596 */
 597
 598 bool settings_parseline(char* line, char** name, char** value)
 599 {
 600     char* ptr;
 601
 602     while ( isspace(*line) )
 603         line++;
 604
 605     if ( *line == '#' )
 606         return false;
 607
 608     ptr = strchr(line, ':');
 609     if ( !ptr )
 610         return false;
 611
 612     *name = line;
 613     *ptr = 0;
 614     ptr++;
 615     while (isspace(*ptr))
 616         ptr++;
 617     *value = ptr;
 618     return true;
 619 }
 620
 621 static void system_flush(void)
 622 {
 623     scrobbler_shutdown();
 624     playlist_shutdown();
 625     tree_flush();
 626     call_storage_idle_notifys(true); /*doesnt work on usb and shutdown from ata thread */
 627 }
 628
 629 static void system_restore(void)
 630 {
 631     tree_restore();
 632     scrobbler_init();
 633 }
 634
 635 static bool clean_shutdown(void (*callback)(void *), void *parameter)
 636 {
 637 #ifdef SIMULATOR
 638     (void)callback;
 639     (void)parameter;
 640     bookmark_autobookmark();
 641     call_storage_idle_notifys(true);
 642     exit(0);
 643 #else
 644     long msg_id = -1;
 645     int i;
 646
 647     scrobbler_poweroff();
 648
 649 #if CONFIG_CHARGING && !defined(HAVE_POWEROFF_WHILE_CHARGING)
 650     if(!charger_inserted())
 651 #endif
 652     {
 653         bool batt_safe = battery_level_safe();
 654         int audio_stat = audio_status();
 655
 656         FOR_NB_SCREENS(i)
 657             screens[i].clear_display();
 658
 659         if (batt_safe)
 660         {
 661 #ifdef HAVE_TAGCACHE
 662             if (!tagcache_prepare_shutdown())
 663             {
 664                 cancel_shutdown();
 665                 splash(HZ, ID2P(LANG_TAGCACHE_BUSY));
 666                 return false;
 667             }
 668 #endif
 669             if (battery_level() > 10)
 670                 splash(0, str(LANG_SHUTTINGDOWN));
 671             else
 672             {
 673                 msg_id = LANG_WARNING_BATTERY_LOW;
 674                 splashf(0, "%s %s", str(LANG_WARNING_BATTERY_LOW),
 675                                     str(LANG_SHUTTINGDOWN));
 676             }
 677         }
 678         else
 679         {
 680             msg_id = LANG_WARNING_BATTERY_EMPTY;
 681             splashf(0, "%s %s", str(LANG_WARNING_BATTERY_EMPTY),
 682                                 str(LANG_SHUTTINGDOWN));
 683         }
 684
 685         if (global_settings.fade_on_stop
 686             && (audio_stat & AUDIO_STATUS_PLAY))
 687         {
 688             fade(false, false);
 689         }
 690
 691         if (batt_safe) /* do not save on critical battery */
 692         {
 693 #if defined(HAVE_RECORDING) && CONFIG_CODEC == SWCODEC
 694             if (audio_stat & AUDIO_STATUS_RECORD)
 695             {
 696                 rec_command(RECORDING_CMD_STOP);
 697                 /* wait for stop to complete */
 698                 while (audio_status() & AUDIO_STATUS_RECORD)
 699                     sleep(1);
 700             }
 701 #endif
 702             bookmark_autobookmark();
 703
 704             /* audio_stop_recording == audio_stop for HWCODEC */
 705             audio_stop();
 706
 707             if (callback != NULL)
 708                 callback(parameter);
 709
 710 #if CONFIG_CODEC != SWCODEC
 711             /* wait for audio_stop or audio_stop_recording to complete */
 712             while (audio_status())
 713                 sleep(1);
 714 #endif
 715
 716 #if defined(HAVE_RECORDING) && CONFIG_CODEC == SWCODEC
 717             audio_close_recording();
 718 #endif
 719
 720             if(global_settings.talk_menu)
 721             {
 722                 bool enqueue = false;
 723                 if(msg_id != -1)
 724                 {
 725                     talk_id(msg_id, enqueue);
 726                     enqueue = true;
 727                 }
 728                 talk_id(LANG_SHUTTINGDOWN, enqueue);
 729 #if CONFIG_CODEC == SWCODEC
 730                 voice_wait();
 731 #endif
 732             }
 733
 734             system_flush();
 735 #ifdef HAVE_EEPROM_SETTINGS
 736             if (firmware_settings.initialized)
 737             {
 738                 firmware_settings.disk_clean = true;
 739                 firmware_settings.bl_version = 0;
 740                 eeprom_settings_store();
 741             }
 742 #endif
 743         }
 744 #ifdef HAVE_DIRCACHE
 745         else
 746             dircache_disable();
 747 #endif
 748
 749         shutdown_hw();
 750     }
 751 #endif
 752     return false;
 753 }
 754
 755 bool list_stop_handler(void)
 756 {
 757     bool ret = false;
 758
 759     /* Stop the music if it is playing */
 760     if(audio_status())
 761     {
 762         if (!global_settings.party_mode)
 763         {
 764             if (global_settings.fade_on_stop)
 765                 fade(false, false);
 766             bookmark_autobookmark();
 767             audio_stop();
 768             ret = true;  /* bookmarking can make a refresh necessary */
 769         }
 770     }
 771 #if CONFIG_CHARGING
 772 #if (CONFIG_KEYPAD == RECORDER_PAD) && !defined(HAVE_SW_POWEROFF)
 773     else
 774     {
 775         if (charger_inserted())
 776             charging_splash();
 777         else
 778             shutdown_screen(); /* won't return if shutdown actually happens */
 779
 780         ret = true;  /* screen is dirty, caller needs to refresh */
 781     }
 782 #endif
 783 #ifndef HAVE_POWEROFF_WHILE_CHARGING
 784     {
 785         static long last_off = 0;
 786
 787         if (TIME_BEFORE(current_tick, last_off + HZ/2))
 788         {
 789             if (charger_inserted())
 790             {
 791                 charging_splash();
 792                 ret = true;  /* screen is dirty, caller needs to refresh */
 793             }
 794         }
 795         last_off = current_tick;
 796     }
 797 #endif
 798 #endif /* CONFIG_CHARGING */
 799     return ret;
 800 }
 801
 802 #if CONFIG_CHARGING
 803 static bool waiting_to_resume_play = false;
 804 static long play_resume_tick;
 805
 806 static void car_adapter_mode_processing(bool inserted)
 807 {
 808     if (global_settings.car_adapter_mode)
 809     {
 810         if(inserted)
 811         {
 812             /*
 813              * Just got plugged in, delay & resume if we were playing
 814              */
 815             if (audio_status() & AUDIO_STATUS_PAUSE)
 816             {
 817                 /* delay resume a bit while the engine is cranking */
 818                 play_resume_tick = current_tick + HZ*5;
 819                 waiting_to_resume_play = true;
 820             }
 821         }
 822         else
 823         {
 824             /*
 825              * Just got unplugged, pause if playing
 826              */
 827             if ((audio_status() & AUDIO_STATUS_PLAY) &&
 828                 !(audio_status() & AUDIO_STATUS_PAUSE))
 829             {
 830                 if (global_settings.fade_on_stop)
 831                     fade(false, false);
 832                 else
 833                     audio_pause();
 834             }
 835             waiting_to_resume_play = false;
 836         }
 837     }
 838 }
 839
 840 static void car_adapter_tick(void)
 841 {
 842     if (waiting_to_resume_play)
 843     {
 844         if (TIME_AFTER(current_tick, play_resume_tick))
 845         {
 846             if (audio_status() & AUDIO_STATUS_PAUSE)
 847             {
 848                 queue_broadcast(SYS_CAR_ADAPTER_RESUME, 0);
 849             }
 850             waiting_to_resume_play = false;
 851         }
 852     }
 853 }
 854
 855 void car_adapter_mode_init(void)
 856 {
 857     tick_add_task(car_adapter_tick);
 858 }
 859 #endif
 860
 861 #ifdef HAVE_HEADPHONE_DETECTION
 862 static void unplug_change(bool inserted)
 863 {
 864     static bool headphone_caused_pause = false;
 865
 866     if (global_settings.unplug_mode)
 867     {
 868         int audio_stat = audio_status();
 869         if (inserted)
 870         {
 871             if ((audio_stat & AUDIO_STATUS_PLAY) &&
 872                     headphone_caused_pause &&
 873                     global_settings.unplug_mode > 1 )
 874                 audio_resume();
 875             backlight_on();
 876             headphone_caused_pause = false;
 877         } else {
 878             if ((audio_stat & AUDIO_STATUS_PLAY) &&
 879                     !(audio_stat & AUDIO_STATUS_PAUSE))
 880             {
 881                 headphone_caused_pause = true;
 882                 audio_pause();
 883
 884                 if (global_settings.unplug_rw)
 885                 {
 886                     if (audio_current_track()->elapsed >
 887                             (unsigned long)(global_settings.unplug_rw*1000))
 888                         audio_ff_rewind(audio_current_track()->elapsed -
 889                                 (global_settings.unplug_rw*1000));
 890                     else
 891                         audio_ff_rewind(0);
 892                 }
 893             }
 894         }
 895     }
 896 }
 897 #endif
 898
 899 long default_event_handler_ex(long event, void (*callback)(void *), void *parameter)
 900 {
 901     switch(event)
 902     {
 903         case SYS_BATTERY_UPDATE:
 904             if(global_settings.talk_battery_level)
 905             {
 906                 talk_ids(true, VOICE_PAUSE, VOICE_PAUSE,
 907                          LANG_BATTERY_TIME,
 908                          TALK_ID(battery_level(), UNIT_PERCENT),
 909                          VOICE_PAUSE);
 910                 talk_force_enqueue_next();
 911             }
 912             break;
 913         case SYS_USB_CONNECTED:
 914             if (callback != NULL)
 915                 callback(parameter);
 916 #if (CONFIG_STORAGE & STORAGE_MMC)
 917             if (!mmc_touched() ||
 918                 (mmc_remove_request() == SYS_HOTSWAP_EXTRACTED))
 919 #endif
 920             {
 921                 system_flush();
 922 #ifdef BOOTFILE
 923 #if !defined(USB_NONE) && !defined(USB_IPODSTYLE)
 924                 check_bootfile(false); /* gets initial size */
 925 #endif
 926 #endif
 927                 usb_screen();
 928 #ifdef BOOTFILE
 929 #if !defined(USB_NONE) && !defined(USB_IPODSTYLE)
 930                 check_bootfile(true);
 931 #endif
 932 #endif
 933                 system_restore();
 934             }
 935             return SYS_USB_CONNECTED;
 936         case SYS_POWEROFF:
 937             if (!clean_shutdown(callback, parameter))
 938                 return SYS_POWEROFF;
 939             break;
 940 #if CONFIG_CHARGING
 941         case SYS_CHARGER_CONNECTED:
 942             car_adapter_mode_processing(true);
 943             return SYS_CHARGER_CONNECTED;
 944
 945         case SYS_CHARGER_DISCONNECTED:
 946             car_adapter_mode_processing(false);
 947             return SYS_CHARGER_DISCONNECTED;
 948
 949         case SYS_CAR_ADAPTER_RESUME:
 950             audio_resume();
 951             return SYS_CAR_ADAPTER_RESUME;
 952 #endif
 953 #ifdef HAVE_HEADPHONE_DETECTION
 954         case SYS_PHONE_PLUGGED:
 955             unplug_change(true);
 956             return SYS_PHONE_PLUGGED;
 957
 958         case SYS_PHONE_UNPLUGGED:
 959             unplug_change(false);
 960             return SYS_PHONE_UNPLUGGED;
 961 #endif
 962     }
 963     return 0;
 964 }
 965
 966 long default_event_handler(long event)
 967 {
 968     return default_event_handler_ex(event, NULL, NULL);
 969 }
 970
 971 int show_logo( void )
 972 {
 973 #ifdef HAVE_LCD_BITMAP
 974     char version[32];
 975     int font_h, font_w;
 976
 977     snprintf(version, sizeof(version), "Ver. %s", appsversion);
 978
 979     lcd_clear_display();
 980     lcd_bitmap(rockboxlogo, 0, 10, BMPWIDTH_rockboxlogo, BMPHEIGHT_rockboxlogo);
 981     lcd_setfont(FONT_SYSFIXED);
 982     lcd_getstringsize((unsigned char *)"A", &font_w, &font_h);
 983     lcd_putsxy((LCD_WIDTH/2) - ((strlen(version)*font_w)/2),
 984                LCD_HEIGHT-font_h, (unsigned char *)version);
 985     lcd_setfont(FONT_UI);
 986
 987 #else
 988     char *rockbox = "  ROCKbox!";
 989
 990     lcd_clear_display();
 991     lcd_double_height(true);
 992     lcd_puts(0, 0, rockbox);
 993     lcd_puts_scroll(0, 1, appsversion);
 994 #endif
 995     lcd_update();
 996
 997 #ifdef HAVE_REMOTE_LCD
 998     lcd_remote_clear_display();
 999     lcd_remote_bitmap(remote_rockboxlogo, 0, 10, BMPWIDTH_remote_rockboxlogo,
1000                       BMPHEIGHT_remote_rockboxlogo);
1001     lcd_remote_setfont(FONT_SYSFIXED);
1002     lcd_remote_getstringsize((unsigned char *)"A", &font_w, &font_h);
1003     lcd_remote_putsxy((LCD_REMOTE_WIDTH/2) - ((strlen(version)*font_w)/2),
1004                        LCD_REMOTE_HEIGHT-font_h, (unsigned char *)version);
1005     lcd_remote_setfont(FONT_UI);
1006     lcd_remote_update();
1007 #endif
1008
1009     return 0;
1010 }
1011
1012 #if CONFIG_CODEC == SWCODEC
1013 int get_replaygain_mode(bool have_track_gain, bool have_album_gain)
1014 {
1015     int type;
1016
1017     bool track = ((global_settings.replaygain_type == REPLAYGAIN_TRACK)
1018         || ((global_settings.replaygain_type == REPLAYGAIN_SHUFFLE)
1019             && global_settings.playlist_shuffle));
1020
1021     type = (!track && have_album_gain) ? REPLAYGAIN_ALBUM
1022         : have_track_gain ? REPLAYGAIN_TRACK : -1;
1023
1024     return type;
1025 }
1026 #endif
1027
1028 #ifdef BOOTFILE
1029 #if !defined(USB_NONE) && !defined(USB_IPODSTYLE)
1030 /*
1031     memorize/compare details about the BOOTFILE
1032     we don't use dircache because it may not be up to date after
1033     USB disconnect (scanning in the background)
1034 */
1035 void check_bootfile(bool do_rolo)
1036 {
1037     static unsigned short wrtdate = 0;
1038     static unsigned short wrttime = 0;
1039     DIR* dir = NULL;
1040     struct dirent* entry = NULL;
1041
1042     /* 1. open BOOTDIR and find the BOOTFILE dir entry */
1043     dir = opendir(BOOTDIR);
1044
1045     if(!dir) return; /* do we want an error splash? */
1046
1047     /* loop all files in BOOTDIR */
1048     while(0 != (entry = readdir(dir)))
1049     {
1050         if(!strcasecmp(entry->d_name, BOOTFILE))
1051         {
1052             /* found the bootfile */
1053             if(wrtdate && do_rolo)
1054             {
1055                 if((entry->wrtdate != wrtdate) ||
1056                    (entry->wrttime != wrttime))
1057                 {
1058                     static const char *lines[] = { ID2P(LANG_BOOT_CHANGED),
1059                                                    ID2P(LANG_REBOOT_NOW) };
1060                     static const struct text_message message={ lines, 2 };
1061                     button_clear_queue(); /* Empty the keyboard buffer */
1062                     if(gui_syncyesno_run(&message, NULL, NULL) == YESNO_YES)
1063                     rolo_load(BOOTDIR "/" BOOTFILE);
1064                 }
1065             }
1066             wrtdate = entry->wrtdate;
1067             wrttime = entry->wrttime;
1068         }
1069     }
1070     closedir(dir);
1071 }
1072 #endif
1073 #endif
1074
1075 /* check range, set volume and save settings */
1076 void setvol(void)
1077 {
1078     const int min_vol = sound_min(SOUND_VOLUME);
1079     const int max_vol = sound_max(SOUND_VOLUME);
1080     if (global_settings.volume < min_vol)
1081         global_settings.volume = min_vol;
1082     if (global_settings.volume > max_vol)
1083         global_settings.volume = max_vol;
1084     sound_set_volume(global_settings.volume);
1085     settings_save();
1086 }
1087
1088 char* strrsplt(char* str, int c)
1089 {
1090     char* s = strrchr(str, c);
1091
1092     if (s != NULL)
1093     {
1094         *s++ = '\0';
1095     }
1096     else
1097     {
1098         s = str;
1099     }
1100
1101     return s;
1102 }
1103
1104 /* Test file existence, using dircache of possible */
1105 bool file_exists(const char *file)
1106 {
1107     int fd;
1108
1109     if (!file || strlen(file) <= 0)
1110         return false;
1111
1112 #ifdef HAVE_DIRCACHE
1113     if (dircache_is_enabled())
1114         return (dircache_get_entry_ptr(file) != NULL);
1115 #endif
1116
1117     fd = open(file, O_RDONLY);
1118     if (fd < 0)
1119         return false;
1120     close(fd);
1121     return true;
1122 }
1123
1124 bool dir_exists(const char *path)
1125 {
1126     DIR* d = opendir(path);
1127     if (!d)
1128         return false;
1129     closedir(d);
1130     return true;
1131 }
1132
1133 /*
1134  * removes the extension of filename (if it doesn't start with a .)
1135  * puts the result in buffer
1136  */
1137 char *strip_extension(char* buffer, int buffer_size, const char *filename)
1138 {
1139     char *dot = strrchr(filename, '.');
1140     int len;
1141
1142     if (buffer_size <= 0)
1143     {
1144         return NULL;
1145     }
1146
1147     buffer_size--;  /* Make room for end nil */
1148
1149     if (dot != 0 && filename[0] != '.')
1150     {
1151         len = dot - filename;
1152         len = MIN(len, buffer_size);
1153         strncpy(buffer, filename, len);
1154     }
1155     else
1156     {
1157         len = buffer_size;
1158         strncpy(buffer, filename, buffer_size);
1159     }
1160
1161     buffer[len] = 0;
1162
1163     return buffer;
1164 }
1165 #endif /* !defined(__PCTOOL__) */
1166
1167 /* Format time into buf.
1168  *
1169  * buf      - buffer to format to.
1170  * buf_size - size of buffer.
1171  * t        - time to format, in milliseconds.
1172  */
1173 void format_time(char* buf, int buf_size, long t)
1174 {
1175     if ( t < 3600000 )
1176     {
1177       snprintf(buf, buf_size, "%d:%02d",
1178                (int) (t / 60000), (int) (t % 60000 / 1000));
1179     }
1180     else
1181     {
1182       snprintf(buf, buf_size, "%d:%02d:%02d",
1183                (int) (t / 3600000), (int) (t % 3600000 / 60000),
1184                (int) (t % 60000 / 1000));
1185     }
1186 }
1187
1188
1189 /** Open a UTF-8 file and set file descriptor to first byte after BOM.
1190  *  If no BOM is present this behaves like open().
1191  *  If the file is opened for writing and O_TRUNC is set, write a BOM to
1192  *  the opened file and leave the file pointer set after the BOM.
1193  */
1194 #define BOM "\xef\xbb\xbf"
1195 #define BOM_SIZE 3
1196
1197 int open_utf8(const char* pathname, int flags)
1198 {
1199     int fd;
1200     unsigned char bom[BOM_SIZE];
1201
1202     fd = open(pathname, flags);
1203     if(fd < 0)
1204         return fd;
1205
1206     if(flags & (O_TRUNC | O_WRONLY))
1207     {
1208         write(fd, BOM, BOM_SIZE);
1209     }
1210     else
1211     {
1212         read(fd, bom, BOM_SIZE);
1213         /* check for BOM */
1214         if(memcmp(bom, BOM, BOM_SIZE))
1215             lseek(fd, 0, SEEK_SET);
1216     }
1217     return fd;
1218 }
1219
1220
1221 #ifdef HAVE_LCD_COLOR
1222 /*
1223  * Helper function to convert a string of 6 hex digits to a native colour
1224  */
1225
1226 static int hex2dec(int c)
1227 {
1228    return  (((c) >= '0' && ((c) <= '9')) ? (c) - '0' :
1229                                            (toupper(c)) - 'A' + 10);
1230 }
1231
1232 int hex_to_rgb(const char* hex, int* color)
1233 {
1234     int red, green, blue;
1235     int i = 0;
1236
1237     while ((i < 6) && (isxdigit(hex[i])))
1238         i++;
1239
1240     if (i < 6)
1241         return -1;
1242
1243     red = (hex2dec(hex[0]) << 4) | hex2dec(hex[1]);
1244     green = (hex2dec(hex[2]) << 4) | hex2dec(hex[3]);
1245     blue = (hex2dec(hex[4]) << 4) | hex2dec(hex[5]);
1246
1247     *color = LCD_RGBPACK(red,green,blue);
1248
1249     return 0;
1250 }
1251 #endif /* HAVE_LCD_COLOR */
1252
1253 #ifdef HAVE_LCD_BITMAP
1254 /* A simplified scanf - used (at time of writing) by wps parsing functions.
1255
1256    fmt - char array specifying the format of each list option.  Valid values
1257          are:  d - int
1258                s - string (sets pointer to string, without copying)
1259                c - hex colour (RGB888 - e.g. ff00ff)
1260                g - greyscale "colour" (0-3)
1261    set_vals - if not NULL 1 is set in the bitplace if the item was read OK
1262                 0 if not read.
1263                 first item is LSB, (max 32 items! )
1264                 Stops parseing if an item is invalid unless the item == '-'
1265    sep - list separator (e.g. ',' or '|')
1266    str  - string to parse, must be terminated by 0 or sep
1267    ... - pointers to store the parsed values
1268
1269    return value - pointer to char after parsed data, 0 if there was an error.
1270
1271 */
1272
1273 /* '0'-'3' are ASCII 0x30 to 0x33 */
1274 #define is0123(x) (((x) & 0xfc) == 0x30)
1275
1276 const char* parse_list(const char *fmt, uint32_t *set_vals,
1277                        const char sep, const char* str, ...)
1278 {
1279     va_list ap;
1280     const char* p = str, *f = fmt;
1281     const char** s;
1282     int* d;
1283     bool set;
1284     int i=0;
1285
1286     va_start(ap, str);
1287     if (set_vals)
1288         *set_vals = 0;
1289     while (*fmt)
1290     {
1291         /* Check for separator, if we're not at the start */
1292         if (f != fmt)
1293         {
1294             if (*p != sep)
1295                 goto err;
1296             p++;
1297         }
1298         set = false;
1299         switch (*fmt++)
1300         {
1301             case 's': /* string - return a pointer to it (not a copy) */
1302                 s = va_arg(ap, const char **);
1303
1304                 *s = p;
1305                 while (*p && *p != sep)
1306                    p++;
1307                 set = (s[0][0]!='-') && (s[0][1]!=sep) ;
1308                 break;
1309
1310             case 'd': /* int */
1311                 d = va_arg(ap, int*);
1312                 if (!isdigit(*p))
1313                 {
1314                     if (!set_vals || *p != '-')
1315                         goto err;
1316                     while (*p && *p != sep)
1317                         p++;
1318                 }
1319                 else
1320                 {
1321                    *d = *p++ - '0';
1322                     while (isdigit(*p))
1323                        *d = (*d * 10) + (*p++ - '0');
1324                     set = true;
1325                 }
1326
1327                 break;
1328
1329 #ifdef HAVE_LCD_COLOR
1330             case 'c': /* colour (rrggbb - e.g. f3c1a8) */
1331                 d = va_arg(ap, int*);
1332
1333                 if (hex_to_rgb(p, d) < 0)
1334                 {
1335                     if (!set_vals || *p != '-')
1336                         goto err;
1337                     while (*p && *p != sep)
1338                         p++;
1339                 }
1340                 else
1341                 {
1342                     p += 6;
1343                     set = true;
1344                 }
1345
1346                 break;
1347 #endif
1348
1349 #if LCD_DEPTH == 2 || (defined(HAVE_REMOTE_LCD) && LCD_REMOTE_DEPTH == 2)
1350             case 'g': /* greyscale colour (0-3) */
1351                 d = va_arg(ap, int*);
1352
1353                 if (is0123(*p))
1354                 {
1355                     *d = *p++ - '0';
1356                     set = true;
1357                 }
1358                 else if (!set_vals || *p != '-')
1359                     goto err;
1360                 else
1361                 {
1362                     while (*p && *p != sep)
1363                         p++;
1364                 }
1365
1366                 break;
1367 #endif
1368
1369             default:  /* Unknown format type */
1370                 goto err;
1371                 break;
1372         }
1373         if (set_vals && set)
1374             *set_vals |= (1<<i);
1375         i++;
1376     }
1377
1378     va_end(ap);
1379     return p;
1380
1381 err:
1382     va_end(ap);
1383     return 0;
1384 }
1385 #endif