gui_osd.c

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <stdlib.h>
 
#include "naev.h"
#include "gui_osd.h"
 
#include "array.h"
#include "font.h"
#include "log.h"
#include "nstring.h"
#include "opengl.h"
 
typedef struct OSD_s {
   unsigned int id;  
   int priority;     
   int skip;         
   int duplicates;   
   char *title;      
   char **titlew;    
   char **msg;       
   char ***items;    
   unsigned int active; 
} OSD_t;
 
/*
 * OSD array.
 */
static unsigned int osd_idgen = 0; 
static OSD_t *osd_list        = NULL; 
/*
 * Dimensions.
 */
static int osd_x = 0;
static int osd_y = 0;
static int osd_w = 0;
static int osd_h = 0;
static int osd_lines = 0;
static int osd_rh = 0;
static int osd_tabLen = 0;
static int osd_hyphenLen = 0;
 
/*
 * Prototypes.
 */
static OSD_t *osd_get( unsigned int osd );
static int osd_free( OSD_t *osd );
static void osd_calcDimensions (void);
/* Sort. */
static int osd_sortCompare( const void * arg1, const void * arg2 );
static void osd_sort (void);
static void osd_wordwrap( OSD_t* osd );
 
static int osd_sortCompare( const void *arg1, const void *arg2 )
{
   const OSD_t *osd1, *osd2;
   int ret, m;
 
   osd1 = (OSD_t*)arg1;
   osd2 = (OSD_t*)arg2;
 
   /* Compare priority. */
   if (osd1->priority > osd2->priority)
      return +1;
   else if (osd1->priority < osd2->priority)
      return -1;
 
   /* Compare name. */
   ret = strcmp( osd1->title, osd2->title );
   if (ret != 0)
      return ret;
 
   /* Compare items. */
   m = MIN(array_size(osd1->items), array_size(osd2->items));
   for (int i=0; i<m; i++) {
      ret = strcmp( osd1->msg[i], osd2->msg[i] );
      if (ret != 0)
         return ret;
   }
 
   /* Compare on length. */
   if (array_size(osd1->items) > array_size(osd2->items))
      return +1;
   if (array_size(osd1->items) < array_size(osd2->items))
      return -1;
 
   /* Compare ID. */
   if (osd1->id > osd2->id)
      return +1;
   else if (osd1->id < osd2->id)
      return -1;
   return 0;
}
 
static void osd_sort (void)
{
   qsort( osd_list, array_size(osd_list), sizeof(OSD_t), osd_sortCompare );
}
 
unsigned int osd_create( const char *title, int nitems, const char **items, int priority )
{
   int id;
   OSD_t *osd;
 
   /* Create. */
   if (osd_list == NULL)
      osd_list = array_create( OSD_t );
   osd = &array_grow( &osd_list );
   memset( osd, 0, sizeof(OSD_t) );
   osd->id = id = ++osd_idgen;
   osd->active = 0;
 
   /* Copy text. */
   osd->title  = strdup(title);
   osd->priority = priority;
   osd->msg = array_create_size( char*, nitems );
   osd->items = array_create_size( char**, nitems );
   osd->titlew = array_create( char* );
   for (int i=0; i<nitems; i++) {
      array_push_back( &osd->msg, strdup( items[i] ) );
      array_push_back( &osd->items, array_create(char*) );
   }
 
   osd_wordwrap( osd );
   osd_sort(); /* THIS INVALIDATES THE osd POINTER. */
   osd_calcDimensions();
 
   return id;
}
 
void osd_wordwrap( OSD_t* osd )
{
   glPrintLineIterator iter;
 
   /* Do title. */
   for (int i=0; i<array_size(osd->titlew); i++)
      free(osd->titlew[i]);
   array_resize( &osd->titlew, 0 );
   gl_printLineIteratorInit( &iter, &gl_smallFont, osd->title, osd_w );
   while (gl_printLineIteratorNext( &iter )) {
      /* Copy text over. */
      int chunk_len = iter.l_end - iter.l_begin + 1;
      char *chunk = malloc( chunk_len );
      snprintf( chunk, chunk_len, "%s", &iter.text[iter.l_begin] );
      array_push_back( &osd->titlew, chunk );
   }
 
   /* Do items. */
   for (int i=0; i<array_size(osd->items); i++) {
      int msg_len, w, has_tab;
      const char *chunk_fmt;
      for (int l=0; l<array_size(osd->items[i]); l++)
         free(osd->items[i][l]);
      array_resize( &osd->items[i], 0 );
 
      msg_len = strlen(osd->msg[i]);
      if (msg_len == 0)
         continue;
 
      /* Test if tabbed. */
      has_tab = !!(osd->msg[i][0] == '\t');
      w = osd_w - (has_tab ? osd_tabLen : osd_hyphenLen);
      gl_printLineIteratorInit( &iter, &gl_smallFont, &osd->msg[i][has_tab], w );
      chunk_fmt = has_tab ? "   %s" : "- %s";
 
      while (gl_printLineIteratorNext( &iter )) {
         /* Copy text over. */
         int chunk_len = iter.l_end - iter.l_begin + strlen( chunk_fmt ) - 1;
         char *chunk = malloc( chunk_len );
         snprintf( chunk, chunk_len, chunk_fmt, &iter.text[iter.l_begin] );
         array_push_back( &osd->items[i], chunk );
         chunk_fmt = has_tab ? "   %s" : "%s";
         iter.width = has_tab ? osd_w - osd_tabLen - osd_hyphenLen : osd_w - osd_hyphenLen;
      }
   }
}
 
static OSD_t *osd_get( unsigned int osd )
{
   for (int i=0; i<array_size(osd_list); i++) {
      OSD_t *ll = &osd_list[i];
      if (ll->id == osd)
         return ll;
   }
   WARN(_("OSD '%d' not found."), osd);
   return NULL;
}
 
static int osd_free( OSD_t *osd )
{
   free(osd->title);
   for (int i=0; i<array_size(osd->items); i++) {
      free( osd->msg[i] );
      for (int j=0; j<array_size(osd->items[i]); j++)
         free(osd->items[i][j]);
      array_free(osd->items[i]);
   }
   array_free(osd->msg);
   array_free(osd->items);
   for (int i=0; i<array_size(osd->titlew); i++)
      free(osd->titlew[i]);
   array_free(osd->titlew);
 
   return 0;
}
 
int osd_destroy( unsigned int osd )
{
   for (int i=0; i<array_size( osd_list ); i++) {
      OSD_t *ll = &osd_list[i];
      if (ll->id != osd)
         continue;
 
      /* Clean up. */
      osd_free( &osd_list[i] );
 
      /* Remove. */
      array_erase( &osd_list, &osd_list[i], &osd_list[i+1] );
 
      /* Recalculate dimensions. */
      osd_calcDimensions();
 
      /* Remove the OSD, if empty. */
      if (array_size(osd_list) == 0)
         osd_exit();
 
      /* Done here. */
      return 0;
   }
 
   WARN(_("OSD '%u' not found to destroy."), osd );
   return 0;
}
 
int osd_active( unsigned int osd, int msg )
{
   OSD_t *o = osd_get(osd);
   if (o == NULL)
      return -1;
 
   if ((msg < 0) || (msg >= array_size(o->items))) {
      WARN(_("OSD '%s' only has %d items (requested %d)"), o->title, array_size(o->items), msg );
      return -1;
   }
 
   o->active = msg;
   osd_calcDimensions();
   return 0;
}
 
int osd_getActive( unsigned int osd )
{
   OSD_t *o = osd_get(osd);
   if (o == NULL)
      return -1;
 
   return o->active;
}
 
int osd_setup( int x, int y, int w, int h )
{
   /* Set offsets. */
   int must_rewrap = (osd_w != w) && (osd_list != NULL);
   osd_x = x;
   osd_y = y;
   osd_w = w;
   osd_lines = h / (gl_smallFont.h+5);
   osd_h = h - h % (gl_smallFont.h+5);
 
   /* Calculate some font things. */
   osd_tabLen = gl_printWidthRaw( &gl_smallFont, "   " );
   osd_hyphenLen = gl_printWidthRaw( &gl_smallFont, "- " );
 
   if (must_rewrap)
      for (int i=0; i<array_size(osd_list); i++)
         osd_wordwrap( &osd_list[i] );
   osd_calcDimensions();
 
   return 0;
}
 
void osd_exit (void)
{
   for (int i=0; i<array_size(osd_list); i++) {
      OSD_t *ll = &osd_list[i];
      osd_free( ll );
   }
 
   array_free( osd_list );
   osd_list = NULL;
}
 
void osd_render (void)
{
   double p;
   int l;
   char title[STRMAX_SHORT];
 
   /* Nothing to render. */
   if (osd_list == NULL)
      return;
 
   /* Background. */
   gl_renderRect( osd_x-5., osd_y-(osd_rh+5.), osd_w+10., osd_rh+10, &cBlackHilight );
 
   /* Render each thingy. */
   p = osd_y-gl_smallFont.h;
   l = 0;
   for (int k=0; k<array_size(osd_list); k++) {
      int x, w;
      OSD_t *ll = &osd_list[k];
 
      if (ll->skip)
         continue;
 
      x = osd_x;
      w = osd_w;
 
      /* Print title. */
      for (int i=0; i<array_size(ll->titlew); i++) {
         if ((ll->duplicates > 0) && (i==array_size(ll->titlew)-1)) {
            snprintf( title, sizeof(title), "%s #b(%dx)#0", ll->titlew[i], ll->duplicates+1 );
            gl_printMaxRaw( &gl_smallFont, w, x, p, NULL, -1., title);
         }
         else
            gl_printMaxRaw( &gl_smallFont, w, x, p, NULL, -1., ll->titlew[i]);
         p -= gl_smallFont.h + 5.;
         l++;
      }
      if (l >= osd_lines)
         return;
 
      /* Print items. */
      for (int i=ll->active; i<array_size(ll->items); i++) {
         const glColour *c = (i == (int)ll->active) ? &cFontWhite : &cFontGrey;
         x = osd_x;
         for (int j=0; j<array_size(ll->items[i]); j++) {
            gl_printRaw( &gl_smallFont, x, p, c, -1., ll->items[i][j] );
            if (j==0)
               x = osd_x + osd_hyphenLen;
            p -= gl_smallFont.h + 5.;
            l++;
            if (l >= osd_lines)
               return;
         }
      }
   }
}
 
static void osd_calcDimensions (void)
{
   double len;
 
   /* Nothing to render. */
   if (osd_list == NULL)
      return;
 
   /* Reset skips. */
   for (int k=0; k<array_size(osd_list); k++) {
      OSD_t *ll = &osd_list[k];
      ll->skip = 0;
      ll->duplicates = 0;
   }
 
   /* Render each thingy. */
   len = 0;
   for (int k=0; k<array_size(osd_list); k++) {
      int duplicates;
      OSD_t *ll = &osd_list[k];
 
      if (ll->skip)
         continue;
 
      /* Check how many duplicates we have, mark duplicates for ignoring */
      duplicates = 0;
      for (int m=k+1; m<array_size(osd_list); m++) {
         OSD_t *lm = &osd_list[m];
 
         if ((strcmp(lm->title, ll->title) == 0) &&
               (array_size(lm->items) == array_size(ll->items)) &&
               (lm->active == ll->active)) {
            int is_duplicate = 1;
            for (int i=lm->active; i<array_size(lm->items); i++) {
               if (array_size(lm->items[i]) == array_size(ll->items[i])) {
                  for (int j=0; j<array_size(lm->items[i]); j++) {
                     if (strcmp(lm->items[i][j], ll->items[i][j]) != 0 ) {
                        is_duplicate = 0;
                        break;
                     }
                  }
               } else {
                  is_duplicate = 0;
               }
               if (!is_duplicate)
                  break;
            }
            if (is_duplicate) {
               duplicates++;
               lm->skip = 1;
            }
         }
      }
      ll->duplicates = duplicates;
 
      /* Print title. */
      for (int i=0; i<array_size(ll->titlew); i++)
         len += gl_smallFont.h + 5.;
 
      /* Print items. */
      for (int i=ll->active; i<array_size(ll->items); i++)
         for (int j=0; j<array_size(ll->items[i]); j++)
            len += gl_smallFont.h + 5.;
   }
   osd_rh = MIN( len, osd_h );
}
 
char *osd_getTitle( unsigned int osd )
{
   OSD_t *o = osd_get(osd);
   if (o == NULL)
      return NULL;
 
   return o->title;
}
 
char **osd_getItems( unsigned int osd )
{
   OSD_t *o = osd_get(osd);
   if (o == NULL)
      return NULL;
   return o->msg;
}