HRESULT STDMETHODCALLTYPE ScriptEvaluator::evaluate(BSTR mimeType, BSTR sourceCode, int *context) { std::string type = BSTRToString(mimeType); std::string moduleName = GetModuleName(type); JSContextRef contextRef = reinterpret_cast<JSContextRef>(context); SharedKObject global = host->GetGlobalObject(); SharedValue moduleValue = global->Get(moduleName.c_str()); if (!moduleValue->IsNull()) { SharedValue evalValue = moduleValue->ToObject()->Get("evaluate"); if (!evalValue->IsNull() && evalValue->IsMethod()) { ValueList args; SharedValue typeValue = Value::NewString(type); SharedValue sourceCodeValue = Value::NewString(BSTRToString(sourceCode)); JSObjectRef globalObjectRef = JSContextGetGlobalObject(contextRef); SharedKObject contextObject = new KKJSObject(contextRef, globalObjectRef); SharedValue contextValue = Value::NewObject(contextObject); args.push_back(typeValue); args.push_back(sourceCodeValue); args.push_back(contextValue); evalValue->ToMethod()->Call(args); } } return S_OK; }
VALUE RubyUtils::ToRubyValue(SharedValue value) { if (value->IsNull() || value->IsUndefined()) { return Qnil; } if (value->IsBool()) { return value->ToBool() ? Qtrue : Qfalse; } else if (value->IsNumber()) { return rb_float_new(value->ToNumber()); } else if (value->IsString()) { return rb_str_new2(value->ToString()); } else if (value->IsObject()) { AutoPtr<KRubyObject> ro = value->ToObject().cast<KRubyObject>(); if (!ro.isNull()) return ro->ToRuby(); AutoPtr<KRubyHash> rh = value->ToObject().cast<KRubyHash>(); if (!rh.isNull()) return rh->ToRuby(); return RubyUtils::KObjectToRubyValue(value); } else if (value->IsMethod()) { AutoPtr<KRubyMethod> rm = value->ToMethod().cast<KRubyMethod>(); if (!rm.isNull()) return rm->ToRuby(); else return RubyUtils::KMethodToRubyValue(value); } else if (value->IsList()) { AutoPtr<KRubyList> rl = value->ToList().cast<KRubyList>(); if (!rl.isNull()) return rl->ToRuby(); else return RubyUtils::KListToRubyValue(value); } return Qnil; }
void KPHPArrayObject::AddKrollValueToPHPArray(SharedValue value, zval *phpArray) { if (value->IsNull() || value->IsUndefined()) { add_next_index_null(phpArray); } else if (value->IsBool()) { if (value->ToBool()) add_next_index_bool(phpArray, 1); else add_next_index_bool(phpArray, 0); } else if (value->IsNumber()) { /* No way to check whether the number is an integer or a double here. All Kroll numbers are doubles, so return a double. This could cause some PHP to function incorrectly if it's doing strict type checking. */ add_next_index_double(phpArray, value->ToNumber()); } else if (value->IsString()) { add_next_index_stringl(phpArray, (char *) value->ToString(), strlen(value->ToString()), 1); } else if (value->IsObject()) { /*TODO: Implement*/ } else if (value->IsMethod()) { /*TODO: Implement*/ } else if (value->IsList()) { zval *phpValue; AutoPtr<KPHPArrayObject> pl = value->ToList().cast<KPHPArrayObject>(); if (!pl.isNull()) phpValue = pl->ToPHP(); else phpValue = PHPUtils::ToPHPValue(value); add_next_index_zval(phpArray, phpValue); } }
HRESULT STDMETHODCALLTYPE ScriptEvaluator::matchesMimeType(BSTR mimeType, BOOL *result) { std::string moduleName = GetModuleName(BSTRToString(mimeType)); SharedKObject global = host->GetGlobalObject(); SharedValue moduleValue = global->Get(moduleName.c_str()); *result = FALSE; if (!moduleValue->IsNull() && moduleValue->IsObject()) { if (!moduleValue->ToObject()->Get("evaluate")->IsNull() && !moduleValue->ToObject()->Get("evaluate")->IsUndefined() && moduleValue->ToObject()->Get("evaluate")->IsMethod()) { *result = TRUE; } } return S_OK; }
void HTTPClientBinding::Send(const ValueList& args, SharedValue result) { if (this->Get("connected")->ToBool()) { throw ValueException::FromString("already connected"); } if (args.size()==1) { // can be a string of data or a file SharedValue v = args.at(0); if (v->IsObject()) { // probably a file SharedKObject obj = v->ToObject(); this->datastream = obj->Get("toString")->ToMethod()->Call()->ToString(); } else if (v->IsString()) { this->datastream = v->ToString(); } else if (v->IsNull() || v->IsUndefined()) { this->datastream = ""; } else { throw ValueException::FromString("unknown data type"); } } this->thread = new Poco::Thread(); this->thread->start(&HTTPClientBinding::Run,(void*)this); if (!this->async) { PRINTD("Waiting on HTTP Client thread to finish (sync)"); Poco::Stopwatch sw; sw.start(); while (!this->shutdown && sw.elapsedSeconds() * 1000 < this->timeout) { this->thread->tryJoin(100); } PRINTD("HTTP Client thread finished (sync)"); } }