Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / internal / codegen / utils / JavaNamingPolicy.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/JavaNamingPolicy.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/JavaNamingPolicy.java
new file mode 100644 (file)
index 0000000..009eec2
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/JavaNamingPolicy.java
@@ -0,0 +1,101 @@
+package org.simantics.scl.compiler.internal.codegen.utils;
+
+import org.simantics.scl.compiler.types.TCon;
+import org.simantics.scl.compiler.types.TPred;
+
+
+public class JavaNamingPolicy {
+
+    private final String moduleName;
+    private final String moduleClassName;
+    int closureCount = 0;
+
+    public JavaNamingPolicy(String moduleName) {
+        this.moduleName = moduleName;
+        this.moduleClassName = "scl/" + moduleNameToClassName(moduleName);
+    }
+    
+    private static boolean isAllowableClassNameChar(char c) {
+        return (c >= 'a' && c <= 'z')
+                || (c >= 'A' && c <= 'Z')
+                || (c >= '0' && c <= '9')
+                || c == '$'
+                ;
+    }
+    
+    public static String moduleNameToClassName(String moduleName) {
+        StringBuilder b = new StringBuilder(moduleName.length());
+        int length = moduleName.length();
+        for(int i=0;i<length;++i) {
+            char c = moduleName.charAt(i);
+            if(c == '/' || isAllowableClassNameChar(c))
+                b.append(c);
+            else
+                b.append('_').append((int)c).append('_');
+        }
+        //System.out.println("m2c " + moduleName + " -> " + b.toString());
+        return b.toString().replace("..", "._.");
+    }
+    
+    public static String classNameToModuleName(String className) {
+       className = className.replace("._.", "..");
+        StringBuilder b = new StringBuilder(className.length());
+        int length = className.length();
+        for(int i=0;i<length;++i) {
+            char c = className.charAt(i);
+            if(c == '.')
+                b.append('/');
+            else if(c == '_') {
+                StringBuilder nb = new StringBuilder(4);
+                while(true) {
+                    c = className.charAt(++i);
+                    if(Character.isDigit(c))
+                        nb.append(c);
+                    else
+                        break;
+                }
+                b.append((char)Integer.parseInt(nb.toString()));
+            }
+            else 
+                b.append(c);
+        }
+        //System.out.println("c2m " + className + " -> " + b.toString());
+        return b.toString();
+    }
+    
+    public String getModuleClassName() {
+        return moduleClassName;
+    }
+    
+    public String getMethodName(String name) {
+        return NameMangling.mangle(name);
+    }
+
+    public String getFreshClosureClassName() {
+        return moduleClassName + "$" + (++closureCount);
+    }
+
+    public String getDataTypeClassName(String name) {
+        return moduleClassName + "$" + name; 
+    }
+    
+    public String getConstructorClassName(String name) {
+        return moduleClassName + "$" + name + "Constructor";
+    }
+    
+    public String getTypeClassInterfaceName(TCon name) {
+        return moduleClassName + "$" + name.name + "Class"; 
+    }
+
+    public String getTypeClassInstanceClassName(String name) {
+        return moduleClassName + "$" + name + "Instance";
+    }
+
+    public String getInstanceClassName(TPred instance) {
+        return moduleClassName + "$" + instance.toName();
+    }
+
+    public String getModuleName() {
+        return moduleName;
+    }    
+}