The R Project SVN R

Rev

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

Rev 46977 Rev 47040
Line 15... Line 15...
15 
 *  GNU General Public License for more details.
 15 
 *  GNU General Public License for more details.
16 
 *
 16 
 *
17 
 *  You should have received a copy of the GNU General Public License
 17 
 *  You should have received a copy of the GNU General Public License
18 
 *  along with this program; if not, a copy is available at
 18 
 *  along with this program; if not, a copy is available at
19 
 *  http://www.r-project.org/Licenses/
 19 
 *  http://www.r-project.org/Licenses/
- 
 
 20 
 *
- 
 
 21 
 * EXPORTS:
- 
 
 22 
 *
- 
 
 23 
 *  OneIndex()        -- used for "[[<-" in ./subassign.c
- 
 
 24 
 *  get1index()       -- used for "[["   in ./subassign.c & subset.c
- 
 
 25 
 
- 
 
 26 
 *  mat2indsub()      -- for "mat[i]"     "    "            "
- 
 
 27 
 
- 
 
 28 
 *  makeSubscript()   -- for "[" and "[<-" in ./subset.c and ./subassign.c
- 
 
 29 
 *  vectorSubscript() -- for makeSubscript()   {currently unused externally}
- 
 
 30 
 *  arraySubscript()  -- for "[i,j,..." and "[<-..." in ./subset.c, ./subassign.c
20 
 */
 31 
 */
21 
 
 32 
 
22 
#ifdef HAVE_CONFIG_H
 33 
#ifdef HAVE_CONFIG_H
23 
#include <config.h>
 34 
#include <config.h>
24 
#endif
 35 
#endif
Line 42... Line 53...
42 
	ECALL(call, _("attempt to select more than one element"));
 53 
	ECALL(call, _("attempt to select more than one element"));
43 
    }
 54 
    }
44 
    return(indx);
 55 
    return(indx);
45 
}
 56 
}
46 
 
 57 
 
- 
 
 58 
/* Utility used (only in) do_subassign2_dflt(), i.e. "[[<-" in ./subassign.c : */
47 
int attribute_hidden
 59 
int attribute_hidden
48 
OneIndex(SEXP x, SEXP s, int len, int partial, SEXP *newname, int pos, SEXP call)
 60 
OneIndex(SEXP x, SEXP s, int len, int partial, SEXP *newname, int pos, SEXP call)
49 
{
 61 
{
50 
    SEXP names;
 62 
    SEXP names;
51 
    int i, indx, nx;
 63 
    int i, indx, nx;