tasks a-s

Task/Program-name/0DESCRIPTION

@@ -0,0 +1,7 @@
+The task is to programmatically obtain the name used to invoke the program. (For example determine whether the user ran "python hello.py", or "python hellocaller.py", a program importing the code from "hello.py".)
+
+Sometimes a [[multiline shebang]] is necessary in order to provide the script name to a language's internal ARGV.
+
+See also [[Command-line arguments]]
+
+Examples from [https://github.com/mcandre/scriptname GitHub].

Task/Program-name/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Initialization
+note: Basic language learning

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

@@ -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/AutoHotkey/program-name.ahk

@@ -0,0 +1 @@
+MsgBox, % A_ScriptName

Task/Program-name/BASIC/program-name-1.basic

@@ -0,0 +1 @@
+appname = COMMAND$(0)

Task/Program-name/BASIC/program-name-2.basic

@@ -0,0 +1 @@
+appname = *__FB_ARGV__(0)

Task/Program-name/BBC-BASIC/program-name.bbc

@@ -0,0 +1,2 @@
+      SYS "GetCommandLine" TO cl%
+      PRINT $$cl%

Task/Program-name/C++/program-name.cpp

@@ -0,0 +1,10 @@
+#include <iostream>
+
+using namespace std;
+
+int main(int argc, char **argv) {
+	char *program = argv[0];
+	cout << "Program: " << program << endl;
+
+	return 0;
+}

Task/Program-name/C/program-name-1.c

@@ -0,0 +1,7 @@
+#include <stdio.h>
+
+int main(int argc, char **argv) {
+	printf("Executable: %s\n", argv[0]);
+
+	return 0;
+}

Task/Program-name/C/program-name-2.c

@@ -0,0 +1,8 @@
+#include <stdio.h>
+
+int main()
+{
+	printf("This code was in file %s in function %s, at line %d\n",\
+		__FILE__, __FUNCTION__, __LINE__);
+	return 0;
+}

Task/Program-name/C/program-name-3.c

@@ -0,0 +1,37 @@
+/* myname.c */
+
+#include <sys/param.h>
+#include <sys/sysctl.h>	/* struct kinfo_proc */
+#include <err.h>
+#include <fcntl.h>	/* O_RDONLY */
+#include <kvm.h>
+#include <limits.h>	/* _POSIX2_LINE_MAX */
+#include <stdio.h>
+
+int
+main(int argc, char **argv) {
+	extern char *__progname;	/* from crt0.o */
+
+	struct kinfo_proc *procs;
+	kvm_t *kd;
+	int cnt;
+	char errbuf[_POSIX2_LINE_MAX];
+
+	printf("argv[0]: %s\n", argv[0]);
+	printf("__progname: %s\n", __progname);
+
+	kd = kvm_openfiles(NULL, NULL, NULL, KVM_NO_FILES, errbuf);
+	if (kd == NULL)
+		errx(1, "%s", errbuf);
+	procs = kvm_getprocs(kd, KERN_PROC_PID, getpid(),
+	    sizeof procs[0], &cnt);
+	if (procs == NULL)
+		errx(1, "%s", kvm_geterr(kd));
+	if (cnt != 1)
+		errx(1, "impossible");
+
+	printf("p_comm: %s\n", procs[0].p_comm);
+
+	kvm_close(kd);
+	return 0;
+}

Task/Program-name/C/program-name-4.c

@@ -0,0 +1,57 @@
+#include <windows.h>
+#include <stdlib.h>
+#include <wchar.h>
+
+/*
+ * Returns the path to the current executable file, in a newly
+ * allocated buffer. Use free() to free it.
+ */
+wchar_t *
+exepath(void)
+{
+	wchar_t *buf, *newbuf;
+	long blen, flen;
+
+	/*
+	 * Most paths fit in MAX_PATH == 260 characters, but very
+	 * long UNC paths might require a larger buffer.
+	 */
+	buf = NULL;
+	for (blen = MAX_PATH; 1; blen += MAX_PATH) {
+		/* Enlarge buffer. */
+		newbuf = realloc(buf, blen * sizeof buf[0]);
+		if (newbuf == NULL) {
+			free(buf);
+			return NULL;
+		}
+		buf = newbuf;
+
+		flen = GetModuleFileNameW(NULL, buf, blen);
+		if (flen == 0) {
+			free(buf);
+			return NULL;
+		}
+		if (flen < blen)
+			return buf;
+	}
+}
+
+/*
+ * Print the path to this executable.
+ */
+int
+main()
+{
+	wchar_t *path;
+
+	path = exepath();
+	if (path == NULL) {
+		wprintf(L"Sorry, an error occured.\n");
+		return 1;
+	}
+
+	wprintf(L"Path to executable: %ls\n", path);
+
+	free(path);
+	return 0;
+}

Task/Program-name/Clojure/program-name.clj

@@ -0,0 +1,12 @@
+":";exec lein exec $0 ${1+"$@"}
+":";exit
+
+(ns scriptname
+  (:gen-class))
+
+(defn -main [& args]
+  (let [program (first *command-line-args*)]
+    (println "Program:" program)))
+
+(when (.contains (first *command-line-args*) *source-path*)
+  (apply -main (rest *command-line-args*)))

Task/Program-name/Common-Lisp/program-name-1.lisp

@@ -0,0 +1,6 @@
+;;; Play nice with shebangs
+(set-dispatch-macro-character #\# #\!
+ (lambda (stream character n)
+  (declare (ignore character n))
+  (read-line stream nil nil t)
+  nil))

Task/Program-name/Common-Lisp/program-name-2.lisp

@@ -0,0 +1,30 @@
+#!/bin/sh
+#|
+exec clisp -q -q $0 $0 ${1+"$@"}
+exit
+|#
+
+;;; Usage: ./scriptname.lisp
+
+(defun main (args)
+ (let ((program (car args)))
+  (format t "Program: ~a~%" program)
+  (quit)))
+
+;;; With help from Francois-Rene Rideau
+;;; http://tinyurl.com/cli-args
+(let ((args
+       #+clisp (ext:argv)
+       #+sbcl sb-ext:*posix-argv*
+       #+clozure (ccl::command-line-arguments)
+       #+gcl si:*command-args*
+       #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
+       #+cmu extensions:*command-line-strings*
+       #+allegro (sys:command-line-arguments)
+       #+lispworks sys:*line-arguments-list*
+     ))
+
+  (if (member (pathname-name *load-truename*)
+              args
+              :test #'(lambda (x y) (search x y :test #'equalp)))
+    (main args)))

Task/Program-name/D/program-name-1.d

@@ -0,0 +1,7 @@
+#!/usr/bin/env rdmd
+
+import std.stdio;
+
+void main(in string[] args) {
+    writeln("Program: ", args[0]);
+}

Task/Program-name/D/program-name-2.d

@@ -0,0 +1,3 @@
+$ dmd scriptname.d
+$ ./scriptname
+Program: ./scriptname

Task/Program-name/D/program-name-3.d

@@ -0,0 +1,2 @@
+$ ./scriptname.d
+Program: /tmp/.rdmd/Users/andrew/Desktop/src/scriptname/scriptname.d.D3B32385A31B968A3CF8CAF1E1426E5F

Task/Program-name/Dart/program-name.dart

@@ -0,0 +1,6 @@
+#!/usr/bin/env dart
+
+main() {
+	var program = new Options().script;
+	print("Program: ${program}");
+}

Task/Program-name/Delphi/program-name.delphi

@@ -0,0 +1,8 @@
+program ProgramName;
+
+{$APPTYPE CONSOLE}
+
+begin
+  Writeln('Program name: ' + ParamStr(0));
+  Writeln('Command line: ' + CmdLine);
+end.

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

@@ -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/Erlang/program-name.erl

@@ -0,0 +1,5 @@
+-module(scriptname).
+
+main(_) ->
+	Program = ?FILE,
+	io:format("Program: ~s~n", [Program]).

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

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

Task/Program-name/Factor/program-name.factor

@@ -0,0 +1,8 @@
+#! /usr/bin/env factor
+
+USING: namespaces io command-line ;
+IN: scriptname
+
+: main ( -- ) script get print ;
+
+MAIN: main

Task/Program-name/Forth/program-name.fth

@@ -0,0 +1,2 @@
+0 arg type cr    \ gforth or gforth-fast, for example
+1 arg type cr     \ name of script

Task/Program-name/Go/program-name.go

@@ -0,0 +1,10 @@
+package main
+
+import (
+    "fmt"
+    "os"
+)
+
+func main() {
+    fmt.Println("Program:", os.Args[0])
+}

Task/Program-name/Groovy/program-name-1.groovy

@@ -0,0 +1,5 @@
+#!/usr/bin/env groovy
+
+def program = getClass().protectionDomain.codeSource.location.path
+
+println "Program: " + program

Task/Program-name/Groovy/program-name-2.groovy

@@ -0,0 +1 @@
+println this.class.getName()

Task/Program-name/Haskell/program-name.hs

@@ -0,0 +1,4 @@
+import System (getProgName)
+
+main :: IO ()
+main = getProgName >>= putStrLn . ("Program: " ++)

Task/Program-name/Icon/program-name.icon

@@ -0,0 +1,3 @@
+procedure main()
+write(&progname)    # obtain and write out the program name from the keyword &progname
+end

Task/Program-name/Io/program-name.io

@@ -0,0 +1,9 @@
+#!/usr/bin/env io
+
+main := method(
+	program := System args at(0)
+
+	("Program: " .. program) println
+)
+
+if (System args size > 0 and System args at(0) containsSeq("scriptname"), main)

Task/Program-name/J/program-name.j

@@ -0,0 +1,13 @@
+#!/usr/bin/env jconsole
+
+program =: monad : 0
+	if. (#ARGV) > 1 do.
+		> 1 { ARGV
+	else.
+		'Interpreted'
+	end.
+)
+
+echo 'Program: ', program 0
+
+exit ''

Task/Program-name/Java/program-name-1.java

@@ -0,0 +1,6 @@
+public class ScriptName {
+	public static void main(String[] args) {
+		String program = System.getProperty("sun.java.command").split(" ")[0];
+		System.out.println("Program: " + program);
+	}
+}

Task/Program-name/Java/program-name-2.java

@@ -0,0 +1,6 @@
+public class ScriptName {
+	public static void main(String[] args) {
+		Class c = new Object(){}.getClass().getEnclosingClass();
+		System.out.println("Program: " + c.getName());
+	}
+}

Task/Program-name/Java/program-name-3.java

@@ -0,0 +1,6 @@
+public class ScriptName {
+	public static void main(String[] args) {
+		Class c = System.getSecurityManager().getClassContext()[0];
+		System.out.println("Program: " + c.getName());
+	}
+}

Task/Program-name/Java/program-name-4.java

@@ -0,0 +1,6 @@
+public class ScriptName {
+	public static void main(String[] args) {
+		String program = Thread.currentThread().getStackTrace()[1].getClassName();
+		System.out.println("Program: " + program);
+	}
+}

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

@@ -0,0 +1,3 @@
+function foo() {
+  return arguments.callee.name;
+}

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

@@ -0,0 +1 @@
+(function(){alert(arguments.callee.name);}())

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

@@ -0,0 +1,9 @@
+#!/usr/bin/env node
+/*jslint nodejs:true */
+
+function main() {
+	var program = __filename;
+	console.log("Program: " + program);
+}
+
+if (!module.parent) { main(); }

Task/Program-name/LLVM/program-name-1.llvm

@@ -0,0 +1,6 @@
+$ make
+llvm-as scriptname.ll
+llc -disable-cfi scriptname.bc
+gcc -o scriptname scriptname.s
+./scriptname
+Program: ./scriptname

Task/Program-name/LLVM/program-name-2.llvm

@@ -0,0 +1,10 @@
+all: scriptname.ll
+	llvm-as scriptname.ll
+	llc scriptname.bc
+	gcc -o scriptname scriptname.s
+	./scriptname
+
+clean:
+	-rm scriptname
+	-rm scriptname.s
+	-rm scriptname.bc

Task/Program-name/LLVM/program-name-3.llvm

@@ -0,0 +1,10 @@
+@msg_main = internal constant [13 x i8] c"Program: %s\0A\00"
+
+declare i32 @printf(i8* noalias nocapture, ...)
+
+define i32 @main(i32 %argc, i8** %argv) {
+	%program = load i8** %argv
+	call i32 (i8*, ...)* @printf(i8* getelementptr inbounds ([13 x i8]* @msg_main, i32 0, i32 0), i8* %program)
+
+	ret i32 0
+}

Task/Program-name/Lua/program-name.lua

@@ -0,0 +1,12 @@
+#!/usr/bin/env lua
+
+function main(arg)
+	local program = arg[0]
+	print("Program: " .. program)
+end
+
+if type(package.loaded[(...)]) ~= "userdata" then
+	main(arg)
+else
+	module(..., package.seeall)
+end

Task/Program-name/Mathematica/program-name.math

@@ -0,0 +1,12 @@
+#!/usr/bin/env MathKernel -script
+
+ScriptName[] = Piecewise[
+	{
+		{"Interpreted", Position[$CommandLine, "-script", 1] == {}}
+	},
+	$CommandLine[[Position[$CommandLine, "-script", 1][[1,1]] + 1]]
+]
+
+Program = ScriptName[];
+
+Print["Program: " <> Program]

Task/Program-name/NetRexx/program-name.netrexx

@@ -0,0 +1,8 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+package org.rosettacode.samples
+
+say 'Source: ' source
+say 'Program:' System.getProperty('sun.java.command')
+return

Task/Program-name/OCaml/program-name.ocaml

@@ -0,0 +1,3 @@
+let () =
+  print_endline Sys.executable_name;
+  print_endline Sys.argv.(0)

Task/Program-name/Objective-C/program-name-1.m

@@ -0,0 +1,16 @@
+#import <Foundation/Foundation.h>
+
+int main(int argc, char **argv) {
+	NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
+
+	char *program = argv[0];
+	printf("Program: %s\n", program);
+
+	// Alternatively:
+	NSString *program2 = [[NSProcessInfo processInfo] processName];
+	NSLog(@"Program: %@\n", program2);
+
+	[pool drain];
+
+	return 0;
+}

Task/Program-name/Objective-C/program-name-2.m

@@ -0,0 +1,3 @@
+$ gcc -o scriptname -framework foundation scriptname.m
+$ ./scriptname
+Program: ./scriptname

Task/Program-name/Octave/program-name.octave

@@ -0,0 +1,6 @@
+function main()
+	program = program_name();
+	printf("Program: %s", program);
+endfunction
+
+main();

Task/Program-name/Order/program-name.order

@@ -0,0 +1 @@
+__FILE__

Task/Program-name/PHP/program-name.php

@@ -0,0 +1,4 @@
+<?php
+$program = $_SERVER["SCRIPT_NAME"];
+echo "Program: $program\n";
+?>

Task/Program-name/Pascal/program-name.pascal

@@ -0,0 +1,8 @@
+program ScriptName;
+var
+	prog : String;
+begin
+	prog := ParamStr(0);
+	write('Program: ');
+	writeln(prog)
+end.

Task/Program-name/Perl-6/program-name.pl6

@@ -0,0 +1 @@
+say $*PROGRAM_NAME;

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

@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+sub main {
+	my $program = $0;
+	print "Program: $program\n";
+}
+
+unless(caller) { main; }

Task/Program-name/PicoLisp/program-name.l

@@ -0,0 +1,2 @@
+: (cmd)
+-> "/usr/bin/picolisp"

Task/Program-name/PowerBASIC/program-name-1.powerbasic

@@ -0,0 +1,9 @@
+#INCLUDE "Win32API.inc"
+'[...]
+DIM fullpath AS ASCIIZ * 260, appname AS STRING
+GetModuleFileNameA 0, fullpath, 260
+IF INSTR(fullpath, "\") THEN
+    appname = MID$(fullpath, INSTR(-1, fullpath, "\") + 1)
+ELSE
+    appname = fullpath
+END IF

Task/Program-name/PowerBASIC/program-name-2.powerbasic

@@ -0,0 +1 @@
+appname = EXE.NAMEX$

Task/Program-name/PureBasic/program-name.purebasic

@@ -0,0 +1,6 @@
+If OpenConsole()
+  PrintN(ProgramFilename())
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf

Task/Program-name/Python/program-name-1.py

@@ -0,0 +1,10 @@
+#!/usr/bin/env python
+
+import sys
+
+def main():
+	program = sys.argv[0]
+	print "Program: %s" % program
+
+if __name__=="__main__":
+	main()

Task/Program-name/Python/program-name-2.py

@@ -0,0 +1,10 @@
+#!/usr/bin/env python
+
+import inspect
+
+def main():
+	program = inspect.getfile(inspect.currentframe())
+	print "Program: %s" % program
+
+if __name__=="__main__":
+	main()

Task/Program-name/R/program-name.r

@@ -0,0 +1,12 @@
+#!/usr/bin/env Rscript
+
+getProgram <- function(args) {
+	sub("--file=", "", args[grep("--file=", args)])
+}
+
+args <- commandArgs(trailingOnly = FALSE)
+program <- getProgram(args)
+
+cat("Program: ", program, "\n")
+
+q("no")

Task/Program-name/REXX/program-name-1.rexx

@@ -0,0 +1,4 @@
+/* Rexx */
+
+Parse source . . pgmPath
+Say pgmPath

Task/Program-name/REXX/program-name-2.rexx

@@ -0,0 +1,2 @@
+#!/bin/sh
+rexxbit.rexx $0 $*

Task/Program-name/REXX/program-name-3.rexx

@@ -0,0 +1 @@
+say "The program is called " arg(1)

Task/Program-name/REXX/program-name-4.rexx

@@ -0,0 +1,5 @@
+/*REXX program RANG1 in PDS N561985.PRIV.CLIST W. Pachl */
+Parse Source a b c
+Say 'a='a
+Say 'b='!!b
+Say 'c='c

Task/Program-name/REXX/program-name-5.rexx

@@ -0,0 +1,15 @@
+/*REXX pgm displays the name (& possible path) of the REXX program name.*/
+parse version _version
+parse source _system _howInvoked _path
+
+say right(_version '◄──►' space(arg(1) arg(2)), 79, '─')   /*show title.*/
+say "     REXX's name of system being used:"  _system
+say '     how the REXX program was invoked:'  _howInvoked
+say '    name of the REXX program and path:'  _path
+
+if arg()>1  then return 0              /*don't let this program recurse.*/
+                                       /*Mama said that cursing is a sin*/
+                                       /*invoke ourself with a  2nd arg.*/
+call prog_nam  , 'subroutine'          /*call ourself as a  subroutine. */
+zz = prog_nam( , 'function')           /*  "     "     " "  function.   */
+                                       /*stick a fork in it, we're done.*/

Task/Program-name/Racket/program-name.rkt

@@ -0,0 +1,6 @@
+#!/usr/bin/env racket
+#lang racket
+
+(define (program) (find-system-path 'run-file))
+
+(module+ main (printf "Program: ~a\n" (program)))

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

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

Task/Program-name/Rust/program-name-1.rust

@@ -0,0 +1,3 @@
+fn main() {
+    io::println(fmt!("Program: %s", os::args()[0]));
+}

Task/Program-name/Rust/program-name-2.rust

@@ -0,0 +1,3 @@
+$ rustc scriptname.rs
+$ ./scriptname
+Program: ./scriptname

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

@@ -0,0 +1,19 @@
+$ scala ScriptName.scala
+Program: ScriptName.scala
+
+$ scalac ScriptName.scala
+$ scala -classpath . ScriptName
+Program: ScriptName.scala
+
+$ scala
+Welcome to Scala version 2.9.1.final (Java HotSpot(TM) 64-Bit Server VM, Java 1.6.0_26).
+Type in expressions to have them evaluated.
+Type :help for more information.
+
+scala> :load ScriptName.scala
+Loading ScriptName.scala...
+import scala.util.matching.Regex.MatchIterator
+defined module ScriptName
+
+scala> ScriptName.main(Array[String]())
+Program: <console>

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

@@ -0,0 +1,18 @@
+import scala.util.matching.Regex.MatchIterator
+
+object ScriptName {
+	val program = {
+		val filenames = new RuntimeException("").getStackTrace.map { t => t.getFileName }
+		val scala = filenames.indexOf("NativeMethodAccessorImpl.java")
+		
+		if (scala == -1)
+			"<console>"
+		else
+			filenames(scala - 1)
+	}
+
+	def main(args: Array[String]) {
+		val prog = program
+		println("Program: " + prog)
+	}
+}

Task/Program-name/Scheme/program-name.ss

@@ -0,0 +1,25 @@
+#!/bin/sh
+#|
+exec csi -ss $0 ${1+"$@"}
+exit
+|#
+
+(use posix)
+(require-extension srfi-1) ; lists
+(require-extension srfi-13) ; strings
+
+(define (main args)
+	(let ((prog (cdr (program))))
+		(display (format "Program: ~a\n" prog))
+		(exit)))
+
+(define (program)
+	(if (string=? (car (argv)) "csi")
+		(let ((s-index (list-index (lambda (x) (string-contains x "-s")) (argv))))
+			(if (number? s-index)
+				(cons 'interpreted (list-ref (argv) (+ 1 s-index)))
+				(cons 'unknown "")))
+		(cons 'compiled (car (argv)))))
+
+(if (equal? (car (program)) 'compiled)
+	(main (cdr (argv))))

Task/Program-name/Seed7/program-name.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: i is 0;
+  begin
+    writeln("Program path:      " <& path(PROGRAM));
+    writeln("Program directory: " <& dir(PROGRAM));
+    writeln("Program file:      " <& file(PROGRAM));
+  end func;

Task/Program-name/Smalltalk/program-name-1.st

@@ -0,0 +1,8 @@
+"exec" "gst" "-f" "$0" "$0" "$@"
+"exit"
+
+| program |
+
+program := Smalltalk getArgv: 1.
+
+Transcript show: 'Program: ', program; cr.

Task/Program-name/Smalltalk/program-name-2.st

@@ -0,0 +1,4 @@
+| program |
+
+program := Smalltalk commandLine first.
+Transcript show: 'Program: ', program; cr.

Task/Program-name/Standard-ML/program-name.ml

@@ -0,0 +1,7 @@
+#!/usr/bin/env sml
+
+let
+	val program = CommandLine.name ()
+in
+	print ("Program: " ^ program ^ "\n")
+end;

Task/Program-name/Tcl/program-name.tcl

@@ -0,0 +1,10 @@
+#!/usr/bin/env tclsh
+
+proc main {args} {
+    set program $::argv0
+    puts "Program: $program"
+}
+
+if {$::argv0 eq [info script]} {
+    main {*}$::argv
+}

Task/Program-name/UNIX-Shell/program-name.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+echo "Program: $0"

Task/Program-name/VBA/program-name.vba

@@ -0,0 +1 @@
+Debug.Print Application.Name

Task/Program-name/Vala/program-name.vala

@@ -0,0 +1,5 @@
+public static void main(string[] args){
+	string command_name = args[0];
+	
+	stdout.printf("%s\n", command_name);
+}

Task/Program-name/Visual-Basic/program-name-1.vb

@@ -0,0 +1 @@
+appname = App.EXEName 'appname = "MyVBapp"

Task/Program-name/Visual-Basic/program-name-2.vb

@@ -0,0 +1,9 @@
+Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
+Dim fullpath As String * 260, appname As String, namelen As Long
+namelen = GetModuleFileName (0, fullpath, 260)
+fullpath = Left$(fullpath, namelen)
+If InStr(fullpath, "\") Then
+    appname = Mid$(fullpath, InStrRev(fullpath, "\") + 1)
+Else
+    appname = fullpath
+End If