SCM

SCM Repository

[matrix] Diff of /pkg/src/Mutils.h
ViewVC logotype

Diff of /pkg/src/Mutils.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2119, Tue Mar 4 21:44:04 2008 UTC revision 2120, Tue Mar 4 21:44:41 2008 UTC
# Line 50  Line 50 
50  #define LFT CblasLeft  #define LFT CblasLeft
51  #define RGT CblasRight  #define RGT CblasRight
52    
53    #if !defined(R_VERSION) || R_VERSION < R_Version(2, 7, 0)
54  char La_norm_type(const char *typstr);  char La_norm_type(const char *typstr);
55  char rcond_type(const char *typstr);  char La_rcond_type(const char *typstr);
56    #endif
57    
58  double get_double_by_name(SEXP obj, char *nm);  double get_double_by_name(SEXP obj, char *nm);
59  SEXP set_double_by_name(SEXP obj, double val, char *nm);  SEXP set_double_by_name(SEXP obj, double val, char *nm);
60  SEXP as_det_obj(double val, int log, int sign);  SEXP as_det_obj(double val, int log, int sign);
# Line 101  Line 104 
104  #define PACKED_LENGTH(n)   ((n) * ((n) + 1))/2  #define PACKED_LENGTH(n)   ((n) * ((n) + 1))/2
105    
106  /* duplicate the slot with name given by sym from src to dest */  /* duplicate the slot with name given by sym from src to dest */
107  /* FIXME: is not yet used */  
108  #define slot_dup(dest, src, sym)  SET_SLOT(dest, sym, duplicate(GET_SLOT(src, sym)))  #define slot_dup(dest, src, sym)  SET_SLOT(dest, sym, duplicate(GET_SLOT(src, sym)))
109    
110    /* is not yet used: */
111  #define slot_nonNull_dup(dest, src, sym)                        \  #define slot_nonNull_dup(dest, src, sym)                        \
112      if(GET_SLOT(src, sym) != R_NilValue)                        \      if(GET_SLOT(src, sym) != R_NilValue)                        \
113          SET_SLOT(dest, sym, duplicate(GET_SLOT(src, sym)))          SET_SLOT(dest, sym, duplicate(GET_SLOT(src, sym)))

Legend:
Removed from v.2119  
changed lines
  Added in v.2120

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge