le * evaluateNode( lithp_burrito * lb, le * node) { le * temp; le * value; if (node->branch) { if( node->quoted ) { value = leDup( node->branch ); } else { value = evaluateBranch( lb, node->branch ); } } else { temp = variableGet( lb->defunList, node->data ); if (temp) { value = evaluateDefun( lb, temp, node->list_next ); } else { temp = variableGet( lb->mainVarList, node->data ); if (temp) { value = leDup( temp ); } else { value = leNew( node->data ); } } } return( value ); }
void Lithp_callDefunViaVariable( lithp_burrito *lb, char * var ) { le * temp = variableGet( lb->mainVarList, var ); if( !temp ) return; if( !temp->data ) return; Lithp_callDefun( lb, temp->data ); }
void Lithp_callDefun( lithp_burrito *lb, char * fname ) { le * ret; le * fcn; le * temp = variableGet( lb->defunList, fname ); if( !temp ) return; fcn = leNew( fname ); ret = evaluateNode( lb, fcn ); leWipe( ret ); leWipe( fcn ); }
QWidget *QtGuiLineEdit::create(QWidget* parent, QLayout* layout) { qDebug("QtGuiLineEdit::create\n"); data_->create(parent,layout); variableGet(); if (data_->isSet(*(data_->argdict_),"val")) valueSet(data_->getString(*(data_->argdict_),"val")); else switch (data_->type_) { case QtGuiLineEditPrivate::DOUBLE: valueSet("0.0"); break; case QtGuiLineEditPrivate::INT: valueSet("0"); break; } connect(data_->lineedit_,SIGNAL(returnPressed()), this,SLOT(stateChanged())); if (data_->getBool(*(data_->argdict_),"update",false)) { connect(data_->lineedit_,SIGNAL(textChanged(const QString&)), this,SLOT(stateChanged())); }