LIU_DEFINE_NATIVE_METHOD(OldDictionary, make) { LIU_FIND_LAST_MESSAGE; OldDictionary *dict = fork(); for(int i = 0; i < message->numInputs(); ++i) { Node *key = NULL; Primitive *primitive = message->input(i)->hasLabel(); if(!primitive) LIU_THROW(ArgumentException, "missing key in Dictionary initialization"); if(primitive->hasNext()) LIU_THROW(ArgumentException, "invalid key in Dictionary initialization"); Message *msg = Message::dynamicCast(primitive->value()); if(msg) { if(msg->inputs(false) || msg->outputs(false) || msg->isEscaped() || msg->isParented() || msg->isEllipsed() || msg->hasCodeInput()) LIU_THROW(ArgumentException, "invalid key in Dictionary initialization"); key = Text::make(msg->name()); } else key = primitive->run(); dict->set(key, message->runInput(i)); } return dict; }
LIU_DEFINE_NATIVE_METHOD(OldDictionary, each) { LIU_FIND_LAST_PRIMITIVE; Primitive *nextPrimitive = primitive->hasNext(); if(!nextPrimitive) LIU_THROW(InterpreterException, QString("missing code after an each statement")); LIU_FIND_LAST_MESSAGE; LIU_CHECK_INPUT_SIZE(2); Message *msg = Message::dynamicCast(message->firstInput()->value()->value()); if(!msg) LIU_THROW(ArgumentException, "first argument should be a message"); QString valueName = msg->name(); msg = Message::dynamicCast(message->secondInput()->value()->value()); if(!msg) LIU_THROW(ArgumentException, "second argument should be a message"); QString keyName = msg->name(); Iterator i(this); while(i.hasNext()) { i.next(); context()->addOrSetChild(keyName, i.key()); context()->addOrSetChild(valueName, i.value()); nextPrimitive->run(); } Primitive::skip(this); }