RAPI: R_ext/stats_stubs.h Source File

Go to the documentation of this file.
00001 /*
00002  *  R : A Computer Language for Statistical Data Analysis
00003  *  Copyright (C) 2007  The R Core Team.
00004  *
00005  *  This program is free software; you can redistribute it and/or modify
00006  *  it under the terms of the GNU Lesser General Public License as published by
00007  *  the Free Software Foundation; either version 2.1 of the License, or
00008  *  (at your option) any later version.
00009  *
00010  *  This program is distributed in the hope that it will be useful,
00011  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
00012  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00013  *  GNU Lesser General Public License for more details.
00014  *
00015  *  You should have received a copy of the GNU Lesser General Public License
00016  *  along with this program; if not, a copy is available at
00017  *  https://www.R-project.org/Licenses/
00018  */
00019 
00020 #include <Rconfig.h>
00021 #include <Rinternals.h>
00022 #include <R_ext/Rdynload.h>
00023 
00024 #ifdef HAVE_VISIBILITY_ATTRIBUTE
00025 # define attribute_hidden __attribute__ ((visibility ("hidden")))
00026 #else
00027 # define attribute_hidden
00028 #endif
00029 
00030 void attribute_hidden
00031 S_Rf_divset(int alg, int iv[], int liv, int lv, double v[])
00032 {
00033     static void(*fun)(int,int[],int,int,double[]) = NULL;
00034     if (fun == NULL)
00035     fun = (void(*)(int,int[],int,int,double[]))
00036         R_GetCCallable("stats", "Rf_divset");
00037     fun(alg, iv, liv, lv, v);
00038 }
00039 
00040 void attribute_hidden
00041 S_nlminb_iterate(double b[], double d[], double fx, double g[], double h[],
00042          int iv[], int liv, int lv, int n, double v[], double x[])
00043 {
00044     static void(*fun)(double[],double[],double,double[],double[],
00045               int[],int,int,int,double[],double[]) = NULL;
00046     if (fun == NULL)
00047     fun = (void(*)(double[],double[],double,double[],double[],
00048               int[],int,int,int,double[],double[]))
00049         R_GetCCallable("stats", "nlminb_iterate");
00050     fun(b, d, fx, g, h, iv, liv, lv, n, v, x);
00051 }
00052 
00053 void attribute_hidden
00054 S_nlsb_iterate(double b[], double d[], double dr[], int iv[], int liv,
00055            int lv, int n, int nd, int p, double r[], double rd[],
00056            double v[], double x[])
00057 {
00058     static void(*fun)(double[],double[],double[],int[],int,int,
00059               int,int,int,double[],double[],double[],
00060               double[]) = NULL;
00061     if (fun == NULL)
00062     fun = (void(*)(double[],double[],double[],int[],int,
00063                int, int,int,int,double[],
00064                double[],double[],double[]))
00065         R_GetCCallable("stats", "nlsb_iterate");
00066     fun(b, d, dr, iv, liv, lv, n, nd, p, r, rd, v, x);
00067 }
00068