void UlamTypePrimitive::genUlamTypeWriteDefinitionForC(File * fp)
{
u32 totbitsize = getTotalBitSize();
if(totbitsize <= BITSPERATOM) //Big 96bit array is unpacked, but.. (t3969)
{
m_state.indent(fp);
fp->write("void write");
fp->write("(const ");
fp->write(getTmpStorageTypeAsString().c_str()); //s32 or u32, s64 or u64
fp->write("& v) { BVS::");
fp->write(writeMethodForCodeGen().c_str());
fp->write("(0u, ");
fp->write_decimal_unsigned(totbitsize); //incl WriteBig
if(isScalar())
{
fp->write("u, v); }"); GCNL;
}
else
{
fp->write("u, v); } //writes entire array"); GCNL;
}
}
else
{
//UNPACKED
m_state.indent(fp);
fp->write("void ");
fp->write(" write(const ");
fp->write(getTmpStorageTypeAsString().c_str()); //BV
fp->write("& bv) { BVS::");
fp->write("WriteBV(0u, bv); ");
fp->write("} //writes entire BV"); GCNL;
}
} //genUlamTypeWriteDefinitionForC
void UlamTypePrimitive::genUlamTypeAutoWriteDefinitionForC(File * fp)
{
//scalar and entire PACKEDLOADABLE array handled by base class write method
if(!isScalar())
{
// writes an element of array
//3rd argument generated for compatibility with underlying method
m_state.indent(fp);
fp->write("void writeArrayItem(const ");
fp->write(getArrayItemTmpStorageTypeAsString().c_str()); //s32 or u32
fp->write("& v, const u32 index, const u32 itemlen) { ");
fp->write("UlamRef<EC>(");
fp->write("*this, index * itemlen, "); //rel offset
fp->write("itemlen, NULL, UlamRef<EC>::PRIMITIVE)."); //itemlen, primitive effself
fp->write(writeArrayItemMethodForCodeGen().c_str());
fp->write("(v); }"); GCNL;
}
if(isScalar() || WritePacked(getPackable()))
{
// write must be scalar; ref param to avoid excessive copying
//not an array
m_state.indent(fp);
fp->write("void");
fp->write(" write(const ");
fp->write(getTmpStorageTypeAsString().c_str()); //u32, u64, or BV96
fp->write("& targ) { UlamRef<EC>::");
fp->write(writeMethodForCodeGen().c_str());
fp->write("(targ); /* entire */ }"); GCNL;
}
} //genUlamTypeAutoWriteDefinitionForC
void UlamTypePrimitive::genUlamTypeAutoReadDefinitionForC(File * fp)
{
//scalar and entire PACKEDLOADABLE array handled by base class read method
if(!isScalar())
{
//reads an item of array;
//2nd argument generated for compatibility with underlying method
m_state.indent(fp);
fp->write("const ");
fp->write(getArrayItemTmpStorageTypeAsString().c_str()); //s32 or u32
fp->write(" readArrayItem(");
fp->write("const u32 index, const u32 itemlen) const { return ");
fp->write("UlamRef<EC>(");
fp->write("*this, index * itemlen, "); //rel offset
fp->write("itemlen, NULL, UlamRef<EC>::PRIMITIVE)."); //itemlen, primitive effself
fp->write(readArrayItemMethodForCodeGen().c_str());
fp->write("(); }"); GCNL;
}
if(isScalar() || WritePacked(getPackable()))
{
// write must be scalar; ref param to avoid excessive copying
//not an array
m_state.indent(fp);
fp->write("const ");
fp->write(getTmpStorageTypeAsString().c_str()); //u32, u64, or BV96
fp->write(" read() const { ");
fp->write("return ");
fp->write("UlamRef<EC>::");
fp->write(readMethodForCodeGen().c_str()); //just the guts
fp->write("(); /* entire */ }"); GCNL;
}
} //genUlamTypeAutoReadDefinitionForC
void UlamTypePrimitive::genUlamTypeReadDefinitionForC(File * fp)
{
u32 totbitsize = getTotalBitSize();
if(totbitsize <= BITSPERATOM) //Big 96bit array is unpacked, but.. (t3969)
{
m_state.indent(fp);
fp->write("const ");
fp->write(getTmpStorageTypeAsString().c_str()); //u32 or u64
fp->write(" read");
fp->write("() const { return BVS::");
fp->write(readMethodForCodeGen().c_str());
fp->write("(0u, ");
fp->write_decimal_unsigned(totbitsize); //incl ReadBig
if(isScalar())
{
fp->write("u); }"); GCNL; //done
}
else
{
fp->write("u); } //reads entire array"); GCNL;
}
}
else
{
//UNPACKED (e.g. t3975)
m_state.indent(fp);
fp->write("const ");
fp->write(getTmpStorageTypeAsString().c_str()); //BV
fp->write(" read");
fp->write("() const { ");
fp->write(getTmpStorageTypeAsString().c_str()); //BV
fp->write(" rtnunpbv; this->BVS::");
fp->write("ReadBV(0u, rtnunpbv); return rtnunpbv; ");
fp->write("} //reads entire BV"); GCNL;
}
} //genUlamTypeReadDefinitionForC
const std::string UlamType::getTmpStorageTypeAsString()
{
return getTmpStorageTypeAsString(getTotalWordSize());
}
const std::string UlamType::getArrayItemTmpStorageTypeAsString()
{
return getTmpStorageTypeAsString(getItemWordSize());
}
void UlamTypePrimitive::genUlamTypeMangledImmediateModelParameterDefinitionForC(File * fp)
{
assert(isScalar()); //since arrays cannot be initialized
const std::string mangledName = getImmediateModelParameterStorageTypeAsString();
std::ostringstream ud;
ud << "Ud_" << mangledName; //d for define (p used for atomicparametrictype)
std::string udstr = ud.str();
m_state.m_currentIndentLevel = 0;
m_state.indent(fp);
fp->write("#ifndef ");
fp->write(udstr.c_str());
fp->write("\n");
m_state.indent(fp);
fp->write("#define ");
fp->write(udstr.c_str());
fp->write("\n");
m_state.indent(fp);
fp->write("namespace MFM{\n");
fp->write("\n");
m_state.m_currentIndentLevel++;
m_state.indent(fp);
fp->write("template<class EC>\n");
m_state.indent(fp);
fp->write("struct ");
fp->write(mangledName.c_str());
fp->write("\n");
m_state.indent(fp);
fp->write("{\n");
m_state.m_currentIndentLevel++;
m_state.indent(fp);
fp->write("// immediate model parameter definition:\n");
//typedef atomic parameter type inside struct
UlamType::genStandardConfigTypedefTypenames(fp, m_state);
s32 len = getTotalBitSize();
//reference to storage in atom
m_state.indent(fp);
fp->write("T* m_stgPtr; //ptr to storage here!"); GCNL;
// default constructor
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("() : m_stgPtr(NULL) { }"); GCNL;
m_state.indent(fp);
fp->write("void init(T& realStg) { m_stgPtr = &realStg; }"); GCNL;
//read method: MFM model parameters are right justified in the atom
// NO write method for MPs in ulam. t3259
m_state.indent(fp);
fp->write("const ");
fp->write(getTmpStorageTypeAsString().c_str()); //s32 or u32, s64 or u64
fp->write(" read(const UlamContext<EC>& uc) const { MFM_API_ASSERT_NONNULL(m_stgPtr); AtomRefBitStorage<EC> mpfoo(*m_stgPtr); return UlamRef<EC>(BPA - ");
fp->write_decimal(len); //by convention at the end of the atom
fp->write("u, ");
fp->write_decimal(len);
fp->write("u, mpfoo, NULL, UlamRef<EC>::PRIMITIVE, uc)."); //origin 0u
fp->write(readMethodForCodeGen().c_str());
fp->write("(); }"); GCNL;
m_state.m_currentIndentLevel--;
m_state.indent(fp);
fp->write("};\n");
m_state.m_currentIndentLevel--;
m_state.indent(fp);
fp->write("} //MFM\n");
m_state.indent(fp);
fp->write("#endif /*");
fp->write(udstr.c_str());
fp->write(" */\n\n");
} //genUlamTypeMangledImmediateModelParameterDefinitionForC
//generates immediates with local storage
void UlamTypePrimitive::genUlamTypeMangledDefinitionForC(File * fp)
{
u32 len = getTotalBitSize(); //could be 0, includes arrays
m_state.m_currentIndentLevel = 0;
UTI anyuti = Nav;
AssertBool anyDefined = m_state.anyDefinedUTI(m_key, anyuti);
assert(anyDefined);
UTI scalaruti = m_state.getUlamTypeAsScalar(anyuti);
UlamType * scalarut = m_state.getUlamTypeByIndex(scalaruti);
const std::string scalarmangledName = scalarut->getUlamTypeMangledName();
const std::string mangledName = getUlamTypeImmediateMangledName();
const std::string automangledName = getUlamTypeImmediateAutoMangledName();
std::ostringstream ud;
ud << "Ud_" << mangledName; //d for define (p used for atomicparametrictype)
std::string udstr = ud.str();
m_state.indent(fp);
fp->write("#ifndef ");
fp->write(udstr.c_str());
fp->write("\n");
m_state.indent(fp);
fp->write("#define ");
fp->write(udstr.c_str());
fp->write("\n");
m_state.indent(fp);
fp->write("namespace MFM{\n");
fp->write("\n");
m_state.m_currentIndentLevel++;
m_state.indent(fp);
fp->write("template<class EC>\n");
m_state.indent(fp);
fp->write("struct ");
fp->write(mangledName.c_str());
fp->write(" : public ");
fp->write("BitVectorBitStorage");
fp->write("<EC, BitVector<");
fp->write_decimal_unsigned(len);
fp->write("u> >\n");
m_state.indent(fp);
fp->write("{\n");
m_state.m_currentIndentLevel++;
//typedef atomic parameter type inside struct
UlamType::genStandardConfigTypedefTypenames(fp, m_state);
m_state.indent(fp);
fp->write("typedef BitVector<");
fp->write_decimal_unsigned(len);
fp->write("> BV;"); GCNL;
m_state.indent(fp);
fp->write("typedef BitVectorBitStorage<EC, BV> BVS;"); GCNL;
fp->write("\n");
//put read/write methods before constructrtors that may use them.
//read BV method
genUlamTypeReadDefinitionForC(fp);
//write BV method
genUlamTypeWriteDefinitionForC(fp);
//default constructor (used by local vars)
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("() { }"); GCNL;
//constructor here (used by const tmpVars)
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("(const ");
fp->write(getTmpStorageTypeAsString().c_str()); //u32, u64
fp->write(" d) { ");
fp->write("write(d); }"); GCNL;
//array initialization constructor here (used by const tmpVars);
// in C, the array is just a pointer (since not within a struct);
if(!isScalar())
{
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("(const u32");
fp->write(" d[");
fp->write_decimal_unsigned(UlamType::getTotalNumberOfWords());
fp->write("]) : BVS(d) { }"); GCNL;
}
//copy constructor here (return by value)
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("(const ");
fp->write(mangledName.c_str()); //u32
fp->write("& other) { ");
fp->write("this->write");
fp->write("(other.");
fp->write("read");
fp->write("()); }"); GCNL;
//constructor from ref of same type
m_state.indent(fp);
fp->write(mangledName.c_str());
fp->write("(const ");
fp->write(automangledName.c_str());
fp->write("<EC>& d) { "); //uc consistent with atomref
fp->write("this->write(");
fp->write("d.read()); }"); GCNL;
//default destructor (intentionally left out
//for var args native funcs, non-refs, required of a BitStorage
UlamType::genGetUlamTypeMangledNameDefinitionForC(fp);
m_state.m_currentIndentLevel--;
m_state.indent(fp);
fp->write("};\n");
m_state.m_currentIndentLevel--;
m_state.indent(fp);
fp->write("} //MFM\n");
m_state.indent(fp);
fp->write("#endif /*");
fp->write(udstr.c_str());
fp->write(" */\n\n");
} //genUlamTypeMangledDefinitionForC