Laboratoire ICAR » Plateforme TXM

@Field @Option(name="unit_property", usage="", widget="String", required=false, def="REF")

String unit_property

if (!props.contains(unit_property)) {

	println "No properties '$unit_property' in '$unit_type' unit."

def prop  = unit_property

			structure.supprimerVal(Unite.class, unit_type, unit_property, val);

// @author Bruno Oberlé

// v1.0.0 20170711

// Cette macro individualise tous les noms de référents "SI" en leur attribuant un numéro unique (SI_1, SI_2, etc.).

package org.txm.macro.urs.democrat

import org.apache.commons.lang.*

import org.kohsuke.args4j.*

import groovy.transform.*

import org.txm.*

import org.txm.rcp.swt.widget.parameters.*

import org.txm.annotation.urs.*

import org.txm.searchengine.cqp.*

import org.txm.searchengine.cqp.corpus.*

import visuAnalec.Message.*

import visuAnalec.donnees.*

import visuAnalec.elements.*

import visuAnalec.vue.*

// CORPS DU SCRIPT

if (!(corpusViewSelection instanceof MainCorpus)) {

	println "Corpora selection is not a Corpus"

	return

}

// BEGINNING OF PARAMETERS

@Field @Option(name="unitType", usage="", widget="String", required=true, def="MENTION")

def unitType

@Field @Option(name="refPropertyName", usage="", widget="String", required=true, def="REF")

def refPropertyName

if (!ParametersDialog.open(this)) return

corpus = corpusViewSelection

CQI = CQPSearchEngine.getCqiClient()

word = corpus.getWordProperty()

analecCorpus = URSCorpora.getCorpus(corpus)

vue = URSCorpora.getVue(corpus)

structure = analecCorpus.getStructure()

if (!structure.getUnites().contains(unitType)) { // check if the structure contains the unitType units

	println "Error: corpus structure does not contains unit with name=$unitType"

	return

}

if (!structure.getUniteProperties(unitType).contains(refPropertyName)) {

	println "Error: corpus structure does not contains property name=$unitType"

	return

} 

def nModified = 0

def nIgnored = 0

def units = analecCorpus.getUnites(unitType)

//units.sort() { a, b -> a.getDeb() <=> b.getDeb() ?: a.getFin() <=> b.getFin() }

def refSet = new HashSet()

for (Unite unit : units) { // process all units

	def prop = unit.getProp(refPropertyName)

	refSet.add(prop)

}

def counter = 1

for (Unite unit : units) { // process all units

	def prop = unit.getProp(refPropertyName)

	if (prop && prop == "SI") {

		def name = "SI_" + counter

		while (refSet.contains(name)) {

			counter++

			name = "SI_" + counter

		}

		counter++

		//println "old prop"+ prop

		unit.getProps().put(refPropertyName, name)

		//println "new prop"+ name

		nModified++

	} else {

		nIgnored++

	}

}

println "Result:"

println "- $nModified units of type $unitType have been modified."

println "- $nIgnored units of type $unitType have not been modified.\n"

// udpate the view (also see also

// http://forge.cbp.ens-lyon.fr/redmine/issues/2065)

URSCorpora.getVue(analecCorpus).retablirVueParDefaut()

@Field @Option(name="sep", usage="Schemas and units selection part", widget="Separator", required=true, def="Selection")

String sep

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		int position_in_matches

@Field @Option(name="sep2", usage="Progression command parameters", widget="Separator", required=true, def="Progression")

		String sep2

			selectedAndHighlightedUnits = AnalecUtils.filterUniteByInclusion(debug, selectedAndHighlightedUnits, cql_limit_matches, strict_inclusion, position_in_matches)

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		int position_in_matches

@Field @Option(name="output_mode", usage="If selected units properties and words are shown", widget="StringArray", metaVar="FORMATED	TABULATED	COUNT	CQL	CONCORDANCE", required=true, def="FORMATED")

			unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

int maximum_schema_size

def schemas = AnalecUtils.selectSchemasInCorpus(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size);

// Copyright © 2016 ENS de Lyon, CNRS, University of Franche-Comté

// Licensed under the terms of the GNU General Public License (http://www.gnu.org/licenses)

// @author mdecorde

// @author sheiden

// STANDARD DECLARATIONS

package org.txm.macro.urs.exploit

import org.kohsuke.args4j.*

import groovy.transform.Field

import org.txm.*

import org.txm.macro.urs.AnalecUtils

import visuAnalec.elements.*

import org.txm.rcp.swt.widget.parameters.*

import org.txm.annotation.urs.*

import org.txm.searchengine.cqp.corpus.*

import org.apache.commons.lang.StringUtils;

if (!(corpusViewSelection instanceof CQPCorpus)) {

	println "Corpora selection is not a Corpus"

	return;

}

// BEGINNING OF PARAMETERS

@Field @Option(name="schema_ursql", usage="TYPE@PROP=REGEX", widget="String", required=true, def="CHAINE")

String schema_ursql

@Field @Option(name="minimum_schema_size", usage="minimal schema size", widget="Integer", required=true, def="3")

int minimum_schema_size

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

int maximum_schema_size

@Field @Option(name="schema_display_property_name",usage="", widget="String", required=false, def="REF")

String schema_display_property_name

@Field @Option(name="unit_ursql", usage="TYPE@PROP=REGEX", widget="String", required=false, def="MENTION")

String unit_ursql

@Field @Option(name="debug", usage="Show internal variable content", widget="StringArray", metaVar="OFF	ON	ALL	REALLY ALL", required=true, def="OFF")

debug

if (!ParametersDialog.open(this)) return;

if (debug == "OFF") debug = 0; else if (debug == "ON") debug = 1; else if (debug == "ALL") debug = 2 else if (debug == "REALLY ALL") debug = 3

CQPCorpus corpus = corpusViewSelection

def analecCorpus = URSCorpora.getCorpus(corpus)

def errors = AnalecUtils.isPropertyDefined(Schema.class, analecCorpus, schema_ursql)

if (errors.size() > 0) {

	println "** The $schema_ursql schema URSQL cannot be computed in the corpus with types: $errors."

	return;

}

errors=AnalecUtils.isPropertyDefined(Unite.class, analecCorpus, unit_ursql)

if (errors.size() > 0) {

	println "** $unit_ursql unit URSQL cannot be computed in the corpus with types: $errors."

	return;

}

def schemas = AnalecUtils.selectSchemasInCorpus(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size);

def distances = [];

def nDistances = 0

def cadences = [];

for (def schema : schemas) {

	def allUnites = schema.getUnitesSousjacentesNonTriees()

	def units = AnalecUtils.filterElements(debug, allUnites, unit_ursql)

	Collections.sort(units)

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

		int d1 = 0;

		int d2 = 0;

		if (i < units.size()-1) d1 = units[i+1].getDeb() - units[i].getFin();

		if (d1 < 0) {

			//println "D1 "+units[i+1].getDeb()+" - "+units[i].getFin()+" = "+d1

			d1 = 0; // the first unit pass the next one ?

		}

		if (i > 0) d2 = units[i].getDeb() - units[i-1].getFin();

		if (d2 < 0) {

			//println "D2 "+units[i].getDeb()+" - "+units[i-1].getFin()+" = "+d2

			d2 = 0; // the first unit pass the next one ?

		}

		distances << d1

		if (d1 < d2) cadences << d1 else cadences << d2

		nDistances++

	}

}

distances = distances.sort()

cadences = cadences.sort()

int distances_total = distances.sum()

int cadences_total = cadences.sum()

coef = (distances_total / nDistances)

cadence = (cadences_total / nDistances)

println "distances $distances"

println "distance moyenne inter-mayonnaise : $distances_total / $nDistances = $coef"

println "distance medianne inter-mayonnaise : "+distances[(int)(distances.size() / 2)]

println "distance quartils : "+distances[0]+" "+distances[(int)(distances.size() / 4)] + " "+distances[(int)(distances.size() / 2)]+" "+distances[(int)(3*distances.size() / 4)]+" "+distances[(int)(distances.size() -1)]

println "cadences $cadences"

println "cadence moyenne : $cadences_total / $nDistances = $cadence"

println "cadence medianne : "+cadences[(int)(cadences.size() / 2)]

println "cadence quartils : "+cadences[0]+" "+cadences[(int)(cadences.size() / 4)] + " "+cadences[(int)(cadences.size() / 2)]+" "+cadences[(int)(3*cadences.size() / 4)]+" "+cadences[(int)(cadences.size() -1)]

return ["result":coef, "result2":cadence, "data":["distances":distances, "nDistances":nDistances, "cadences":cadences]]

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		int position_in_matches

	unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

@Field @Option(name="schema_ursql", usage="TYPE@PROP=VALUE", widget="String", required=true, def="CHAINE")

String schema_ursql

@Field @Option(name="minimum_schema_size", usage="Minimum size needed to consider a schema", widget="Integer", required=true, def="3")

int minimum_schema_size

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

int maximum_schema_size

@Field @Option(name="position_in_schema", usage="Unit distance in schema (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

int position_in_schema

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

position_in_matches

def units = AnalecUtils.selectUnitsInSchema(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size,

	unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

int maximum_schema_size

def schemas = AnalecUtils.selectSchemasInCorpus(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size);

// Copyright © 2016 ENS de Lyon, CNRS, University of Franche-Comté

// Licensed under the terms of the GNU General Public License (http://www.gnu.org/licenses)

// @author mdecorde

// @author sheiden

// STANDARD DECLARATIONS

package org.txm.macro.urs.exploit

import org.kohsuke.args4j.*

import groovy.transform.Field

import org.txm.*

import org.txm.rcp.swt.widget.parameters.*

import org.txm.annotation.urs.*

import org.txm.searchengine.cqp.corpus.*

import org.apache.commons.lang.StringUtils;

import org.txm.macro.urs.AnalecUtils

import visuAnalec.elements.*

import org.txm.searchengine.cqp.CQPSearchEngine

if (!(corpusViewSelection instanceof CQPCorpus)) {

	println "Corpora selection is not a Corpus"

	return;

}

@Field @Option(name="schema_ursql", usage="TYPE@PROP=REGEX", widget="String", required=true, def="CHAINE")

String schema_ursql

@Field @Option(name="minimum_schema_size", usage="minimal schema size", widget="Integer", required=true, def="3")

int minimum_schema_size

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

int maximum_schema_size

@Field @Option(name="schema_display_property_name",usage="", widget="String", required=false, def="REF")

String schema_display_property_name

@Field @Option(name="unit_ursql", usage="TYPE@PROP=REGEX", widget="String", required=false, def="MENTION")

String unit_ursql

@Field @Option(name="word_property", usage="", widget="String", required=false, def="word")

String word_property

@Field @Option(name="show_values", usage="", widget="Boolean", required=false, def="false")

boolean show_values

@Field @Option(name="debug", usage="Show internal variable content", widget="StringArray", metaVar="OFF	ON	ALL	REALLY ALL", required=true, def="OFF")

debug

if (!ParametersDialog.open(this)) return;

if (debug == "OFF") debug = 0; else if (debug == "ON") debug = 1; else if (debug == "ALL") debug = 2 else if (debug == "REALLY ALL") debug = 3

def corpus = corpusViewSelection

def analecCorpus = URSCorpora.getCorpus(corpus)

def errors = AnalecUtils.isPropertyDefined(Schema.class, analecCorpus, schema_ursql)

if (errors.size() > 0) {

	println "** The $schema_ursql schema URSQL cannot be computed in the corpus with types: $errors."

	return;

}

errors=AnalecUtils.isPropertyDefined(Unite.class, analecCorpus, unit_ursql)

if (errors.size() > 0) {

	println "** $unit_ursql unit URSQL cannot be computed in the corpus with types: $errors."

	return;

}

def CQI = CQPSearchEngine.getCqiClient()

def prop = corpus.getProperty(word_property)

if (prop == null) { // no CQP property called $word_property

	errors=AnalecUtils.isPropertyDefined(Unite.class, analecCorpus, AnalecUtils.getFilterParameters(unit_ursql)[0], word_property)

	if (errors.size() > 0) {

		println "** $word_property unit property cannot be computed in the corpus with types: $errors."

		return;

	}

}

def schemas = AnalecUtils.selectSchemasInCorpus(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size);

allFormesSet = new HashSet();

def coefs = []

int n = 1

int nUnitesAllSchemas = 0

int nUnitesTotalSchemas = 0

for (def schema : schemas) {

	def formesSet = new HashSet(); // contient toutes les formes du CR courant

	nUnitesTotal = 0;

	def allUnites = schema.getUnitesSousjacentesNonTriees()

	def units = AnalecUtils.filterElements(debug, allUnites, unit_ursql)

	def nUnites = schema.getUnitesSousjacentes().size()

	def nUnitesTotal = units.size()

	for (def unit : units) {

		String forme =  null;

		if (prop == null) { // word_property is the analec unit property to use

			forme = unit.getProp(word_property)

		} else {

			int[] pos = null;

			if (unit.getDeb() == unit.getFin()) pos = [unit.getDeb()]

			else pos = unit.getDeb()..unit.getFin()

			forme = StringUtils.join(CQI.cpos2Str(prop.getQualifiedName(), pos), " ") // ids is enough

		}

		formesSet.add(forme)

	}

	if (formesSet.size() == 0 || nUnitesTotal == 0) {

		coef = "NA"

	} else {

		coef = (nUnitesTotal/formesSet.size())

	}

	coefs << coef

	allFormesSet.addAll(formesSet)

	if (schema_display_property_name != null && schema_display_property_name.length() > 0) {

		print schema.getProp(schema_display_property_name)

	} else {

		print schema_ursql+"-"+n+" : "

	}

	println " ($nUnites units) : $nUnitesTotal selected units / ${formesSet.size()} ${word_property}s = $coef"

	if (show_values) {

		println "\t${word_property}s="+formesSet

	}

	n++

	nUnitesAllSchemas += nUnites

	nUnitesTotalSchemas += nUnitesTotal

}

coef = nUnitesTotalSchemas/allFormesSet.size()

//println "ALL : ($nUnitesAllSchemas units) : $nUnitesTotalSchemas selected units / ${allFormesSet.size()} ${word_property}s = $coef"

return ["result":coefs, "data":["nUnitesTotal":nUnitesTotalSchemas, "allFormesSet":allFormesSet], "coef":(coef)]

@Field @Option(name="word_property_display", usage="Word property to display instead of the unit property", widget="String", required=false, def="")

		String word_property_display

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		position_in_matches

if (word_property_display != null && word_property_display.length() > 0 && unit_property_display != null && unit_property_display.length() > 0) {

	println "Warning: both unit_property_display=$unit_property_display and word_property_display=$word_property_display are set. The index will be computed with the $word_property_display CQP property."

if (word_property_display.length() == 0 && unit_property_display.length() == 0) {

	println "Error: no analysis property specified in unit_property_display or word_property_display. Aborting."

			unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

	if (word_property_display != null && word_property_display.length() > 0) {

		Property p = corpus.getProperty(word_property_display)

title += "[${position_in_matches}]."

if (word_property_display.length() > 0) title += "${word_property_display} frequencies"

if (word_property_display.length() > 0) println "Index de la propriété $word_property_display des mots des unités $unit_ursql[$position_in_matches] de ${corpus.getMainCorpus()}.${corpusViewSelection}"

else println "Index de la propriété $unit_property_display des unités $unit_ursql[$position_in_matches] de ${corpus.getMainCorpus()}.${corpusViewSelection}"

def property_name

def property_value

if (!analecCorpus.getStructure().getNomsProps(Unite.class, unit_type).contains(property_name)) {

	analecCorpus.getStructure().ajouterProp(Unite.class, unit_type, property_name)

if (!analecCorpus.getStructure().getValeursProp(Unite.class, unit_type, property_name).contains(property_value)) {

	analecCorpus.getStructure().ajouterVal(Unite.class, unit_type, property_name, value)

		props[property_name] = property_value

if (property_name != null) {

	println "$n $unit_type created with $property_name='$property_value'."

} else {

	println "$n $unit_type created."

}

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

		int maximum_schema_size

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		int position_in_matches

	def selectedUnits = AnalecUtils.selectUnitsInSchema(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size,

			unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

@Field @Option(name="CONFIRMATION", usage="select to confirm the annotations reset", widget="Boolean", required=false, def="false")

def CONFIRMATION

@Field @Option(name="maximum_schema_size", usage="Maximum size needed to consider a schema", widget="Integer", required=true, def="9999999")

		int maximum_schema_size

@Field @Option(name="position_in_matches", usage="Unit distance to structure limit (0 = no selection, 1 = first after limit, -1 = last before limit, etc.)", widget="Integer", required=true, def="0")

		int position_in_matches

@Field @Option(name="property_name", usage="PROP", widget="String", required=false, def="TESTPROP")

		String property_name

@Field @Option(name="property_value", usage="VALUE", widget="String", required=false, def="TESTVALUE")

		String property_value

if (property_name.length() == 0) {

	println "property_name not set: aborting."

	AnalecUtils.defineProperty(Unite.class, analecCorpus, unit_ursql, property_name)

	def selectedUnits = AnalecUtils.selectUnitsInSchema(debug, analecCorpus, corpus, schema_ursql, minimum_schema_size, maximum_schema_size,

			unit_ursql, position_in_schema, cql_limit, strict_inclusion, position_in_matches);

		if (!analecView.setValeurChamp(unit, property_name, property_value)) {

	println " Errors while annotating $property_name=$property_value"

// Copyright © 2016 ENS de Lyon, CNRS, University of Franche-Comté

// Licensed under the terms of the GNU General Public License (http://www.gnu.org/licenses)

// @author mdecorde

// @author sheiden

// STANDARD DECLARATIONS

package org.txm.macroprototypes.urs.exploit

import org.kohsuke.args4j.*

import groovy.transform.Field

import org.txm.*

import org.txm.rcp.swt.widget.parameters.*

import org.txm.annotation.urs.*

import org.txm.searchengine.cqp.corpus.*

import org.apache.commons.lang.StringUtils;

// BEGINNING OF PARAMETERS

@Field @Option(name="tsvFile",usage="", widget="FileSave", required=true, def="result.tsv")

File tsvFile

@Field @Option(name="default_schema_ursql", usage="TYPE@PROP=REGEX", widget="String", required=true, def="CHAINE")

String default_schema_ursql

@Field @Option(name="default_minimum_schema_size", usage="", widget="Integer", required=true, def="3")

int default_minimum_schema_size

@Field @Option(name="schema_property_display_name",usage="", widget="String", required=false, def="REF")

String schema_property_display_name

@Field @Option(name="default_unit_ursql", usage="TYPE@PROP=REGEX", widget="String", required=false, def="MENTION")

String default_unit_ursql

@Field @Option(name="default_word_property", usage="", widget="String", required=false, def="word")

String default_word_property

@Field @Option(name="default_pos_property", usage="", widget="String", required=false, def="CATEGORIE")

String default_pos_property

if (!ParametersDialog.open(this)) return;

// END OF PARAMETERS

println "Corpora selections: "+corpusViewSelections

table = [] // contains all table lines

mesures = []

for (def corpus : corpusViewSelections) { // for each corpus selected in the corpora view

	if (!(corpus instanceof MainCorpus)) continue; // check if the corpus is a maincorpus

	def line = [] ; table << line // create and add a new table line

	line << corpus.getID() // add the corpus name in the first column

	println "*** Computing mesures for $corpus" // each macro return a "result" and a "data"

	params = [

		"unit_ursql":default_unit_ursql,

	]

	returnedValue = execMesure(UnitsReferentialDensityMacro, line, corpus, params)

	line << returnedValue["result"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"unit_ursql":default_unit_ursql,

	]

	returnedValue = execMesure(SchemaLengthsMacro, line, corpus, params)

	line << returnedValue["result"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"unit_ursql":default_unit_ursql,

	]

	returnedValue = execMesure(NumberOfSchemaMacro, line, corpus, params)

	line << returnedValue["result"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"schema_property_display_name":schema_property_display_name,

		"unit_ursql":default_unit_ursql+"@CATEGORIE=GN Défini|GN Démonstratif|Nom Propre",

		"word_property":default_word_property,

	]

	returnedValue = execMesure(UnitsStabilityScoreMacro, line, corpus, params)

	line << returnedValue["result"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"unit_ursql":default_unit_ursql,

	]

	returnedValue = execMesure(UnitsInterDistanceMacro, line, corpus, params)

	line << returnedValue["result"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"unit_ursql":default_unit_ursql,

		"word_property":default_pos_property,

	]

	returnedValue = execMesure(NatureOfTheFirstUnitMacro, line, corpus, params)

	line << returnedValue["data"]

	params = [

		"schema_ursql":default_schema_ursql,

		"minimum_schema_size":default_minimum_schema_size,

		"schema_property_display_name":schema_property_display_name,

		"unit_ursql":default_unit_ursql,

		"word_property":default_pos_property,

	]

	returnedValue = execMesure(GrammaticalCategoryMacro, line, corpus, params)

	line << returnedValue["data"]

}

// WRITE RESULTS IN THE TSV FILE

tsvFile.withWriter("UTF-8") { writer ->

	writer.println "\t"+mesures.join("\t")

	table.each { line -> writer.println line.join("\t")	}

}

println "Done. Results are saved in ${tsvFile.getAbsolutePath()} file."

// UTILITY FUNCTIONS

def execMesure(def mesure, def line, def corpus, def params) {

	def m = mesure.getSimpleName().substring(0, mesure.getSimpleName().indexOf("Macro"))

	mesures << m

	println "***** ${mesures.size()}- $m with parameters: $params"

	def r = gse.run(mesure, ["args":params, "corpusViewSelection":corpus, "monitor":monitor])

	if (r == null) throw new Exception("Null result");

	return r;

}

	public static List<String> widgets = Arrays.asList("Query", "Integer", "File", "CreateFile", "FileSave", "FileOpen", "Folder", "StringArray", "StringArrayMultiple", "StructuralUnits" , "String", "Text", "Password", "Separator", "Float", "Boolean", "Date", "Date-Time");

					writer.println("//@Field @Option(name=\"password\", usage=\"an example password\", widget=\"Password\", required=false, def=\"hello world!\")"); //$NON-NLS-1$

					writer.println("//def password"); //$NON-NLS-1$

					writer.println(""); //$NON-NLS-1$

import org.eclipse.swt.layout.GridData;

					} else if ("Time".equals(widgetName)) { //$NON-NLS-1$

					} else if ("Separator".equals(widgetName)) { //$NON-NLS-1$

						value = stringValue;

					} else if ("Password".equals(widgetName)) { //$NON-NLS-1$

							value = stringValue;