/*	DESKAPP.C		3/18/89 - 9/18/89	Derek Mui	*/

/************************************************************************/
/*	New Desktop for Atari ST/TT Computer				*/
/*	Atari Corp							*/
/*	Copyright 1989,1990 	All Rights Reserved			*/
/************************************************************************/

#include "portab.h"
#include "obdefs.h"
#include "deskdefi.h"
#include "deskwin.h"
/*#include "gemlib.h"*/
#include "deskusa.h"
#include "osbind.h"
#include "extern.h"
#include "pdesk.h"
#include "pmisc.h"

EXTERN	BYTE	*scasb();
EXTERN	WORD	font_save;
EXTERN	BYTE	*g_name();



/*	Find the application's icon type	*/

APP *
app_icon( REG BYTE *name, WORD type, WORD *icon )
/* looking for same type	*/
/* icon number			*/
{
	REG APP		*app;

	app = applist;
	*icon = 4;		/* default icon index		*/

	while( app )
	{
	  if ( type != -1 )	/* match the type 	*/
	  {
	    if ( app->a_type == type )
	    {
	       if ( wildcmp( app->a_doc, name ) )
	       {
	      	  *icon = app->a_dicon;
	          break;
	       }
	    }
	  }
	  else
	  {
	    if ( app->a_type != FOLDER )	/* skip this */
	    {
	      if ( x_wildcmp( app->a_name, name ) )
	      {
	      	*icon = app->a_icon;
	        break;
	      }

	      if ( ( app->a_type == ICONS ) || ( app->a_type == TEXT ) )
	      {
	        if ( x_wildcmp( app->a_doc, name ) )
		{
		  *icon = app->a_dicon;		  
	          break;
		}
	      }
	    }
	  }
	  app = (APP *)app->a_next;			/* JTT - (APP *) */
	}/* while     */

	return( app );
} 


/*	Free an application node	*/
VOID	
app_free( REG APP *app )
{
	REG APP	*list;

	if ( app == applist )
	  applist = (APP *)app->a_next;
	else
	{
	  list = applist;

	  while( list )
	  {
	    if ( (APP *)list->a_next == app )
	    {
	      list->a_next = app->a_next;	
	      break;
	    }
	
	    list = (APP *)list->a_next;
	  }
	}

	lp_collect();
	(APP *)app->a_next = appfree;
	appfree = app;
}


/*	Allocation an anode	*/

APP *
app_alloc( VOID )
{
	REG APP	*list;

again:
	list = (APP*)0;

	if ( appfree )
	{
	  list = appfree;
	  appfree = (APP *)appfree->a_next;
	  (APP *)list->a_next = applist;
	  applist = list;
	  list->a_doc[0] = 0;
	  list->a_argu[0] = 0;
	  list->a_key = 0;
	  list->a_pref = 0;
	  list->a_limit = 0;
	  list->a_name = Nostr;		/* Point to no string	*/
	}
	else
	{
	  if ( apbuf_init() )		/* allocate buffer	*/
	    goto again;
	} 

	return( list );
}



/*	Find the actual application type	*/

APP *
app_xtype( REG BYTE *name, WORD *install )
/* application installed	*/
{
	REG APP		*app;
	APP		*markapp;

	app = applist;
	markapp = (APP*) 0;
 
	while( app )
	{
	  if ( ( app->a_type != FOLDER ) && ( app->a_type != ICONS ) )
	  {
	    if ( x_wildcmp( app->a_name, name ) )
	    {
	      if ( markapp )
		goto x_p1;

	      *install = FALSE;
	      return( app );
	    }
	    
	    if ( !strcmp( app->a_doc, noext ) )
	    {
	      if ( x_wildcmp( app->a_doc, name ) )
	      {
	        *install = TRUE;
	        if ( app->a_name[0] )
		  return( app );
		
	        if ( !markapp )
		  markapp = app;
	      }
	    }
	  }
x_p1:
	  app = (APP *)app->a_next;

	}/* while     */

	return( markapp );
} 


WORD
x_wildcmp( BYTE *source, BYTE *dest )
{
	if ( *source )
	{
	  if ( *scasb( source, '*' ) )
	    return( wildcmp( source, g_name( dest ) ) );
	  else
	    return( strcmp( source, dest ) );	
	}
	return( FALSE );
}

WORD	ftab[] = { 0,   F1,  F2,  F3,  F4,  F5,  F6,  F7,  F8,  F9, F10,
		   F11, F12, F13, F14, F15, F16, F17, F18, F19, F20 };

/*	Find the key that matches the application	*/
	
APP *
app_key( WORD key )
{
	REG APP	*app;

	app = applist;
	
	while( app )
	{
	   if ( ftab[app->a_key] == key )
	      return( app );

	  app = (APP *)app->a_next;
	}

	return( (APP*)0 );
}