Contributing to new repository

Author: komaz

com.xored.f4.astView/.buildpath

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<buildpath>
+	<buildpathentry kind="src" path="fan"/>
+	<buildpathentry kind="con" path="org.eclipse.dltk.launching.INTERPRETER_CONTAINER"/>
+</buildpath>

com.xored.f4.astView/.classpath

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<classpath>
+	<classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER"/>
+	<classpathentry kind="con" path="com.xored.fanide.jdt.launching.FANJAVA_CONTAINER"/>
+	<classpathentry kind="con" path="org.eclipse.pde.core.requiredPlugins"/>
+	<classpathentry kind="output" path="bin"/>
+</classpath>

com.xored.f4.astView/.project

@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>com.xored.f4.astView</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>org.eclipse.dltk.core.scriptbuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+		<buildCommand>
+			<name>org.eclipse.jdt.core.javabuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+		<buildCommand>
+			<name>org.eclipse.pde.ManifestBuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+		<buildCommand>
+			<name>org.eclipse.pde.SchemaBuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>org.eclipse.pde.PluginNature</nature>
+		<nature>org.eclipse.jdt.core.javanature</nature>
+		<nature>com.xored.fanide.core.nature</nature>
+	</natures>
+</projectDescription>

com.xored.f4.astView/.settings/org.eclipse.jdt.core.prefs

@@ -0,0 +1,8 @@
+#Fri Apr 23 17:32:05 NOVST 2010
+eclipse.preferences.version=1
+org.eclipse.jdt.core.compiler.codegen.inlineJsrBytecode=enabled
+org.eclipse.jdt.core.compiler.codegen.targetPlatform=1.5
+org.eclipse.jdt.core.compiler.compliance=1.5
+org.eclipse.jdt.core.compiler.problem.assertIdentifier=error
+org.eclipse.jdt.core.compiler.problem.enumIdentifier=error
+org.eclipse.jdt.core.compiler.source=1.5

com.xored.f4.astView/META-INF/MANIFEST.MF

@@ -0,0 +1,17 @@
+Manifest-Version: 1.0
+Bundle-ManifestVersion: 2
+Bundle-Name: AstDebug
+Bundle-SymbolicName: com.xored.f4.astView;singleton:=true
+Bundle-Version: 1.0.0.qualifier
+Bundle-Vendor: XORED
+Bundle-RequiredExecutionEnvironment: J2SE-1.5
+Require-Bundle: org.eclipse.core.runtime,
+ org.eclipse.core.resources,
+ org.eclipse.jface.text,
+ org.eclipse.ui,
+ org.eclipse.ui.editors,
+ org.eclipse.dltk.core;bundle-version="2.0.0",
+ org.eclipse.dltk.ui;bundle-version="2.0.0",
+ com.xored.fanide.core,
+ com.xored.fanide.ui,
+ org.fantom.sys;bundle-version="1.0.52"

com.xored.f4.astView/build.fan

@@ -0,0 +1,13 @@
+using build
+
+class Build : build::BuildPod
+{
+  new make()
+  {
+    podName = "f4astView"
+    summary = ""
+    srcDirs = [`fan/`]
+    outDir = `./`
+    depends = ["sys 1.0", "f4parser 1.0", "f4core 1.0", "f4model 1.0"]
+  }
+}

com.xored.f4.astView/build.properties

@@ -0,0 +1,5 @@
+output.. = bin/
+bin.includes = META-INF/,\
+               .,\
+               plugin.xml,\
+               f4astView.pod

com.xored.f4.astView/f4astView.pod

@@ -0,0 +1,48 @@
+using [java]org.eclipse.jface.viewers
+
+class AstContentProvider : ITreeContentProvider
+{
+  
+    AstNode? root := null
+  
+    override Obj?[]? getChildren(Obj? parentElement) {
+      if (parentElement is AstNode) {
+        return (Obj?[]?)(parentElement->children)
+      } else {
+        return [,]
+      }
+    }
+  
+    override Obj? getParent(Obj? element) {
+      if (element is AstNode) {
+        return element->parent
+      } else {
+        return null
+      }
+    }
+  
+    override Bool hasChildren(Obj? element) {
+      return getChildren(element).size > 0
+    }
+  
+    override Obj?[]? getElements(Obj? inputElement) {
+      if (root == null) {
+        return [,]
+      } else {
+        return [root]
+      }
+    }
+  
+    override Void dispose() {
+      
+    }
+
+    override Void inputChanged(Viewer? viewer, Obj? oldInput, Obj? newInput) {
+      if (newInput is AstNode[]) {
+        root = newInput->first
+      } else {
+        root = null
+      }
+    }
+  
+}

com.xored.f4.astView/fan/AstContentProvider.fan

@@ -0,0 +1,40 @@
+using [java]org.eclipse.jface.viewers
+using [java]org.eclipse.swt.graphics
+
+using f4parser
+class AstLabelProvider : ILabelProvider
+{
+
+  override Void addListener(ILabelProviderListener? listener) {
+    
+  }
+
+  override Void dispose() {
+    
+  }
+
+  override Bool isLabelProperty(Obj? element, Str? property) {
+    return false
+  }
+
+  override Void removeListener(ILabelProviderListener? listener) {
+    
+  }
+  
+  override Image? getImage(Obj? node) {
+    return null
+  }
+  
+  override Str? getText(Obj? node) {
+    if (node is AstNode) 
+      return label(node->node)
+    else return node->typeof->name
+  }
+  
+  private Str label(Node node)
+  {
+    result := node.typeof.name
+    if(node is Expr) result = "$result (${node->resolvedType?->genericQname}) (op ${node->id->name})"
+    return result
+  }
+}