/*
  * Khoros: $Id$
  */

#if !defined(__lint) && !defined(__CODECENTER__)
static char rcsid[] = "Khoros: $Id$";
#endif

/*
 * Copyright (C) 1993 - 1997, Khoral Research, Inc., ("KRI").
 * All rights reserved.  See $BOOTSTRAP/repos/license/License or run klicense.
 */

/* >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<<
   >>>> 
   >>>> 	Main program for myimagesum
   >>>> 
   >>>>  Private: 
   >>>> 	main
   >>>> 
   >>>>   Static: 
   >>>>   Public: 
   >>>> 
   >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<< */


#include "myimagesum.h"

clui_info_struct *clui_info = NULL;

/*-----------------------------------------------------------
|
|  Routine Name: main() - Example
|
|       Purpose: main program for myimagesum
|
|         Input:
|		char *clui_info->i1_file; {First Input data object}
|		int   clui_info->i1_flag; {TRUE if -i1 specified}
|
|		char *clui_info->i2_file; {input file}
|		int   clui_info->i2_flag; {TRUE if -i2 specified}
|
|		char *clui_info->o_file; {Resulting output data object}
|		int   clui_info->o_flag; {TRUE if -o specified}
|
|        Output:
|       Returns:
|
|    Written By: 
|          Date: July 1, 1997
| Modifications:
|
------------------------------------------------------------*/

int main(
   int  argc,
   char **argv)
{

/* -main_variable_list */
   char *lib = "myimagesum_obj";
   char *rtn = "main";
   kobject in1_object = NULL;
   kobject in2_object = NULL;
   kobject out_object = NULL;
   unsigned int *plane1;
   unsigned int *plane2;
   unsigned int *res_plane;
   int w1, h1, w2, h2, d, t, e, max_w, max_h;
   int cw, ch, ct, pos, res_pos;

/* -main_variable_list_end */

	khoros_init(argc, argv, "GYAKORLAT", PRODUCT_RELEASE_DATE,
	            PRODUCT_RELEASE_NAME, PRODUCT_RELEASE_VERSION,
	            PRODUCT_RELEASE_MAJOR, PRODUCT_RELEASE_MINOR,
	            "$GYAKORLAT/objects/kroutine/myimagesum");
	kexit_handler(myimagesum_free_args, NULL);

/* -main_get_args_call */
	kclui_init("GYAKORLAT", "myimagesum", KGEN_KROUTINE,  &clui_uis_spec,
		   myimagesum_usage_additions, myimagesum_get_args,
 		   myimagesum_free_args);
/* -main_get_args_call_end */

/* -main_before_lib_call */


if ((in1_object = kpds_open_input_object(clui_info->i1_file))
          == KOBJECT_INVALID) {
     kerror(lib, rtn, "Can not open input object %s.\n", clui_info->i1_file);
     kexit(KEXIT_FAILURE);
   }

   if ((in2_object = kpds_open_input_object(clui_info->i2_file))
          == KOBJECT_INVALID) {
     kerror(lib, rtn, "Can not open input object %s.\n", clui_info->i2_file);
     kexit(KEXIT_FAILURE);
   }
   
   if ((out_object = kpds_open_output_object(clui_info->o_file))
        == KOBJECT_INVALID) {
     kerror(lib, rtn, "Can not open output object %s.\n", clui_info->o_file);
     kexit(KEXIT_FAILURE);
   }

   /*
     most nem mĂĄsoljuk ĂĄt az input objektumot az eredmĂŠny objektumba, ezĂŠrt
     lĂŠtre kell hozni a Value szegmenst az adat szĂĄmĂĄra 
   */
   kpds_create_value( out_object );
   
   kpds_set_attribute(in1_object,  KPDS_VALUE_DATA_TYPE, KUINT);
   kpds_set_attribute(in2_object,  KPDS_VALUE_DATA_TYPE, KUINT);
   kpds_set_attribute(out_object, KPDS_VALUE_DATA_TYPE, KUINT);

  /* lekĂŠrdezzĂźk az input kĂŠp mĂŠret attribĂştumĂĄt */
  kpds_get_attribute(in1_object, KPDS_VALUE_SIZE, &w1, &h1, &d, &t, &e);    
  kpds_get_attribute(in2_object, KPDS_VALUE_SIZE, &w2, &h2, &d, &t, &e);

 /* -------------------------------------------------- */
 /*          SZÁMOLD KI A MÉRETEK MAXIMUMÁT!           */
 /*  ------------------------------------------------- */

  kpds_set_attribute( out_object, KPDS_VALUE_SIZE, max_w, max_h, d, t, e );

  plane1 = (unsigned int* ) kmalloc ( w1 * h1 * sizeof(unsigned int) );
  plane2 = (unsigned int* ) kmalloc ( w2 * h2 * sizeof(unsigned int) );
  res_plane = (unsigned int* ) kmalloc ( max_w * max_h * sizeof(unsigned int) );
  
  if (!plane1 || !plane2 || !res_plane) {
     kerror(lib, rtn, "Could not allocate memory for the image\n");
     kexit(KEXIT_FAILURE);
  }



/* -main_before_lib_call_end */

/* -main_library_call */


/*   --------------------------------------------------   */
/*       VÉGEZD EL A KÉT KÉP ÖSSZEADÁSÁT!                 */
/*   --------------------------------------------------   */

/* -main_library_call_end */

/* -main_after_lib_call */

  if (!kpds_set_attribute(out_object, KPDS_HISTORY, kpds_history_string())) {
     kerror(lib,rtn,"Unable to set history on the destination object");
     kexit(KEXIT_FAILURE);
   }

   if (plane1)
     kfree(plane1);
   if (res_plane)
     kfree(res_plane);
   if (plane2)
     kfree(plane2);
   kpds_close_object(in1_object);
   kpds_close_object(in1_object);
   kpds_close_object(out_object);
  


/* -main_after_lib_call_end */


	kexit(KEXIT_SUCCESS);
}


/*-----------------------------------------------------------
| 
|  Routine Name: myimagesum_usage_additions
| 
|       Purpose: Prints usage additions in myimagesum_usage routine
| 
|         Input: None
| 
|        Output: None
|    Written By: ghostwriter -oname myimagesum
|          Date: July 1, 1997
| Modifications: 
| 
------------------------------------------------------------*/
void myimagesum_usage_additions(void)
{
	kfprintf(kstderr, "\tExample\n");

/* -usage_additions */
/* -usage_additions_end */

}
/*-----------------------------------------------------------
| 
|  Routine Name: myimagesum_free_args
| 
|       Purpose: Frees CLUI struct allocated in myimagesum_get_args()
| 
|         Input: None
| 
|        Output: None
|    Written By: ghostwriter -oname myimagesum
|          Date: July 1, 1997
| Modifications: 
| 
------------------------------------------------------------*/
/* ARGSUSED */
void
myimagesum_free_args(
    kexit_status status,
    kaddr        client_data)
{

	/* do the wild and free thing */
	if (clui_info != NULL)
	{
		kfree_and_NULL(clui_info->i1_file);
		kfree_and_NULL(clui_info->i2_file);
		kfree_and_NULL(clui_info->o_file);
		kfree_and_NULL(clui_info);
	}

/* -free_handler_additions */
/* -free_handler_additions_end */
}