Just another update

Task/Program-name/Mercury/program-name.mercury

@@ -0,0 +1,16 @@
+:- module program_name.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+
+main(!IO) :-
+    % The first argument is used as the program name if it is not otherwise
+    % available.  (We could also have used the predicate io.progname_base/4
+    % if we did not want path preceding the program name.)
+    io.progname("", ProgName, !IO),
+    io.print_line(ProgName, !IO).
+
+:- end_module program_name.

Task/Program-name/Oberon-2/program-name.oberon-2

@@ -0,0 +1,7 @@
+MODULE ProgramName;
+IMPORT
+  NPCT:Args,
+  Out;
+BEGIN
+  Out.Object("Program name: " + Args.Get(0));Out.Ln
+END ProgramName.

Task/Program-name/Perl/program-name-2.pl

@@ -0,0 +1,2 @@
+use FindBin;
+print "Program name $FindBin::Script\n";

Task/Program-name/Ruby/program-name.rb

@@ -1,4 +1,4 @@
 #!/usr/bin/env ruby
 
-puts "Path: #{$0}"
+puts "Path: #{$PROGRAM_NAME}"  # or puts "Path: #{$0}"
 puts "Name: #{File.basename $0}"

Task/Program-name/Scala/program-name.scala

@@ -0,0 +1,5 @@
+object ScriptName extends App {
+  println(s"Program of instantiated object: ${this.getClass.getName}")
+  // Not recommended, due various implementations
+  println(s"Program via enviroment:         ${System.getProperty("sun.java.command")}")
+}

Task/Program-name/TXR/program-name.txr

@@ -1,2 +1,2 @@
-#!/usr/local/bin/txr
+#!/usr/local/bin/txr -B
 @(bind my-name @*self-path*)