Commit c6945dc2 authored by whitlocb's avatar whitlocb

Fixes for libsim: VisItAddOperator. Improvements to VisItSetPlotOptions, VisItSetOperatorOptions

git-svn-id: http://visit.ilight.com/svn/visit/trunk/src@25603 18c085ea-50e0-402c-830e-de6fd14e8384
parent 049dcad9
......@@ -123,20 +123,28 @@ class STATE_API AttributeGroup
public:
enum FieldType {
FieldType_unknown,
FieldType_bool,
FieldType_boolVector,
FieldType_char,
FieldType_charArray,
FieldType_charVector,
FieldType_uchar,
FieldType_ucharArray,
FieldType_ucharVector,
FieldType_int,
FieldType_intArray,
FieldType_intVector,
FieldType_bool,
FieldType_boolVector,
FieldType_long,
FieldType_longArray,
FieldType_longVector,
FieldType_float,
FieldType_floatArray,
FieldType_floatVector,
FieldType_double,
FieldType_doubleArray,
FieldType_doubleVector,
FieldType_uchar,
FieldType_ucharArray,
FieldType_ucharVector,
FieldType_string,
FieldType_stringArray,
FieldType_stringVector,
FieldType_colortable,
FieldType_color,
......
......@@ -148,8 +148,10 @@ typedef struct
int (*add_operator)(void *, const char *, int);
int (*draw_plots)(void *);
int (*delete_active_plots)(void *);
int (*set_plot_options)(void *, int, const char *, int, void *, int);
int (*set_operator_options)(void *, int, int, const char *, int, void *, int);
int (*set_active_plots)(void *, const int *, int);
int (*set_plot_options)(void *, const char *, int, void *, int);
int (*set_operator_options)(void *, const char *, int, void *, int);
int (*exportdatabase)(void *, const char *, const char *, visit_handle);
......@@ -1896,8 +1898,9 @@ static int LoadVisItLibrary(void)
CONTROL_DLSYM_OPTIONAL(add_operator, int, (void *, const char *, int));
CONTROL_DLSYM_OPTIONAL(draw_plots, int, (void *));
CONTROL_DLSYM_OPTIONAL(delete_active_plots, int, (void *));
CONTROL_DLSYM_OPTIONAL(set_plot_options, int, (void *, int, const char *, int, void *, int));
CONTROL_DLSYM_OPTIONAL(set_operator_options, int, (void *, int, int, const char *, int, void *, int));
CONTROL_DLSYM_OPTIONAL(set_active_plots, int, (void *, const int *, int));
CONTROL_DLSYM_OPTIONAL(set_plot_options, int, (void *, const char *, int, void *, int));
CONTROL_DLSYM_OPTIONAL(set_operator_options, int, (void *, const char *, int, void *, int));
CONTROL_DLSYM_OPTIONAL(initialize_batch, int, (void *, int, char **));
CONTROL_DLSYM_OPTIONAL(exportdatabase, int, (void *, const char *, const char *, visit_handle));
......@@ -4093,77 +4096,122 @@ VisItDeleteActivePlots(void)
return retval;
}
/******************************************************************************
*
* Name: VisItSetActivePlots
*
* Purpose: Set the active plots in the plot list.
*
* Programmer: Brad Whitlock
* Date: Mon Feb 2 13:44:02 PST 2015
*
* Modifications:
*
******************************************************************************/
int
VisItSetActivePlots(const int *ids, int nids)
{
int retval = VISIT_ERROR;
LIBSIM_API_ENTER(VisItSetActivePlots);
/* Make sure the function exists before using it. */
if (engine && callbacks != NULL && callbacks->control.set_active_plots)
{
retval = (*callbacks->control.set_active_plots)(engine, ids, nids);
}
LIBSIM_API_LEAVE(VisItSetActivePlots)
return retval;
}
/******************************************************************************
*
* Name: VisItSetPlotOptions*
*
* Purpose: Sets the operator options for the active operator.
*
* Programmer: Brad Whitlock
* Date: Mon Feb 2 13:55:43 PST 2015
*
* Modifications:
*
******************************************************************************/
static int
PlotOpt(int plotID, const char *fieldName, int fieldType, void *fieldVal, int fieldLen)
PlotOpt(const char *fieldName, int fieldType, void *fieldVal, int fieldLen)
{
int retval = VISIT_ERROR;
LIBSIM_API_ENTER(VisItSetPlotOptions);
#if 0
/* Make sure the function exists before using it. */
if (engine && callbacks != NULL && callbacks->control.set_plot_options)
{
retval = (*callbacks->control.set_plot_options)(engine, plotID, fieldName, fieldType, fieldVal, fieldLen);
retval = (*callbacks->control.set_plot_options)(engine, fieldName, fieldType, fieldVal, fieldLen);
}
#endif
LIBSIM_API_LEAVE(VisItSetPlotOptions)
return retval;
}
int VisItSetPlotOptionsC(int id,const char*n,char v){ return PlotOpt(id,n,VISIT_FIELDTYPE_CHAR,(void*)&v,1); }
int VisItSetPlotOptionsUC(int id,const char*n,unsigned char v){ return PlotOpt(id,n,VISIT_FIELDTYPE_UNSIGNED_CHAR,(void*)&v,1); }
int VisItSetPlotOptionsI(int id,const char*n,int v){ return PlotOpt(id,n,VISIT_FIELDTYPE_INT,(void*)&v,1); }
int VisItSetPlotOptionsL(int id,const char*n,long v){ return PlotOpt(id,n,VISIT_FIELDTYPE_LONG,(void*)&v,1); }
int VisItSetPlotOptionsF(int id,const char*n,float v){ return PlotOpt(id,n,VISIT_FIELDTYPE_FLOAT,(void*)&v,1); }
int VisItSetPlotOptionsD(int id,const char*n,double v){ return PlotOpt(id,n,VISIT_FIELDTYPE_DOUBLE,(void*)&v,1); }
int VisItSetPlotOptionsS(int id,const char*n,const char *v){ return PlotOpt(id,n,VISIT_FIELDTYPE_STRING,(void*)v,1); }
int VisItSetPlotOptionsCv(int id,const char*n,const char *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_CHAR_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsUCv(int id,const char*n,const unsigned char *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_UNSIGNED_CHAR_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsIv(int id,const char*n,const int *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_INT_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsLv(int id,const char*n,const long *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_LONG_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsFv(int id,const char*n,const float *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_FLOAT_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsDv(int id,const char*n,const double *v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_DOUBLE_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsSv(int id,const char*n,const char **v,int L){ return PlotOpt(id,n,VISIT_FIELDTYPE_STRING_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsC(const char *name,char v){ return PlotOpt(name,VISIT_FIELDTYPE_CHAR,(void*)&v,1); }
int VisItSetPlotOptionsUC(const char *name,unsigned char v){ return PlotOpt(name,VISIT_FIELDTYPE_UNSIGNED_CHAR,(void*)&v,1); }
int VisItSetPlotOptionsB(const char *name,int v){ return PlotOpt(name,VISIT_FIELDTYPE_INT,(void*)&v,1); }
int VisItSetPlotOptionsI(const char *name,int v){ return PlotOpt(name,VISIT_FIELDTYPE_INT,(void*)&v,1); }
int VisItSetPlotOptionsL(const char *name,long v){ return PlotOpt(name,VISIT_FIELDTYPE_LONG,(void*)&v,1); }
int VisItSetPlotOptionsF(const char *name,float v){ return PlotOpt(name,VISIT_FIELDTYPE_FLOAT,(void*)&v,1); }
int VisItSetPlotOptionsD(const char *name,double v){ return PlotOpt(name,VISIT_FIELDTYPE_DOUBLE,(void*)&v,1); }
int VisItSetPlotOptionsS(const char *name,const char *v){ return PlotOpt(name,VISIT_FIELDTYPE_STRING,(void*)v,1); }
int VisItSetPlotOptionsCv(const char *name,const char *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_CHAR_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsUCv(const char *name,const unsigned char *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_UNSIGNED_CHAR_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsIv(const char *name,const int *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_INT_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsLv(const char *name,const long *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_LONG_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsFv(const char *name,const float *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_FLOAT_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsDv(const char *name,const double *v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_DOUBLE_ARRAY,(void*)v,L); }
int VisItSetPlotOptionsSv(const char *name,const char **v,int L){ return PlotOpt(name,VISIT_FIELDTYPE_STRING_ARRAY,(void*)v,L); }
/******************************************************************************
*
* Name: VisItSetOperatorOptions*
*
* Purpose: Sets the operator options for the active operator.
*
* Programmer: Brad Whitlock
* Date: Mon Feb 2 13:55:43 PST 2015
*
* Modifications:
*
******************************************************************************/
static int
OperatorOpt(int plotID, int operatorID, const char *fieldName, int fieldType, void *fieldVal, int fieldLen)
OperatorOpt(const char *fieldName, int fieldType, void *fieldVal, int fieldLen)
{
int retval = VISIT_ERROR;
LIBSIM_API_ENTER(VisItSetOperatorOptions);
#if 0
/* Make sure the function exists before using it. */
if (engine && callbacks != NULL && callbacks->control.set_operator_options)
{
retval = (*callbacks->control.set_operator_options)(engine, plotID, operatorID, fieldName, fieldType, fieldVal, fieldLen);
retval = (*callbacks->control.set_operator_options)(engine, fieldName, fieldType, fieldVal, fieldLen);
}
#endif
LIBSIM_API_LEAVE(VisItSetOperatorOptions)
return retval;
}
int VisItSetOperatorOptionsC(int pid, int oid,const char*n,char v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_CHAR_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsUC(int pid, int oid,const char*n,unsigned char v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_UNSIGNED_CHAR_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsI(int pid, int oid,const char*n,int v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_INT_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsL(int pid, int oid,const char*n,long v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_LONG_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsF(int pid, int oid,const char*n,float v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_FLOAT_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsD(int pid, int oid,const char*n,double v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_DOUBLE_ARRAY,(void*)&v,1); }
int VisItSetOperatorOptionsS(int pid, int oid,const char*n,const char *v){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_STRING_ARRAY,(void*)v,1); }
int VisItSetOperatorOptionsCv(int pid, int oid,const char*n,const char *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_CHAR_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsUCv(int pid, int oid,const char*n,const unsigned char *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_UNSIGNED_CHAR_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsIv(int pid, int oid,const char*n,const int *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_INT_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsLv(int pid, int oid,const char*n,const long *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_LONG_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsFv(int pid, int oid,const char*n,const float *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_FLOAT_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsDv(int pid, int oid,const char*n,const double *v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_DOUBLE_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsSv(int pid, int oid,const char*n,const char **v,int L){ return OperatorOpt(pid,oid,n,VISIT_FIELDTYPE_STRING_ARRAY,(void*)v,L); }
/***************************************************************************
EXPERIMENTAL CODE
****************************************************************************/
int VisItSetOperatorOptionsC(const char *name,char v){ return OperatorOpt(name,VISIT_FIELDTYPE_CHAR,(void*)&v,1); }
int VisItSetOperatorOptionsUC(const char *name,unsigned char v){ return OperatorOpt(name,VISIT_FIELDTYPE_UNSIGNED_CHAR,(void*)&v,1); }
int VisItSetOperatorOptionsB(const char *name,int v){ return OperatorOpt(name,VISIT_FIELDTYPE_INT,(void*)&v,1); }
int VisItSetOperatorOptionsI(const char *name,int v){ return OperatorOpt(name,VISIT_FIELDTYPE_INT,(void*)&v,1); }
int VisItSetOperatorOptionsL(const char *name,long v){ return OperatorOpt(name,VISIT_FIELDTYPE_LONG,(void*)&v,1); }
int VisItSetOperatorOptionsF(const char *name,float v){ return OperatorOpt(name,VISIT_FIELDTYPE_FLOAT,(void*)&v,1); }
int VisItSetOperatorOptionsD(const char *name,double v){ return OperatorOpt(name,VISIT_FIELDTYPE_DOUBLE,(void*)&v,1); }
int VisItSetOperatorOptionsS(const char *name,const char *v){ return OperatorOpt(name,VISIT_FIELDTYPE_STRING,(void*)v,1); }
int VisItSetOperatorOptionsCv(const char *name,const char *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_CHAR_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsUCv(const char *name,const unsigned char *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_UNSIGNED_CHAR_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsIv(const char *name,const int *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_INT_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsLv(const char *name,const long *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_LONG_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsFv(const char *name,const float *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_FLOAT_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsDv(const char *name,const double *v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_DOUBLE_ARRAY,(void*)v,L); }
int VisItSetOperatorOptionsSv(const char *name,const char **v,int L){ return OperatorOpt(name,VISIT_FIELDTYPE_STRING_ARRAY,(void*)v,L); }
/******************************************************************************
*
......
......@@ -14,39 +14,42 @@ int VisItAddPlot(const char *plotType, const char *var);
int VisItAddOperator(const char *operatorType, int applyToAll);
int VisItDrawPlots(void);
int VisItDeleteActivePlots(void);
int VisItSetActivePlots(const int *ids, int nids);
/* Maybe having 1 function is better...*/
int VisItSetPlotOptionsC(int id,const char*n,char v);
int VisItSetPlotOptionsUC(int id,const char*n,unsigned char v);
int VisItSetPlotOptionsI(int id,const char*n,int v);
int VisItSetPlotOptionsL(int id,const char*n,long v);
int VisItSetPlotOptionsF(int id,const char*n,float v);
int VisItSetPlotOptionsD(int id,const char*n,double v);
int VisItSetPlotOptionsS(int id,const char*n,const char *v);
/* Set values for the current plot */
int VisItSetPlotOptionsC(const char *name,char v);
int VisItSetPlotOptionsUC(const char *name,unsigned char v);
int VisItSetPlotOptionsB(const char *name,int v);
int VisItSetPlotOptionsI(const char *name,int v);
int VisItSetPlotOptionsL(const char *name,long v);
int VisItSetPlotOptionsF(const char *name,float v);
int VisItSetPlotOptionsD(const char *name,double v);
int VisItSetPlotOptionsS(const char *name,const char *v);
int VisItSetPlotOptionsCv(int id,const char*n,const char *v,int L);
int VisItSetPlotOptionsUCv(int id,const char*n,const unsigned char *v,int L);
int VisItSetPlotOptionsIv(int id,const char*n,const int *v,int L);
int VisItSetPlotOptionsLv(int id,const char*n,const long *v,int L);
int VisItSetPlotOptionsFv(int id,const char*n,const float *v,int L);
int VisItSetPlotOptionsDv(int id,const char*n,const double *v,int L);
int VisItSetPlotOptionsSv(int id,const char*n,const char **v,int L);
int VisItSetPlotOptionsCv(const char *name,const char *v,int L);
int VisItSetPlotOptionsUCv(const char *name,const unsigned char *v,int L);
int VisItSetPlotOptionsIv(const char *name,const int *v,int L);
int VisItSetPlotOptionsLv(const char *name,const long *v,int L);
int VisItSetPlotOptionsFv(const char *name,const float *v,int L);
int VisItSetPlotOptionsDv(const char *name,const double *v,int L);
int VisItSetPlotOptionsSv(const char *name,const char **v,int L);
/* Maybe having 1 function is better...*/
int VisItSetOperatorOptionsC(int pid, int oid,const char*n,char v);
int VisItSetOperatorOptionsUC(int pid, int oid,const char*n,unsigned char v);
int VisItSetOperatorOptionsI(int pid, int oid,const char*n,int v);
int VisItSetOperatorOptionsL(int pid, int oid,const char*n,long v);
int VisItSetOperatorOptionsF(int pid, int oid,const char*n,float v);
int VisItSetOperatorOptionsD(int pid, int oid,const char*n,double v);
int VisItSetOperatorOptionsS(int pid, int oid,const char*n,const char *v);
/* Set values for the current operator */
int VisItSetOperatorOptionsC(const char *name,char v);
int VisItSetOperatorOptionsUC(const char *name,unsigned char v);
int VisItSetOperatorOptionsB(const char *name,int v);
int VisItSetOperatorOptionsI(const char *name,int v);
int VisItSetOperatorOptionsL(const char *name,long v);
int VisItSetOperatorOptionsF(const char *name,float v);
int VisItSetOperatorOptionsD(const char *name,double v);
int VisItSetOperatorOptionsS(const char *name,const char *v);
int VisItSetOperatorOptionsCv(int pid, int oid,const char*n,const char *v,int L);
int VisItSetOperatorOptionsUCv(int pid, int oid,const char*n,const unsigned char *v,int L);
int VisItSetOperatorOptionsIv(int pid, int oid,const char*n,const int *v,int L);
int VisItSetOperatorOptionsLv(int pid, int oid,const char*n,const long *v,int L);
int VisItSetOperatorOptionsFv(int pid, int oid,const char*n,const float *v,int L);
int VisItSetOperatorOptionsDv(int pid, int oid,const char*n,const double *v,int L);
int VisItSetOperatorOptionsSv(int pid, int oid,const char*n,const char **v,int L);
int VisItSetOperatorOptionsCv(const char *name,const char *v,int L);
int VisItSetOperatorOptionsUCv(const char *name,const unsigned char *v,int L);
int VisItSetOperatorOptionsIv(const char *name,const int *v,int L);
int VisItSetOperatorOptionsLv(const char *name,const long *v,int L);
int VisItSetOperatorOptionsFv(const char *name,const float *v,int L);
int VisItSetOperatorOptionsDv(const char *name,const double *v,int L);
int VisItSetOperatorOptionsSv(const char *name,const char **v,int L);
#endif
......@@ -218,6 +218,7 @@ f_visit_internal_InstallCallbacks(void)
#define F_VISITADDOPERATOR F77_ID(visitaddoperator_,visitaddoperator,VISITADDOPERATOR)
#define F_VISITDRAWPLOTS F77_ID(visitdrawplots_,visitdrawplots,VISITDRAWPLOTS)
#define F_VISITDELETEACTIVEPLOTS F77_ID(visitdeleteactiveplots_,visitdeleteactiveplots,VISITDELETEACTIVEPLOTS)
#define F_VISITSETACTIVEPLOTS F77_ID(visitsetactiveplots_,visitsetactiveplots,VISITSETACTIVEPLOTS)
#define F_VISITGETMEMORY F77_ID(visitgetmemory_,visitgetmemory,VISITGETMEMORY)
#define F_VISITEXPORTDATABASE F77_ID(visitexportdatabase_,visitexportdatabase,VISITEXPORTDATABASE)
#define F_VISITRESTORESESSION F77_ID(visitrestoresession_,visitrestoresession,VISITRESTORESESSION)
......@@ -1040,12 +1041,12 @@ F_VISITADDPLOT(const char *plotType, int *lplotType, const char *var, int *lvar)
*****************************************************************************/
FORTRAN
F_VISITADDOPERATOR(const char *operatorType, int *loperatorType, int applyToAll)
F_VISITADDOPERATOR(const char *operatorType, int *loperatorType, int *applyToAll)
{
int ret = VISIT_ERROR;
char *f_operatorType = NULL;
COPY_FORTRAN_STRING(f_operatorType, operatorType, loperatorType);
ret = VisItAddOperator(f_operatorType, applyToAll);
ret = VisItAddOperator(f_operatorType, *applyToAll);
FREE(f_operatorType);
return ret;
}
......@@ -1086,6 +1087,24 @@ F_VISITDELETEACTIVEPLOTS(void)
return VisItDeleteActivePlots();
}
/******************************************************************************
* Function: F_VISITSETACTIVEPLOTS
*
* Purpose: Allows FORTRAN to set the active plots
*
* Programmer: Brad Whitlock
* Date: Mon Feb 2 15:08:42 PST 2015
*
* Modifications:
*
*****************************************************************************/
FORTRAN
F_VISITSETACTIVEPLOTS(int *ids, int *nids)
{
return VisItSetActivePlots(ids, *nids);
}
/******************************************************************************
* Function: F_VISITGETMEMORY
*
......@@ -1160,6 +1179,348 @@ F_VISITRESTORESESSION(VISIT_F77STRING filename, int *lfilename)
return retval;
}
/******************************************************************************
*****************************************************************************/
#define F_VISITSETPLOTOPTIONSC F77_ID(visitsetplotoptionsc_,visitsetplotoptionsc,VISITSETPLOTOPTIONSC)
#define F_VISITSETPLOTOPTIONSUC F77_ID(visitsetplotoptionsuc_,visitsetplotoptionsuc,VISITSETPLOTOPTIONSUC)
#define F_VISITSETPLOTOPTIONSB F77_ID(visitsetplotoptionsb_,visitsetplotoptionsb,VISITSETPLOTOPTIONSB)
#define F_VISITSETPLOTOPTIONSI F77_ID(visitsetplotoptionsi_,visitsetplotoptionsi,VISITSETPLOTOPTIONSI)
#define F_VISITSETPLOTOPTIONSL F77_ID(visitsetplotoptionsl_,visitsetplotoptionsl,VISITSETPLOTOPTIONSL)
#define F_VISITSETPLOTOPTIONSF F77_ID(visitsetplotoptionsf_,visitsetplotoptionsf,VISITSETPLOTOPTIONSF)
#define F_VISITSETPLOTOPTIONSD F77_ID(visitsetplotoptionsd_,visitsetplotoptionsd,VISITSETPLOTOPTIONSD)
#define F_VISITSETPLOTOPTIONSS F77_ID(visitsetplotoptionss_,visitsetplotoptionss,VISITSETPLOTOPTIONSS)
#define F_VISITSETPLOTOPTIONSCV F77_ID(visitsetplotoptionscv_,visitsetplotoptionscv,VISITSETPLOTOPTIONSCV)
#define F_VISITSETPLOTOPTIONSUCV F77_ID(visitsetplotoptionsucv_,visitsetplotoptionsucv,VISITSETPLOTOPTIONSUCV)
#define F_VISITSETPLOTOPTIONSIV F77_ID(visitsetplotoptionsiv_,visitsetplotoptionsiv,VISITSETPLOTOPTIONSIV)
#define F_VISITSETPLOTOPTIONSLV F77_ID(visitsetplotoptionslv_,visitsetplotoptionslv,VISITSETPLOTOPTIONSLV)
#define F_VISITSETPLOTOPTIONSFV F77_ID(visitsetplotoptionsfv_,visitsetplotoptionsfv,VISITSETPLOTOPTIONSFV)
#define F_VISITSETPLOTOPTIONSDV F77_ID(visitsetplotoptionsdv_,visitsetplotoptionsdv,VISITSETPLOTOPTIONSDV)
#define F_VISITSETPLOTOPTIONSSV F77_ID(visitsetplotoptionssv_,visitsetplotoptionssv,VISITSETPLOTOPTIONSSV)
FORTRAN F_VISITSETPLOTOPTIONSC(VISIT_F77STRING name, int *lname, char *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsC(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSUC(VISIT_F77STRING name, int *lname, unsigned char *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsUC(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSB(VISIT_F77STRING name, int *lname, int *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsI(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSI(VISIT_F77STRING name, int *lname, int *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsI(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSL(VISIT_F77STRING name, int *lname, long *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsL(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSF(VISIT_F77STRING name, int *lname, float *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsF(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSD(VISIT_F77STRING name, int *lname, double *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsD(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSS(VISIT_F77STRING name, int *lname, char *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL, *f_value = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
COPY_FORTRAN_STRING(f_value, v, lv);
retval = VisItSetPlotOptionsS(f_name, f_value);
FREE(f_name);
FREE(f_value);
return retval;
}
/* array/vector functions */
FORTRAN F_VISITSETPLOTOPTIONSCV(VISIT_F77STRING name, int *lname, char *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsCv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSUCV(VISIT_F77STRING name, int *lname, unsigned char *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsUCv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSIV(VISIT_F77STRING name, int *lname, int *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsIv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSLV(VISIT_F77STRING name, int *lname, long *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsLv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSFV(VISIT_F77STRING name, int *lname, float *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsFv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSDV(VISIT_F77STRING name, int *lname, double *v, int *lv)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetPlotOptionsDv(f_name, v, *lv);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETPLOTOPTIONSSV(VISIT_F77STRING name, int *lname, char *v, int *lv, int *stringWidth)
{
FORTRAN retval;
int i;
char *f_name = NULL, **f_values = NULL, *start = NULL, *tmp = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
f_values = (char **)malloc(*lv * sizeof(char*));
start = v;
for(i = 0; i < *lv; ++i)
{
COPY_FORTRAN_STRING(tmp, start, stringWidth);
f_values[i] = tmp;
start += *stringWidth;
}
retval = VisItSetPlotOptionsSv(f_name, (const char **)f_values, *lv);
FREE(f_name);
for(i = 0; i < *lv; ++i)
{
FREE(f_values[i]);
}
FREE(f_values);
return retval;
}
/******************************************************************************
*****************************************************************************/
#define F_VISITSETOPERATOROPTIONSC F77_ID(visitsetoperatoroptionsc_,visitsetoperatoroptionsc,VISITSETOPERATOROPTIONSC)
#define F_VISITSETOPERATOROPTIONSUC F77_ID(visitsetoperatoroptionsuc_,visitsetoperatoroptionsuc,VISITSETOPERATOROPTIONSUC)
#define F_VISITSETOPERATOROPTIONSB F77_ID(visitsetoperatoroptionsb_,visitsetoperatoroptionsb,VISITSETOPERATOROPTIONSB)
#define F_VISITSETOPERATOROPTIONSI F77_ID(visitsetoperatoroptionsi_,visitsetoperatoroptionsi,VISITSETOPERATOROPTIONSI)
#define F_VISITSETOPERATOROPTIONSL F77_ID(visitsetoperatoroptionsl_,visitsetoperatoroptionsl,VISITSETOPERATOROPTIONSL)
#define F_VISITSETOPERATOROPTIONSF F77_ID(visitsetoperatoroptionsf_,visitsetoperatoroptionsf,VISITSETOPERATOROPTIONSF)
#define F_VISITSETOPERATOROPTIONSD F77_ID(visitsetoperatoroptionsd_,visitsetoperatoroptionsd,VISITSETOPERATOROPTIONSD)
#define F_VISITSETOPERATOROPTIONSS F77_ID(visitsetoperatoroptionss_,visitsetoperatoroptionss,VISITSETOPERATOROPTIONSS)
#define F_VISITSETOPERATOROPTIONSCV F77_ID(visitsetoperatoroptionscv_,visitsetoperatoroptionscv,VISITSETOPERATOROPTIONSCV)
#define F_VISITSETOPERATOROPTIONSUCV F77_ID(visitsetoperatoroptionsucv_,visitsetoperatoroptionsucv,VISITSETOPERATOROPTIONSUCV)
#define F_VISITSETOPERATOROPTIONSIV F77_ID(visitsetoperatoroptionsiv_,visitsetoperatoroptionsiv,VISITSETOPERATOROPTIONSIV)
#define F_VISITSETOPERATOROPTIONSLV F77_ID(visitsetoperatoroptionslv_,visitsetoperatoroptionslv,VISITSETOPERATOROPTIONSLV)
#define F_VISITSETOPERATOROPTIONSFV F77_ID(visitsetoperatoroptionsfv_,visitsetoperatoroptionsfv,VISITSETOPERATOROPTIONSFV)
#define F_VISITSETOPERATOROPTIONSDV F77_ID(visitsetoperatoroptionsdv_,visitsetoperatoroptionsdv,VISITSETOPERATOROPTIONSDV)
#define F_VISITSETOPERATOROPTIONSSV F77_ID(visitsetoperatoroptionssv_,visitsetoperatoroptionssv,VISITSETOPERATOROPTIONSSV)
FORTRAN F_VISITSETOPERATOROPTIONSC(VISIT_F77STRING name, int *lname, char *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetOperatorOptionsC(f_name, *v);
FREE(f_name);
return retval;
}
FORTRAN F_VISITSETOPERATOROPTIONSUC(VISIT_F77STRING name, int *lname, unsigned char *v)
{
FORTRAN retval;
char *f_name = NULL;
COPY_FORTRAN_STRING(f_name, name, lname);
retval = VisItSetOperatorOptionsUC(f_name, *v);
FREE(f_name);
return retval;
}