RSS Git Download  Clone
Raw View History
Blames found: 39 Mode: text/x-c++src Binary: false


Hang on, we reloading big blames...
/******************************************************************************* * Gen.cc Default output * T.Barnaby, BEAM Ltd, 12/9/03 ******************************************************************************* */ #define DEBUG 1 #include <stdio.h> #include <stdarg.h> #include <strings.h> #include <Gen.h> #include <bidl.h>
FileIndent::FileIndent(){ oindent = 0; } void FileIndent::indentMore(){ oindent++; } void FileIndent::indentLess(){ if(--oindent < 0) oindent = 0; } int FileIndent::writeLine(BString line){ BString s; int i = oindent; while(i--) s = s + "\t"; s = s + line; return writeString(s); }
int FileIndent::printf(const char* fmt, ...){ va_list args; char* s = 0; int ret; va_start(args, fmt); ret = vasprintf(&s, fmt, args); va_end(args); if(ret >= 0){ ret = writeLine(s); free(s); } return ret; } StringIndent::StringIndent(){ oindent = 0; } void StringIndent::indentMore(){ oindent++; } void StringIndent::indentLess(){ if(--oindent < 0) oindent = 0; } void StringIndent::writeLine(BString line){ int i = oindent; while(i--) append("\t"); append(line); } void StringIndent::printf(const char* fmt, ...){ va_list args; char* s = 0; int ret; va_start(args, fmt); ret = vasprintf(&s, fmt, args); va_end(args); if(ret >= 0){ writeLine(s); free(s); } }
Gen::Gen(){ ouseBObjects = 0; } Gen::~Gen(){ }
void Gen::setOptions(BDictString& options){ ooptions = options; }
int Gen::setUseBObjects(int on){ int ret = ouseBObjects; ouseBObjects = on; return ret; } int Gen::getUseBObjects(){ return ouseBObjects; } BString Gen::getTypeName(Node* n, int data){ BString typeName;
if(ouseBObjects){ if(n->nodeType() == Node::TTYPELIST){
return BString("BObjListVar<") + getTypeName(n->node(0), data) + " >";
} else { typeName = n->name(); if(typeName == "Int32"){ if(data) return "BObjInt"; else
return "BInt32"; } else if(typeName == "UInt32"){ if(data) return "BObjInt"; else return "BUInt32";
} else if(typeName == "Bool"){ if(data) return "BObjInt"; else
return "BInt32";
} else if(typeName == "String"){ if(data) return "BObjString"; else return "BString"; } else if(typeName == "Error") return "BError"; else if(typeName == "Date") return "BObjDate";
else if(typeName == "Time") return "BObjTime";
else if(typeName == "DateTime") return "BObjDateTime"; else if(typeName == "Id") return "BObjId"; else if(typeName == "ObjData") return "BObjData";
else if(typeName == "TimeStamp") return "BTimeStamp"; else if(typeName == "Complex") return "BComplex";
else return typeName; } } else { if(n->nodeType() == Node::TTYPELIST){
return BString("BList<") + getTypeName(n->node(0), data) + " >";
} else if(n->nodeType() == Node::TTYPEARRAY){
return BString("BArray<") + getTypeName(n->node(0), data) + " >"; } else if(n->nodeType() == Node::TTYPEDICT){ return BString("BDict<") + getTypeName(n->node(0), data) + " >";
} else { typeName = n->name();
if(typeName == "Int8"){ return "BInt8"; } else if(typeName == "Int16"){ return "BInt16"; } else if(typeName == "Int32"){ return "BInt32"; } else if(typeName == "Int64"){ return "BInt64"; } else if(typeName == "UInt8"){ return "BUInt8"; } else if(typeName == "UInt16"){ return "BUInt16"; } else if(typeName == "UInt32"){ return "BUInt32"; } else if(typeName == "UInt64"){ return "BUInt64"; } else if(typeName == "Float32"){ return "BFloat32"; } else if(typeName == "Float64"){ return "BFloat64";
} else if(typeName == "Bool"){
return "BInt32"; } else if(typeName == "Char"){ return "BChar";
} else if(typeName == "String"){ return "BString"; } else if(typeName == "Error") return "BError";
else if(typeName == "Date") return "BDate"; else if(typeName == "Time") return "BTime"; else if(typeName == "DateTime") return "BDateTime";
else if(typeName == "Id") return "BObjId"; else if(typeName == "ObjData") return "BObjData";
else if(typeName == "TimeStamp") return "BTimeStamp"; else if(typeName == "Complex") return "BComplex";
else return typeName; } } }
BError Gen::getTypeInfo(Node* n, BType& type, BTypeComp& typeMod, BUInt& size, BString& typeName){ BError err; if(n->nodeType() == Node::TTYPELIST){ typeMod = BTypeCompList; size = atoi(n->node(2)->name()); } else if(n->nodeType() == Node::TTYPEARRAY){ typeMod = BTypeCompArray; size = atoi(n->node(2)->name()); } else if(n->nodeType() == Node::TTYPEDICT){ typeMod = BTypeCompDict; size = atoi(n->node(2)->name()); } else if(n->nodeType() == Node::TSTRUCTITEM_ARRAYFIXED){ typeMod = BTypeCompArrayFixed; size = atoi(n->node(2)->name()); } else{ typeMod = BTypeCompSingle; size = 1; } typeName = n->node(0)->name(); if(typeName == "Bool"){ type = BTypeBool; } else if(typeName == "Int8"){ type = BTypeInt8; } else if(typeName == "UInt8"){ type = BTypeUInt8; } else if(typeName == "Int16"){ type = BTypeInt16; } else if(typeName == "UInt16"){ type = BTypeUInt16; } else if(typeName == "Int32"){ type = BTypeInt32; } else if(typeName == "UInt32"){ type = BTypeUInt32; } else if(typeName == "Int64"){ type = BTypeInt64; } else if(typeName == "UInt64"){ type = BTypeUInt64; } else if(typeName == "Float32"){ type = BTypeFloat32; } else if(typeName == "Float64"){ type = BTypeFloat64; } else if(typeName == "Char"){ type = BTypeChar; } else if(typeName == "String"){ type = BTypeString; } else if(typeName == "Time"){ type = BTypeTime; } #ifdef ZAP else if(typeName == "Error") type = "BError"; else if(typeName == "Date") type = "BDate"; else if(typeName == "DateTime") type = "BDateTime"; else if(typeName == "Id") type = "BObjId"; else if(typeName == "ObjData") type = "BObjData"; else if(typeName == "TimeStamp") type = "BTimeStamp"; else if(typeName == "Complex") type = "BComplex"; #endif else { if(getBaseClass(n) == "BObj") type = BTypeObj; else type = BTypeNone; } return err; } BString Gen::getBaseClass(Node* node){ BString baseClass; if(node->nodeType() == Node::TSTRUCT){ if((node->nodes().number() >= 2) && node->node(1) && (node->node(1)->nodeType() == Node::TDERIVED)){ if(node->nodes()[1]){ return node->node(1)->node(0)->name(); } } } return baseClass; } int Gen::isBaseType(Node* n){ BString typeName; Type* t; BIter i; typeName = n->name(); // printf("isRawType: %d %s\n", n->nodeType(), typeName.retStr()); if(n->nodeType() == Node::TTYPE){ if(typeName == "Int8") return 1; else if(typeName == "UInt8") return 1; else if(typeName == "Int16") return 1; else if(typeName == "UInt16") return 1; else if(typeName == "Int32") return 1; else if(typeName == "UInt32") return 1; else if(typeName == "Int64") return 1; else if(typeName == "UInt64") return 1; else if(typeName == "Float32") return 1; else if(typeName == "Float64") return 1; else if(typeName == "Double") return 1; else if(typeName == "Bool") return 1; else if(typeName == "Char") return 1; } return 0; }
int Gen::isRawType(Node* n){ BString typeName; Type* t; BIter i; typeName = n->name(); // printf("isRawType: %d %s\n", n->nodeType(), typeName.retStr()); if(n->nodeType() == Node::TTYPEARRAY){ return 0; } else if(n->nodeType() == Node::TTYPE){ if(typeName == "Int8") return 1; else if(typeName == "UInt8") return 1; else if(typeName == "Int16") return 1; else if(typeName == "UInt16") return 1; else if(typeName == "Int32") return 1; else if(typeName == "UInt32") return 1;
else if(typeName == "Int64") return 1; else if(typeName == "UInt64") return 1; else if(typeName == "Float32") return 1; else if(typeName == "Float64") return 1; else if(typeName == "Double") return 1;
else if(typeName == "Bool") return 1; else if(typeName == "String") return 0; else if(typeName == "Error") return 0; else if(typeName == "Date") return 0; else if(typeName == "DateTime") return 0; else if(typeName == "Id") return 0; else if(typeName == "ObjData") return 0;
else if(typeName == "TimeStamp") return 0; else if(typeName == "Complex") return 0;
else { if((t = gtypelist.search(typeName)) && (t->node())){
// printf("gtypelist: %s\n", t->node()->name().retStr());
return isRawType(t->node()); } else{ return 0; } } } else if(n->nodes().number()){ for(n->nodes().start(i); !n->nodes().isEnd(i); n->nodes().next(i)){ if(!isRawType(n->nodes()[i])) return 0; } return 1; } else { return 1; } } int Gen::useCopyType(Node* n){ BString typeName; if(n->nodeType() == Node::TTYPE){ typeName = n->name(); if((typeName == "String") || (typeName == "Error")) return 1; } return isRawType(n); }