void CloneObjectsTest::testCloneSymbol() {
VMSymbol* orig = GetUniverse()->NewSymbol("foobar");
VMSymbol* clone = orig->Clone();
CPPUNIT_ASSERT((intptr_t)orig != (intptr_t)clone);
CPPUNIT_ASSERT_EQUAL_MESSAGE("class differs!!", orig->GetClass(),
clone->GetClass());
CPPUNIT_ASSERT_EQUAL_MESSAGE("objectSize differs!!", orig->GetObjectSize(),
clone->GetObjectSize());
//CPPUNIT_ASSERT_EQUAL_MESSAGE("numberOfFields differs!!", orig->numberOfFields, clone->numberOfFields);
CPPUNIT_ASSERT_EQUAL_MESSAGE("string differs!!!", orig->GetPlainString(), clone->GetPlainString());
}
VMClass* SourcecodeCompiler::CompileClass( const StdString& path,
const StdString& file,
VMClass* systemClass ) {
VMClass* result = systemClass;
StdString fname = path + fileSeparator + file + ".som";
ifstream* fp = new ifstream();
fp->open(fname.c_str(), std::ios_base::in);
if (!fp->is_open()) {
return nullptr;
}
if (parser != nullptr) delete(parser);
parser = new Parser(*fp);
result = compile(systemClass);
VMSymbol* cname = result->GetName();
StdString cnameC = cname->GetStdString();
if (file != cnameC) {
ostringstream Str;
Str << "Filename: " << file << " does not match class name " << cnameC;
showCompilationError(file, Str.str().c_str());
return nullptr;
}
delete(parser);
parser = nullptr;
delete(fp);
#ifdef COMPILER_DEBUG
Universe::ErrorPrint("Compilation finished\n");
#endif
return result;
}
void VMPrimitive::EmptyRoutine(Interpreter*, VMFrame*) {
VMSymbol* sig = GetSignature();
Universe::ErrorPrint("undefined primitive called: " + sig->GetStdString() + "\n");
}
void _Symbol::AsString(VMObject* /*object*/, VMFrame* frame) {
VMSymbol* sym = static_cast<VMSymbol*>(frame->Pop());
StdString str = sym->GetStdString();
frame->Push(GetUniverse()->NewString(str));
}