/*	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 <mobdefs.h>
#include <defines.h>
#include <window.h>
#include <gemdefs.h>
#include <deskusa.h>
#include <osbind.h>
#include <extern.h>

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


	WORD
app_reschange( res )
	REG WORD	res;
{
	if ( res == gl_restype )
	  return( FALSE );	

	gl_restype = res;
	pref_save = res;
	gl_rschange = TRUE;
	return( TRUE );
}


/*	Find the application's icon type	*/

	APP
*app_icon( name, type, icon )
	REG BYTE	*name;
	WORD	type;		/* looking for same type	*/
	WORD	*icon;		/* 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->a_next;
	}/* while     */

	return( app );
} 


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

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

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

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


/*	Allocation an anode	*/

	APP
*app_alloc()
{
	REG APP	*list;

again:
	list = (APP*)0;

	if ( appfree )
	{
	  list = appfree;
	  appfree = appfree->a_next;
	  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_name = Nostr;		/* Point to no string	*/
	}
	else
	{
	  if ( apbuf_init() )		/* allocate buffer	*/
	    goto again;
	} 

	return( list );
}



/*	Find the actual application type	*/

	APP
*app_xtype( name, install )
	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->a_next;

	}/* while     */

	return( markapp );
} 


	WORD
x_wildcmp( source, dest )
	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( key )
	WORD	key;
{
	REG APP	*app;

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

	  app = app->a_next;
	}

	return( (APP*)0 );
}