Changeset 375

Timestamp:

07/04/08 08:02:59 (5 months ago)

Author:

FeepingCreature

Message:

• Java support added
  

Files:

• trunk/redimple/dsss.conf (modified) (1 diff)
• trunk/redimple/redimple.d (modified) (5 diffs)

trunk/redimple/dsss.conf

@@ -1 +1 @@
-name=redimple
-[redimple.d]
+buildflags=-g

trunk/redimple/redimple.d

@@ -110 +110 @@
-}
-
+bool java_mode;
+
-string modToFile(string mod) {
-  auto res=mod.replace(".", "/");
-
+
+
-}
-
@@ -119 +122 @@
-void log(char[] l) { }
-
+Graph!(string) genJavaImportsGraph(char[] mod, excluder xc) {
+  auto files = listdir(".", "*.java") /map/ (string s) { return s[s.rfind("/")+1 .. $].endsWith(".java"); }
+  /select/ (string s) { return xc("", s); };
+  auto res = new Graph!(string);
+  foreach (string file; files) {
+    res.addNode(file);
+  }
+  foreach (string file; files) {
+    auto data = cast(string) (file~".java").read();
+    foreach (string file2; files) {
+      if (file2 == file) continue;
+      if (data.find(file2) != -1) {
+        res.addEdge(file, file2);
+      }
+    }
+  }
+  return res;
+}
+
-Graph!(string) genImportsGraph(char[] mod, excluder xc, bool incExtNodes=false) {
+  if (java_mode) return genJavaImportsGraph(mod, xc);
-  auto res=new Graph!(string);
-  string[] scanned;
@@ -199 +222 @@
-    if (pos==-1) return false;
-    return (letters~digits~"_").find(s[pos-1])==-1;
-
-
+
+
+
+
+
-  string[] splitSkipBrackets(string inp, char sep) {
-    size_t bracketlevel=0;
@@ -221 +247 @@
-    res~=" | { "~entry~(supers /map/ (string s) { return " | "~s; } /reduce(""[])/ ex!("e, f -> e~f"))~" } ";
-  }
-
+
+
-}
-
@@ -237 +264 @@
-  char[] startmod=args[0]; args = args[1 .. $];
-  auto xc=new PExcluder;
-
-
+
+
+
+
+
-  writefln("Digraph G { graph [concentrate=true, remincross=true, labeljust=l, ratio=compress, nodesep=0.2, "~(leftright?"rankdir=LR, ":"")~"fontname=Helvetica];");
-  writefln(" node [ fontname=Helvetica ]; ");