LaunchUpdater.java

package net.sf.eclipsefp.haskell.debug.ui.internal.launch;

import java.util.ArrayList;
import java.util.List;
import net.sf.eclipsefp.haskell.debug.core.internal.launch.ILaunchAttributes;
import net.sf.eclipsefp.haskell.ui.HaskellUIPlugin;
import net.sf.eclipsefp.haskell.ui.util.CabalFileChangeListener;
import org.eclipse.core.resources.IFile;
import org.eclipse.core.runtime.CoreException;
import org.eclipse.debug.core.ILaunchConfiguration;
import org.eclipse.debug.core.ILaunchConfigurationWorkingCopy;

/**
 * Listener to update launch configurations when Cabal file changes
 * @author JP Moresmau
 *
 */
public class LaunchUpdater implements CabalFileChangeListener {

  @Override
  public void cabalFileChanged( final IFile cabalF ) {
    try {
     // final ClassLoader cl=getClass().getClassLoader();
     String projectName=cabalF.getProject().getName();
     for(ILaunchConfiguration c:LaunchOperation.getConfigurationsForProject(LaunchOperation.getConfigType( InteractiveLaunchOperation.INTERACTIVE_CONFIG_TYPE ), projectName )){
       String delegateClass=InteractiveLaunchOperation.getDelegate( c );
       if (delegateClass!=null){
         try {

           //IInteractiveLaunchOperationDelegate delegate=(IInteractiveLaunchOperationDelegate)cl.loadClass( delegateClass).newInstance();

           List<?> fileNames=c.getAttribute( ILaunchAttributes.FILES, new ArrayList<String>() );
           //IFile[] files=new IFile[fileNames.size()];
           List<IFile> files=new ArrayList<>(fileNames.size());
           for(Object o:fileNames){
             IFile f=(IFile)cabalF.getProject().findMember( (String )o);
             //file may have been moved or deleted
             if (f!=null){
               files.add(f);
             }
           }

           if (files.size()>0){
             //String args=InteractiveLaunchOperation.getArguments(delegate,cabalF.getProject(),files.toArray( new IFile[files.size()]));
             ILaunchConfigurationWorkingCopy wc=c.getWorkingCopy();
             //wc.setAttribute( ILaunchAttributes.ARGUMENTS,args);
             wc.doSave();
           } else {
             // we do not find any of the files to launch: remove the configuration
             c.delete();
           }
         } catch (Throwable t){
           HaskellUIPlugin.log( t );
         }
       }
     }

    } catch (CoreException ce){
      HaskellUIPlugin.log( ce );
    }
  }
}