Endeavoring to clean the Augean stables of misc/

install/30_qemu.sh

+#!/bin/bash
+DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
+. ${DIR}/common.sh
+
+# Setup the tools in ${PREFIX}/bin
+cd $DIR/../qemu-Leon3 || exit 1
+cp -u qemu-Leon3/qemu-Leon3*.sh ${PREFIX}/bin/
+
+# Add Leon simulators to PATH
+PATH_CMD='export PATH=$PATH:'"${PREFIX}/bin"
+UpdatePATH

install/80_build-scripts.sh

@@ -13,5 +13,6 @@ done
 cd ${PREFIX}/bin/ || exit 1
 [ ! -h assert-builder-ocarina.py ] && ln -s taste_orchestrator.py assert-builder-ocarina.py
 
-# In case the '-h' above already found the symlink.
-exit 0
+# Add to PATH
+PATH_CMD='export PATH=$PATH:'"${PREFIX}/bin"
+UpdatePATH

install/90_misc.sh

+#!/bin/bash
+DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
+. ${DIR}/common.sh
+
+# ELLIDISS?=/opt/Ellidiss-TASTE-linux
+
+# taste-config
+mkdir -p ${PREFIX}/bin
+sed -e "s:INSTALL_PREFIX:${PREFIX}:g" taste-config.pl > taste-config.pl.tmp
+cp taste-config.pl.tmp ${PREFIX}/bin/taste-config
+
+# TASTE-Directives.asn
+mkdir -p ${PREFIX}/share/taste
+cp taste-directives/TASTE-Directives.asn ${PREFIX}/share/taste/TASTE-Directives.asn || exit 1
+
+# Gnuplot
+cp gnuplot/driveGnuPlotsStreams.pl ${PREFIX}/bin/taste-gnuplot-streams
+
+# PeekPoke component
+mkdir -p ${PREFIX}/share/peekpoke
+mkdir -p ${PREFIX}/share/peekpoke/component
+cp peek-poke/peekpoke.py ${PREFIX}/share/peekpoke/peekpoke.py
+cp peek-poke/PeekPoke.glade ${PREFIX}/share/peekpoke/PeekPoke.glade
+for i in DataView.aadl DataView.asn export_PeekPoke.aadl taste_probe.zip ; do \
+        cp peek-poke/component/$$i ${PREFIX}/share/peekpoke/component/$$i ; \
+done
+
+mkdir -p ${PREFIX}/share/config_ellidiss
+cp ellidiss/*.tcl $(ELLIDISS)/config/externalTools
+cp ellidiss/TASTE_IV_Properties.aadl ${PREFIX}/share/config_ellidiss
+cp ellidiss/TASTE_DV_Properties.aadl ${PREFIX}/share/config_ellidiss
+sudo cp ellidiss/IVConfig.ini /opt/Ellidiss-TASTE-linux/config/
+mkdir -p ${PREFIX}/share/taste-types
+cp taste-common-types/taste-types.asn ${PREFIX}/share/taste-types
+cp -rf config-files/.kde ~/
+cd git-transition/ && ./local_install.sh
+ln -sf $(HOME)/.local/bin/opengeode ${PREFIX}/bin/opengeode
+$(MAKE) -C qemu-Leon3 || exit 1

misc/gnuplot/RunAndPlot.pl

+#!/usr/bin/perl -w
+use strict;
+
+select((select(STDOUT), $| = 1)[0]);
+ 
+open DATA, "/home/assert/Demo_Simulink/binary.linux/binaries/mygui_GUI |";
+
+my $data0 = "0";
+my $data1 = "0";
+while(<DATA>) {
+	if (/^togui::gui_in::myint\D+(\d+)/) {
+		print "0:$1\n";
+	}
+       elsif (/^togui::gui_in::myseq::y\D+(\d+)/) {
+		print "1:$1\n"; 
+	}
+}
+close DATA;

misc/gnuplot/driveGnuPlotsStreams.pl

+#!/usr/bin/perl -w
+use strict;
+
+sub usage {
+    print "Usage: $0 <options>\n";
+    print <<OEF;
+where options are (in order):
+
+  NumberOfStreams                         How many streams to plot (windows)
+  Stream1_WindowSampleSize <Stream2...>   This many window samples for each stream
+  Stream1_Title <Stream2_Title> ...       Title used for each stream
+  Stream1_geometry <Stream2_geometry>...  X and Y position in pixels from the top left
+
+The last parameters (geometries) are of the form: WIDTHxHEIGHT+XOFF+YOFF
+OEF
+    exit(1);
+}
+
+sub Arg {
+    if ($#ARGV < $_[0]) {
+	print "Expected parameter missing...\n\n";
+	usage;
+    }
+    $ARGV[int($_[0])];
+}
+
+sub main {
+    my $argIdx = 0;
+    my $numberOfStreams = Arg($argIdx++);
+    print "Will display $numberOfStreams Streams (in $numberOfStreams windows)...\n";
+    my @sampleSizes;
+    for(my $i=0; $i<$numberOfStreams; $i++) {
+	my $samples = Arg($argIdx++);
+	push @sampleSizes, $samples;
+	print "Stream ".($i+1)." will use a window of $samples samples\n";
+    }
+    my @titles;
+    for(my $i=0; $i<$numberOfStreams; $i++) {
+	my $title = Arg($argIdx++);
+	push @titles, $title;
+	print "Stream ".($i+1)." will use a title of '$title'\n";
+    }
+    my @geometries;
+    for(my $i=0; $i<$numberOfStreams; $i++) {
+	my $geometry = Arg($argIdx++);
+	push @geometries, $geometry;
+	print "Stream ".($i+1)." will use a geometry of '$geometry'\n";
+    }
+    my $terminal = "";
+    open GNUPLOT_TERM, "echo 'show terminal;' | gnuplot 2>&1 |";
+    while (<GNUPLOT_TERM>) {
+	if (m/terminal type is (\w+)/) {
+	    $terminal=$1;
+	}
+    }
+    close GNUPLOT_TERM;
+
+    # unfortunately, the wxt terminal type does not support positioning. 
+    # hardcode it...
+    $terminal  = "x11";
+
+    my @gnuplots;
+    my @buffers;
+    my @xcounters;
+    shift @ARGV; # number of streams
+    for(my $i=0; $i<$numberOfStreams; $i++) {
+	shift @ARGV; # sample size
+	shift @ARGV; # miny
+	shift @ARGV; # maxy
+	shift @ARGV; # title
+	shift @ARGV; # geometry
+	local *PIPE;
+	my $geometry = $geometries[$i];
+	open PIPE, "|gnuplot -geometry $geometry" || die "Can't initialize gnuplot number ".($i+1)."\n";
+	select((select(PIPE), $| = 1)[0]);
+	push @gnuplots, *PIPE;
+	print PIPE "set xtics\n";
+	print PIPE "set ytics\n";
+	print PIPE "set style data linespoints\n";
+	print PIPE "set grid\n";
+	if ($numberOfStreams == 1) {
+	    print PIPE "set terminal $terminal title '".$titles[0]."' noraise\n";
+	} else {
+	    print PIPE "set terminal $terminal noraise\n";
+	}
+	print PIPE "set autoscale\n";
+	my @data = [];
+	push @buffers, @data;
+	push @xcounters, 0;
+    }
+    my $streamIdx = 0;
+    select((select(STDOUT), $| = 1)[0]);
+    while(<>) {
+	chomp;
+	my @parts = split /:/;
+	$streamIdx = $parts[0];
+	my $buf = $buffers[$streamIdx];
+	my $pip = $gnuplots[$streamIdx];
+	my $xcounter = $xcounters[$streamIdx];
+	my $title = $titles[$streamIdx];
+
+	# data buffering (up to stream sample size)
+	push @{$buf}, $parts[1];
+	#print "stream $streamIdx: ";
+	print $pip "set xrange [".($xcounter-$sampleSizes[$streamIdx]).":".($xcounter+1)."]\n";
+	if ($numberOfStreams == 1) {
+	    print $pip "plot \"-\"\n";
+	} else {
+	    print $pip "plot \"-\" title '$title'\n";
+	}
+	my $cnt = 0;
+	for my $elem (reverse @{$buf}) {
+	    #print " ".$elem;
+	    print $pip ($xcounter-$cnt)." ".$elem."\n";
+	    $cnt += 1;
+	}
+	#print "\n";
+	print $pip "e\n";
+	if ($cnt>=$sampleSizes[$streamIdx]) {
+	    shift @{$buf};
+	}
+	$xcounters[$streamIdx]++;
+    }
+    for(my $i=0; $i<$numberOfStreams; $i++) {
+	my $pip = $gnuplots[$i];
+	print $pip "exit;\n";
+	close $pip;
+    }
+}
+
+main;

misc/peek-poke/component/DataView.asn

+TASTE-MONITORING DEFINITIONS AUTOMATIC TAGS ::=
+BEGIN
+
+TASTE-Peek ::= SEQUENCE {
+	base-address	INTEGER (0..4294967295),  	-- 32bits type
+	offset		INTEGER (-2147483648..2147483647),
+	base-type	ENUMERATED { int-32, int-64, real-single, real-double, octet-string },
+	nb-of-elements	INTEGER (1..10),		-- nb-of-elements EXCEPT for octet-string (1 element)
+	sample-time	INTEGER (0..15)			-- in seconds
+}
+
+TASTE-Peek-list ::= SEQUENCE (SIZE (0..5)) OF TASTE-Peek
+
+TASTE-Peek-id ::= INTEGER (0..4294967295)
+
+TASTE-Peek-id-list ::= SEQUENCE (SIZE (1..10)) OF TASTE-Peek-id
+
+TASTE-Monitoring-value ::= CHOICE {
+	int-32		INTEGER (-2147483648 .. 2147483647) ,
+	int-64		INTEGER (-9223372036854775807 .. 9223372036854775807),
+	real-single	REAL (-100000000000000000000000000000000000000.0 .. 100000000000000000000000000000000000000.0),
+	real-double 	REAL (-100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.0 .. 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.0),
+	octet-string	OCTET STRING (SIZE (0..10))
+}
+
+-- Result: memory value
+TASTE-Monitoring ::= SEQUENCE {
+	id	TASTE-Peek-id,
+	values	SEQUENCE (SIZE (1..10)) OF TASTE-Monitoring-value
+}
+
+TASTE-Monitoring-list ::= SEQUENCE (SIZE (0..5)) OF TASTE-Monitoring
+
+TASTE-Poke-list ::= TASTE-Monitoring-list
+
+empty-peek-list TASTE-Peek-list ::= {}
+empty-poke-list TASTE-Poke-list ::= {}
+
+-- Type to hold a maximum number of peek values (defined in a context parameter, thus patchable)
+TASTE-Peek-limit ::= INTEGER (0..1000)
+END
+ 
+
+

misc/peek-poke/component/export_PeekPoke.aadl

+  --{ PeekPoke obj313 2441 2008 
+  --In the deployment view, you must place Inspector_Linux (resp. Inspector Leon) on a X86/Native platform
+  --(resp. LEON2/RTEMS platform).
+  --}
+
+PACKAGE exportedComponent::IV::PeekPoke
+PUBLIC
+
+WITH exportedComponent::FV;
+WITH DataView;
+WITH Taste;
+
+  ---------------------------------------------------
+  -- TASTE Function: exportedComponent::IV::PeekPoke::TASTE_Probe
+  ---------------------------------------------------
+
+  SYSTEM TASTE_Probe
+    FEATURES
+      add_monitorings_obj143 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::add_monitorings_obj143.others
+        { Taste::Coordinates => "2670 1879";
+          Taste::RCMoperationKind => sporadic;
+          Taste::RCMperiod => 0 ms;
+          Taste::Deadline => 1000 ms;
+          Taste::Importance => MEDIUM ;};
+      patch_memory_obj155 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::patch_memory_obj155.others
+        { Taste::Coordinates => "2670 1902";
+          Taste::RCMoperationKind => sporadic;
+          Taste::RCMperiod => 0 ms;
+          Taste::Deadline => 0 ms;
+          Taste::Importance => MEDIUM ;};
+      remove_monitorings_obj167 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::remove_monitorings_obj167.others
+        { Taste::Coordinates => "2670 1890";
+          Taste::RCMoperationKind => sporadic;
+          Taste::RCMperiod => 1000 ms;
+          Taste::Deadline => 1000 ms;
+          Taste::Importance => MEDIUM ;};
+      periodic_monitoring_obj179 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::periodic_monitoring_obj179.others
+        { Taste::Coordinates => "2738 1849";
+          Taste::RCMoperationKind => cyclic;
+          Taste::RCMperiod => 100 ms;
+          Taste::Deadline => 100 ms;
+          Taste::Importance => MEDIUM ;};
+      obj1475_obj190 : REQUIRES SUBPROGRAM ACCESS exportedComponent::FV::update_monitorings_obj211.others 
+        { Taste::Coordinates => "2670 1937";
+          Taste::RCMoperationKind => sporadic;};
+    PROPERTIES
+      Source_Language => C;
+      Source_Text => ("taste_probe.zip");
+      Taste::Instance_Name => "Function0";
+  END TASTE_Probe;
+
+  SYSTEM IMPLEMENTATION TASTE_Probe.others
+    SUBCOMPONENTS
+      peeks_obj131 : DATA DataView::TASTE_Peek_list 
+        { Taste::FS_Default_Value => "{}"; };
+      max_monitoring_number_obj132 : DATA DataView::TASTE_Peek_limit 
+        { Taste::FS_Default_Value => "10"; };
+      add_monitorings_obj143_impl : SUBPROGRAM exportedComponent::FV::add_monitorings_obj143.others
+        { Compute_Execution_Time => 0ms..1000ms ;};
+      patch_memory_obj155_impl : SUBPROGRAM exportedComponent::FV::patch_memory_obj155.others
+        { Compute_Execution_Time => 0ms..0ms ;};
+      remove_monitorings_obj167_impl : SUBPROGRAM exportedComponent::FV::remove_monitorings_obj167.others
+        { Compute_Execution_Time => 0ms..1000ms ;};
+      periodic_monitoring_obj179_impl : SUBPROGRAM exportedComponent::FV::periodic_monitoring_obj179.others
+        { Compute_Execution_Time => 0ms..100ms ;};
+    CONNECTIONS
+      DATA ACCESS peeks_obj131 -> add_monitorings_obj143_impl.peeks_obj131;
+      DATA ACCESS max_monitoring_number_obj132 -> add_monitorings_obj143_impl.max_monitoring_number_obj132;
+      SUBPROGRAM ACCESS add_monitorings_obj143_impl  -> add_monitorings_obj143;
+      DATA ACCESS peeks_obj131 -> patch_memory_obj155_impl.peeks_obj131;
+      DATA ACCESS max_monitoring_number_obj132 -> patch_memory_obj155_impl.max_monitoring_number_obj132;
+      SUBPROGRAM ACCESS patch_memory_obj155_impl  -> patch_memory_obj155;
+      DATA ACCESS peeks_obj131 -> remove_monitorings_obj167_impl.peeks_obj131;
+      DATA ACCESS max_monitoring_number_obj132 -> remove_monitorings_obj167_impl.max_monitoring_number_obj132;
+      SUBPROGRAM ACCESS remove_monitorings_obj167_impl  -> remove_monitorings_obj167;
+      DATA ACCESS peeks_obj131 -> periodic_monitoring_obj179_impl.peeks_obj131;
+      DATA ACCESS max_monitoring_number_obj132 -> periodic_monitoring_obj179_impl.max_monitoring_number_obj132;
+      SUBPROGRAM ACCESS periodic_monitoring_obj179_impl  -> periodic_monitoring_obj179;
+  END TASTE_Probe.others;
+
+  ---------------------------------------------------
+  -- TASTE Function: exportedComponent::IV::PeekPoke::TASTE_Probe_Console
+  ---------------------------------------------------
+
+  SYSTEM TASTE_Probe_Console
+    FEATURES
+      update_monitorings_obj211 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::update_monitorings_obj211.others
+        { Taste::Coordinates => "2614 1937";
+          Taste::RCMoperationKind => sporadic;
+          Taste::RCMperiod => 0 ms;
+          Taste::Deadline => 0 ms;
+          Taste::Importance => MEDIUM ;};
+      obj1240_obj223 : REQUIRES SUBPROGRAM ACCESS exportedComponent::FV::add_monitorings_obj143.others 
+        { Taste::Coordinates => "2614 1879";
+          Taste::RCMoperationKind => sporadic;};
+      obj1354_obj233 : REQUIRES SUBPROGRAM ACCESS exportedComponent::FV::patch_memory_obj155.others 
+        { Taste::Coordinates => "2614 1902";
+          Taste::RCMoperationKind => sporadic;};
+      obj681_obj243 : REQUIRES SUBPROGRAM ACCESS exportedComponent::FV::remove_monitorings_obj167.others 
+        { Taste::Coordinates => "2614 1890";
+          Taste::RCMoperationKind => sporadic;};
+    PROPERTIES
+      Source_Language => GUI;
+      Taste::Instance_Name => "Function1";
+  END TASTE_Probe_Console;
+
+  SYSTEM IMPLEMENTATION TASTE_Probe_Console.others
+    SUBCOMPONENTS
+      update_monitorings_obj211_impl : SUBPROGRAM exportedComponent::FV::update_monitorings_obj211.others
+        { Compute_Execution_Time => 0ms..0ms ;};
+    CONNECTIONS
+      SUBPROGRAM ACCESS update_monitorings_obj211_impl  -> update_monitorings_obj211;
+  END TASTE_Probe_Console.others;
+
+PROPERTIES
+  Taste::Coordinates => "2425 1788 2869 2054";
+  Taste::dataView => ("DataView","DataView");
+  Taste::dataViewPath => ("DataView.aadl");
+
+END exportedComponent::IV::PeekPoke;
+
+  ---------------------------------------------------
+  -- TASTE Root system: exportedComponent::IV::exportedComponent
+  ---------------------------------------------------
+
+PACKAGE exportedComponent::IV
+PUBLIC
+
+WITH exportedComponent::FV;
+WITH exportedComponent::IV::PeekPoke;
+ 
+
+  SYSTEM exportedComponent
+    PROPERTIES
+      Taste::Export_Date => "Thu Dec 13 16:44:05 CET 2012";
+  END exportedComponent;
+
+  SYSTEM IMPLEMENTATION exportedComponent.others
+    SUBCOMPONENTS
+      TASTE_Probe: SYSTEM exportedComponent::IV::PeekPoke::TASTE_Probe.others
+        { Taste::Coordinates => "2670 1849 2842 1988"; };
+      TASTE_Probe_Console: SYSTEM exportedComponent::IV::PeekPoke::TASTE_Probe_Console.others
+        { Taste::Coordinates => "2455 1847 2614 1991"; };
+    CONNECTIONS
+      obj1546 : SUBPROGRAM ACCESS TASTE_Probe_Console.update_monitorings_obj211  -> TASTE_Probe.obj1475_obj190 
+        { Taste::Coordinates => "2670 1937 2642 1937 2642 1937 2614 1937"; };
+      obj1326 : SUBPROGRAM ACCESS TASTE_Probe.add_monitorings_obj143  -> TASTE_Probe_Console.obj1240_obj223 
+        { Taste::Coordinates => "2614 1879 2642 1879 2642 1879 2670 1879"; };
+      obj1419 : SUBPROGRAM ACCESS TASTE_Probe.patch_memory_obj155  -> TASTE_Probe_Console.obj1354_obj233 
+        { Taste::Coordinates => "2614 1902 2642 1902 2642 1902 2670 1902"; };
+      obj747 : SUBPROGRAM ACCESS TASTE_Probe.remove_monitorings_obj167  -> TASTE_Probe_Console.obj681_obj243 
+        { Taste::Coordinates => "2614 1890 2642 1890 2642 1890 2670 1890"; };
+  END exportedComponent.others;
+END exportedComponent::IV;
+
+PACKAGE exportedComponent::FV
+PUBLIC
+
+WITH DataView;
+WITH TASTE;
+
+  SUBPROGRAM add_monitorings_obj143
+    FEATURES
+      monitorings : IN PARAMETER DataView::TASTE_Peek_list
+        { Taste::encoding => UPER; };
+      peeks_obj131 : REQUIRES DATA ACCESS DataView::TASTE_Peek_list;
+      max_monitoring_number_obj132 : REQUIRES DATA ACCESS DataView::TASTE_Peek_limit;
+    PROPERTIES
+      Taste::Associated_Queue_Size => 1;
+  END add_monitorings_obj143;
+
+  SUBPROGRAM IMPLEMENTATION add_monitorings_obj143.others
+  END add_monitorings_obj143.others;
+
+  SUBPROGRAM patch_memory_obj155
+    FEATURES
+      pokes : IN PARAMETER DataView::TASTE_Poke_list
+        { Taste::encoding => UPER; };
+      peeks_obj131 : REQUIRES DATA ACCESS DataView::TASTE_Peek_list;
+      max_monitoring_number_obj132 : REQUIRES DATA ACCESS DataView::TASTE_Peek_limit;
+    PROPERTIES
+      Taste::Associated_Queue_Size => 1;
+  END patch_memory_obj155;
+
+  SUBPROGRAM IMPLEMENTATION patch_memory_obj155.others
+  END patch_memory_obj155.others;
+
+  SUBPROGRAM remove_monitorings_obj167
+    FEATURES
+      ids : IN PARAMETER DataView::TASTE_Peek_id_list
+        { Taste::encoding => UPER; };
+      peeks_obj131 : REQUIRES DATA ACCESS DataView::TASTE_Peek_list;
+      max_monitoring_number_obj132 : REQUIRES DATA ACCESS DataView::TASTE_Peek_limit;
+    PROPERTIES
+      Taste::Associated_Queue_Size => 1;
+  END remove_monitorings_obj167;
+
+  SUBPROGRAM IMPLEMENTATION remove_monitorings_obj167.others
+  END remove_monitorings_obj167.others;
+
+  SUBPROGRAM periodic_monitoring_obj179
+    FEATURES
+      peeks_obj131 : REQUIRES DATA ACCESS DataView::TASTE_Peek_list;
+      max_monitoring_number_obj132 : REQUIRES DATA ACCESS DataView::TASTE_Peek_limit;
+  END periodic_monitoring_obj179;
+
+  SUBPROGRAM IMPLEMENTATION periodic_monitoring_obj179.others
+  END periodic_monitoring_obj179.others;
+
+  SUBPROGRAM update_monitorings_obj211
+    FEATURES
+      monitorings : IN PARAMETER DataView::TASTE_Monitoring_list
+        { Taste::encoding => UPER; };
+    PROPERTIES
+      Taste::Associated_Queue_Size => 1;
+  END update_monitorings_obj211;
+
+  SUBPROGRAM IMPLEMENTATION update_monitorings_obj211.others
+  END update_monitorings_obj211.others;
+
+END exportedComponent::FV;
+

misc/taste-config.pl

+#!/usr/bin/perl -w
+
+use strict;
+use File::Basename;
+use Getopt::Long;
+
+my $show_packages;
+my $show_orchestrator_path;
+my $show_buildsupport_path;
+my $show_directives_path;
+my $show_dmt_path;
+my $show_prefix;
+my $result;
+my $tmp;
+my @tmp;
+my $prefix = "INSTALL_PREFIX";
+
+
+$show_prefix            = 0;
+$show_packages          = 0;
+$show_orchestrator_path = 0;
+$show_buildsupport_path = 0;
+$show_directives_path   = 0;
+$show_dmt_path          = 0;
+
+$result = GetOptions ("prefix"       => \$show_prefix,
+                      "orchestrator" => \$show_orchestrator_path,
+                      "buildsupport" => \$show_buildsupport_path,
+                      "directives"   => \$show_directives_path,
+                      "dmt"          => \$show_dmt_path,
+                      "packages"     => \$show_packages);
+
+
+sub help
+{
+   print STDERR "Usage: $0 OPTIONS\n";
+   print STDERR "Options are:\n";
+   print STDERR "   --prefix        - output the TASTE installation prefix\n";
+   print STDERR "   --packages      - output the list of installed TASTE packages\n";
+   print STDERR "   --orchestrator  - output the list of PATH of the orchestrator\n";
+   print STDERR "   --buildsupport  - output the list of PATH of buildsupport\n";
+   print STDERR "   --dmt           - output the list of PATH of DMT tools\n";
+   print STDERR "   --directives    - output the PATH of the directives file\n";
+   exit 1;
+}
+
+sub find_dmt_path
+{
+   my $ret;
+   my $tmp;
+
+   $ret = "/foo/bar/i/want/a/hp/touchpad/";
+
+   $tmp = `which asn1.exe`;
+   chomp ($tmp);
+   if (-x $tmp)
+   {
+      $tmp =~ s/\/[a-zA-Z0-9\.exe]+$//;
+      $tmp =~ s/[a-zA-Z0-9]+$//;
+      $ret = $tmp;
+   }
+   else
+   {
+      opendir (DIR , "/opt") or exit 1;
+
+      @tmp = readdir (DIR);
+
+      foreach (@tmp)
+      {
+         if ( (/^DMT-ToolsAndManual.*/) && (-f "/opt/$_/License.txt"))
+         {
+            $ret = "/opt/$_/";
+         }
+      }
+      closedir (DIR);
+   }
+
+   return $ret if (-d $ret);
+   return undef;
+}
+
+if ($show_prefix == 1)
+{
+   print "$prefix\n";
+   exit 0;
+}
+elsif ($show_directives_path == 1)
+{
+   $tmp = $prefix . "/share/taste/TASTE-Directives.asn";
+   if (-f $tmp)
+   {
+      print "$tmp\n";
+      exit 0;
+   }
+   else
+   {
+      print "DIRECTIVES FILES NOT FOUND\n";
+      exit 1;
+   }
+}
+elsif ($show_buildsupport_path == 1)
+{
+   $tmp = $prefix . "/bin/buildsupport";
+   if (-x $tmp)
+   {
+      print $tmp . "\n";
+      exit 0;
+   }
+   else
+   {
+      print STDERR "NOT INSTALLED";
+      exit 1;
+   }
+}
+elsif ($show_orchestrator_path == 1)
+{
+   $tmp = $prefix . "/bin/assert-builder-ocarina.py";
+   if (-x $tmp)
+   {
+      print $tmp . "\n";
+      exit 0;
+   }
+   else
+   {
+      print STDERR "NOT INSTALLED";
+      exit 1;
+   }
+}
+elsif ($show_dmt_path == 1)
+{
+   $tmp = find_dmt_path ();
+   if (defined ($tmp) && ( -d $tmp ))
+   {
+      print $tmp . "\n";
+      exit 0;
+   }
+   else
+   {
+      print STDERR "DMT NOT INSTALLED\n";
+      exit 1;
+   }
+}
+elsif ($show_packages == 1)
+{
+   $tmp = find_dmt_path ();
+
+   print "INSTALLED TASTE PACKAGES\n";
+   print "   * Ocarina\n" if (-x "$prefix/bin/ocarina");
+   print "   * Orchestrator\n" if (-x "$prefix/bin/assert-builder-ocarina.py");
+   print "   * Buildsupport\n" if (-x "$prefix/bin/buildsupport");
+   print "   * PolyORB-HI-C runtime\n" if (-d "$prefix/include/ocarina/runtime/polyorb-hi-c/");
+   print "   * PolyORB-HI-Ada runtime\n" if (-d "$prefix/include/ocarina/runtime/polyorb-hi-ada/");
+   print "   * TASTEGUI\n" if (-x "$prefix/bin/tastegui");
+   print "\n";
+
+   if (defined ($tmp) && ( -d $tmp) )
+   {
+      print "DMT TOOLS are installed in $tmp\n";
+   }