mpdm_t mpsl_mkins(wchar_t * opcode, int args, mpdm_t a1, mpdm_t a2,
mpdm_t a3, mpdm_t a4)
/* creates an instruction */
{
mpdm_t o;
mpdm_t v;
v = MPDM_A(args + 1);
mpdm_ref(v);
/* inserts the opcode */
o = mpdm_hget_s(mpsl_opcodes, opcode);
mpdm_aset(v, o, 0);
switch (args) {
case 4: mpdm_aset(v, a4, 4); /* no break */
case 3: mpdm_aset(v, a3, 3); /* no break */
case 2: mpdm_aset(v, a2, 2); /* no break */
case 1: mpdm_aset(v, a1, 1); /* no break */
}
mpdm_unrefnd(v);
v = constant_fold(v);
return v;
}
/**
* mpsl_set_symbol - Sets value to a symbol.
* @s: symbol name
* @v: value
* @l: local symbol table
*
* Assigns the value @v to the @s symbol. If the value exists as
* a local symbol, it's assigned to it; otherwise, it's set as a global
* symbol (and created if it does not exist).
*/
mpdm_t mpsl_set_symbol(mpdm_t s, mpdm_t v, mpdm_t l)
{
int n;
mpdm_t r, p, w;
mpdm_ref(l);
mpdm_ref(s);
mpdm_ref(v);
/* get the local or global symbol table */
if ((r = find_local_symtbl(s, l)) == NULL)
r = mpdm_root();
/* splits the path, if needed */
if (MPDM_IS_ARRAY(s))
p = mpdm_ref(s);
else
p = mpdm_ref(mpdm_split_s(s, L"."));
w = r;
for (n = 0; w != NULL && n < mpdm_size(p); n++) {
/* is executable? run it and take its output */
while (MPDM_IS_EXEC(w))
w = mpdm_exec(w, NULL, NULL);
/* last component? */
if (n == mpdm_size(p) - 1) {
/* yes; do the setting */
if (MPDM_IS_HASH(w))
w = mpdm_hset(w, mpdm_aget(p, n), v);
else
if (MPDM_IS_ARRAY(w))
w = mpdm_aset(w, v, mpdm_ival(mpdm_aget(p, n)));
}
else {
if (MPDM_IS_HASH(w))
w = mpdm_hget(w, mpdm_aget(p, n));
else
if (MPDM_IS_ARRAY(w))
w = mpdm_aget(w, mpdm_ival(mpdm_aget(p, n)));
else {
mpdm_void(w);
w = NULL;
}
}
}
mpdm_unref(p);
mpdm_unref(v);
mpdm_unref(s);
mpdm_unref(l);
return w;
}
static mpdm_t kde4_drv_form(mpdm_t a, mpdm_t ctxt)
{
int n;
mpdm_t widget_list;
QWidget *qlist[100];
mpdm_t r;
KDialog *dialog = new KDialog(window);
dialog->setModal(true);
dialog->setButtons(KDialog::Ok | KDialog::Cancel);
widget_list = mpdm_aget(a, 0);
KVBox *vb = new KVBox(dialog);
dialog->setMainWidget(vb);
for (n = 0; n < mpdm_size(widget_list); n++) {
mpdm_t w = mpdm_aget(widget_list, n);
wchar_t *type;
mpdm_t t;
KHBox *hb = new KHBox(vb);
type = mpdm_string(mpdm_hget_s(w, L"type"));
if ((t = mpdm_hget_s(w, L"label")) != NULL) {
QLabel *ql = new QLabel(hb);
ql->setText(str_to_qstring(mpdm_gettext(t)));
}
t = mpdm_hget_s(w, L"value");
if (wcscmp(type, L"text") == 0) {
mpdm_t h;
QComboBox *ql = new QComboBox(hb);
ql->setEditable(true);
ql->setMinimumContentsLength(30);
ql->setMaxVisibleItems(8);
if (t != NULL)
ql->setEditText(str_to_qstring(t));
qlist[n] = ql;
if ((h = mpdm_hget_s(w, L"history")) != NULL) {
int i;
/* has history; fill it */
h = mp_get_history(h);
for (i = mpdm_size(h) - 1; i >= 0; i--)
ql->addItem(str_to_qstring(mpdm_aget(h, i)));
}
}
else
if (wcscmp(type, L"password") == 0) {
QLineEdit *ql = new QLineEdit(hb);
ql->setEchoMode(QLineEdit::Password);
qlist[n] = ql;
}
else
if (wcscmp(type, L"checkbox") == 0) {
QCheckBox *qc = new QCheckBox(hb);
if (mpdm_ival(t))
qc->setCheckState(Qt::Checked);
qlist[n] = qc;
}
else
if (wcscmp(type, L"list") == 0) {
int i;
QListWidget *ql = new QListWidget(hb);
ql->setMinimumWidth(480);
/* use a monospaced font */
ql->setFont(QFont(QString("Mono")));
mpdm_t l = mpdm_hget_s(w, L"list");
for (i = 0; i < mpdm_size(l); i++)
ql->addItem(str_to_qstring(mpdm_aget(l, i)));
ql->setCurrentRow(mpdm_ival(t));
qlist[n] = ql;
}
if (n == 0)
qlist[n]->setFocus(Qt::OtherFocusReason);
}
n = dialog->exec();
if (!n)
return NULL;
r = MPDM_A(mpdm_size(widget_list));
/* fill the return values */
for (n = 0; n < mpdm_size(widget_list); n++) {
mpdm_t w = mpdm_aget(widget_list, n);
mpdm_t v = NULL;
wchar_t *type;
type = mpdm_string(mpdm_hget_s(w, L"type"));
if (wcscmp(type, L"text") == 0) {
mpdm_t h;
QComboBox *ql = (QComboBox *) qlist[n];
v = qstring_to_str(ql->currentText());
/* if it has history, add to it */
if ((h = mpdm_hget_s(w, L"history")) != NULL &&
v != NULL && mpdm_cmp_s(v, L"") != 0) {
h = mp_get_history(h);
if (mpdm_cmp(v, mpdm_aget(h, -1)) != 0)
mpdm_push(h, v);
}
}
else
if (wcscmp(type, L"password") == 0) {
QLineEdit *ql = (QLineEdit *) qlist[n];
v = qstring_to_str(ql->text());
}
else
if (wcscmp(type, L"checkbox") == 0) {
QCheckBox *qb = (QCheckBox *) qlist[n];
v = MPDM_I(qb->checkState() == Qt::Checked);
}
else
if (wcscmp(type, L"list") == 0) {
QListWidget *ql = (QListWidget *) qlist[n];
v = MPDM_I(ql->currentRow());
}
mpdm_aset(r, v, n);
}
return r;
}
