FullBuildVisitor.java

package net.sf.eclipsefp.haskell.core.partitioned.alex;

import net.sf.eclipsefp.haskell.core.partitioned.runner.AlexRunner;
import net.sf.eclipsefp.haskell.core.partitioned.runner.ProcessorError;
import net.sf.eclipsefp.haskell.util.FileUtil;
import org.eclipse.core.resources.IFile;
import org.eclipse.core.resources.IResource;
import org.eclipse.core.resources.IResourceVisitor;
import org.eclipse.core.runtime.CoreException;
import org.eclipse.core.runtime.IPath;
import org.eclipse.core.runtime.NullProgressMonitor;

/**
 * Builds all resources in the project.
 *
 * @author Alejandro Serrano
 */
public class FullBuildVisitor implements IResourceVisitor {

  @Override
  public boolean visit( final IResource resource ) throws CoreException {
    if( AlexBuilder.mustBeVisited( resource ) ) {
      AlexRunner runner = new AlexRunner();
      for( ProcessorError s: runner.run( resource.getLocation() ) ) {
        AlexBuilder.createMarker( resource, s );
      }
      // Set derived file as derived
      resource.getProject().refreshLocal( IResource.DEPTH_INFINITE, null );
      IPath derivedPath = resource.getProjectRelativePath().removeFileExtension().addFileExtension( FileUtil.EXTENSION_HS );
      IFile f=resource.getProject().getFile( derivedPath );
      if (f.isAccessible() && !f.isDerived()){
        f.setDerived( true,new NullProgressMonitor() );
      }
    }
    return true;
  }

}