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()));
}
