X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Fmodule%2FModule.java;h=0ea33cb463f2de07a56c5ece742187cfa43b7c1c;hp=6e6690fef173b17e11422bb7c79e0148104648ac;hb=f238db98a6075e59973c5c391a1946eb7972c7a5;hpb=908f3683f6cd21dcff70a8f3b1a9d1e3368ca5af

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/module/Module.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/module/Module.java
index 6e6690fef..0ea33cb46 100644
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/module/Module.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/module/Module.java
@@ -1,5 +1,6 @@
 package org.simantics.scl.compiler.module;
 
+import java.util.ArrayList;
 import java.util.Collection;
 import java.util.List;
 import java.util.function.Consumer;
@@ -15,9 +16,11 @@ import org.simantics.scl.compiler.elaboration.relations.SCLEntityType;
 import org.simantics.scl.compiler.elaboration.relations.SCLRelation;
 import org.simantics.scl.compiler.elaboration.rules.MappingRelation;
 import org.simantics.scl.compiler.elaboration.rules.TransformationRule;
+import org.simantics.scl.compiler.environment.filter.AcceptAllNamespaceFilter;
 import org.simantics.scl.compiler.environment.filter.NamespaceFilter;
 import org.simantics.scl.compiler.errors.CompilationError;
 import org.simantics.scl.compiler.internal.codegen.effects.EffectConstructor;
+import org.simantics.scl.compiler.module.debug.ModuleDebugInfo;
 import org.simantics.scl.compiler.top.ModuleInitializer;
 import org.simantics.scl.compiler.types.TCon;
 import org.simantics.scl.runtime.profiling.BranchPoint;
@@ -30,6 +33,13 @@ public interface Module {
     String getDefaultLocalName();
     
     SCLValue getValue(String name);
+    default List<String> getValueNames() {
+        ArrayList<String> valueNames = new ArrayList<String>();
+        findValuesForPrefix("", AcceptAllNamespaceFilter.INSTANCE, value -> {
+            valueNames.add(value.getName().name);
+        });
+        return valueNames;
+    }
     List<Constant> getFieldAccessors(String name);
     SCLRelation getRelation(String name);
     SCLEntityType getEntityType(String name);
@@ -61,4 +71,11 @@ public interface Module {
     CompilationError[] getWarnings();
     ClassLoader getParentClassLoader();
     String getDeprecation();
+    
+    /**
+     * May return null, if there is no debug info.
+     */
+    default ModuleDebugInfo getModuleDebugInfo() {
+        return null;
+    }
 }