xsh_util_bpmap2rp.c

Go to the documentation of this file.

/* $Id: xsh_util_bpmap2rp.c,v 1.3 2012-04-26 14:07:00 amodigli Exp $
 *
 * This file is part of the XSHOOTER Pipeline
 * Copyright (C) 2002,2003 European Southern Observatory
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
 
/*
 * $Author: amodigli $
 * $Date: 2012-04-26 14:07:00 $
 * $Revision: 1.3 $
 * $Name: not supported by cvs2svn $
 */
 
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
 
/*-----------------------------------------------------------------------------
                                Includes
 ----------------------------------------------------------------------------*/
#include <string.h>
 
/* cpl */
#include <cpl.h>
 
/* irplib */
//#include <irplib_utils.h>
 
//#include <xsh_tpl_utils.h>
//#include <xsh_pfits.h>
//#include <xsh_tpl_dfs.h>
//#include <xsh_key_names.h>
//#include <xsh_pro_types.h>
//#include <xsh_functions.h>
#include <xsh_dfs.h>
#include <xsh_data_pre.h>
#include <xsh_parameters.h>
#include <xsh_drl.h>
#include <xsh_msg.h>
#include <xsh_pfits.h>
#include <xsh_error.h>
//#include <xsh_utils_wrappers.h>
 
 
/*-----------------------------------------------------------------------------
                               Defines
 ----------------------------------------------------------------------------*/
 
#define XSH_UTL_BPMAP2RP_RECIPE_ID "xsh_util_bpmap2rp"
#define XSH_UTL_BPMAP2RP_RECIPE_AUTHOR "A.Modigliani"
#define XSH_UTL_BPMAP2RP_RECIPE_CONTACT "Andrea.Modigliani@eso.org"
#define PRO_IMA "PRO_IMA_UVB"
#define KEY_VALUE_HPRO_DID                 "PRO-1.15"
/*-----------------------------------------------------------------------------
                            Functions prototypes
 ----------------------------------------------------------------------------*/
 
static int xsh_util_bpmap2rp_create(cpl_plugin *) ;
static int xsh_util_bpmap2rp_exec(cpl_plugin *) ;
static int xsh_util_bpmap2rp_destroy(cpl_plugin *) ;
static int xsh_util_bpmap2rp(cpl_parameterlist *, cpl_frameset *) ;
 
/*-----------------------------------------------------------------------------
                            Static variables
 ----------------------------------------------------------------------------*/
 
static char 
xsh_util_bpmap2rp_description_short[] = "Converts BP map code to RP code";
static char xsh_util_bpmap2rp_description[] =
"This recipe performs image computation.\n"
"Information on relevant parameters can be found with\n"
"esorex --params xsh_util_bpmap2rp\n"
"esorex --help xsh_util_bpmap2rp\n"
"\n";
 
/*-----------------------------------------------------------------------------
                                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_UTL_BPMAP2RP_RECIPE_ID,
                    xsh_util_bpmap2rp_description_short,
                    xsh_util_bpmap2rp_description,
                    XSH_UTL_BPMAP2RP_RECIPE_AUTHOR,
                    XSH_UTL_BPMAP2RP_RECIPE_CONTACT,
                    xsh_get_license(),
                    xsh_util_bpmap2rp_create,
                    xsh_util_bpmap2rp_exec,
                    xsh_util_bpmap2rp_destroy) ;
 
    cpl_pluginlist_append(list, plugin) ;
    
    return 0;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_util_bpmap2rp_create(cpl_plugin * plugin)
{
    cpl_recipe      * recipe ;
    cpl_parameter   * p ;
 
  /* Reset library state */
  xsh_init();
 
    /* 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_error_reset();
 
 
    /* Create the parameters list in the cpl_recipe object */
    recipe->parameters = cpl_parameterlist_new() ; 
 
 
    /* Set generic parameters (common to all recipes) */
    check( xsh_parameters_generic(XSH_UTL_BPMAP2RP_RECIPE_ID, 
                  recipe->parameters ) ) ;
    xsh_parameters_decode_bp(XSH_UTL_BPMAP2RP_RECIPE_ID,recipe->parameters,-1);
    /* Fill the parameters list */
    /* --stropt */
    p = cpl_parameter_new_value("xsh.xsh_util_bpmap2rp.op", 
                                CPL_TYPE_STRING, 
                                "A possible operation", 
                                "xsh.xsh_util_bpmap2rp","+");
    cpl_parameter_set_alias(p, CPL_PARAMETER_MODE_CLI, "op") ;
    cpl_parameterlist_append(recipe->parameters, p) ;
 
    /* --doubleopt */
    p = cpl_parameter_new_value("xsh.xsh_util_bpmap2rp.value", 
            CPL_TYPE_DOUBLE, "a value", "xsh.xsh_util_bpmap2rp", 9999.) ;
    cpl_parameter_set_alias(p, CPL_PARAMETER_MODE_CLI, "value") ;
    cpl_parameterlist_append(recipe->parameters, p) ;
 cleanup: 
 
    /* Return */
    return 0;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_util_bpmap2rp_exec(cpl_plugin * plugin)
{
    cpl_recipe  *   recipe ;
     int code=0;
     cpl_errorstate initial_errorstate = cpl_errorstate_get();
 
    /* 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_error_reset();
 
    code = xsh_util_bpmap2rp(recipe->parameters, recipe->frames) ;
 
 
    if (!cpl_errorstate_is_equal(initial_errorstate)) {                      
        /* Dump the error history since recipe execution start.                
           At this point the recipe cannot recover from the error */           
        cpl_errorstate_dump(initial_errorstate, CPL_FALSE, NULL);              
    } 
 
    return code ;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int xsh_util_bpmap2rp_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 ;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
static int 
xsh_util_bpmap2rp( cpl_parameterlist   *   parlist, 
                   cpl_frameset        *   framelist)
{
   cpl_image           *   ima=NULL ;
   cpl_propertylist    *   head=NULL ;
   int n=0;
   int i=0;
   const char* name=NULL;
   cpl_frame* frm=NULL;
 
   xsh_msg("Welcome to XSHOOTER Pipeline release %d.%d.%d",
           XSH_MAJOR_VERSION,XSH_MINOR_VERSION,XSH_MICRO_VERSION);
 
   n=cpl_frameset_get_size(framelist);
   if(n<1) {
      xsh_msg_error("Empty input frame list!");
      goto cleanup ;
   }
 
 
   for(i=0;i<n;i++) {
      frm=cpl_frameset_get_frame(framelist,i);
      name=cpl_frame_get_filename(frm);
      ima=cpl_image_load(name,CPL_TYPE_FLOAT,0,0);
      head=cpl_propertylist_load(name,0);
      xsh_bpmap_bitwise_to_flag(ima,QFLAG_CALIB_FILE_DEFECT);
      cpl_image_save(ima,name,CPL_BPP_IEEE_FLOAT,head,CPL_IO_DEFAULT);
      xsh_free_propertylist(&head);
      xsh_free_image(&ima);
   }
 
  cleanup:
   
   xsh_free_image(&ima);
   xsh_free_propertylist(&head) ;
 
   if (cpl_error_get_code()) {
      return -1 ;
   } else {
      return 0 ;
   }
 
}