xsh_model_first_anneal.c

Go to the documentation of this file.

 
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------
  Includes
  ---------------------------------------------------------------------------*/
 
#include <cpl.h>
#include <math.h>
 
#include <stdlib.h>
#include <stdio.h> 
#include <string.h> 
 
#include <xsh_model_kernel.h>
#include <xsh_dfs.h>
#include <xsh_utils.h>
#include <xsh_pfits.h>
#include <xsh_msg.h>
#include <xsh_error.h>
 
/*-----------------------------------------------------------------------------
  Functions prototypes
  ---------------------------------------------------------------------------*/
 
static int xsh_model_first_anneal_create(cpl_plugin *) ;
static int xsh_model_first_anneal_exec(cpl_plugin *) ;
static int xsh_model_first_anneal_destroy(cpl_plugin *) ;
 
/*-----------------------------------------------------------------------------
  Static variables
  ---------------------------------------------------------------------------*/
 
static char xsh_model_first_anneal_description[] =
   "Facilatates a first appro phys mod fit using interactively derived list of wavelengths and centroids.\n";
static char xsh_model_first_anneal_description_short[] =
"Compute optimum config given wavelengths and observed detected positions";
/*-----------------------------------------------------------------------------
  Functions code
  ---------------------------------------------------------------------------*/
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
int cpl_plugin_get_info(cpl_pluginlist * list)
{
   cpl_recipe  *   recipe = cpl_calloc(1, sizeof *recipe ) ;
   cpl_plugin  *   plugin = &recipe->interface ;
 
   cpl_plugin_init(plugin,
                   CPL_PLUGIN_API,
                   XSH_BINARY_VERSION,
                   CPL_PLUGIN_TYPE_RECIPE,
                   "xsh_model_first_anneal",
                   xsh_model_first_anneal_description_short,
                   xsh_model_first_anneal_description,
                   "Paul Bristow",
                   "bristowp@eso.org",
                   xsh_get_license(),
                   xsh_model_first_anneal_create,
                   xsh_model_first_anneal_exec,
                   xsh_model_first_anneal_destroy) ;
 
   cpl_pluginlist_append(list, plugin) ;
    
   return 0;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_model_first_anneal_create(cpl_plugin * plugin)
{
   cpl_recipe      * recipe ;
   cpl_parameter * p=NULL;
 
   /* Reset library state */
   xsh_init();
 
  /* Check input */
  assure( plugin != NULL, CPL_ERROR_NULL_INPUT, "Null plugin");
 
 
   /* Check that the plugin is part of a valid recipe */
   if (cpl_plugin_get_type(plugin) == CPL_PLUGIN_TYPE_RECIPE) 
      recipe = (cpl_recipe *)plugin ;
   else return -1 ;
 
   /* Create the parameters list in the cpl_recipe object */
   recipe->parameters = cpl_parameterlist_new() ; 
 
   p = cpl_parameter_new_enum("xsh.xsh_model_compute.arm",
                              CPL_TYPE_STRING,
                              "Arm setting: ",
                              "xsh.xsh_model_compute",
                              "vis",
                              3,"uvb","vis","nir");
 
   cpl_parameter_set_alias(p, CPL_PARAMETER_MODE_CLI,"arm");
   cpl_parameterlist_append(recipe->parameters, p);
 
   p = cpl_parameter_new_value("xsh.xsh_model_compute.niter",
                  CPL_TYPE_INT,"Number of iterations ",
                  "xsh.xsh_model_compute", 100000);
 
  cpl_parameter_set_alias(p,CPL_PARAMETER_MODE_CLI,"niter");
  cpl_parameterlist_append(recipe->parameters,p);
 
 cleanup:
 
   /* Return */
   return 0;
}
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_model_first_anneal_exec(cpl_plugin * plugin)
{
   cpl_recipe  *   recipe ;
    
   /* Get the recipe out of the plugin */
   if (cpl_plugin_get_type(plugin) == CPL_PLUGIN_TYPE_RECIPE) 
      recipe = (cpl_recipe *)plugin ;
   else return -1 ;
 
   return xsh_model_first_anneal(recipe->parameters, recipe->frames) ;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_model_first_anneal_destroy(cpl_plugin * plugin)
{
   cpl_recipe  *   recipe ;
    
   /* Get the recipe out of the plugin */
   if (cpl_plugin_get_type(plugin) == CPL_PLUGIN_TYPE_RECIPE) 
      recipe = (cpl_recipe *)plugin ;
   else return -1 ;
 
   cpl_parameterlist_delete(recipe->parameters) ; 
   return 0 ;
}