bool FeaturesStatistics::Init()
{
if (InitConnections()==false)
return false;
if (InitThreads()==false)
return false;
if (SplitMLThreadDataRange(con->GetRecordCount())==false)
return false;
if (con->CreateMlRecord(MainRecord)==false)
{
notif->Error("[%s] -> Unable to create MainRecord",ObjectName);
return false;
}
if (ComputedData.Create(con->GetFeatureCount(),true)==false)
{
notif->Error("[%s] -> Unable to create ComputedData",ObjectName);
return false;
}
if (Feats.Create(con->GetFeatureCount(),true)==false)
{
notif->Error("[%s] -> Unable to create Feats Global information",ObjectName);
return false;
}
for (UInt32 tr=0;tr<con->GetFeatureCount();tr++)
{
if ((ComputedData[tr].fnValue = new double[statFuncCount])==NULL)
{
notif->Error("[%s] -> Unable to alloc data for ComputedData Values",ObjectName);
return false;
}
}
return true;
}
void ServerPool::Changed()
{
debug("Server config has been changed");
InitConnections();
CloseUnusedConnections();
}
MainWindow::MainWindow(IAppModel *model, QWidget *parent) :
QMainWindow(parent),
ui(new Ui::MainWindow),
Model(model)
{
ui->setupUi(this);
InitConnections();
}
SelectDirDlg::SelectDirDlg(QWidget *parent)
: QFrame(parent)
{
ui.setupUi(this);
Utils::InitStyle(this);
ui.stack->hide();
InitConnections();
}
void ToxProtocol::RegisterAccount (const QString& name, const QList<QWidget*>& widgets)
{
const auto detailsPage = qobject_cast<AccRegisterDetailsPage*> (widgets.value (0));
auto acc = new ToxAccount { name, this };
acc->SetNickname (detailsPage->GetNickname ());
SaveAccount (acc);
Accounts_ << acc;
emit accountAdded (acc);
InitConnections (acc);
}
void VCardDialog::UpdateNote (GlooxAccount *acc, const QString& jid)
{
if (!acc)
return;
Account_ = acc;
JID_ = jid;
Note_ = acc->GetClientConnection ()->
GetAnnotationsManager ()->GetNote (jid);
Ui_.NotesEdit_->setPlainText (Note_.note ());
rebuildClientInfo ();
QObject *entryObj = acc->GetClientConnection ()->GetCLEntry (jid);
InitConnections (qobject_cast<EntryBase*> (entryObj));
}
AnalyzeImageDlg::AnalyzeImageDlg(QWidget *parent)
: QFrame(parent)
, m_resultCount(0)
, m_closed(false)
{
ui.setupUi(this);
Utils::InitStyle(this);
QStyledItemDelegate* itemDelegate = new QStyledItemDelegate();
ui.cmbImage->setItemDelegate(itemDelegate);
NoFocusStyle* style = new NoFocusStyle(this);
ui.cmbImage->setStyle(style);
ui.edtResult->setAcceptRichText(false);
qRegisterMetaType<__int64>("__int64");
m_searchThd = new SearchImageThread;
InitConnections();
}
QQInfoDlg::QQInfoDlg(QWidget *parent)
: QFrame(parent)
{
ui.setupUi(this);
QStyledItemDelegate* itemDelegate = new QStyledItemDelegate();
ui.cmbQQAccount->setItemDelegate(itemDelegate);
NoFocusStyle* style = new NoFocusStyle(this);
ui.cmbQQAccount->setStyle(style);
Utils::InitStyle(this);
ui.btnBack->hide();
ui.btnFront->hide();
m_filter = new ChildrenFilter(this);
m_model = new QStandardItemModel(this);
m_filter->setSourceModel(m_model);
ui.trQQAccounts->setModel(m_filter);
InitConnections();
}
void ToxProtocol::LoadAccounts ()
{
QSettings settings { QSettings::IniFormat, QSettings::UserScope,
QCoreApplication::organizationName (),
QCoreApplication::applicationName () + "_Azoth_Sarin_Accounts" };
for (const auto& key : settings.childKeys ())
{
const auto& serialized = settings.value (key).toByteArray ();
const auto acc = ToxAccount::Deserialize (serialized, this);
if (!acc)
{
qWarning () << Q_FUNC_INFO
<< "cannot deserialize"
<< key;
continue;
}
Accounts_ << acc;
InitConnections (acc);
}
}
bool FeatureValuesStatistics::Init()
{
if (InitConnections()==false)
return false;
if (InitLabels()==false)
return false;
if (InitThreads()==false)
return false;
if (SplitMLThreadDataRange(con->GetRecordCount())==false)
return false;
if (Vi.Create(con->GetRecordCount(),true)==false)
{
notif->Error("[%s] -> Unable to create value array",ObjectName);
return false;
}
if (con->CreateMlRecord(MainRecord)==false)
{
notif->Error("[%s] -> Unable to create MainRecord",ObjectName);
return false;
}
// Add extra initialization here
return true;
}
bool PCA::Init(){
unsigned int idx_r,idx_f;
if (InitConnections()==false)
return false;
rc = con->GetRecordCount();
fc = con->GetFeatureCount();
if(t.Create(rc) == false){
notif->Error("[%s] Nu s-a putut creea vectorul de scoruri - t",ObjectName);
return false;
}
if(p.Create(fc) == false){
notif->Error("[%s] Nu s-a putut creea vectorul de loadings - p",ObjectName);
return false;
}
if (con->CreateMlRecord(ob)==false)
{
notif->Error("[%s] -> Unable to create ob-urile",ObjectName);
return false;
}
matrix.Create(rc,fc);
for(idx_r=0;idx_r<rc;idx_r++){
if( con->GetRecord(ob,idx_r) == false){
notif->Error("[%s] Nu s-a putut initia vectorul de scoruri (1)",ObjectName);
return false;
}
for(idx_f=0;idx_f<fc;idx_f++){
matrix.setValue(idx_r,idx_f,ob.Features[idx_f]);
}
t.Insert(ob.Features[0],idx_r);
}
notif->Info("[%s] Initializarea a avut loc cu succes.",ObjectName);
return true;
}
void setup_Rmainloop(void)
{
volatile int doneit;
volatile SEXP baseEnv;
SEXP cmd;
char deferred_warnings[11][250];
volatile int ndeferred_warnings = 0;
/* In case this is a silly limit: 2^32 -3 has been seen and
* casting to intptr_r relies on this being smaller than 2^31 on a
* 32-bit platform. */
if(R_CStackLimit > 100000000U)
R_CStackLimit = (uintptr_t)-1;
/* make sure we have enough head room to handle errors */
if(R_CStackLimit != -1)
R_CStackLimit = (uintptr_t)(0.95 * R_CStackLimit);
InitConnections(); /* needed to get any output at all */
/* Initialize the interpreter's internal structures. */
#ifdef HAVE_LOCALE_H
#ifdef Win32
{
char *p, Rlocale[1000]; /* Windows' locales can be very long */
p = getenv("LC_ALL");
strncpy(Rlocale, p ? p : "", 1000);
Rlocale[1000 - 1] = '\0';
if(!(p = getenv("LC_CTYPE"))) p = Rlocale;
/* We'd like to use warning, but need to defer.
Also cannot translate. */
if(!setlocale(LC_CTYPE, p))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_CTYPE=%s failed\n", p);
if((p = getenv("LC_COLLATE"))) {
if(!setlocale(LC_COLLATE, p))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_COLLATE=%s failed\n", p);
} else setlocale(LC_COLLATE, Rlocale);
if((p = getenv("LC_TIME"))) {
if(!setlocale(LC_TIME, p))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_TIME=%s failed\n", p);
} else setlocale(LC_TIME, Rlocale);
if((p = getenv("LC_MONETARY"))) {
if(!setlocale(LC_MONETARY, p))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_MONETARY=%s failed\n", p);
} else setlocale(LC_MONETARY, Rlocale);
/* Windows does not have LC_MESSAGES */
/* We set R_ARCH here: Unix does it in the shell front-end */
char Rarch[30];
strcpy(Rarch, "R_ARCH=/");
strcat(Rarch, R_ARCH);
putenv(Rarch);
}
#else /* not Win32 */
if(!setlocale(LC_CTYPE, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_CTYPE failed, using \"C\"\n");
if(!setlocale(LC_COLLATE, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_COLLATE failed, using \"C\"\n");
if(!setlocale(LC_TIME, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_TIME failed, using \"C\"\n");
#ifdef ENABLE_NLS
if(!setlocale(LC_MESSAGES, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_MESSAGES failed, using \"C\"\n");
#endif
/* NB: we do not set LC_NUMERIC */
#ifdef LC_MONETARY
if(!setlocale(LC_MONETARY, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_MONETARY failed, using \"C\"\n");
#endif
#ifdef LC_PAPER
if(!setlocale(LC_PAPER, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_PAPER failed, using \"C\"\n");
#endif
#ifdef LC_MEASUREMENT
if(!setlocale(LC_MEASUREMENT, ""))
snprintf(deferred_warnings[ndeferred_warnings++], 250,
"Setting LC_MEASUREMENT failed, using \"C\"\n");
#endif
#endif /* not Win32 */
#endif
/* make sure srand is called before R_tmpnam, PR#14381 */
srand(TimeToSeed());
InitArithmetic();
InitParser();
InitTempDir(); /* must be before InitEd */
InitMemory();
InitStringHash(); /* must be before InitNames */
InitNames();
InitBaseEnv();
InitGlobalEnv();
InitDynload();
InitOptions();
InitEd();
InitGraphics();
InitTypeTables(); /* must be before InitS3DefaultTypes */
InitS3DefaultTypes();
R_Is_Running = 1;
R_check_locale();
/* Initialize the global context for error handling. */
/* This provides a target for any non-local gotos */
/* which occur during error handling */
R_Toplevel.nextcontext = NULL;
R_Toplevel.callflag = CTXT_TOPLEVEL;
R_Toplevel.cstacktop = 0;
R_Toplevel.promargs = R_NilValue;
R_Toplevel.callfun = R_NilValue;
R_Toplevel.call = R_NilValue;
R_Toplevel.cloenv = R_BaseEnv;
R_Toplevel.sysparent = R_BaseEnv;
R_Toplevel.conexit = R_NilValue;
R_Toplevel.vmax = NULL;
R_Toplevel.nodestack = R_BCNodeStackTop;
#ifdef BC_INT_STACK
R_Toplevel.intstack = R_BCIntStackTop;
#endif
R_Toplevel.cend = NULL;
R_Toplevel.intsusp = FALSE;
R_Toplevel.handlerstack = R_HandlerStack;
R_Toplevel.restartstack = R_RestartStack;
R_Toplevel.srcref = R_NilValue;
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
R_ExitContext = NULL;
R_Warnings = R_NilValue;
/* This is the same as R_BaseEnv, but this marks the environment
of functions as the namespace and not the package. */
baseEnv = R_BaseNamespace;
/* Set up some global variables */
Init_R_Variables(baseEnv);
/* On initial entry we open the base language package and begin by
running the repl on it.
If there is an error we pass on to the repl.
Perhaps it makes more sense to quit gracefully?
*/
#ifdef RMIN_ONLY
/* This is intended to support a minimal build for experimentation. */
if (R_SignalHandlers) init_signal_handlers();
#else
FILE *fp = R_OpenLibraryFile("base");
if (fp == NULL)
R_Suicide(_("unable to open the base package\n"));
doneit = 0;
SETJMP(R_Toplevel.cjmpbuf);
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
if (R_SignalHandlers) init_signal_handlers();
if (!doneit) {
doneit = 1;
R_ReplFile(fp, baseEnv);
}
fclose(fp);
#endif
/* This is where we source the system-wide, the site's and the
user's profile (in that order). If there is an error, we
drop through to further processing.
*/
R_IoBufferInit(&R_ConsoleIob);
R_LoadProfile(R_OpenSysInitFile(), baseEnv);
/* These are the same bindings, so only lock them once */
R_LockEnvironment(R_BaseNamespace, TRUE);
#ifdef NOTYET
/* methods package needs to trample here */
R_LockEnvironment(R_BaseEnv, TRUE);
#endif
/* At least temporarily unlock some bindings used in graphics */
R_unLockBinding(R_DeviceSymbol, R_BaseEnv);
R_unLockBinding(R_DevicesSymbol, R_BaseEnv);
R_unLockBinding(install(".Library.site"), R_BaseEnv);
/* require(methods) if it is in the default packages */
doneit = 0;
SETJMP(R_Toplevel.cjmpbuf);
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
if (!doneit) {
doneit = 1;
PROTECT(cmd = install(".OptRequireMethods"));
R_CurrentExpr = findVar(cmd, R_GlobalEnv);
if (R_CurrentExpr != R_UnboundValue &&
TYPEOF(R_CurrentExpr) == CLOSXP) {
PROTECT(R_CurrentExpr = lang1(cmd));
R_CurrentExpr = eval(R_CurrentExpr, R_GlobalEnv);
UNPROTECT(1);
}
UNPROTECT(1);
}
if (strcmp(R_GUIType, "Tk") == 0) {
char buf[PATH_MAX];
snprintf(buf, PATH_MAX, "%s/library/tcltk/exec/Tk-frontend.R", R_Home);
R_LoadProfile(R_fopen(buf, "r"), R_GlobalEnv);
}
/* Print a platform and version dependent greeting and a pointer to
* the copyleft.
*/
if(!R_Quiet) PrintGreeting();
R_LoadProfile(R_OpenSiteFile(), baseEnv);
R_LockBinding(install(".Library.site"), R_BaseEnv);
R_LoadProfile(R_OpenInitFile(), R_GlobalEnv);
/* This is where we try to load a user's saved data.
The right thing to do here is very platform dependent.
E.g. under Unix we look in a special hidden file and on the Mac
we look in any documents which might have been double clicked on
or dropped on the application.
*/
doneit = 0;
SETJMP(R_Toplevel.cjmpbuf);
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
if (!doneit) {
doneit = 1;
R_InitialData();
}
else {
if (! SETJMP(R_Toplevel.cjmpbuf)) {
warning(_("unable to restore saved data in %s\n"), get_workspace_name());
}
}
/* Initial Loading is done.
At this point we try to invoke the .First Function.
If there is an error we continue. */
doneit = 0;
SETJMP(R_Toplevel.cjmpbuf);
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
if (!doneit) {
doneit = 1;
PROTECT(cmd = install(".First"));
R_CurrentExpr = findVar(cmd, R_GlobalEnv);
if (R_CurrentExpr != R_UnboundValue &&
TYPEOF(R_CurrentExpr) == CLOSXP) {
PROTECT(R_CurrentExpr = lang1(cmd));
R_CurrentExpr = eval(R_CurrentExpr, R_GlobalEnv);
UNPROTECT(1);
}
UNPROTECT(1);
}
/* Try to invoke the .First.sys function, which loads the default packages.
If there is an error we continue. */
doneit = 0;
SETJMP(R_Toplevel.cjmpbuf);
R_GlobalContext = R_ToplevelContext = R_SessionContext = &R_Toplevel;
if (!doneit) {
doneit = 1;
PROTECT(cmd = install(".First.sys"));
R_CurrentExpr = findVar(cmd, baseEnv);
if (R_CurrentExpr != R_UnboundValue &&
TYPEOF(R_CurrentExpr) == CLOSXP) {
PROTECT(R_CurrentExpr = lang1(cmd));
R_CurrentExpr = eval(R_CurrentExpr, R_GlobalEnv);
UNPROTECT(1);
}
UNPROTECT(1);
}
{
int i;
for(i = 0 ; i < ndeferred_warnings; i++)
warning(deferred_warnings[i]);
}
if (R_CollectWarnings) {
REprintf(_("During startup - "));
PrintWarnings();
}
/* trying to do this earlier seems to run into bootstrapping issues. */
R_init_jit_enabled();
R_Is_Running = 2;
}
bool CacheBuilder::Init()
{
return InitConnections();
}
