The R Project SVN R

Rev

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

Rev 81390 Rev 81571
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1997--2020  The R Core Team
 4 
 *  Copyright (C) 1997--2022  The R Core Team
5 
 *  Copyright (C) 2003	      The R Foundation
 5 
 *  Copyright (C) 2003	      The R Foundation
6 
 *
 6 
 *
7 
 *  This program is free software; you can redistribute it and/or modify
 7 
 *  This program is free software; you can redistribute it and/or modify
8 
 *  it under the terms of the GNU General Public License as published by
 8 
 *  it under the terms of the GNU General Public License as published by
9 
 *  the Free Software Foundation; either version 2 of the License, or
 9 
 *  the Free Software Foundation; either version 2 of the License, or
Line 2578... Line 2578...
2578 
    vmaxset(vmax);
 2578 
    vmaxset(vmax);
2579 
    return ans;
 2579 
    return ans;
2580 
}
 2580 
}
2581 
 
 2581 
 
2582 
#ifndef NO_CALL_R
 2582 
#ifndef NO_CALL_R
- 
 
 2583 
// call_R was deprecated in R 2.15.0 and hidden in RS.h in R 4.2.0
- 
 
 2584 
 
2583 
static const struct {
 2585 
static const struct {
2584 
    const char *name;
 2586 
    const char *name;
2585 
    const SEXPTYPE type;
 2587 
    const SEXPTYPE type;
2586 
}
 2588 
}
2587 
 
 2589 
 
Line 2658... Line 2660...
2658 
    default:
 2660 
    default:
2659 
	return (void*) s;
 2661 
	return (void*) s;
2660 
    }
 2662 
    }
2661 
}
 2663 
}
2662 
 
 2664 
 
2663 
 
 - 
 
2664 
 
 - 
 
2665 
void call_R(char *func, long nargs, void **arguments, char **modes,
 2665 
void call_R(char *func, long nargs, void **arguments, char **modes,
2666 
	    long *lengths, char **names, long nres, char **results)
 2666 
	    long *lengths, char **names, long nres, char **results)
2667 
{
 2667 
{
2668 
    SEXP call, pcall, s;
 2668 
    SEXP call, pcall, s;
2669 
    SEXPTYPE type;
 2669 
    SEXPTYPE type;