Leif Frenzel's Haskell and Eclipse blog

after

import Cohatoe.API

resource = plugin {
 pluginMain = sayHello
}

sayHello :: ProgressMonitor -> [String] -> [String]
sayHello _ _ = ["Hello from Haskell"]
myFunction :: [String] -> IO [String]
myFunction args = do
 pm <- getProgressMonitor
 pmBegin pm "Starting" 100
 -- actually do something
 pmDone pm

import Cohatoe.API

resource = plugin {
 pluginMain = sayHello
}

sayHello :: [String] -> [String]
-- and here goes your implementation of HelloWorld

<haskellFunction
  implementation="de.leiffrenzel.cohatoe.server.core.test.functions.MultiFolderModule"
  interface="de.leiffrenzel.cohatoe.server.core.test.functions.IMultiFolderModule"
  name="Multi-modules in different folders"
  objectFile="$os$/obj/MultiFolderModule1.o">
    <objectCodeFolder>$os$/obj2/</objectCodeFolder>
</haskellFunction>

try {
  // ...
} catch( final CohatoeException cohex ) {
  // we don't handle this here, just 
  // write it to the workspace log
  CohatoeExamplesPlugin plugin = CohatoeExamplesPlugin.getDefault();
  plugin.getLog().log( cohex.getStatus() );
}

  private void start(String organizerId) {
   IBreakpointOrganizer organizer = getOrganizer(organizerId);
   IPropertyChangeListener listener = new IPropertyChangeListener() {
     public void propertyChange(PropertyChangeEvent event) {
     }
   };
   organizer.addPropertyChangeListener(listener);
   organizer.removePropertyChangeListener(listener);      
 }

  public void addPropertyChangeListener(IPropertyChangeListener listener) {
   getOrganizer().addPropertyChangeListener(listener);
 }

 [...]
 protected IBreakpointOrganizerDelegate getOrganizer() {
   if (fDelegate == null) {
     try {
       fDelegate = (IBreakpointOrganizerDelegate)
         fElement.createExecutableExtension(ATTR_CLASS);
     } catch (CoreException e) {
       DebugUIPlugin.log(e);
     }
   }
   return fDelegate;
 }

> darcs get --partial http://leiffrenzel.eu/repos/cohatoe

# option for tracing calls to the Cohatoe server,
# including inits and function calls
de.leiffrenzel.cohatoe.server.core/logs = true

> cd C:\cohatoetest\eclipse
> eclipse -debug -consolelog

<extension point="de.leiffrenzel.cohatoe.server.core.haskellFunctions">
 <haskellfunction interface="..."
                 implementation="..."
                 objectcode="...">
  <objectcodepackage path="..." />
 </haskellfunction>
</extension>
<extension point="de.leiffrenzel.cohatoe.server.core.haskellFunctions">
 <haskellfunction interface="..."
                 implementation="..." 
                 objectcode="...">
   <depends id="myLib" />
</haskellfunction>
<objectcodepackage id="myLib" path="..." />
</extension>
[Cohatoe Server] No entry 'inexistent.obj' in bundle 'de.leiffrenzel.cohatoe.server.core.test'.
[Cohatoe Server] Initializing server.
[Cohatoe Server] Setting port to 36522
[Cohatoe Server] Setting executable to C:\workspaces\cohatoe\de.leiffrenzel.cohatoe.server.core.win32.win32.x86\server\haskellserver.exe
[Cohatoe Server] Evaluating de.leiffrenzel.cohatoe.example.core.functions.IHelloFunction
[Cohatoe Server] C:\workspaces\cohatoe\de.leiffrenzel.cohatoe.example\os\win32\x86\obj\Hello.o
[Cohatoe Server] > Server process ready
[Cohatoe Server] Response was: Hi, thanks for saying 'Hi Haskell!' to me.§

[Cohatoe Server] Disposing server.
[Cohatoe Server] Finished out and err of the server process.

-- We must import Cohatoe.API and implement resource 
-- so that this code can be dynamically loaded
import Cohatoe.API

resource = plugin {
  pluginMain = sayHello
}

-- our code starts here
-- ...
sayHello = ...

> cd C:\cohatoetest\cohatoe-api

> runhaskell Setup.hs configure
> runhaskell Setup.hs build
> runhaskell Setup.hs install

module Example where

import Cohatoe.API

resource = plugin {
  pluginMain = sayHello
}

sayHello :: [String] -> [String]
sayHello _ = ["Hello from Haskell"]

> ghc -c -package cohatoe-api Example.hs

// cohatoetest.IExampleFunction:
package cohatoetest;

  public interface IExampleFunction {
    String sayHello();
  }

// cohatoetest.ExampleFunction:
package cohatoetest;

import de.leiffrenzel.cohatoe.server.core.CohatoeServer;

public class ExampleFunction implements IExampleFunction {

  public String sayHello() {
    CohatoeServer server = CohatoeServer.getInstance();
    String[] retVal = server.evaluate( IExampleFunction.class, new String[ 0 ] );

    String result = "[Got no answer from Haskell.]";
    if( retVal != null && retVal.length == 1 ) {
      result = retVal[ 0 ];
    }
    return result;
  }
}

  public void run( final IAction action ) {
    CohatoeServer server = CohatoeServer.getInstance();
    Object fun = server.createFunction( IExampleFunction.class );
    if( fun instanceof IExampleFunction ) {
      IExampleFunction helloFunction = ( IExampleFunction )fun;
      MessageDialog.openInformation(
        window.getShell(),
        "Cohatoetest Plug-in",
        helloFunction.sayHello() );
    }
  }

 public void run( final IAction action ) {
     MessageDialog.openInformation(
         window.getShell(),
         "Cohatoetest Plug-in",
         "Hello, Eclipse world" );
 }

Leif Frenzel's Haskell and Eclipse blog

EclipseFP is going to be reloaded

Clash of cultures at the Karlsruher Entwicklertag

Cohatoe 0.12 preview

Updated HaL 3 program

EclipseDarcs 0.4.1 available

HaL 3 and EclipseFP Hackathon

Cohatoe 0.9 preview

Cohatoe 0.8 preview

Cohatoe 0.7 preview

Cohatoe 0.6 preview

Eclipse's IDE Metatooling project

What Cohatoe is not

Some reflections on Eclipse-based language IDEs

Progress on Cohatoe

Cohatoe presentation video online

Cohatoe development progress

Cohatoe 0.5 preview

Next steps for Cohatoe

Cohatoe talk at HaL 2

Cohatoe extension wizardry

Contributing source files

Unit testing in Haskell

EclipseDarcs 0.4 available

Command-line options in Haskell

Cohatoe 0.3 preview

EclipseDarcs 0.3 available

Progress on Progress?

Using Darcs (and EclipseDarcs)

A focused braindump

About losing purity

History of Haskell

Some history

Cohatoe 0.2 preview

Building a server executable

Indirect programming

What's in which package?

Tracing deployed plugins

Code in multiple modules

How to tell what's going on

Simple example walkthrough II

Simple example walkthrough I

Cohatoe 0.1 preview