Data update

Task/Program-name/Ada/program-name.adb

@@ -0,0 +1,6 @@
+with Ada.Command_Line, Ada.Text_IO;
+
+procedure Command_Name is
+begin
+   Ada.Text_IO.Put_Line(Ada.Command_Line.Command_Name);
+end Command_Name;

Task/Program-name/Agena/program-name.agena

@@ -0,0 +1 @@
+printf( "This is %s\n", args[ 0 ] )

Task/Program-name/AppleScript/program-name.applescript

@@ -0,0 +1 @@
+my name

Task/Program-name/ArkScript/program-name.ark

@@ -0,0 +1,4 @@
+# file.ark
+(import std.Sys)
+
+(print sys:programName)

Task/Program-name/COBOL/program-name.cob

@@ -0,0 +1,18 @@
+       identification division.
+       program-id. sample.
+
+       data division.
+       working-storage section.
+       01 progname pic x(16).
+
+       procedure division.
+       sample-main.
+
+       display 0 upon argument-number
+       accept progname from argument-value
+       display "argument-value zero :" progname ":"
+
+       display "function module-id  :" function module-id ":"
+
+       goback.
+       end program sample.

Task/Program-name/Crystal/program-name.cr

@@ -0,0 +1,2 @@
+puts "PROGRAM_NAME            = #{PROGRAM_NAME}"
+puts "Process.executable_path = #{Process.executable_path}"

Task/Program-name/Emacs-Lisp/program-name.el

@@ -0,0 +1,8 @@
+:;exec emacs -batch -l $0 -f main $*
+
+;;; Shebang from John Swaby
+;;; http://www.emacswiki.org/emacs/EmacsScripts
+
+(defun main ()
+  (let ((program (nth 2 command-line-args)))
+    (message "Program: %s" program)))

Task/Program-name/Euphoria/program-name.eu

@@ -0,0 +1,2 @@
+constant cmd = command_line()
+puts(1,cmd[2])

Task/Program-name/Fennel/program-name.fennel

@@ -0,0 +1 @@
+(print (.. "This is " (. arg 0)))

Task/Program-name/JavaScript/program-name-1.js

@@ -1,3 +1,8 @@
-function foo() {
-  return arguments.callee.name;
+function filename() {
+  // get the current script's URL
+  // or in the event of an embedded script, fall back to the document URL
+  const src = document.currentScript.src || document.location.href;
+  // parse out just the file name from the URL
+  // (no trailing slashes, search params or anchor fragments)
+  return src.replace(/[?#].*/, '').match(/[^\/]+/g);
 }

Task/Program-name/JavaScript/program-name-2.js

@@ -1 +1,4 @@
-(function(){alert(arguments.callee.name);}())
+function filename() {
+  const src = import.meta.url;
+  return src.replace(/[?#].*/, '').match(/[^\/]+/g);
+}

Task/Program-name/Pluto/program-name.pluto

@@ -0,0 +1 @@
+print( $"This is { arg[ 0 ] }" )

Task/Program-name/PowerShell/program-name.ps1

@@ -0,0 +1,3 @@
+# write this in file <program.ps1>
+$MyInvocation.MyCommand.Name
+# launch with <.\program>

Task/Program-name/VBScript/program-name.vbs

@@ -0,0 +1,5 @@
+Wscript.Echo "FullName:",Wscript.FullName
+Wscript.Echo "Name:",Wscript.Name
+Wscript.Echo "Path:",Wscript.Path
+Wscript.Echo "ScriptFullName:",Wscript.ScriptFullName
+Wscript.Echo "ScriptName:",Wscript.ScriptName