+++ /dev/null
-package org.simantics.scl.compiler.internal.parsing.declarations;
-
-import org.simantics.scl.compiler.elaboration.expressions.printing.ExpressionToStringVisitor;
-import org.simantics.scl.compiler.elaboration.expressions.records.FieldAssignment;
-
-
-
-public class DModuleHeader extends DeclarationAst {
- public final FieldAssignment[] fields;
-
- public DModuleHeader(FieldAssignment[] fields) {
- this.fields = fields;
- }
-
- @Override
- public void toString(int indentation, StringBuilder b) {
- for(int i=0;i<indentation;++i) b.append(" ");
- b.append("module {");
- ExpressionToStringVisitor visitor = new ExpressionToStringVisitor(b);
- boolean first = true;
- for(FieldAssignment field : fields) {
- if(first)
- first = false;
- else
- b.append(',');
- b.append('\n');
- for(int i=0;i<=indentation;++i) b.append(" ");
- b.append(field.name);
- b.append(" = ");
- field.value.accept(visitor);
- }
- b.append('\n');
- for(int i=0;i<indentation;++i) b.append(" ");
- b.append('}');
- }
-}