X-Git-Url: http://git.tdb.fi/?p=libs%2Fgl.git;a=blobdiff_plain;f=source%2Fglsl%2Fdebug.cpp;h=2f243dc73dc0d25518ce341597749f4255f45d8a;hp=04d7aac8ca2c442755efcc1c376f103e6fd3220d;hb=2280a09a286bbff2eb41783f8023863f320a3736;hpb=19a24f859cd7fcf581442319499ae24b3e7385a4

diff --git a/source/glsl/debug.cpp b/source/glsl/debug.cpp
index 04d7aac8..2f243dc7 100644
--- a/source/glsl/debug.cpp
+++ b/source/glsl/debug.cpp
@@ -8,24 +8,17 @@ namespace Msp {
 namespace GL {
 namespace SL {
 
-const std::string &DumpTree::apply(Stage &stage)
+std::string DumpTree::apply(Stage &stage)
 {
 	formatted = format("Stage: %s\n", Stage::get_stage_name(stage.type));
 	tree.push_back(BRANCH);
 	append(format("Version: %d.%02d", stage.required_features.glsl_version.major, stage.required_features.glsl_version.minor));
 
-	for(std::map<string, StructDeclaration *>::const_iterator i=stage.types.begin(); i!=stage.types.end(); ++i)
+	for(std::map<string, TypeDeclaration *>::const_iterator i=stage.types.begin(); i!=stage.types.end(); ++i)
 		append(format("Type: %%%d %s", get_label(*i->second), i->first));
 
-	set<InterfaceBlock *> seen_interfaces;
 	for(std::map<string, InterfaceBlock *>::const_iterator i=stage.interface_blocks.begin(); i!=stage.interface_blocks.end(); ++i)
-		if(seen_interfaces.insert(i->second).second)
-		{
-			string text = format("Interface block: %%%d %s %s", get_label(*i->second), i->second->interface, i->second->name);
-			if(!i->second->instance_name.empty())
-				text += format(" %s", i->second->instance_name);
-			append(text);
-		}
+		append(format("Interface block: %%%d %s", get_label(*i->second), i->first));
 
 	for(std::map<string, FunctionDeclaration *>::const_iterator i=stage.functions.begin(); i!=stage.functions.end(); ++i)
 		append(format("Function: %%%d %s", get_label(*i->second), i->first));
@@ -47,6 +40,42 @@ void DumpTree::append(const string &line)
 	formatted += '\n';
 }
 
+void DumpTree::append(const Node &node, const string &line)
+{
+	append(format("<%d:%d> %s", node.source, node.line, line));
+}
+
+void DumpTree::append_subtree(const vector<Branch> &branches)
+{
+	begin_sub();
+	for(vector<Branch>::const_iterator i=branches.begin(); i!=branches.end(); )
+	{
+		vector<Branch>::const_iterator j = increment(i, branches);
+		if(!j->text.empty())
+		{
+			append(j->text);
+			if(j->node)
+			{
+				begin_sub();
+				last_branch();
+				j->node->visit(*this);
+				end_sub();
+			}
+		}
+		else
+			j->node->visit(*this);
+	}
+	end_sub();
+}
+
+void DumpTree::append_subtree(Node &node)
+{
+	begin_sub();
+	last_branch();
+	node.visit(*this);
+	end_sub();
+}
+
 void DumpTree::begin_sub()
 {
 	tree.back() = (tree.back()==BRANCH_LAST ? EMPTY : STRAIGHT);
@@ -65,15 +94,6 @@ void DumpTree::end_sub()
 		tree.back() = BRANCH;
 }
 
-void DumpTree::annotated_branch(const string &annotation, Node &node)
-{
-	append(annotation);
-	begin_sub();
-	last_branch();
-	node.visit(*this);
-	end_sub();
-}
-
 unsigned DumpTree::get_label(const Node &node)
 {
 	unsigned &label = node_labels[&node];
@@ -82,6 +102,11 @@ unsigned DumpTree::get_label(const Node &node)
 	return label;
 }
 
+string DumpTree::format_type(TypeDeclaration *type)
+{
+	return (type ? type->name : "?");
+}
+
 template<typename T>
 typename T::const_iterator DumpTree::increment(typename T::const_iterator &iter, const T &container)
 {
@@ -93,38 +118,24 @@ typename T::const_iterator DumpTree::increment(typename T::const_iterator &iter,
 
 void DumpTree::visit(Block &block)
 {
-	append(format("Block %s", (block.use_braces ? "{}" : "(inline)")));
+	append(block, format("Block %s", (block.use_braces ? "{}" : "(inline)")));
 	begin_sub();
 
 	for(std::map<string, VariableDeclaration *>::const_iterator i=block.variables.begin(); i!=block.variables.end(); ++i)
 		append(format("Variable: %%%d %s %s", get_label(*i->second), i->second->type, i->first));
 
-	bool labeled_body = !block.variables.empty();
-	if(labeled_body)
-	{
-		last_branch();
-		append("Body");
-		begin_sub();
-	}
 	for(NodeList<Statement>::const_iterator i=block.body.begin(); i!=block.body.end(); )
 	{
 		NodeList<Statement>::const_iterator j = increment(i, block.body);
 		(*j)->visit(*this);
 	}
-	if(labeled_body)
-		end_sub();
 
 	end_sub();
 }
 
 void DumpTree::visit(Literal &literal)
 {
-	append(format("Literal: %s", literal.token));
-}
-
-void DumpTree::visit(ParenthesizedExpression &parexpr)
-{
-	annotated_branch("(expr)", *parexpr.expression);
+	append(literal, format("Literal: %s -> %s", literal.token, format_type(literal.type)));
 }
 
 void DumpTree::visit(VariableReference &var)
@@ -132,8 +143,8 @@ void DumpTree::visit(VariableReference &var)
 	string text;
 	if(var.declaration)
 		text += format("%%%d ", get_label(*var.declaration));
-	text += format("%s (var)", var.name);
-	append(text);
+	text += format("%s (var) -> %s", var.name, format_type(var.type));
+	append(var, text);
 }
 
 void DumpTree::visit(InterfaceBlockReference &iface)
@@ -141,8 +152,8 @@ void DumpTree::visit(InterfaceBlockReference &iface)
 	string text;
 	if(iface.declaration)
 		text += format("%%%d ", get_label(*iface.declaration));
-	text += format("%s (iface)", iface.name);
-	append(text);
+	text += format("%s (iface) -> %s", iface.name, format_type(iface.type));
+	append(iface, text);
 }
 
 void DumpTree::visit(MemberAccess &memacc)
@@ -150,19 +161,32 @@ void DumpTree::visit(MemberAccess &memacc)
 	string text = "Member access:";
 	if(memacc.declaration)
 		text += format(" %%%d", get_label(*memacc.declaration));
-	text += format(" .%s", memacc.member);
-	annotated_branch(text, *memacc.left);
+	text += format(" .%s -> %s", memacc.member, format_type(memacc.type));
+	append(memacc, text);
+	append_subtree(*memacc.left);
+}
+
+void DumpTree::visit(Swizzle &swizzle)
+{
+	static const char components[4] = { 'x', 'y', 'z', 'w' };
+	string text = "Swizzle: .";
+	for(unsigned i=0; i<swizzle.count; ++i)
+		text += components[swizzle.components[i]];
+	text += format(" -> %s", format_type(swizzle.type));
+	append(swizzle, text);
+	append_subtree(*swizzle.left);
 }
 
 void DumpTree::visit(UnaryExpression &unary)
 {
-	string text = format("Unary: %s, %sfix", unary.oper->token, (unary.oper->type==Operator::PREFIX ? "pre" : "post"));
-	annotated_branch(text, *unary.expression);
+	string text = format("Unary: %s, %sfix -> %s", unary.oper->token, (unary.oper->type==Operator::PREFIX ? "pre" : "post"), format_type(unary.type));
+	append(unary, text);
+	append_subtree(*unary.expression);
 }
 
 void DumpTree::visit(BinaryExpression &binary)
 {
-	append(format("Binary: %s", (binary.oper->token[0]=='[' ? "[]" : binary.oper->token)));
+	append(binary, format("Binary: %s%s -> %s", binary.oper->token, binary.oper->token2, format_type(binary.type)));
 	begin_sub();
 	binary.left->visit(*this);
 	last_branch();
@@ -172,16 +196,51 @@ void DumpTree::visit(BinaryExpression &binary)
 
 void DumpTree::visit(Assignment &assign)
 {
-	append(format("Assignment: %s%s", assign.oper->token, (assign.self_referencing ? " (self-referencing)" : "")));
+	append(assign, format("Assignment: %s%s -> %s", assign.oper->token, (assign.self_referencing ? " (self-referencing)" : ""), format_type(assign.type)));
 	begin_sub();
-	if(assign.target_declaration)
-		append(format("Target: %%%d %s %s", get_label(*assign.target_declaration), assign.target_declaration->type, assign.target_declaration->name));
+	if(assign.target.declaration)
+	{
+		string text = format("Target: %%%d", get_label(*assign.target.declaration));
+
+		static const char swizzle[4] = { 'x', 'y', 'z', 'w' };
+		for(unsigned i=0; i<assign.target.chain_len; ++i)
+		{
+			unsigned component = assign.target.chain[i];
+			switch(static_cast<Assignment::Target::ChainType>(component&0xC0))
+			{
+			case Assignment::Target::MEMBER:
+				text += format(" .%d", component&0x3F);
+				break;
+			case Assignment::Target::SWIZZLE:
+				text += " .";
+				for(unsigned j=0; j<4; ++j)
+					if(component&(1<<j))
+						text += swizzle[j];
+				break;
+			case Assignment::Target::ARRAY:
+				text += format(" [%d]", component&0x3F);
+				break;
+			}
+		}
+		append(text);
+	}
 	assign.left->visit(*this);
 	last_branch();
 	assign.right->visit(*this);
 	end_sub();
 }
 
+void DumpTree::visit(TernaryExpression &ternary)
+{
+	append(ternary, format("Ternary: %s%s -> %s", ternary.oper->token, ternary.oper->token2, format_type(ternary.type)));
+	begin_sub();
+	ternary.condition->visit(*this);
+	ternary.true_expr->visit(*this);
+	last_branch();
+	ternary.false_expr->visit(*this);
+	end_sub();
+}
+
 void DumpTree::visit(FunctionCall &call)
 {
 	string head = "Function call: ";
@@ -190,7 +249,8 @@ void DumpTree::visit(FunctionCall &call)
 	head += call.name;
 	if(call.constructor)
 		head += " (constructor)";
-	append(head);
+	head += format(" -> %s", format_type(call.type));
+	append(call, head);
 
 	begin_sub();
 	for(NodeArray<Expression>::const_iterator i=call.arguments.begin(); i!=call.arguments.end(); )
@@ -203,22 +263,23 @@ void DumpTree::visit(FunctionCall &call)
 
 void DumpTree::visit(ExpressionStatement &expr)
 {
-	annotated_branch("expr;", *expr.expression);
+	append(expr, "expr;");
+	append_subtree(*expr.expression);
 }
 
 void DumpTree::visit(Import &import)
 {
-	append(format("import %s", import.module));
+	append(import, format("import %s", import.module));
 }
 
 void DumpTree::visit(Precision &prec)
 {
-	append(format("precision %s %s", prec.precision, prec.type));
+	append(prec, format("precision %s %s", prec.precision, prec.type));
 }
 
 void DumpTree::visit(Layout &layout)
 {
-	append("Layout");
+	append(layout, "Layout");
 	begin_sub();
 	for(vector<Layout::Qualifier>::const_iterator i=layout.qualifiers.begin(); i!=layout.qualifiers.end(); )
 	{
@@ -233,12 +294,43 @@ void DumpTree::visit(Layout &layout)
 
 void DumpTree::visit(InterfaceLayout &layout)
 {
-	annotated_branch(format("Layout: %s", layout.interface), layout.layout);
+	append(layout, format("Layout: %s", layout.interface));
+	append_subtree(layout.layout);
+}
+
+void DumpTree::visit(BasicTypeDeclaration &type)
+{
+	append(type, format("%%%d typedef %s", get_label(type), type.name));
+
+	vector<Branch> branches;
+	if(type.base_type)
+		branches.push_back(format("%s: %%%d %s", (type.kind==BasicTypeDeclaration::ALIAS ? "Alias of" : "Base"), get_label(*type.base_type), type.base_type->name));
+	if(type.kind==BasicTypeDeclaration::VECTOR)
+		branches.push_back(format("Vector: %d", type.size));
+	else if(type.kind==BasicTypeDeclaration::MATRIX)
+		branches.push_back(format("Matrix: %dx%d", type.size&0xFFFF, type.size>>16));
+	append_subtree(branches);
+}
+
+void DumpTree::visit(ImageTypeDeclaration &type)
+{
+	static const char *dims[] = { "1D", "2D", "3D", "Cube" };
+
+	append(type, format("%%%d typedef %s", get_label(type), type.name));
+
+	vector<Branch> branches;
+	branches.push_back(format("Dimensions: %s%s", dims[type.dimensions-1], (type.array ? " array" : "")));
+	if(type.base_type)
+		branches.push_back(format("Element type: %%%d %s", get_label(*type.base_type), type.base_type->name));
+	if(type.shadow)
+		branches.push_back("Shadow");
+	append_subtree(branches);
 }
 
 void DumpTree::visit(StructDeclaration &strct)
 {
-	annotated_branch(format("%%%d struct %s", get_label(strct), strct.name), strct.members);
+	append(strct, format("%%%d struct %s", get_label(strct), strct.name));
+	append_subtree(strct.members);
 }
 
 void DumpTree::visit(VariableDeclaration &var)
@@ -259,122 +351,117 @@ void DumpTree::visit(VariableDeclaration &var)
 		decl += " (builtin)";
 	else if(var.linked_declaration)
 		decl += " (linked)";
-	append(decl);
+	append(var, decl);
 
-	begin_sub();
-	if(!var.array && !var.init_expression)
-		last_branch();
+	vector<Branch> branches;
+	if(var.type_declaration)
+		branches.push_back(format("Type: %%%d %s", get_label(*var.type_declaration), var.type_declaration->name));
 	if(var.layout)
-		var.layout->visit(*this);
-
-	if(!var.init_expression)
-		last_branch();
+		branches.push_back(var.layout.get());
 	if(var.array)
 	{
 		if(var.array_size)
-			annotated_branch("Array []", *var.array_size);
+			branches.push_back(Branch("Array []", var.array_size.get()));
 		else
-			append("Array []");
+			branches.push_back("Array []");
 	}
-
-	last_branch();
 	if(var.init_expression)
-		var.init_expression->visit(*this);
-	end_sub();
+		branches.push_back(var.init_expression.get());
+	append_subtree(branches);
 }
 
-void DumpTree::visit(InterfaceBlock &block)
+void DumpTree::visit(InterfaceBlock &iface)
 {
 	string head;
-	if(!block.instance_name.empty())
-		head += format("%%%d ", get_label(block));
-	head += format("%s %s", block.interface, block.name);
-	if(!block.instance_name.empty())
-		head += format(" %s", block.instance_name);
-	if(block.array)
+	if(!iface.instance_name.empty())
+		head += format("%%%d ", get_label(iface));
+	head += format("%s %s", iface.interface, iface.block_name);
+	if(!iface.instance_name.empty())
+		head += format(" %s", iface.instance_name);
+	if(iface.array)
 		head += "[]";
-	if(block.source==BUILTIN_SOURCE)
+	if(iface.source==BUILTIN_SOURCE)
 		head += " (builtin)";
-	else if(block.linked_block)
+	else if(iface.linked_block)
 		head += " (linked)";
-	annotated_branch(head, block.members);
+	append(iface, head);
+
+	vector<Branch> branches;
+	if(iface.type_declaration)
+		branches.push_back(format("Type: %%%d %s", get_label(*iface.type_declaration), iface.type_declaration->name));
+	if(iface.layout)
+		branches.push_back(iface.layout.get());
+	if(iface.members)
+		branches.push_back(iface.members.get());
+	append_subtree(branches);
 }
 
 void DumpTree::visit(FunctionDeclaration &func)
 {
-	string text = format("%%%d %s %s", get_label(func), func.return_type, func.name);
+	string text = format("%%%d %s %s%s", get_label(func), func.return_type, func.name, (func.signature.empty() ? "(?)" : func.signature));
 	if(func.source==BUILTIN_SOURCE)
 		text += " (builtin)";
 	else if(!func.definition)
 		text += " (undefined)";
-	append(text);
+	append(func, text);
+
 	begin_sub();
+	if(func.return_type_declaration)
+		append(format("Return type: %%%d %s", get_label(*func.return_type_declaration), func.return_type_declaration->name));
 	for(NodeArray<VariableDeclaration>::const_iterator i=func.parameters.begin(); i!=func.parameters.end(); ++i)
 		(*i)->visit(*this);
 	last_branch();
-	if(func.definition!=&func)
-		append(format("Definition: %%%d", get_label(*func.definition)));
-	else
+	if(func.definition==&func)
 		func.body.visit(*this);
+	else if(func.definition)
+		append(format("Definition: %%%d", get_label(*func.definition)));
 	end_sub();
 }
 
 void DumpTree::visit(Conditional &cond)
 {
-	append("if()");
-	begin_sub();
-	cond.condition->visit(*this);
-	if(cond.else_body.body.empty())
-		last_branch();
-	cond.body.visit(*this);
+	append(cond, "if()");
+
+	vector<Branch> branches;
+	branches.push_back(cond.condition.get());
+	branches.push_back(Branch("then", &cond.body));
 	if(!cond.else_body.body.empty())
-	{
-		last_branch();
-		cond.else_body.visit(*this);
-	}
-	end_sub();
+		branches.push_back(Branch("else", &cond.else_body));
+	append_subtree(branches);
 }
 
 void DumpTree::visit(Iteration &iter)
 {
-	append("for()");
-	begin_sub();
+	append(iter, "for()");
 
+	vector<Branch> branches;
 	if(iter.init_statement)
-		annotated_branch("Initialization", *iter.init_statement);
+		branches.push_back(Branch("Initialization", iter.init_statement.get()));
 	if(iter.condition)
-		annotated_branch("Condition", *iter.condition);
+		branches.push_back(Branch("Condition", iter.condition.get()));
 	if(iter.loop_expression)
-		annotated_branch("Loop", *iter.loop_expression);
-	last_branch();
-	annotated_branch("Body", iter.body);
-
-	end_sub();
+		branches.push_back(Branch("Loop", iter.loop_expression.get()));
+	branches.push_back(&iter.body);
+	append_subtree(branches);
 }
 
 void DumpTree::visit(Passthrough &pass)
 {
-	append("passthrough");
+	append(pass, (pass.subscript ? "passthrough[]" : "passthrough"));
 	if(pass.subscript)
-	{
-		begin_sub();
-		last_branch();
-		pass.subscript->visit(*this);
-		end_sub();
-	}
+		append_subtree(*pass.subscript);
 }
 
 void DumpTree::visit(Return &ret)
 {
+	append(ret, (ret.expression ? "return" : "return;"));
 	if(ret.expression)
-		annotated_branch("return", *ret.expression);
-	else
-		append("return;");
+		append_subtree(*ret.expression);
 }
 
 void DumpTree::visit(Jump &jump)
 {
-	append(format("%s;", jump.keyword));
+	append(jump, format("%s;", jump.keyword));
 }
 
 } // namespace SL