String pinmode()
{
int pin=str2int(rdata("pin ?"));
int mode=str2int(rdata("mode ?"));
pinMode(pin,mode);
return "";
}
String pulsein()
{
int pin=str2int(rdata("pin ?"));
int value=str2int(rdata("value ?"));
int timeout=str2int(rdata("timeout ?"));
return pulseIn(pin, value, timeout);
}
RcppExport SEXP AddPoint(SEXP x,SEXP d) {
try {
Rcpp::XPtr< flann::Index<flann::L2<float> > > index(x);
Rcpp::NumericVector rdata(d);
int colNum = rdata.size();
flann::Matrix<float> input(new float[colNum], 1, colNum);
for (int i = 0; i < colNum; i++) {
input[0][i] = rdata(i);
}
index->addPoints(input);
return R_NilValue; // -Wall
} catch( std::exception &ex ) { // or use END_RCPP macro
forward_exception_to_r( ex );
} catch(...) {
::Rf_error( "c++ exception (unknown reason)" );
}
return R_NilValue; // -Wall
}
static void rattr(unsigned verb, SkStream& s, BMLW& rec, SkXMLWriter& writer)
{
int data = verb & 31;
verb >>= 5;
int nameIndex, valueIndex;
switch (verb) {
case kAttr_Value_Value_Verb:
nameIndex = rec.fNextName; // record before the ++
set(rec.fNames, rec.fNextName++, s, data);
valueIndex = rec.fNextValue; // record before the ++
set(rec.fValues, rec.fNextValue++, s, 31);
break;
case kAttr_Value_Index_Verb:
nameIndex = rec.fNextName; // record before the ++
set(rec.fNames, rec.fNextName++, s, data);
valueIndex = rbyte(s);
break;
case kAttr_Index_Value_Verb:
nameIndex = rdata(s, data);
valueIndex = rec.fNextValue; // record before the ++
set(rec.fValues, rec.fNextValue++, s, 31);
break;
case kAttr_Index_Index_Verb:
nameIndex = rdata(s, data);
valueIndex = rbyte(s);
break;
default:
SkDEBUGFAIL("bad verb");
return;
}
writer.addAttribute(rec.fNames[nameIndex], rec.fValues[valueIndex]);
}
String analogwrite()
{
int pin=str2int(rdata("pin ?"));
int value=str2int(rdata("value ?"));
analogWrite(pin, value);
return "";
}
String shiftin()
{
int dataPin=str2int(rdata("dataPin ?"));
int clockPin=str2int(rdata("clockPin ?"));
int bitOrder=str2int(rdata("bitOrder ?"));
return shiftIn(dataPin, clockPin, bitOrder);
}
String digitalwrite()
{
int pin=str2int(rdata("pin ?"));
int value=str2int(rdata("value ?"));
digitalWrite(pin,value);
return "";
}
RcppExport SEXP CreateCenters(SEXP d) {
try {
Rcpp::NumericVector rdata(d);
int colNum = rdata.size();
flann::Matrix<float> input(new float[colNum], 1, colNum);
for (int i = 0; i < colNum; i++) {
input[0][i] = rdata(i);
}
flann::Index<flann::L2<float> >* index = new flann::Index<flann::L2<float> >(input,flann::KDTreeSingleIndexParams());
index->buildIndex();
Rcpp::XPtr< flann::Index<flann::L2<float> > > p(index, true);
return p; // -Wall
} catch( std::exception &ex ) { // or use END_RCPP macro
forward_exception_to_r( ex );
} catch(...) {
::Rf_error( "c++ exception (unknown reason)" );
}
return R_NilValue; // -Wall
}
String tones()
{
int pin=str2int(rdata("pin ?"));
int frequency=str2int(rdata("frequency ?"));
int duration=str2int(rdata("duration ?"));
tone(pin, frequency, duration);
return "";
}
String shiftout()
{
int dataPin=str2int(rdata("dataPin ?"));
int clockPin=str2int(rdata("clockPin ?"));
int bitOrder=str2int(rdata("bitOrder ?"));
int value=str2int(rdata("value ?"));
shiftOut(dataPin, clockPin, bitOrder, value);
return "";
}
void
init() /* everything for 1st time run */
{
rdata(); /* read data from orig. file */
linkdata();
poof();
}
void equalizeHistogram ()
{
real_array_type rdata( boost::extents[getSizeX()][getSizeY()] );
Abstract2dData::getRealSpaceData(&rdata);
SingleParticle2dx::Utilities::DataContainerFunctions::equalizeHistogram(&rdata);
Abstract2dData::setFourierSpaceData(&rdata);
}
u64 r64 (addr address)
{
u64 x;
rdata(address, &x, sizeof(x));
return x;
}
/* everything for 1st time run */
void
init(void)
{
rdata(); /* read data from orig. file */
linkdata();
poof();
}
void loop()
{
cmdlck = "";
cmd = rdata("?");
cmdlck = cmd;
sprintln(funcparser(cmd));
}
void SingleParticle2dx::DataStructures::Particle::flipXYAxis()
{
real_array_type rdata( boost::extents[getSizeX()][getSizeY()] );
getRealSpaceData(&rdata);
SingleParticle2dx::Utilities::DataContainerFunctions::applyMirrorXY(&rdata);
setFourierSpaceData(&rdata);
}
u32 r32 (addr address)
{
u32 x;
rdata(address, &x, sizeof(x));
return x;
}
char *annexe_stockdata(char *dirname, t_llist **llist,\
t_opts opts, DIR *dir)
{
struct dirent *sfile;
char *path;
while ((sfile = readdir(dir)) != NULL)
{
path = ft_strjoin(dirname, "/");
if (rdata(path, &(*llist), sfile->d_name, opts) == -1)
{
ft_putendl_fd("ERROR - ADD DATA", 2);
return (NULL);
}
if (opts.rr == 1)
{
if (((*llist) = stockrec(*llist, path, opts)) == NULL)
{
ft_putendl(ft_strjoin(path, sfile->d_name));
return (NULL);
}
}
}
return (path);
}
u16 r16 (addr address)
{
u16 x;
rdata(address, &x, sizeof(x));
return x;
}
addr raddr (addr address)
{
addr x;
rdata(address, &x, sizeof(x));
return x;
}
u8 r8 (addr address)
{
u8 x;
rdata(address, &x, sizeof(x));
return x;
}
void addGaussianNoise(value_type sd)
{
real_array_type rdata( boost::extents[getSizeX()][getSizeY()] );
Abstract2dData::getRealSpaceData(&rdata);
SingleParticle2dx::Utilities::DataContainerFunctions::addGaussianNoise(&rdata, sd);
SingleParticle2dx::Utilities::DataContainerFunctions::normalizeRealSpaceData(&rdata);
Abstract2dData::setFourierSpaceData(&rdata);
}
Data::FreeFunctor Data::free() {
RDataShadow* data = rdata();
if(typed()) {
return data->d.typed.type->function.dfree;
} else {
return data->d.untyped.dfree;
}
}
Data::MarkFunctor Data::mark() {
RDataShadow* data = rdata();
if(typed()) {
return data->d.typed.type->function.dmark;
} else {
return data->d.untyped.dmark;
}
}
void
readminterms(void)
{
for(;;) {
if(rdata()) break;
convert();
}
}
int
main(int argc, char *argv[])
{
int i, j;
stin= stdin;
warn = 1000;
buildclass();
while(argc > 1 && argv[1][0] == '-') {
for(i=1; j = argv[1][i]; i++) {
switch(j) {
default:
fprintf(stderr, "unknown flag -%c\n", j);
continue;
case 'q':
qflag = 1;
break;
case 'w':
warn = atoi(&argv[1][i+1]);
break;
}
break;
}
argc--;
argv++;
}
if(argc > 2)
fprintf(stderr, "Too many arguments -- ignored\n");
if(argc > 1) {
stin = fopen(argv[1], "r");
if(stin == 0) {
fprintf(stderr, "cannot open %s\n", argv[1]);
doexit(1);
}
}
readmore:
nterm = 0;
itmpp = 0;
peekc = opeekc;
peeks = opeeks;
numb = onumb;
if(rdata())
doexit(0);
opeeks = peeks;
opeekc = peekc;
onumb = numb;
if(qflag)
doimpq(itmp, &itmp[itmpp], mask, 1L);
else
doimp(itmp, &itmp[itmpp], mask, 1L);
if(nterm % PERLINE)
fprintf(stdout, "\n");
goto readmore;
}
int RogueSaveManager::Load(const int num, BaseSaveData* loaddata) {
const string rfilename(GetFileName(num));
std::ifstream ifs(rfilename,ios::in | ios::binary);
RogueSaveData* rdata(static_cast<RogueSaveData*>(loaddata));
ifs.read((char *)(rdata), Sizes[num]);
return 1;
}
void init(char* command) /* everything for 1st time run */
/* command we were called with */
{
rdata(); /* read data from orig. file */
linkdata();
poof();
prht();
snd_msg="\nInitialization completed.\n";
write(new_fd,snd_msg,strlen(snd_msg));//printf("Initialization succeeded\n");
}
String attachinterrupt()
{
int interrupt=str2int(rdata("interrupt ?"));
if (interrupt == 0)
{
attachInterrupt(interrupt, pycallback0, CHANGE);
}
if (interrupt == 1)
{
attachInterrupt(interrupt, pycallback1, CHANGE);
}
return "";
}
String test()
{
int intp=str2int(rdata("interrupts ?"));
if (intp == 0)
{
int0 = !int0;
}
if (intp == 1)
{
int1 = !int1;
}
return "";
}
