https://github.com/cran/spatstat
Tip revision: c9b2c621c3bff55aaa77646dc1ba7316765cd7e4 authored by Adrian Baddeley on 25 April 2013, 00:00:00 UTC
version 1.31-2
version 1.31-2
Tip revision: c9b2c62
getcif.c
#include <R.h>
#include "methas.h"
void fexitc(const char *msg);
extern Cifns AreaIntCifns, BadGeyCifns, DgsCifns, DiggraCifns,
FikselCifns, GeyerCifns, HardcoreCifns,
LennardCifns, LookupCifns,
SoftcoreCifns, StraussCifns, StraussHardCifns,
MultiStraussCifns, MultiStraussHardCifns, MultiHardCifns, TripletsCifns;
Cifns NullCifns = NULL_CIFNS;
typedef struct CifPair {
char *name;
Cifns *p;
} CifPair;
CifPair CifTable[] = {
{"areaint", &AreaIntCifns},
{"badgey", &BadGeyCifns},
{"dgs", &DgsCifns},
{"diggra", &DiggraCifns},
{"geyer", &GeyerCifns},
{"fiksel", &FikselCifns},
{"hardcore", &HardcoreCifns},
{"lookup", &LookupCifns},
{"lennard", &LennardCifns},
{"multihard", &MultiHardCifns},
{"sftcr", &SoftcoreCifns},
{"strauss", &StraussCifns},
{"straush", &StraussHardCifns},
{"straussm", &MultiStraussCifns},
{"straushm", &MultiStraussHardCifns},
{"triplets", &TripletsCifns},
{(char *) NULL, (Cifns *) NULL}
};
Cifns getcif(cifname)
char *cifname;
{
int i;
CifPair cp;
for(i = 0; CifTable[i].name; i++) {
cp = CifTable[i];
if(strcmp(cifname, cp.name) == 0)
return(*(cp.p));
}
fexitc("Unrecognised cif name; bailing out.\n");
/* control never passes to here, but compilers don't know that */
return(NullCifns);
}
/* R interface function, to check directly whether cif is recognised */
void knownCif(cifname, answer)
char** cifname;
int* answer;
{
int i;
CifPair cp;
for(i = 0; CifTable[i].name; i++) {
cp = CifTable[i];
if(strcmp(*cifname, cp.name) == 0) {
*answer = 1;
return;
}
}
*answer = 0;
return;
}