include/ntuple/qp_eval_fun_const.h

0001 /*
0002  *  template_fun_0arg.c  --
0003  *  Evaluation of argumentless functions a.k.a builtin constants
0004  *
0005  *  Original: 25-Nov-1994 16:48
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1996/04/23 18:38:19  maartenb
0013  *  - Add RCS keywords
0014  *
0015  *
0016  */
0017
0018 /* constants */
0019     case FC_TRUE:
0020         r->u.bval = TRUE;
0021         r->d = dim_new( D_BOOL );
0022         break;
0023     case FC_FALSE:
0024         r->u.bval = FALSE;
0025         r->d = dim_new( D_BOOL );
0026         break;
0027     case FC_PI:
0028         r->u.fval = M_PI;
0029         r->d = dim_new( D_FLOAT );
0030         break;
0031     case FC_DPI:
0032         r->u.lfval = M_PI;
0033         r->d = dim_new( D_DOUBLE );
0034         break;
0035
0036     case FC_UINT32_MIN:
0037         r->u.uval = 0;
0038         r->d = dim_new( D_UINT );
0039         break;
0040
0041     case FC_UINT32_MAX:
0042         r->u.uval = UINT32_MAX;
0043         r->d = dim_new( D_UINT );
0044         break;
0045
0046     case FC_UINT64_MIN:
0047         r->u.luval = 0;
0048         r->d = dim_new( D_ULONG );
0049         break;
0050
0051     case FC_UINT64_MAX:
0052         r->u.luval = UINT64_MAX;
0053         r->d = dim_new( D_ULONG );
0054         break;
0055
0056
0057     case FC_INT32_MIN:
0058         r->u.ival = INT32_MIN;
0059         r->d = dim_new( D_INT );
0060         break;
0061
0062     case FC_INT32_MAX:
0063         r->u.ival = INT32_MAX;
0064         r->d = dim_new( D_INT );
0065         break;
0066
0067     case FC_INT64_MIN:
0068         r->u.lival = INT64_MIN;
0069         r->d = dim_new( D_LONG );
0070         break;
0071
0072     case FC_INT64_MAX:
0073         r->u.lival = INT64_MAX;
0074         r->d = dim_new( D_LONG );
0075         break;
0076
0077
0078     case FC_FLOAT32_MIN:
0079         r->u.fval = FLOAT32_MIN;
0080         r->d = dim_new( D_FLOAT );
0081         break;
0082
0083     case FC_FLOAT32_MAX:
0084         r->u.fval = FLOAT32_MAX;
0085         r->d = dim_new( D_FLOAT );
0086         break;
0087
0088     case FC_FLOAT64_MIN:
0089         r->u.lfval = FLOAT64_MIN;
0090         r->d = dim_new( D_DOUBLE );
0091         break;
0092
0093     case FC_FLOAT64_MAX:
0094         r->u.lfval = FLOAT64_MAX;
0095         r->d = dim_new( D_DOUBLE );
0096         break;