[Gd-chatter] r11751 - trunk/fundev/sources/environment/dswank

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Mar 25 01:59:53 2008
New Revision: 11751

Modified:
   trunk/fundev/sources/environment/dswank/dswank.dylan
Log:
Job: 7299

support for compile file


Modified: trunk/fundev/sources/environment/dswank/dswank.dylan
==============================================================================
--- trunk/fundev/sources/environment/dswank/dswank.dylan	(original)
+++ trunk/fundev/sources/environment/dswank/dswank.dylan	Tue Mar 25 01:59:53 2008
@@ -99,6 +99,23 @@
   new-directory;
 end;
 
+define swank-function compile-file-for-emacs (filename, foo)
+  block(ret)
+    for (p in open-projects())
+      for (source in project-sources(p))
+        if (source.source-record-location = filename)
+          *project* := p;
+          ret();
+        end;
+      end;
+    end;
+  end;
+  //do something useful with the compiler output
+  run-compiler(*server*, concatenate("build ", *project*.project-name));
+  //slime expects a list with 2 elements, so be it
+  #("NIL", "2.1");
+end;
+
 define swank-function compiler-notes-for-emacs ()
   let warnings = project-warnings(*project*);
   let res = make(<stretchy-vector>);