Laboratoire ICAR » Plateforme TXM

command.name.45 = Run R script

command.name.46 = Execute Text Selection

command.name.90 = Check R packages

command.name.93 = Reconnect to RWorkspace

menu.label.11 = R

page.name = Statistics Engine

view.name.5 = R variables

view.name.6 = R Console

command.name.45 = Выполнить скрипт R

command.name.46 = Выполнить выделенные строки как скрипт R 

command.name.90 = Добавить текст

menu.label.11 = R

page.name = Статистическая машина

view.name.5 = Переменные R

view.name.6 = Консоль R

command.name.45 = Exécuter le script R

command.name.46 = Exécuter la sélection de texte

command.name.90 = Vérifier les packages R

command.name.93 = Reconnecter le RWorkspace

menu.label.11 = R

page.name = Moteur de Statistiques

view.name.5 = Variables R

view.name.6 = Console R

command.name.45=Выполнить скрипт R

page.name=Статистическая машина

command.name.90=Добавить текст

command.label.137=Консоль R

command.label.138=Переменные R

<?xml version="1.0" encoding="UTF-8"?>

<?eclipse version="3.4"?>

<plugin>

   <extension

         point="org.eclipse.ui.preferencePages">

      <page

            category="org.txm.rcpapplication.preferences.AdvancePreferencePage"

            class="org.txm.statsengine.r.rcp.preferences.RPreferencePage"

            id="org.txm.statsengine.r.rcp.preferences.RPreferencePage"

            name="%page.name">

      </page>

   </extension>

   <extension

         point="org.eclipse.ui.commands">

               <command

            defaultHandler="org.txm.statsengine.r.rcp.handlers.CheckRPackages"

            id="CheckRPackages"

            name="%command.name.90">

      </command>

                  <command

            defaultHandler="org.txm.statsengine.r.rcp.handlers.ReconnectToRWorkspace"

            id="ReconnectToRWorkspace"

            name="%command.name.93">

      </command>

               <command

            defaultHandler="org.txm.statsengine.r.rcp.handlers.ExecuteRScript"

            id="ExecuteRScript"

            name="%command.name.45">

      </command>

      <command

            defaultHandler="org.txm.statsengine.r.rcp.handlers.ExecuteRText"

            id="ExecuteRText"

            name="%command.name.46">

      </command>

   </extension>

   <extension

         point="org.eclipse.ui.menus">

      <menuContribution

            allPopups="false"

            locationURI="menu:menu.file">

         <command

               commandId="CheckRPackages"

               style="push">

         </command>

      </menuContribution>

      <menuContribution

            allPopups="false"

            locationURI="menu:menu.display.views">

         <command

               commandId="org.eclipse.ui.views.showView"

               icon="icons/R.png"

               label="%view.name.6"

               style="push">

            <parameter

                  name="org.eclipse.ui.views.showView.viewId"

                  value="RConsoleView">

            </parameter>

         </command>

         <command

               commandId="org.eclipse.ui.views.showView"

               icon="icons/R.png"

               label="%view.name.5"

               style="push">

            <parameter

                  name="org.eclipse.ui.views.showView.viewId"

                  value="RVariablesView">

            </parameter>

         </command>

      </menuContribution>

      <menuContribution

            locationURI="popup:#TextEditorContext">

         <menu

               icon="icons/R.png"

               label="%menu.label.11">

            <command

                  commandId="ExecuteRText"

                  style="push">

            </command>

            <command

                  commandId="ExecuteRScript"

                  style="push">

            </command>

         </menu>

      </menuContribution>

   </extension>

   <extension

         point="org.eclipse.ui.views">

               <view

            allowMultiple="false"

            category="org.txm.rcpapplication"

            class="org.txm.statsengine.r.rcp.views.RConsole"

            icon="icons/R.png"

            id="RConsoleView"

            name="%view.name.6"

            restorable="true">

      </view>

               <view

                     category="org.txm.rcpapplication"

                     class="org.txm.statsengine.r.rcp.views.RVariablesView"

                     icon="icons/R.png"

                     id="RVariablesView"

                     name="%view.name.5"

                     restorable="true">

               </view>

   </extension>

</plugin>

eclipse.preferences.version=1

org.eclipse.jdt.core.compiler.codegen.inlineJsrBytecode=enabled

org.eclipse.jdt.core.compiler.codegen.targetPlatform=1.6

org.eclipse.jdt.core.compiler.compliance=1.6

org.eclipse.jdt.core.compiler.problem.assertIdentifier=error

org.eclipse.jdt.core.compiler.problem.enumIdentifier=error

org.eclipse.jdt.core.compiler.source=1.6

<?xml version="1.0" encoding="UTF-8"?>

<classpath>

	<classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/JavaSE-1.6"/>

	<classpathentry kind="con" path="org.eclipse.pde.core.requiredPlugins"/>

	<classpathentry kind="src" path="src"/>

	<classpathentry kind="output" path="bin"/>

</classpath>

Manifest-Version: 1.0

Bundle-ManifestVersion: 2

Bundle-Name: R Statistics Engine RCP

Bundle-SymbolicName: org.txm.statsengine.r.rcp;singleton:=true

Bundle-Version: 1.0.0.qualifier

Bundle-RequiredExecutionEnvironment: JavaSE-1.6

Require-Bundle: org.txm.core;bundle-version="0.7.0",

 org.txm.statsengine.r.core;bundle-version="1.0.0",

 org.eclipse.core.runtime;bundle-version="3.10.0",

 org.eclipse.ui;bundle-version="3.106.1",

 org.txm.rcp;bundle-version="0.7.8"

Export-Package: org.txm.statsengine.r.rcp.views

<?xml version="1.0" encoding="UTF-8"?>

<projectDescription>

	<name>org.txm.statsengine.r.rcp</name>

	<comment></comment>

	<projects>

	</projects>

	<buildSpec>

		<buildCommand>

			<name>org.eclipse.jdt.core.javabuilder</name>

			<arguments>

			</arguments>

		</buildCommand>

		<buildCommand>

			<name>org.eclipse.pde.ManifestBuilder</name>

			<arguments>

			</arguments>

		</buildCommand>

		<buildCommand>

			<name>org.eclipse.pde.SchemaBuilder</name>

			<arguments>

			</arguments>

		</buildCommand>

	</buildSpec>

	<natures>

		<nature>org.eclipse.pde.PluginNature</nature>

		<nature>org.eclipse.jdt.core.javanature</nature>

	</natures>

</projectDescription>

// Copyright © 2010-2013 ENS de Lyon.

// Copyright © 2007-2010 ENS de Lyon, CNRS, INRP, University of

// Lyon 2, University of Franche-Comté, University of Nice

// Sophia Antipolis, University of Paris 3.

// 

// The TXM platform is free software: you can redistribute it

// and/or modify it under the terms of the GNU General Public

// License as published by the Free Software Foundation,

// either version 2 of the License, or (at your option) any

// later version.

// 

// The TXM platform is distributed in the hope that it will be

// useful, but WITHOUT ANY WARRANTY; without even the implied

// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

// PURPOSE. See the GNU General Public License for more

// details.

// 

// You should have received a copy of the GNU General

// Public License along with the TXM platform. If not, see

// http://www.gnu.org/licenses.

// 

// 

// 

// $LastChangedDate:$

// $LastChangedRevision:$

// $LastChangedBy:$ 

//

package org.txm.statsengine.r.rcp;

import org.eclipse.jface.dialogs.MessageDialog;

import org.eclipse.swt.widgets.Display;

import org.txm.rcpapplication.Messages;

import org.txm.rcpapplication.views.corpora.CorporaView;

import org.txm.statsengine.r.core.RserveWatcher;

// TODO: Auto-generated Javadoc

/**

 * Watch if RServe is running

 */

@Deprecated

public class TXMRServeWatcher extends RserveWatcher{

	/** The parent. */

	private Display parent;

	/**

	 * Instantiates a new tXMR serve watcher.

	 *

	 * @param parent the parent

	 */

	TXMRServeWatcher(Display parent)

	{

		this.parent = parent;

	}

	/* (non-Javadoc)

	 * @see org.txm.RserveWatcher#restart()

	 */

	@Override

	public boolean restart()

	{

		parent.syncExec(new Runnable(){

		      @Override

			public void run(){

		    	  MessageDialog d =

					    new MessageDialog(

					      parent.getActiveShell(),

					      Messages.TXMRServeWatcher_0,

					      null,

					      Messages.TXMRServeWatcher_1,

					      MessageDialog.ERROR,

					      new String[] { Messages.TXMRServeWatcher_2 },

					      0);

					    d.open();

		      }

		    });

		boolean ret = super.restart();

		parent.syncExec(new Runnable(){

		      @Override

			public void run(){

		    	  MessageDialog d =

					    new MessageDialog(

					      parent.getActiveShell(),

					      Messages.TXMRServeWatcher_3,

					      null,

					      Messages.TXMRServeWatcher_4,

					      MessageDialog.ERROR,

					      new String[] { Messages.TXMRServeWatcher_2 },

					      0);

					    d.open();

		      }

		    });

		if (ret)

		{

			parent.syncExec(new Runnable(){

			      @Override

				public void run(){

			    	  CorporaView.reload();

			      }

			    });

		}

		return ret;

	}

}

// Copyright © 2010-2013 ENS de Lyon.

// Copyright © 2007-2010 ENS de Lyon, CNRS, INRP, University of

// Lyon 2, University of Franche-Comté, University of Nice

// Sophia Antipolis, University of Paris 3.

// 

// The TXM platform is free software: you can redistribute it

// and/or modify it under the terms of the GNU General Public

// License as published by the Free Software Foundation,

// either version 2 of the License, or (at your option) any

// later version.

// 

// The TXM platform is distributed in the hope that it will be

// useful, but WITHOUT ANY WARRANTY; without even the implied

// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

// PURPOSE. See the GNU General Public License for more

// details.

// 

// You should have received a copy of the GNU General

// Public License along with the TXM platform. If not, see

// http://www.gnu.org/licenses.

// 

// 

// 

// $LastChangedDate:$

// $LastChangedRevision:$

// $LastChangedBy:$ 

//

package org.txm.statsengine.r.rcp.views;

import org.eclipse.jface.action.Action;

import org.eclipse.swt.SWT;

import org.eclipse.swt.custom.StyledText;

import org.eclipse.swt.layout.GridData;

import org.eclipse.swt.widgets.Composite;

import org.eclipse.swt.widgets.Display;

import org.eclipse.ui.IViewPart;

import org.eclipse.ui.IWorkbenchWindow;

import org.eclipse.ui.PlatformUI;

import org.eclipse.ui.part.ViewPart;

import org.txm.Toolbox;

import org.txm.rcpapplication.IImageKeys;

import org.txm.rcpapplication.Messages;

import org.txm.statsengine.r.core.RWorkspace;

import org.txm.statsengine.r.core.RWorkspaceException;

import org.txm.utils.MessagePrinter;

import org.txm.utils.StreamHog;

import org.txm.utils.logger.Log;

/**

 * display the R logs only 

 * @author mdecorde.

 */

public class RConsole extends ViewPart implements MessagePrinter {

	/** The ID. */

	public static String ID = "org.txm.rcpapplication.views.RConsole"; //$NON-NLS-1$

	/** The text area. */

	private StyledText textArea;

	private Display display;

	boolean readyToDisplay = false;

	//	/** The out. */

	//	private static PrintStream out;

	//

	//	/** The err. */

	//	private static PrintStream err;

	//

	//	/** The quit. */

	//	private boolean quit;

	//

	//	/** The reader. */

	//	private Thread reader;

	//

	//	/** The reader2. */

	//	private Thread reader2;

	//

	//	/** The pin. */

	//	PipedInputStream pin = new PipedInputStream();

	//

	//	/** The pin2. */

	//	PipedInputStream pin2 = new PipedInputStream();

	//

	//	/** The output. */

	//	static PrintStream output = System.out;

	//

	//	/** The errput. */

	//	static PrintStream errput = System.err;

	//

	//	/** The blue. */

	//	static Color blue;

	//

	//	/** The red. */

	//	static Color red;

	/**

	 * Instantiates a new r console.

	 */

	public RConsole() {

		//		try {

		//			PipedOutputStream pout = new PipedOutputStream(pin);

		//			out = new PrintStream(pout, true);

		//

		//			new PipedOutputStream(pin2);

		//			err = new PrintStream(pout, true);

		//

		//		} catch (IOException e) {

		//			org.txm.rcpapplication.utils.Logger.printStackTrace(e);

		//		}

		//

		//		reader = new Thread(this);

		//		reader.setDaemon(true);

		//		reader.start();

		//		reader2 = new Thread(this);

		//		reader2.setDaemon(true);

		//		reader2.start();

	}

	/**

	 * Redirect.

	 *

	 * @param b the b

	 */

	public static void redirect(boolean b) {

		//		if (b) {

		//			System.setOut(out);

		//			System.setErr(err);

		//		} else {

		//			System.setOut(output);

		//			System.setErr(errput);

		//		}

	}

	//	/**

	//	 * Lecture de la sortie standard.

	//	 *

	//	 * @param in the in

	//	 * @return the string

	//	 * @throws IOException Signals that an I/O exception has occurred.

	//	 */

	//	protected synchronized String readLine(PipedInputStream in)

	//			throws IOException {

	//		String input = ""; //$NON-NLS-1$

	//		do {

	//			int available = in.available();

	//			if (available == 0)

	//				break;

	//			byte b[] = new byte[available];

	//			in.read(b);

	//			input = input + new String(b, 0, b.length);

	//		} while (!input.endsWith("\n") && !input.endsWith("\r\n") && !quit); //$NON-NLS-1$ //$NON-NLS-2$

	//		return input;

	//	}

	//

	//	/* (non-Javadoc)

	//	 * @see java.lang.Runnable#run()

	//	 */

	//	@Override

	//	public synchronized void run() {

	//		try {

	//			while (Thread.currentThread() == reader) {

	//				try {

	//					this.wait(100);

	//				} catch (InterruptedException ie) {

	//				}

	//				if (pin.available() != 0) {

	//					String input = this.readLine(pin);

	//					textArea.append(input);

	//				}

	//				if (quit)

	//					return;

	//			}

	//

	//			while (Thread.currentThread() == reader2) {

	//				try {

	//					this.wait(100);

	//				} catch (InterruptedException ie) {

	//				}

	//				if (pin2.available() != 0) {

	//					String input = this.readLine(pin2);

	//					textArea.append(input);

	//				}

	//

	//				if (quit)

	//					return;

	//			}

	//		} catch (Exception e) {

	//			textArea.append(Messages.GroovyConsole_4);

	//			textArea.append(Messages.GroovyConsole_5 + e);

	//		}

	//	}

	/* (non-Javadoc)

	 * @see org.eclipse.ui.part.WorkbenchPart#createPartControl(org.eclipse.swt.widgets.Composite)

	 */

	@Override

	public void createPartControl(Composite parent) {

		display = parent.getDisplay();

		//	blue = parent.getDisplay().getSystemColor(SWT.COLOR_BLUE);

		//	red = parent.getDisplay().getSystemColor(SWT.COLOR_RED);

		textArea = new StyledText(parent, SWT.BORDER | SWT.MULTI | SWT.V_SCROLL

				| SWT.H_SCROLL);

		textArea.setEditable(false);

		textArea.setLayoutData(new GridData(GridData.FILL_BOTH

				| GridData.GRAB_HORIZONTAL | GridData.GRAB_VERTICAL));

		// Custom Action for the View's Menu  

		Action lCustomAction = new Action() {

			public void run() {  

				clear();

			} 

		};

		lCustomAction.setId("org.txm.rcpapplication.views.RConsole.clear"); //$NON-NLS-1$

		//lCustomAction.setText("Clear");  

		lCustomAction.setImageDescriptor(IImageKeys.getImageDescriptor(IImageKeys.ACTION_DELETE)); 

		getViewSite().getActionBars().getToolBarManager().add(lCustomAction); 

		connectToRWorkspace();

	}

	public void reconnectToRWorkspace() {

		readyToDisplay = false;

		connectToRWorkspace();

	}

	public void connectToRWorkspace() {

		if (!readyToDisplay && Toolbox.isStatEngineInitialized()) {

			RWorkspace rw = null;

			Log.warning(Messages.RConsole_0);

			try {

				rw = RWorkspace.getRWorkspaceInstance();

				if (rw == null) return;

				StreamHog errorLogger = rw.getErrorLogger();

				StreamHog inputLogger = rw.getInputLogger();

				//if (errorLogger.getMessagePrinter() == null) {

					//System.out.println("SET MESSAGEPRINTER OF THE RCONSOLE");

					if (errorLogger != null)

						errorLogger.addMessagePrinter(this);

					if (inputLogger != null)

						inputLogger.addMessagePrinter(this);

					readyToDisplay = true;

				//}

			} catch (RWorkspaceException e) {

				System.out.println(Messages.RConsole_1+e);

				Log.printStackTrace(e);

			}

		}

	}

	/**

	 * Println.

	 *

	 * @param txt the txt

	 */

	String txtToPrint;

	public void println(String txt) {

		txtToPrint = txt;

		display.syncExec(new Runnable() {

			public void run() {

				if (textArea != null) {

					textArea.append(txtToPrint + "\n"); //$NON-NLS-1$

					textArea.setTopIndex(textArea.getLineCount());

				}

			}

		});

	}

	/**

	 * Prints the.

	 *

	 * @param txt the txt

	 */

	public void print(String txt) {

		txtToPrint = txt;

		display.syncExec(new Runnable() {

			public void run() {

				if (textArea != null) {

					textArea.append(txtToPrint); //$NON-NLS-1$

					textArea.setTopIndex(textArea.getLineCount());

				}

			}

		});

	}

	/* (non-Javadoc)

	 * @see org.eclipse.ui.part.WorkbenchPart#setFocus()

	 */

	@Override

	public void setFocus() {

		// TODO Auto-generated method stub

	}

	public void clear() {

		if (textArea != null)

			textArea.setText(""); //$NON-NLS-1$

	}

	public static void reload() {

		for (IWorkbenchWindow window : PlatformUI.getWorkbench().getWorkbenchWindows()) {

			IViewPart v = window.getActivePage().findView(RConsole.ID);

			if (v == null) return;

			RConsole rc = (RConsole) v;

			rc.reconnectToRWorkspace();

		}

	}

}

// Copyright © 2010-2013 ENS de Lyon.

// Copyright © 2007-2010 ENS de Lyon, CNRS, INRP, University of

// Lyon 2, University of Franche-Comté, University of Nice

// Sophia Antipolis, University of Paris 3.

// 

// The TXM platform is free software: you can redistribute it

// and/or modify it under the terms of the GNU General Public

// License as published by the Free Software Foundation,

// either version 2 of the License, or (at your option) any

// later version.

// 

// The TXM platform is distributed in the hope that it will be

// useful, but WITHOUT ANY WARRANTY; without even the implied

// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

// PURPOSE. See the GNU General Public License for more

// details.

// 

// You should have received a copy of the GNU General

// Public License along with the TXM platform. If not, see

// http://www.gnu.org/licenses.

// 

// 

// 

// $LastChangedDate:$

// $LastChangedRevision:$

// $LastChangedBy:$ 

//

package org.txm.statsengine.r.rcp.views;

import java.io.File;

import java.lang.reflect.Method;

import java.util.ArrayList;

import java.util.Collection;

import java.util.Iterator;

import java.util.List;

import org.eclipse.jface.action.MenuManager;

import org.eclipse.jface.viewers.DoubleClickEvent;

import org.eclipse.jface.viewers.IDoubleClickListener;

import org.eclipse.jface.viewers.ITreeContentProvider;

import org.eclipse.jface.viewers.LabelProvider;

import org.eclipse.jface.viewers.TreeSelection;

import org.eclipse.jface.viewers.TreeViewer;

import org.eclipse.jface.viewers.Viewer;

import org.eclipse.osgi.util.NLS;

import org.eclipse.swt.SWT;

import org.eclipse.swt.events.KeyEvent;

import org.eclipse.swt.events.KeyListener;

import org.eclipse.swt.events.SelectionEvent;

import org.eclipse.swt.events.SelectionListener;

import org.eclipse.swt.graphics.Image;

import org.eclipse.swt.layout.GridData;

import org.eclipse.swt.layout.GridLayout;

import org.eclipse.swt.widgets.Button;

import org.eclipse.swt.widgets.Composite;

import org.eclipse.swt.widgets.Menu;

import org.eclipse.ui.IWorkbenchPage;

import org.eclipse.ui.IWorkbenchWindow;

import org.eclipse.ui.PlatformUI;

import org.eclipse.ui.part.ViewPart;

import org.txm.Toolbox;

import org.txm.ca.core.functions.CA;

import org.txm.cah.core.functions.CAH;

import org.txm.cooccurrence.core.functions.Cooccurrence;

import org.txm.core.results.ITXMResult;

import org.txm.functions.concordances.Concordance;

import org.txm.functions.referencer.Referencer;

import org.txm.index.core.functions.Index;

import org.txm.lexicaltable.core.statsengine.data.LexicalTable;

import org.txm.objects.Base;

import org.txm.progression.core.functions.Progression;

import org.txm.rcpapplication.IImageKeys;

import org.txm.rcpapplication.Messages;

import org.txm.rcpapplication.commands.EditFile;

import org.txm.rcpapplication.commands.R.CopySelection;

import org.txm.searchengine.cqp.clientExceptions.CqiClientException;

import org.txm.searchengine.cqp.corpus.Corpus;

import org.txm.searchengine.cqp.corpus.CorpusManager;

import org.txm.searchengine.cqp.corpus.Lexicon;

import org.txm.searchengine.cqp.corpus.MainCorpus;

import org.txm.searchengine.cqp.corpus.Partition;

import org.txm.specificities.core.functions.SpecificitesResult;

import org.txm.statsengine.r.core.RWorkspace;

// TODO: Auto-generated Javadoc

/**

 * The Class RVariablesView.

 */

public class RVariablesView extends ViewPart {

	/** The tv. */

	TreeViewer tv;

	/** The ID. */

	public static String ID = "org.txm.rcpapplication.views.RVariablesView"; //$NON-NLS-1$

	/**

	 * Refresh.

	 */

	public static void refresh() {

		IWorkbenchWindow activeworksbench = PlatformUI.getWorkbench().getActiveWorkbenchWindow();

		if (activeworksbench == null)

			return;

		IWorkbenchPage activepage = activeworksbench.getActivePage();

		if (activepage == null)

			return;

		RVariablesView rview = (RVariablesView) activepage.findView(RVariablesView.ID);

		if (rview != null)

			rview.tv.refresh();

	}

	/**

	 * Reload.

	 */

	public static void reload() {

		IWorkbenchWindow activeworksbench = PlatformUI.getWorkbench().getActiveWorkbenchWindow();

		if (activeworksbench == null)

			return;

		IWorkbenchPage activepage = activeworksbench.getActivePage();

		if (activepage == null)

			return;

		RVariablesView rview = (RVariablesView) activepage.findView(RVariablesView.ID);

		if (rview != null)

			rview._reload();

	}

	/**

	 * _reload.

	 */

	public void _reload() {

		tv.setContentProvider(new RVariablesTreeProvider());

		tv.setLabelProvider(new RVariablesLabelProvider());

		List<MainCorpus> corpora;

		try {

			corpora = CorpusManager.getCorpusManager().getCorpora();

			if (corpora != null)

			{

				buildTreeContent(corpora);

				tv.refresh();

			}

		} catch (CqiClientException e) { }

	}

	/**

	 * Builds the tree content.

	 *

	 * @param corpora the corpora

	 */

	protected void buildTreeContent(List<MainCorpus> corpora)

	{

		ArrayList<ITXMResult> notempty = new ArrayList<ITXMResult>(corpora);

		for(ITXMResult container : corpora)

		{

			String symbol = null;

			try {

				Method getname = container.getClass().getMethod("getSymbol"); //$NON-NLS-1$

				symbol = (String)getname.invoke(container);

			} catch (Exception e2) {}

			if (symbol != null)

				continue;

			//System.out.println("check "+container.getName());

			if (container.getResults().size() > 0

					//FIXME: commented by SJ for TXMResult implementation

					//|| container.getSubHasResults().size() > 0

					)

			{

				if (!deepSearch(container))

					notempty.remove(container);

			}

			else

			{

				notempty.remove(container);

			}

		}

		tv.setInput(notempty);

	}

	/**

	 * Deep search.

	 *

	 * @param container the container

	 * @return true, if successful

	 */

	protected boolean deepSearch(ITXMResult container)

	{

		boolean own = hasSymbol(container.getResults());

		if (own)

		{

			return true;

		}

		else // continue deeper

		{

			for(ITXMResult children : container.getResults())

			{

				boolean childrencontainer = deepSearch(children);

				if (childrencontainer)

					return true;

			}

		}

		return false;

	}

	/**

	 * Checks for symbol.

	 *

	 * @param results the results

	 * @return true, if successful

	 */

	private boolean hasSymbol(ArrayList<ITXMResult> results) {

		String symbol = null;

		for(Object rez : results)

		{

			try {

				Method getname = rez.getClass().getMethod("getSymbol"); //$NON-NLS-1$

				symbol = (String)getname.invoke(rez);

			} catch (Exception e2) {}

			if (symbol != null)

				return true;

		}

		return false;

	}

	/* (non-Javadoc)

	 * @see org.eclipse.ui.part.WorkbenchPart#createPartControl(org.eclipse.swt.widgets.Composite)

	 */

	@Override

	public void createPartControl(Composite parent) {

		parent.setLayout(new GridLayout(2, true));

		Button export = new Button(parent, SWT.PUSH);

		export.setLayoutData(new GridData(GridData.FILL, GridData.FILL, true,

				false));

		export.setText(Messages.RVariablesView_1);

		export.addSelectionListener(new SelectionListener() {

			@Override

			public void widgetSelected(SelectionEvent arg0) {

				//System.out.println("reload");

				_reload();

			}

			@Override

			public void widgetDefaultSelected(SelectionEvent arg0) {	}

		});

		Button logs = new Button(parent, SWT.PUSH);

		logs.setLayoutData(new GridData(GridData.FILL, GridData.FILL, true,	false));

		logs.setText(Messages.RVariablesView_2);

		logs.addSelectionListener(new SelectionListener() {

			@Override

			public void widgetSelected(SelectionEvent arg0) {

				//System.out.println("reload");

				try {

					File homedir = new File(Toolbox.getParam(Toolbox.USER_TXM_HOME));

					long time = System.currentTimeMillis();

					File tmp = new File(homedir, "REvalLogs.txt"); //$NON-NLS-1$

					RWorkspace.saveEvalLog(tmp);

					EditFile.openfile(tmp.getAbsolutePath());

				} catch (Exception e) {

					// TODO Auto-generated catch block

					org.txm.rcpapplication.utils.Logger.printStackTrace(e);

				}

			}

			@Override

			public void widgetDefaultSelected(SelectionEvent arg0) {	}

		});

		tv = new TreeViewer(parent);

		tv.getTree().setLayoutData(new GridData(GridData.FILL, GridData.FILL, true, true, 2, 1));

		//_reload();

		tv.addDoubleClickListener(new IDoubleClickListener() {

			@Override

			public void doubleClick(DoubleClickEvent event) {

			}

		});

		tv.getTree().addKeyListener(new KeyListener() {

			@Override

			public void keyReleased(KeyEvent e) {				

			}

			@Override

			public void keyPressed(KeyEvent e) {

				/*

				if (e.keyCode == SWT.DEL) {

					DeleteObject.delete(tv.getSelection());

				}

				else if (e.keyCode == SWT.F5) {

					reload();

				}*/

				if ((char)e.keyCode == 'c' & ((e.stateMask & SWT.CTRL) != 0))

				{

					TreeSelection selection = (TreeSelection) tv.getSelection();

					CopySelection.copyFirst(selection);

				}

			}

		});

		MenuManager menuManager = new MenuManager();

		Menu menu = menuManager.createContextMenu(tv.getTree());

		// Set the MenuManager

		tv.getTree().setMenu(menu);

		getSite().registerContextMenu(menuManager, tv);

		// Make the selection available

		getSite().setSelectionProvider(tv);

	}

	/* (non-Javadoc)

	 * @see org.eclipse.ui.part.WorkbenchPart#setFocus()

	 */

	@Override

	public void setFocus() {

		// TODO Auto-generated method stub

	}

	/**

	 * The Class RVariablesLabelProvider.

	 */

	public class RVariablesLabelProvider extends LabelProvider{

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.LabelProvider#getText(java.lang.Object)

		 */

		@Override

		public String getText(Object element) {

			String name =""; //$NON-NLS-1$

			String symbol = null;

			try {

				Method getname = element.getClass().getMethod("getName"); //$NON-NLS-1$

				name = (String)getname.invoke(element);

			} catch (Exception e) {}

			try {

				Method getname = element.getClass().getMethod("getSymbol"); //$NON-NLS-1$

				symbol = (String)getname.invoke(element);

			} catch (Exception e) {}

			if (symbol == null)

				return name;

			else

				return NLS.bind(Messages.RVariablesView_9, name, symbol);

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.LabelProvider#getImage(java.lang.Object)

		 */

		@Override

		public final Image getImage(Object element) {

			if (element instanceof Corpus)

				return IImageKeys.getImage(IImageKeys.CORPUS);

			else if (element instanceof Partition)

				return IImageKeys.getImage(IImageKeys.PARTITION);

			else if (element instanceof Lexicon)

				return IImageKeys.getImage(IImageKeys.ACTION_FREQUENCY_LIST);

			else if (element instanceof Index)

				return IImageKeys.getImage(IImageKeys.ACTION_INDEX);

			else if (element instanceof SpecificitesResult)

				return IImageKeys.getImage(IImageKeys.ACTION_SPECIFICITIES);

			else if (element instanceof Concordance)

				return IImageKeys.getImage(IImageKeys.ACTION_CONCORDANCES);

			else if (element instanceof Cooccurrence)

				return IImageKeys.getImage(IImageKeys.ACTION_COOCCURRENCE);

			else if (element instanceof LexicalTable)

				return IImageKeys.getImage(IImageKeys.LEXICALTABLE);

			else if (element instanceof CA)

				return IImageKeys.getImage(IImageKeys.ACTION_CORRESPONDANCE_ANALYSIS);

			else if (element instanceof CAH)

				return IImageKeys.getImage(IImageKeys.ACTION_CAH);

			else if (element instanceof Referencer)

				return IImageKeys.getImage(IImageKeys.ACTION_REFERENCER);

			else if (element instanceof Progression)

				return IImageKeys.getImage(IImageKeys.ACTION_PROGRESSION);

			return null;

		}

	}

	/**

	 * The Class RVariablesTreeProvider.

	 */

	public class RVariablesTreeProvider implements ITreeContentProvider {

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.ITreeContentProvider#getChildren(java.lang.Object)

		 */

		@Override

		public Object[] getChildren(Object element) {

			//System.out.println("get children of "+element);

			if (element instanceof ITXMResult) {

//				List<Object> results = ((HasResults) element).getResults();

//				ArrayList<ITXMResult> sub = ((HasResults) element).getSubHasResults();

				//ArrayList<Object> children = new ArrayList<Object>();

//				children.addAll(sub);

//				children.addAll(results);

				ArrayList<ITXMResult> children = ((ITXMResult)element).getDeepResults();

				for(int i = 0 ; i < children.size() ; i++)

				{

					Object obj = children.get(i);

					//System.out.println("test > "+obj);

					if (obj instanceof ITXMResult)

					{

						//System.out.println("deap "+obj);

						if (!deepSearch((ITXMResult) obj))

						{

							children.remove(i);

							i--;

						}

					}

					else

					{

						String symbol = null;

						try {

							Method getname = obj.getClass().getMethod("getSymbol"); //$NON-NLS-1$

							symbol = (String)getname.invoke(obj);

						} catch (Exception e) {}

						//System.out.println("symbol "+symbol);

						if (symbol == null)

						{

							children.remove(i);

							i--;

						}

					}

				}

				//System.out.println(""+element+" > "+children);

				return children.toArray();

			}

			return new Object[0];

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.ITreeContentProvider#getParent(java.lang.Object)

		 */

		@Override

		public Object getParent(Object element) {

			Partition partition = null;

			try {

				Method getname = element.getClass().getMethod("getPartition"); //$NON-NLS-1$

				partition = (Partition)getname.invoke(element);

			} catch (Exception e) {}

			if (partition == null)

			{

				return partition;

			}

			Corpus corpus = null;

			try {

				Method getname = element.getClass().getMethod("getCorpus"); //$NON-NLS-1$

				corpus = (Corpus)getname.invoke(element);

			} catch (Exception e) {}

			return corpus;

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.ITreeContentProvider#hasChildren(java.lang.Object)

		 */

		@Override

		public boolean hasChildren(Object element) {

			if (element instanceof ITXMResult) {

				return getChildren(element).length > 0;

			}

			return false;

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.IStructuredContentProvider#getElements(java.lang.Object)

		 */

		@Override

		public Object[] getElements(Object element) {

			Collection<Base> input = (Collection<Base>) element;

			Object[] objects = new Object[input.size()];

			Iterator<Base> it = input.iterator();

			int i = 0;

			while (it.hasNext()) {

				objects[i] = it.next();

				i++;

			}

			return objects;

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.IContentProvider#dispose()

		 */

		@Override

		public void dispose() {

		}

		/* (non-Javadoc)

		 * @see org.eclipse.jface.viewers.IContentProvider#inputChanged(org.eclipse.jface.viewers.Viewer, java.lang.Object, java.lang.Object)

		 */

		@Override

		public void inputChanged(Viewer viewer, Object oldInput, Object newInput) {

		}

	}

}

// Copyright © 2010-2013 ENS de Lyon.

// Copyright © 2007-2010 ENS de Lyon, CNRS, INRP, University of

// Lyon 2, University of Franche-Comté, University of Nice

// Sophia Antipolis, University of Paris 3.

// 

// The TXM platform is free software: you can redistribute it

// and/or modify it under the terms of the GNU General Public

// License as published by the Free Software Foundation,

// either version 2 of the License, or (at your option) any

// later version.

// 

// The TXM platform is distributed in the hope that it will be

// useful, but WITHOUT ANY WARRANTY; without even the implied

// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

// PURPOSE. See the GNU General Public License for more

// details.

// 

// You should have received a copy of the GNU General

// Public License along with the TXM platform. If not, see

// http://www.gnu.org/licenses.

// 

// 

// 

// $LastChangedDate:$

// $LastChangedRevision:$

// $LastChangedBy:$ 

//

package org.txm.statsengine.r.rcp.handlers;

import java.io.BufferedReader;

import java.io.File;

import java.io.FileReader;

import java.util.Iterator;

import org.eclipse.core.commands.AbstractHandler;

import org.eclipse.core.commands.ExecutionEvent;

import org.eclipse.core.commands.ExecutionException;

import org.eclipse.core.runtime.Platform;

import org.eclipse.core.runtime.preferences.IPreferencesService;

import org.eclipse.jface.viewers.ISelection;

import org.eclipse.jface.viewers.IStructuredSelection;

import org.eclipse.osgi.util.NLS;

import org.eclipse.swt.SWT;

import org.eclipse.swt.widgets.FileDialog;

import org.eclipse.swt.widgets.Shell;

import org.eclipse.ui.IViewPart;

import org.eclipse.ui.IWorkbenchPage;

import org.eclipse.ui.IWorkbenchPart;

import org.eclipse.ui.IWorkbenchWindow;

import org.eclipse.ui.handlers.HandlerUtil;

import org.eclipse.ui.ide.FileStoreEditorInput;

import org.txm.rcpapplication.Application;

import org.txm.rcpapplication.Messages;

import org.txm.rcpapplication.StatusLine;

import org.txm.rcpapplication.editors.TxtEditor;

import org.txm.rcpapplication.preferences.ScriptPreferenceInitializer;

import org.txm.rcpapplication.preferences.ScriptPreferencePage;

import org.txm.rcpapplication.swt.dialog.LastOpened;

import org.txm.statsengine.r.core.RWorkspace;

import org.txm.statsengine.r.core.RWorkspaceException;

import org.txm.statsengine.r.rcp.views.RConsole;

import org.txm.utils.logger.Log;

// TODO: Auto-generated Javadoc

/**

 * Handler: Execute a R script file in the same thread a the RCP.

 *

 * @author mdecorde

 */

public class ExecuteRScript extends AbstractHandler {

	private static final String ID = "org.txm.rcpapplication.commands.ExecuteRScript"; //$NON-NLS-1$

	/* (non-Javadoc)

	 * @see org.eclipse.core.commands.AbstractHandler#execute(org.eclipse.core.commands.ExecutionEvent)

	 */

	@Override

	public Object execute(ExecutionEvent event) throws ExecutionException {

		String result = ""; //$NON-NLS-1$

		IWorkbenchWindow aww = HandlerUtil.getActiveWorkbenchWindow(event);

		IWorkbenchPage page = aww.getActivePage();

		IViewPart view = page.findView(RConsole.ID);

		if (view != null && view instanceof RConsole) {

			((RConsole)view).connectToRWorkspace();

		}

		IWorkbenchPart part = page.getActivePart();

		ISelection selection = page.getSelection();

		if (part != null && part instanceof TxtEditor) {

			TxtEditor te = (TxtEditor) part;

			FileStoreEditorInput input = (FileStoreEditorInput) te

					.getEditorInput();

			File f = new File(input.getURI().getPath());

			result = f.getAbsolutePath();

		} else if (selection != null

				& selection instanceof IStructuredSelection) {

			File file = null;

			IStructuredSelection strucSelection = (IStructuredSelection) selection;

			for (Iterator<Object> iterator = strucSelection.iterator(); iterator

					.hasNext();) {

				file = (File) iterator.next();

				result = file.getAbsolutePath();

				break;

			}

		}

		if ("" == result) { //$NON-NLS-1$

			Shell shell = HandlerUtil.getActiveWorkbenchWindowChecked(event)

					.getShell();

			FileDialog dialog = new FileDialog(shell, SWT.OPEN);

			if (LastOpened.getFile(ID) != null) {

				dialog.setFilterPath(LastOpened.getFolder(ID));

				dialog.setFileName(LastOpened.getFile(ID));

			}

			dialog.setFilterExtensions(new String[] { "*.R" }); //$NON-NLS-1$

			IPreferencesService service = Platform.getPreferencesService();

			String scriptCurrentDir = service.getString(Application.PLUGIN_ID,

					ScriptPreferencePage.SCRIPT_CURRENT_DIR,

					ScriptPreferenceInitializer.SCRIPT_CURRENT_DIR_DEFAULT,

					null);

			dialog.setFilterPath(scriptCurrentDir);

			result = dialog.open();

			if (result == null) return null;

			LastOpened.set(ID, new File(result));

		}

		executeScript(result);

		return null;

	}

	/**

	 * Execute script.

	 *

	 * @param scriptfile the scriptfile

	 */

	public static void executeScript(String scriptfile) {

		File rFile = new File(scriptfile);

		if (!rFile.exists()) {

			System.err.println(NLS.bind(Messages.ExecuteScriptR_0, rFile));

			return;

		}

		RWorkspace rw = null;

		try {

			rw = RWorkspace.getRWorkspaceInstance();

		} catch (RWorkspaceException e1) {

			org.txm.rcpapplication.utils.Logger.printStackTrace(e1);

			return;

		}

		boolean initState = rw.isLogging();

		rw.setLog(true);

		try {

			System.out.println(NLS.bind(Messages.ExecuteRScript_1, rFile.getName()));

			long time = System.currentTimeMillis();

			//execute a file line per line

			//if (TxmPreferences.getBoolean(RPreferencePage.R_REMOTE)) {

				BufferedReader reader = new BufferedReader(new FileReader(rFile));// create a file reader

				String line = reader.readLine();// read next line

				StringBuffer buffer = new StringBuffer();

				while(line != null) {

					buffer.append(line+"\n"); //$NON-NLS-1$

					line = reader.readLine();//read next line

				}

				String allScript = buffer.toString();

				//if (rw.isLogging() && allScript.length() > 0) RConsole.printUser(allScript);

				//String str = rw.userEval(allScript); // evaluate line in R

				rw.eval(allScript);

				//if (str != null && rw.isLogging() && str.length() > 0)

					//RConsole.printServer(str);

				reader.close();

//			} else {

//				String cmd = "source(\""+rFile.getAbsolutePath().replace("\\", "/")+"\")";

//				if (rw.isLogging())

//					RConsole.printUser)(cmd);

//				String str = rw.userEval(cmd);//evaluate line in R

//				if (rw.isLogging() && str.length() > 0)

//					RConsole.printServer(cmd);

//			}

			System.out.println(Messages.ExecuteRScript_2+(System.currentTimeMillis()-time)+Messages.ExecuteRScript_3);

		} catch(Exception e) {

			System.out.println(NLS.bind(Messages.ExecuteScriptR_1, rFile, e)); 

			StatusLine.error(NLS.bind(Messages.ExecuteScriptR_1, rFile, e)); 

			Log.printStackTrace(e);

		}

		rw.setLog(initState);

	}

}

// Copyright © 2010-2013 ENS de Lyon.

// Copyright © 2007-2010 ENS de Lyon, CNRS, INRP, University of

// Lyon 2, University of Franche-Comté, University of Nice

// Sophia Antipolis, University of Paris 3.

// 

// The TXM platform is free software: you can redistribute it

// and/or modify it under the terms of the GNU General Public

// License as published by the Free Software Foundation,

// either version 2 of the License, or (at your option) any

// later version.

// 

// The TXM platform is distributed in the hope that it will be