/home/doxygen/libascend/compiler/functype.h

Go to the documentation of this file.

/*
 *  Functions-of-one-variable module
 *  by Tom Epperly
 *  Version: $Revision: 1.8 $
 *  Version control file: $RCSfile: functype.h,v $
 *  Date last modified: $Date: 2001/01/31 22:23:58 $
 *  Last modified by: $Author: ballan $
 *
 *  This file is part of the Ascend Language Interpreter.
 *
 *  Copyright (C) 1990, 1993, 1994 Thomas Guthrie Epperly
 *
 *  The Ascend Language Interpreter 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.
 *
 *  The Ascend Language Interpreter is distributed in 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 the program; if not, write to the Free Software Foundation,
 *  Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check the file named
 *  COPYING.  Revision notes:
 *
 *  If CHRIS_FUNC defined, auxillary quantities to func structure.
 *  2/96 baa Probably somebody should properly set these evaluation
 *  defined below based on math.h when possible.
 *  10/96 moved safe_err definition into here.
 */

#ifndef ASC_FUNCTYPE_H
#define ASC_FUNCTYPE_H

enum safe_err {
  safe_problem = -1,
  safe_ok = 0,
  safe_div_by_zero = 1,
  safe_complex_result = 2,
  safe_overflow = 3,
  safe_underflow = 4,
  safe_range_error = 5
};

enum Func_enum {
   F_LOG10, F_LN, F_EXP,
   F_SIN, F_COS, F_TAN,
   F_ARCSIN, F_ARCCOS, F_ARCTAN,
   F_SQR, F_SQRT,
 #ifdef HAVE_ERF
   F_ERF,
 #endif
   F_LNM, F_SINH, F_COSH, F_TANH,
   F_ARCSINH, F_ARCCOSH, F_ARCTANH,
   F_CUBE, F_CBRT, F_ABS, F_HOLD
};

struct Func {
  CONST char *name;         
  CONST char *cname;        
  CONST char *deriv1cname;  
  CONST char *deriv2cname;  
  enum Func_enum id;        
  double (*value)(double);  
  double (*deriv)(double);  
  double (*deriv2)(double); 
  double (*safevalue)(double,enum safe_err *); 
  double (*safederiv)(double,enum safe_err *); 
  double (*safederiv2)(double,enum safe_err *); 
#ifdef CHRIS_FUNC
  struct Interval (*ivalue)();  
  void (*slope)(unsigned long,struct Interval *,struct Interval *,
  struct Interval *);           
  struct Interval (*ideriv)(struct Interval);
  double (*tmin)(double,double); 
  double (*tmax)(double,double); 
  double (*e)(double,double,double,double (*)(double));   
  double (*ed)(double,double,double,double (*)(double));  
  double (*E)(double,double,double,double (*)(double));   
  double (*Ed)(double,double,double,double (*)(double));  
#endif
};

/* @} */

#endif   /* ASC_FUNCTYPE_H */

---