The R Project SVN R-packages

Rev

Rev 3456 | Rev 3473 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3456 Rev 3457
Line 28... Line 28...
28 
/* sdf type attributes */
 28 
/* sdf type attributes */
29 
#define GET_SDFVECTORTYPE(x) getAttrib(x, SDF_VectorTypeSymbol)
29 
#define GET_SDFVECTORTYPE(x) getAttrib(x, SDF_VectorTypeSymbol)
30 
#define SET_SDFVECTORTYPE(x,t) setAttrib(x, SDF_VectorTypeSymbol, t)
30 
#define SET_SDFVECTORTYPE(x,t) setAttrib(x, SDF_VectorTypeSymbol, t)
31 
#define TEST_SDFVECTORTYPE(x, t) (strcmp(CHAR(asChar(GET_SDFVECTORTYPE(x))), t) == 0)
 31 
#define TEST_SDFVECTORTYPE(x, t) (strcmp(CHAR(asChar(GET_SDFVECTORTYPE(x))), t) == 0)
32 
#define GET_SDFROWNAMES(x) getAttrib(x, SDF_RowNamesSymbol)
 32 
#define GET_SDFROWNAMES(x) getAttrib(x, SDF_RowNamesSymbol)
- 
 
 33 
#define SET_SDFROWNAMES(x, r) setAttrib(x, SDF_RowNamesSymbol, r)
- 
 
 34 
 
- 
 
 35 
#ifndef SET_ROWNAMES
- 
 
 36 
#define SET_ROWNAMES(x, r) setAttrib(x, R_RowNamesSymbol, r)
- 
 
 37 
#endif
33 
 
 38 
 
34 
#define WORKSPACE_COLUMNS 6
 39 
#define WORKSPACE_COLUMNS 6
35 
#define MAX_ATTACHED 30     /* 31 including workspace.db */
 40 
#define MAX_ATTACHED 30     /* 31 including workspace.db */
36 
 
 41 
 
37 
/* utilities for checking characteristics of arg */
 42 
/* utilities for checking characteristics of arg */
Line 94... Line 99...
94 
#else
 99 
#else
95 
#define _sqlite_begin  _sqlite_error(_sqlite_exec("begin"))
100 
#define _sqlite_begin  _sqlite_error(_sqlite_exec("begin"))
96 
#define _sqlite_commit _sqlite_error(_sqlite_exec("commit"))
 101 
#define _sqlite_commit _sqlite_error(_sqlite_exec("commit"))
97 
#endif
 102 
#endif
98 
 
 103 
 
99 
#ifndef SET_ROWNAMES
- 
 
100 
#define SET_ROWNAMES(x,n) setAttrib(x, SDF_RowNamesSymbol, n)
 - 
 
101 
#endif
 - 
 
102 
 
 - 
 
103 
 
 - 
 
104 
/* R object accessors shortcuts */
 104 
/* R object accessors shortcuts */
105 
#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))
 105 
#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))
106 
 
 106 
 
107 
/* SDF object accessors shortcuts */
 107 
/* SDF object accessors shortcuts */
108 
#define SDF_INAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "iname"),0))
 108 
#define SDF_INAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "iname"),0))