/***********************************************************************

     FONCTION :
     ----------
        File OpenGl_highlight :
 

     REMARQUES:
     ---------- 
      

     HISTORIQUE DES MODIFICATIONS   :
     --------------------------------
       xx-xx-xx : xxx ; Creation.
       11-03-96 : FMN ; Correction warning compilation
       01-04-96 : CAL ; Integration MINSK portage WNT

************************************************************************/

/*----------------------------------------------------------------------*/
/*
 * Includes
 */ 

#include <OpenGl_tgl_all.h>

#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>

#include <OpenGl_cmn_varargs.h>
#include <OpenGl_cmn_memory.h>
#include <OpenGl_telem.h>
#include <OpenGl_tsm_ws.h>
#include <OpenGl_telem_highlight.h>

typedef  struct
{
    Tint           hid;
    TEL_HIGHLIGHT  highl;
} TEL_HIGHLIGHT_DATA, *tel_highlight_data;

typedef  struct
{
    Tint    num;    /* number of highlights for a workstation */
    Tint    siz;    /* size allocated */
    TEL_HIGHLIGHT_DATA  data[1]; /* highlight definitions for the workstation */
} TEL_WS_HIGHLIGHTS, *tel_ws_highlights;

#define  GROW_SIZE   25

static  tel_ws_highlights    ws_hlights;

static  Tint
b_s( Tint  id, tel_highlight_data tbl, Tint low, Tint high )
{
    register  Tint  mid, i;

    if( low > high )
        return -1;

    mid = low+high, mid /= 2;
    i = id - tbl[mid].hid;

    return i == 0 ? mid : i < 0 ? b_s( id, tbl, low, mid-1 ) :
                                  b_s( id, tbl, mid+1, high );
}


static  int
lnumcomp( const void* a, const void* b )
{
    return *( Tint* )a - *( Tint* )b;
}


TStatus
TelSetHighlightRep( Tint Wsid, Tint hid, tel_highlight highl )
{
#if 0
    CMN_KEY_DATA    key;
#endif
    tel_highlight_data  hptr;
    register  Tint  i;
#if 0
    TsmGetWSAttri( Wsid, WSHighlights, &key );
    ws_hlights = key.pdata ; /* Obtain list of defined highlights */
#endif
    if( !ws_hlights )  /* no highlights defined yet */
    {                 /* allocate */
        ws_hlights = cmn_getmem( 1, offsetof(TEL_WS_HIGHLIGHTS,data)
                                  + GROW_SIZE * sizeof(TEL_HIGHLIGHT_DATA), 0 );
        if( !ws_hlights )
            return TFailure;

        ws_hlights->siz = GROW_SIZE;
        ws_hlights->num = 0;
#if 0
        key.pdata = ws_hlights;/* Set list for the workstation */
        TsmSetWSAttri( Wsid, WSHighlights, &key );
#endif
    }
    else if( ws_hlights->num == ws_hlights->siz ) /* insufficient memory */
    {                                           /* realloc */
        ws_hlights = cmn_resizemem( ws_hlights, ws_hlights->siz
                                     + GROW_SIZE * sizeof(TEL_HIGHLIGHT_DATA) );
        if( !ws_hlights )
            return TFailure;

        ws_hlights->siz += GROW_SIZE;
#if 0
        key.pdata = ws_hlights;             /* Reset list for the workstation */
        TsmSetWSAttri( Wsid, WSHighlights, &key );
#endif
    }
    hptr = 0; /* Locate highlight if already defined */
    i = b_s( hid, ws_hlights->data, 0, ws_hlights->num-1 );
    if( i != -1 )
    {
        hptr = &ws_hlights->data[i]; /* highlight already defined */
	hptr->highl = *highl; /* copy highlight definition */
    }

    if( !hptr ) /* new highlight */
    {
	hptr = &ws_hlights->data[ws_hlights->num];
	hptr->highl = *highl; /* copy highlight definition */
        hptr->hid  = hid;           /* highlights for the workstation */
        ws_hlights->num++;           /* and sort the entries */
        qsort( ws_hlights->data, ws_hlights->num,
			sizeof(TEL_HIGHLIGHT_DATA), lnumcomp );
    }


    return TSuccess;
}


TStatus
TelGetHighlightRep( Tint Wsid, Tint hid, tel_highlight highl )
{
#if 0
    CMN_KEY_DATA    key;
#endif
    tel_highlight_data  hptr;
    register  Tint  i;
#if 0
    TsmGetWSAttri( Wsid, WSHighlights, &key );
    ws_hlights = key.pdata ; /* Obtain list of defined highlights */
#endif
    if( !ws_hlights )
	return TFailure; /* no highlights defined */

    hptr = 0; /* Locate highlight if already defined */
    i = b_s( hid, ws_hlights->data, 0, ws_hlights->num-1 );
    if( i == -1 )
	return TFailure; /* hid undefined */

    hptr = &ws_hlights->data[i];
    *highl = hptr->highl;

    return TSuccess;
}


void
TelPrintHighlightRep( Tint Wsid, Tint hid )
{
#if 0
    CMN_KEY_DATA    key;
#endif
    tel_highlight_data  hptr;
    register  Tint  i;

#if 0
    TsmGetWSAttri( Wsid, WSHighlights, &key );
    ws_hlights = key.pdata ; /* Obtain list of defined highlights */
#endif
    if( !ws_hlights )
	return; /* no highlights defined */

    hptr = 0; /* Locate highlight if already defined */
    i = b_s( hid, ws_hlights->data, 0, ws_hlights->num-1 );
    if( i == -1 )
    {
	fprintf( stdout, "\nBad Highlight %d\n", hid );
	return; /* hid undefined */
    }

    hptr = &ws_hlights->data[i];
    fprintf( stdout, "\nHighlight Id: %d", hid );
    switch( hptr->highl.type )
    {
	case  TelHLColour:
	    fprintf( stdout, "\nHighlight type: TelHLColour" );
	    fprintf( stdout, "\n\tColour: %f %f %f",
			      hptr->highl.col.rgb[0],
			      hptr->highl.col.rgb[1],
			      hptr->highl.col.rgb[2] );
	    break;

	case  TelHLForcedColour:
	    fprintf( stdout, "\nHighlight type: TelHLForcedColour" );
	    fprintf( stdout, "\n\tColour: %f %f %f",
			      hptr->highl.col.rgb[0],
			      hptr->highl.col.rgb[1],
			      hptr->highl.col.rgb[2] );
	    break;
    }
    fprintf( stdout, "\n" );

    return;
}

TStatus
TelDeleteHighlightsForWS( Tint wsid )
{
   CMN_KEY_DATA key;
   tel_ws_highlights h;

   TsmGetWSAttri( wsid, WSHighlights, &key );
   h = key.pdata;

   if( !h )
       return TSuccess;

   cmn_freemem( h );
   return TSuccess;
}