Rosetta Code

Program name

(Redirected from ScriptName)

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".)

Task
Program name
You are encouraged to solve this task according to the task description, using any language you may know.

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 GitHub.

11l 

:start:
print(‘Program: ’:argv[0])

68000 Assembly

Works with: NEOGEO

The name of the game is stored on the cartridge at memory address $000200. It is exactly 16 characters and is padded with spaces (ASCII 32). Since there is no null terminator after this string, use its size to terminate a printing loop. 

LEA $000200,A3
JSR PrintString ;(my print routine is 255-terminated and there just so happens to be an FF after the name of the game.)
Output

[Ninja Adventure]

AArch64 Assembly

Works with: aarch64-linux-gnu-as/qemu-aarch64

Without built-in CRT, argc and argv are stored in the stack. The format looks like: 

sp+0  = argc
sp+8  = argv[0]
sp+16 = argv[1] ...

Each item of argv is a pointer to a null-terminated 8-bit string. 

.equ STDOUT, 1
.equ SVC_WRITE, 64
.equ SVC_EXIT, 93

.text
.global _start

_start:
	stp x29, x30, [sp, -16]!
	mov x29, sp
	ldr x0, [sp, 24] // argv[0]
	bl _strlen // strlen(argv[0])
	mov x2, x0
	mov x0, #STDOUT
	ldr x1, [sp, 24]
	bl _write // write(stdout, argv[0], strlen(argv[0]))
	ldp x29, x30, [sp], 16
	mov x0, #0
	b _exit // exit(0);

// ssize_t _strlen(const char *str)
_strlen:
	mov x1, x0
	mov x0, #-1
1:	add x0, x0, #1
	ldrb w2, [x1, x0]
	cbnz x2, 1b
	ret

.text
//////////////// system call wrappers
// ssize_t _write(int fd, void *buf, size_t count)
_write:
	stp x29, x30, [sp, -16]!
	mov x8, #SVC_WRITE
	mov x29, sp
	svc #0
	ldp x29, x30, [sp], 16
	ret

// void _exit(int retval)
_exit:
	mov x8, #SVC_EXIT
	svc #0

Ada

Being a compiled language, Ada has difficulties accessing source code filenames. But it is easy to access the executable's filename, using the function Command_Name defined in Ada.Command_Line: 

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;

Agena

In Agena, the command line arguments are in the string array args. The name of the Agena source file is in args[ 0 ]. Elements in args with negative subscripts contain arguments supplied to the Agena interpreter and the name of the interpreter itself is in the element with the most negative subscript. 

printf( "This is %s\n", args[ 0 ] )
Output:
This is programName.agn

Aime

The program command line arguments are accessible via the argc()/argv() functions. The program name is the first in the list of arguments. 

o_text(argv(0));
o_byte('\n');

ALGOL 68 

BEGIN
   print ((program idf, newline))
END
Output:
$ a68g Program_name.a68
Program_name.a68
$

Amazing Hopper

El primer parámetro en Hopper y sus sabores, siempre será el nombre del programa. 

#include <hbasic.h>
Begin
   GetParam(name File)
   Print("My Program name: ", name File,Newl)
End
Output:
$ hopper myname.bas
My Program name: myname.bas
$

AppleScript

Because the variable me always refers to the currently executing script, this is easy: 

my name
Output:
"programname"

Applesoft BASIC 

10 GOSUB 40"GET PROGRAM NAME
20 PRINT N$
30 END

40 REMGET PROGRAM NAME
50 GOSUB 100"GET INPUT BUFFER
60 GOSUB 200"REMOVE RUN PREFIX
70 GOSUB 300"REMOVE , SUFFIXES
80 GOSUB 400"TRIM SPACES
90 RETURN

100 REMGET INPUT BUFFER
110 N$ = ""
120 FOR I = 512 TO 767
130     B =  PEEK (I) - 128
140     IF B < 32 THEN  RETURN
150     N$ = N$ +  CHR$ (B)
160 NEXT I
170 RETURN

200 REMREMOVE RUN PREFIX
210 P = 1
220 FOR I = 1 TO 3
230     FOR J = P TO LEN(N$)
240         C$ =  MID$ (N$,J,1)
250         P = P + 1
260         IF C$ = " " THEN  NEXT J
270         IF C$ = MID$("RUN",I,1) THEN NEXT I:N$ =  MID$(N$,P,LEN(N$)-P+1):RETURN
280 PRINT "YOU NEED TO RUN THIS PROGRAM USING THE  RUN COMMAND FROM DOS."
290 END

300 REMREMOVE , SUFFIXES
310 L =  LEN (N$)
320 FOR I = 1 TO L
330     C$ =  MID$ (N$,I,1)
340     IF C$ = "," THEN N$ =  LEFT$(N$,I - 1): RETURN
350 NEXT I
360 RETURN

400 REMTRIM SPACES
410 GOSUB 600

500 REMLEFT TRIM SPACES
510 L = LEN(N$) - 1
520 FOR I = L TO 0 STEP -1
530     IF I < 0 THEN RETURN
540     IF LEFT$ (N$,1) <> " " THEN RETURN
550     IF I THEN N$ = RIGHT$ (N$, I)
560 NEXT I
570 N$ = "
580 RETURN

600 REMRIGHT TRIM SPACES
610 L = LEN(N$) - 1
620 FOR I = L TO 0 STEP -1
630     IF I < 0 THEN RETURN
640     IF RIGHT$ (N$,1) <> " " THEN RETURN
650     IF I THEN N$ = LEFT$ (N$, I)
660 NEXT I
670 N$ = "
680 RETURN

ArkScript

Works with: ArkScript version 4.0.0
# file.ark
(import std.Sys)

(print sys:programName)
Output:
file.ark

ARM Assembly

Works with: as version Raspberry Pi
/* ARM assembly Raspberry PI  */
/*  program namepgm.s   */
/* Constantes    */
.equ STDOUT, 1
.equ WRITE,  4
.equ EXIT,   1
/* Initialized data */
.data
szMessage: .asciz "Program : "       @ 
szRetourLigne: .asciz "\n"


.text
.global main 
main:	
    push {fp,lr}    /* save des  2 registres */
    add fp,sp,#8    /* fp <- adresse début */
    ldr r0, iAdrszMessage         @ adresse of message
    bl affichageMess            @ call function
    ldr r0,[fp,#4]                 @ recup name of program in command line
    bl affichageMess            @ call function
    ldr r0, iAdrszRetourLigne         @ adresse of message
    bl affichageMess            @ call function
 
 /* fin standard du programme */
    mov r0, #0                  @ return code
    pop {fp,lr}                 @restaur des  2 registres 
    mov r7, #EXIT              @ request to exit program
    swi 0                       @ perform the system call
iAdrszMessage: .int szMessage
iAdrszRetourLigne: .int szRetourLigne	
/******************************************************************/
/*     affichage des messages   avec calcul longueur              */ 
/******************************************************************/
/* r0 contient l adresse du message */
affichageMess:
	push {fp,lr}    /* save des  2 registres */ 
	push {r0,r1,r2,r7}    /* save des autres registres */
	mov r2,#0   /* compteur longueur */
1:	      /*calcul de la longueur */
        ldrb r1,[r0,r2]  /* recup octet position debut + indice */
	cmp r1,#0       /* si 0 c est fini */
	beq 1f
	add r2,r2,#1   /* sinon on ajoute 1 */
	b 1b
1:	/* donc ici r2 contient la longueur du message */
	mov r1,r0        /* adresse du message en r1 */
	mov r0,#STDOUT      /* code pour écrire sur la sortie standard Linux */
        mov r7, #WRITE                  /* code de l appel systeme "write" */
        swi #0                      /* appel systeme */
	pop {r0,r1,r2,r7}     /* restaur des autres registres */
	pop {fp,lr}    /* restaur des  2 registres */ 
        bx lr	        /* retour procedure */

AutoHotkey 

MsgBox, % A_ScriptName

AWK 

# syntax: TAWK -f PROGRAM_NAME.AWK
#
# GAWK can provide the invoking program name from ARGV[0] but is unable to
# provide the AWK script name that follows -f.  Thompson Automation's TAWK
# version 5.0c, last released in 1998 and no longer commercially available, can
# provide the AWK script name that follows -f from the PROGFN built-in
# variable.  It should also provide the invoking program name, E.G. TAWK, from
# ARGV[0] but due to a bug it holds the fully qualified -f name instead.
#
# This example is posted here with hopes the TAWK built-in variables PROGFN
# (PROGram File Name) and PROGLN (PROGram Line Number) be added to GAWK by its
# developers.
#
BEGIN {
    printf("%s -f %s\n",ARGV[0],PROGFN)
    printf("line number %d\n",PROGLN)
    exit(0)
}
Output:
TAWK -f PROGRAM_NAME.AWK
C:\program_name.awk -f program_name.awk
line number 16

GAWK -f PROGRAM_NAME.AWK
gawk -f
line number 0

BASIC

Many BASICs -- notably older DOS BASICs, and especially DOS MS BASICs -- do not provide any way to retrieve the program's name.

FreeBASIC

Unlike most MS BASICs, FreeBASIC provides a parsed version of COMMAND$ (called as COMMAND$(n)). COMMAND$(0) is the program's name: 

appname = COMMAND$(0)

Additionally, FreeBASIC also provides an analog of C's argc/argv[], called __FB_ARGC__ and __FB_ARGV__. __FB_ARGV__ can be used to get the program's name like this: 

appname = *__FB_ARGV__(0)

See also: PowerBASIC, PureBasic, Visual Basic.

BBC BASIC

Works with: BBC BASIC for Windows
      SYS "GetCommandLine" TO cl%
      PRINT $$cl%

IS-BASIC 

100 PROGRAM "Name1.bas"(A,B,C,S$)
110 CHAIN "Name2.BAS"(A,B,C,S$)

edit 1
100 PROGRAM "Name2.bas"(A,B,C,S$)
110 PRINT A,B,C,S$

edit 0
start(1,2,3,"Hello")

BaCon

To get the name with which the program was invoked: 

PRINT TOKEN$(ARGUMENT$, 1)

To get the full path: 

PRINT ME$

uBasic/4tH

CMD(1) returns a string with the filename - SHOW() prints this string. 

Print Show(Cmd(1))

Blue

Linux/x86-64. Will print the name of the executable from "argv[0]" as provided. 

global _start

: syscall ( num:eax -- result:eax ) syscall ;

: exit ( status:edi -- noret ) 60 syscall ;
: bye ( -- noret ) 0 exit ;

: write ( buf:esi len:edx fd:edi -- ) 1 syscall drop ;

1 const stdout

: print ( buf len -- ) stdout write ;

: newline ( -- ) s" \n" print ;
: println ( buf len -- ) print newline ; 

: find0 ( start:rsi -- end:rsi ) lodsb 0 cmp latest xne ; 
: cstrlen ( str:rdi -- len:rsi ) dup find0 swap sub dec ;
: cstr>str ( cstr:rdx -- str:rsi len:rdx ) dup cstrlen xchg ;

: print-arg ( arg -- ) cstr>str println ;

: arg0 ( rsp -- rsp ) 8 add @ ; inline

: _start ( rsp -- noret ) arg0 print-arg bye ;

BQN 

•name

C

It might not be very useful for a C program to access source filenames, because C code must be compiled into an executable, and anything could have happened to the source file after the compilation. However, C can access the executable's name in argv[0].

  • argv[0] might be the name of an executable in the PATH, or it might be an absolute or relative path to the executable. At least with Unix, the parent process can set argv[0] to any string, so argv[0] might not be the real name. It is best to pretend that argv[0] has the correct value, but mind that argv[0] might not be an actual file.
#include <stdio.h>

int main(int argc, char **argv) {
	printf("Executable: %s\n", argv[0]);

	return 0;
}

To get the source information about some part of code, use compiler defined macros. Most compilers support them or some variation of. 

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

BSD

BSD provides two more ways to get the program's name.

  1. __progname is the filename from argv[0] (so if argv[0] is a path, then __progname is only the filename). No header file declares __progname, so programs must declare extern char __progname; to use it.
  2. ucomm always gives the real filename of the executable, even if argv[0] has a different name. ucomm is a field in the process information; ps -O ucomm prints it. Other than ps(1) and top(1), few programs access ucomm. There is a C interface to the process information, but it often changes between BSD versions.

Starting with OpenBSD 5.0, ucomm is field p_comm of struct kinfo_proc, and kvm_getprocs() in libkvm can fill this struct. (Rosetta Code will welcome contributions for other BSD variants.)

Library: BSD libc
Works with: OpenBSD version 5.0

To compile myname.c: make myname LDLIBS=-lkvm 

/* 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;
}

The program can have three different names! 

$ perl -e 'exec {"./myname"} "/nobin/fakename"' 
argv[0]: /nobin/fakename
__progname: fakename
ucomm: myname

Windows

GetModuleFileName, from the Win32 API, provides the correct path to the current executable file.

Library: Win32
#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;
}

Path to executable: C:\Users\kernigh\Documents\field\scratch.exe

C#

This effectively outputs the executable name, file path, and any arguments for the current program. 

using System;
namespace ProgramName
{
	class Program
	{
		static void Main(string[] args)
		{
			Console.Write(Environment.CommandLine);
		}
	}
}

In a C# application with a reference to System.Windows.Forms, the following can be used to retrieve the executable name and arguments without the full path. 

using System;
namespace ProgramName
{
	class Program
	{
		static void Main(string[] args)
		{
			// Extracts the filename from the full path
			System.IO.FileInfo exeInfo = new System.IO.FileInfo(System.Windows.Forms.Application.ExecutablePath);
			Console.Write(exeInfo.Name);
			
			// Writes all arguments to the console
			foreach (string argument in args)
			{
				Console.Write(" " + argument);
			}
		}
	}
}

C++

C++ can access the executable's filename through the arguments to main(). 

#include <iostream>

using namespace std;

int main(int argc, char **argv) {
	char *program = argv[0];
	cout << "Program: " << program << endl;
}

Clojure 

":";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*)))

COBOL

Works with: GnuCOBOL

COBOL has an internal PROGRAM-ID name, and then the external invocation name. 

       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.
Output:
prompt$ cobc -xj progname.cob 
argument-value zero :./progname      :
function module-id  :sample:

CoffeeScript

scriptname.coffee: 

#!/usr/bin/env coffee

main = () ->
  program = __filename
  console.log "Program: " + program

if not module.parent then main()

Common Lisp

Shebangs require a special tweak to ~/.clisprc.lisp. 

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

#!/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)))

Crystal

Two ways: 

puts "PROGRAM_NAME            = #{PROGRAM_NAME}"
puts "Process.executable_path = #{Process.executable_path}"
Output:
PS ~\dev\v\crystal\rosetta> crystal .\Program_name.cr
PROGRAM_NAME            = C:\Users\xxx\AppData\Local\crystal\cache\crystal-run-Program_name.exe.tmp.exe
Process.executable_path = C:\Users\xxx\AppData\Local\crystal\cache\crystal-run-Program_name.exe.tmp.exe
PS ~\dev\v\crystal\rosetta> crystal build .\Program_name.cr
PS ~\dev\v\crystal\rosetta> .\Program_name
PROGRAM_NAME            = C:\Users\xxx\dev\v\crystal\rosetta\Program_name.exe
Process.executable_path = C:\Users\xxx\dev\v\crystal\rosetta\Program_name.exe

D 

#!/usr/bin/env rdmd

import std.stdio;

void main(in string[] args) {
    writeln("Program: ", args[0]);
}
Output:
C:\rosetta>program_name.exe
Program: program_name.exe
$ dmd scriptname.d
$ ./scriptname
Program: ./scriptname

If the system is configured, the D programming language offers an 'interpreted-looking' mode, which exhibits slightly different behavior than the normal compilation: 

$ ./scriptname.d
Program: /tmp/.rdmd/Users/andrew/Desktop/src/scriptname/scriptname.d.D3B32385A31B968A3CF8CAF1E1426E5F


Alternative method using built-in function thisExePath()

Works with: D version 2.064+
// thisExePath function was introduced in D 2.064 (November 5, 2013)

import std.file;
import std.stdio;

void main(string[] args)
{
    writeln("Program: ", thisExePath());
}
Output:
Z:\rosettacode>program_name.exe
Program: Z:\rosettacode\program_name.exe

Dart 

#!/usr/bin/env dart

main() {
	var program = new Options().script;
	print("Program: ${program}");
}

Delphi 

program ProgramName;

{$APPTYPE CONSOLE}

begin
  Writeln('Program name: ' + ParamStr(0));
  Writeln('Command line: ' + CmdLine);
end.

Déjà Vu 

!print( "Name of this file: " get-from !args 0 )

EchoLisp 

(js-eval "window.location.href")
    → "http://www.echolalie.org/echolisp/"

Ecstasy 

module WhatIsMyName {
    @Inject Console console;

    void run() {
        console.print($"program name: {this:module}");
    }
}
Output:
program name: WhatIsMyName

Elena

ELENA 6.x : 

import extensions;
 
public Program()
{
    Console.printLine(Program_arguments.asEnumerable());  // the whole command line
 
    Console.printLine(Program_arguments[0]); // the program name
}

Emacs Lisp 

:;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)))

load-file-name is the ".el" or ".elc" currently being loaded. Within a batch -l it will be the script name, but within sub-loads like require etc it is that sub-load.

EMal 

writeLine("path: " + Runtime.path)
writeLine("name: " + Runtime.name)
writeLine("args: " + Runtime.args)
Output:
emal.exe Org\RosettaCode\ProgramName.emal sample arguments
path: C:\tmp\Org\RosettaCode\ProgramName.emal
name: ProgramName.emal
args: [sample,arguments]

Erlang

If Erlang is used as a script language the function escript:script_name/0 will return the program name. When compiled Erlang's macros hold information about the running module. 

%% Compile
%%
%% erlc scriptname.erl
%%
%% Run
%%
%% erl -noshell -s scriptname

-module(scriptname).
-export([start/0]).

start() ->
  Program = ?FILE,
  io:format("Program: ~s~n", [Program]),
  init:stop().

Euphoria 

constant cmd = command_line()
puts(1,cmd[2])

F#

This code correctly prints the program name in three modes:

  • Run as a compiled program (either scriptname.exe in Windows, or mono scriptname.exe in Unix)
  • Run as an interpreted program (fsharpi scriptname.fsx)
  • Run as a dotslashed program in Unix (./scriptname.fsx)
#light (*
	exec fsharpi --exec $0 --quiet
*)

let scriptname =
    let args = System.Environment.GetCommandLineArgs()

    let arg0 = args.[0]

    if arg0.Contains("fsi") then
        let arg1 = args.[1]
        if arg1 = "--exec" then
            args.[2]
        else
            arg1
    else
        arg0

let main =
    printfn "%s" scriptname

Factor 

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

Fennel

This is the equivalent of the Agena sample, the elements of arg with negative subscripts contain the name of the Fennel compiler and the Lua interpreter. Elements with positive subscripts don't appear to be set, even if there are parameters after the Fennel program on the command-line. 

(print (.. "This is " (. arg 0)))
Output:
This is programName.fnl

Forth

Works with: GNU Forth
0 arg type cr    \ gforth or gforth-fast, for example
1 arg type cr     \ name of script

Fortran

Please find example runs in the comments at the beginning of the FORTRAN2003 source. Program name verification can deter system attackers. Therefore, the code is provided as a separate easily reused module. 

! program run with invalid name path/f
!
!-*- mode: compilation; default-directory: "/tmp/" -*-
!Compilation started at Sun Jun  2 00:18:31
!
!a=./f && make $a && OMP_NUM_THREADS=2 $a < unixdict.txt
!gfortran -std=f2008 -Wall -fopenmp -ffree-form -fall-intrinsics -fimplicit-none f.f08 -o f
!
!Compilation finished at Sun Jun  2 00:18:31



! program run with valid name path/rcname
! 
!-*- mode: compilation; default-directory: "/tmp/" -*-
!Compilation started at Sun Jun  2 00:19:01
!
!gfortran -std=f2008 -Wall -fopenmp -ffree-form -fall-intrinsics -fimplicit-none f.f08 -o rcname && ./rcname
! ./rcname approved.
! program continues...
!
!Compilation finished at Sun Jun  2 00:19:02


module sundry

contains

  subroutine verify_name(required)
    ! name verification reduces the ways an attacker can rename rm as cp.
    character(len=*), intent(in) :: required
    character(len=1024) :: name
    integer :: length, status
    ! I believe get_command_argument is part of the 2003 FORTRAN standard intrinsics.
    call get_command_argument(0, name, length, status)
    if (0 /= status) stop
    if ((len_trim(name)+1) .ne. (index(name, required, back=.true.) + len(required))) stop
    write(6,*) trim(name)//' approved.'
  end subroutine verify_name

end module sundry

program name
  use sundry
  call verify_name('rcname')
  write(6,*)'program continues...'
end program name

FreeBASIC 

' FB 1.05.0 Win64

Print "The program was invoked like this => "; Command(0) + " " + Command(-1)
Print "Press any key to quit"
Sleep


FutureBasic

There are several ways to retrieve the program name. These functions return a string containing the name that can be used in various ways. 

print fn ProcessInfoProcessName
print fn RunningApplicationLocalizedName( fn RunningApplicationCurrentApplication )

Gambas

Click this link to run this code 

Public Sub Main()
Dim sTemp As String

Print "Command to start the program was ";;

For Each sTemp In Args.All
  Print sTemp;;
Next

End

Output: 

Command to start the program was  ./CLIOnly.gambas Hello World!

Genie 

[indent=4]
init
    print args[0]
    print Path.get_basename(args[0])
    print Environment.get_application_name()
    print Environment.get_prgname()
Output:
prompt$ valac programname.gs
prompt$ ./programname
./programname
programname
(null)
(null)

Go

scriptname.go: 

package main

import (
    "fmt"
    "os"
)

func main() {
    fmt.Println("Program:", os.Args[0])
}
Command line session:
> go build scriptname.go
> ./scriptname
Program: ./scriptname
> mv scriptname newname
> ./newname
Program: ./newname

Groovy

All the Java solutions work equally well under Groovy when the program is invoked through the "main" method of a class. However, if a Groovy program is invoked as a script, the script runs as an instance method of itself as the instantiating class. If the script is running as a compiled string, the Groovy environment under which it is running assigns it a name.

If you want the script filename, use: 

#!/usr/bin/env groovy

def program = getClass().protectionDomain.codeSource.location.path

println "Program: " + program

But if you just want the class name, there are easier ways.

So, just typing in and running the following in the GroovyConsole environment: 

println this.class.getName()

yields the following on the first run: 

ConsoleScript0

and the following on the third run: 

ConsoleScript2

But if we save this one line script under the filename "Autonomous.groovy" and then load the file into the console, we get this on every run: 

Autonomous

Using the package statement and an appropriate directory hierarchy to provide namespace semantics works exactly as it does in Java.

Haskell

Haskell has an impure function for this. 

import System (getProgName)

main :: IO ()
main = getProgName >>= putStrLn . ("Program: " ++)

Icon and Unicon 

procedure main()
write(&progname)    # obtain and write out the program name from the keyword &progname
end

Io 

#!/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)

J 

#!/usr/bin/env jconsole

program =: monad : 0
	if. (#ARGV) > 1 do.
		> 1 { ARGV
	else.
		'Interpreted'
	end.
)

echo 'Program: ', program 0

exit ''

Jakt

The name of the program is stored in the first index of the array passed to main. This is the name of the compiled executable, so when using jakt -cr the value will be a path starting with build/. 

fn main(arguments: [String]) {
    let program_name = arguments[0]
    println("{}", program_name)
}

Java

On one hand, this task is trivial for Java. Java code is (usually) compiled into bytecode as class files. There is exactly one class file per class, named <class name>.class (regardless of what the original source files were called or how classes were organized in the source). One executes Java code by executing some class which contains a main method, by running the command java <class name> <possible arguments>. Hence, it is guaranteed that the "name" of the executable is the class name (possibly prepended by package names, using the usual Java dot notation); and this is known in the main method at the time the code is written because it is the very class that the main method is in. Hence, the complicated solutions listed in this section do not gain anything that is not already known by the programmer at the time the code is written.

However, it is tedious to hard-code the class names if you need to do this in a lot of Java programs. Thus, a more interesting task is to write a snippet of Java code which, without modification, can be copy-and-pasted into the main method of any class and retrieve the class name. This is not trivial because in Java there is no way to use this in a static method to get the class it's in. Listed below are several notable, commonly-cited solutions for this.

You can get the listing of the arguments to the java command through a system property. The first one is the name of the main class that was run. This depends on a system property named "sun.java.command", which might not exist on all Java virtual machines. 

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

An alternate solution is to create a dummy inner class, and then retrieve its enclosing class (which is the class the main method is in) through reflection (though this will not work if the code is placed in a method in another source file--it will give the name of the class it is in inside that source file): 

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

A solution using the security manager: 

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

A solution using the stack trace (requires Java 1.5+): 

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

JavaScript 

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);
}

For JavaScript modules, use import.meta instead: 

function filename() {
  const src = import.meta.url;
  return src.replace(/[?#].*/, '').match(/[^\/]+/g);
}
Works with: Node.js

Node.js has a global variable for this. 

#!/usr/bin/env node
/*jslint nodejs:true */

function main() {
	var program = __filename;
	console.log("Program: " + program);
}

if (!module.parent) { main(); }

Joy 

#!/usr/bin/joy

argv first putchars.

Jsish 

#!/usr/bin/env jsish
/* Program name, in Jsish */
puts('Executable:', Info.executable());
puts('Argv0     :', Info.argv0());
Output:
prompt$ jsish programName.jsi
Executable: /usr/local/bin/jsish
Argv0     : /home/btiffin/forge/jsi/jsi-test/rosetta/programName.jsi

Julia

Julia strips the program file name from ARGS, so this information is not available to the program from its command line arguments. Instead it is accessible via Base.source_path(). 

prog = basename(Base.source_path())
println("This program file is \"", prog, "\".")
Output:
This program file is "program_name.jl".

Kotlin 

// version 1.0.6

// 'progname.kt' packaged as 'progname.jar'

fun main(args: Array<String>) {
    println(System.getProperty("sun.java.command"))  // may not exist on all JVMs
    println(System.getProperty("java.vm.name")) 
}
Output:
progname.jar
Java HotSpot(TM) 64-Bit Server VM

Lasso 

#!/usr/bin/lasso9

stdoutnl("Program: " + $argv->first)

Output: 

$ lasso9 script_name.lasso 
Program: script_name.lasso

Liberty BASIC 

nSize = _MAX_PATH + 2
lpFilename$ = space$(nSize); chr$(0)

    calldll #kernel32, "GetModuleFileNameA", _
        hModule     as ulong, _
        lpFilename$ as ptr, _
        nSize       as ulong, _
        result      as ulong
lpFilename$ = left$(lpFilename$,result)

print "Path to LB exe"
print lpFilename$
print "current program file (:last one on LRU list)"
print getLastLRU$(lbPath$)
end

Function getLastLRU$(lbPath$)
    open lbPath$+"lbasic404.ini" for input as #1
        while not(eof(#1))
            line input #1, a$
            if instr(a$, "recent files")<>0 then [readRecentFiles]
        wend
        getLastLRU$ = "* Failed: Recent files section not found *"
        close #1
        exit function

[readRecentFiles]
        nRecent = val(word$(a$,1))
        'print "nRecentFiles", nRecent
        for i = 1 to nRecent
            if eof(#1) then
                getLastLRU$ = "* Failed: File ended while in recent files section *"
                close #1
                exit function
            end if
            line input #1, a$
            'print i, a$
        next
    close #1
    getLastLRU$ = a$
end function

Output: 

Path to LB exe
C:\progs\Liberty BASIC v4.04\liberty.exe
current program file (:last one on LRU list)
C:\progs\Liberty BASIC v4.04\untitled.bas

Lingo 

put _player.applicationName
-- "lsw.exe"
put _movie.name
-- "lsw_win_d11.dir"

LLVM

Like C, LLVM can use argv to access the executable's filename. 

$ make
llvm-as scriptname.ll
llc -disable-cfi scriptname.bc
gcc -o scriptname scriptname.s
./scriptname
Program: ./scriptname

Makefile 


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

@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
}

Lua

Lua's arg is like C's argv. 

#!/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

M2000 Interpreter 

Module Checkit {
      Declare GetModuleFileName Lib "kernel32.GetModuleFileNameW"  {Long hModule, &lpFileName$, Long nSize}
      a$=string$(chr$(0), 260)
      namelen=GetModuleFileName(0, &a$, 260)
      a$=left$(a$, namelen)
      \\ normally m2000.exe is the caller of m2000.dll, the activeX script language
      Print Mid$(a$, Rinstr(a$, "\")+1)="m2000.exe" 
}
Checkit
\\ command$ return the file's path plus name of script
\\ we can use edit "callme.gsb" to paste these, and use USE callme to call it from M2000 console.
Module SayIt {
      Show
      Print command$
      a$=key$
}
SayIt

Make 

NAME=$(CURDIR)/$(word $(words $(MAKEFILE_LIST)),$(MAKEFILE_LIST))

all:
	@echo $(NAME)

Mathematica /Wolfram Language 

#!/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]

Mercury 

:- 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.

MiniScript 

print "My name is " + shellArgs[0]
Output:
My name is Program_name.ms

Mozart/Oz

Makefile: 

all: test

test: scriptname
	./scriptname

scriptname: scriptname.oz
	ozc -x scriptname.oz

clean:
	-rm scriptname
	-rm *.exe

scriptname.oz: 

functor
import
  System
  Application
  Property
define
  local ScriptName = {Property.get 'application.url'} in
    {System.printInfo "Script name: "#ScriptName#"\n"}
    {Application.exit 0}
  end
end

Nanoquery 

println args[1]
Output:
programname.nq

Nemerle 

using System.Environment;
...
def program_name = GetCommandLineArgs()[0];
...

NetRexx 

/* NetRexx */
options replace format comments java crossref symbols nobinary

package org.rosettacode.samples

say 'Source: ' source
say 'Program:' System.getProperty('sun.java.command')
return

Output

Called directly: 

$ java org.rosettacode.samples.RProgramName
Source:  Java method RProgramName.nrx
Program: org.rosettacode.samples.RProgramName

When bundled inside a JAR file and referenced as the application entry point via the manifest's Main-Class header: 

$ java -jar pn.jar 
Source:  Java method RProgramName.nrx
Program: pn.jar

newLISP

newLISP has a function, (main-args int) for this. 

#!/usr/bin/env newlisp

(let ((program (main-args 1)))
  (println (format "Program: %s" program))
  (exit))

Nim 

import os
echo getAppFilename() # Prints the full path of the executed file
echo paramStr(0) # Prints argv[0]

Oberon-2

Works with oo2c Version 2 

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

Output: 

Program name: ./ProgramName

Objective-C

scriptname.m: 

#import <Foundation/Foundation.h>

int main(int argc, char **argv) {
	@autoreleasepool {

		char *program = argv[0];
		printf("Program: %s\n", program);

		// Alternatively:
		NSString *program2 = [[NSProcessInfo processInfo] processName];
		NSLog(@"Program: %@\n", program2);

	}

	return 0;
}

$ gcc -o scriptname -framework foundation scriptname.m
$ ./scriptname 
Program: ./scriptname

OCaml 

let () =
  print_endline Sys.executable_name;
  print_endline Sys.argv.(0)

$ ocamlc -o prog_name.bye prog_name.ml
$ ocamlopt -o prog_name.opt prog_name.ml

$ ocaml prog_name.ml
/usr/bin/ocaml
prog_name.ml

$ ./prog_name.bye
./prog_name.bye
./prog_name.bye

$ ./prog_name.opt
/tmp/prog_name.opt
./prog_name.opt

Octave 

function main()
	program = program_name();
	printf("Program: %s", program);
endfunction

main();

Ol

First argument of *vm-args* is an executing program name. 

(print (car *vm-args*))

Order

This is relatively trivial in Order, as the program being executed is a macro expression in the current C program file being read by the compiler: 

__FILE__

When including another file containing another ORDER_PP expression, within that file the __FILE__ macro will expand to the name of that file; but arguably that expression constitutes a separate Order program within the greater C project.

PARI/GP

GP does not have access to the name of the program running (especially since it is usually run from the REPL gp). PARI has the same access to argv[0] as C.

Pascal 

program ScriptName;
var
	prog : String;
begin
	prog := ParamStr(0);
	write('Program: ');
	writeln(prog)
end.

PascalABC.NET 

begin
  Print(GetEXEFileName);
end.

Perl 

#!/usr/bin/env perl

use strict;
use warnings;

sub main {
	my $program = $0;
	print "Program: $program\n";
}

unless(caller) { main; }

$0 includes the full path if a script is run as say perl /some/dir/foo.pl. The FindBin module can give just the basename. This can be good for printing in diagnostics etc. 

use FindBin;
print "Program name $FindBin::Script\n";

Phix 

with javascript_semantics
string cl2 = command_line()[2]
printf(1,"%s\n",cl2)                -- full path
printf(1,"%s\n",get_file_name(cl2)) -- eg test.exw or test.exe or test.htm
printf(1,"%s\n",get_file_base(cl2)) -- eg test

Phixmonti 

argument 1 get ?

PHP

PHP has a global dictionary for this. 

<?php
$program = $_SERVER["SCRIPT_NAME"];
echo "Program: $program\n";
?>

PicoLisp

The function 'cmd' returns the command name. 

: (cmd)
-> "/usr/bin/picolisp"

Pluto

This is the equivalent of the Agena sample. In Pluto (as in Lua), the command line arguments are in the string array arg. The name of the Pluto source file is in args[ 0 ]. Elements in arg with negative subscripts contain arguments supplied to the interpreter and the name of the interpreter itself is in the element with the most negative subscript. 

print( $"This is { arg[ 0 ] }" )
Output:
This is programName.pluto

PowerBASIC

Previous versions of PowerBASIC (PB/Win 8 or older; PB/CC 4 or older) have to make an API call: 

#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
Works with: PowerBASIC for Windows version 9
Works with: PowerBASIC Console Compiler version 5

Recent versions of PowerBASIC provide the EXE object; EXE.NAME$ returns the program's name, while EXE.NAMEX$ returns the program's name and extension. (EXE.EXTN$ returns the extension only.) So, to get the program's name, we do this: 

appname = EXE.NAMEX$

PowerShell 

# write this in file <program.ps1>
$MyInvocation.MyCommand.Name 
# launch with <.\program>

Output: 

program.ps1

Prolog 

% SWI-Prolog version 8.0.0 for i686-linux.
% This will find itself, and return the knowledge base it is in.
file_name(F) :- true
   , M = user            % M is the module    .
   , P = file_name(_)    % P is the predicate .
   , source_file(M:P, F) % F is the file      .
   , \+ predicate_property(M:P, imported_from(_))
   .

Alternatively, you may prefer a list of all your knowledge bases; adding the following code to each of your knowledge bases will allow you to query findall(F, source_file(this_is_one_of_my_files, F), L).. 

:- multifile(this_is_one_of_my_files). this_is_one_of_my_files.

PureBasic

PureBasic provides a way to retrieve the filename of the program being executed. It includes the file's path. 

If OpenConsole()
  PrintN(ProgramFilename())
  
  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
  CloseConsole()
EndIf

Sample output when executing the above program compiled to an executible file called 'program name.exe': 

H:\Data\Rosetta Code\program name.exe

Python

Python has at least two ways to get the script name: the traditional ARGV and the inspect module. 

#!/usr/bin/env python

import sys

def main():
    program = sys.argv[0]
    print("Program: %s" % program)

if __name__ == "__main__":
    main()



#!/usr/bin/env python

import inspect

def main():
    program = inspect.getfile(inspect.currentframe())
    print("Program: %s" % program)

if __name__ == "__main__":
    main()

R

R's syntax is complicated, but doable. 

#!/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")

Racket 

#!/usr/bin/env racket
#lang racket

(define (program) (find-system-path 'run-file))

(module+ main (printf "Program: ~a\n" (program)))

Raku

(formerly Perl 6)

Works with: rakudo version 2015-10-16

In Raku, the name of the program being executed is in the special global variable $*PROGRAM-NAME. 

say $*PROGRAM-NAME;

Raven 

ARGS list " " join "%s\n" print
Output:
raven arg_file.rv

Rebol 

Rebol [
    title: "Rosetta code: Program name"
    file:  %Program_name.r3
    url:   https://rosettacode.org/wiki/Program_name
]

if path: system/options/script [
    print ["Script path:" as-green path]
    print ""
    foreach [k v] first load/header path [
        if :v [ printf [10 ": "][k v] ]
    ]
]
Output:
Script path: /C/Dev/Builder/tree/rebol/Rebol-RosettaCode/tasks/Program_name.r3

version   : 0.0.0
title     : Rosetta code: Program name
file      : Program_name.r3
url       : https://rosettacode.org/wiki/Program_name

REXX

REXX supports some environment information:

  • Interpreter name and version info
  • Platform used
  • How is the program invoked
  • Source code full name
  • Interface environment

This program shows the various output. Before running it, download also below routine External: and save it in the same folder as Program name. Use External.rex as name. 

-- 24 Aug 2025
say 'PROGRAM NAME'
say
call Internal 'as routine'
dummy=Internal('as function')
call External 'as routine'
dummy=External('as function')
'regina External' 'as command'
'rexx External' 'as command'
exit

Internal:
parse arg xx
say 'Internal' xx 'returns...'
parse version rexx
parse source system command program
say 'Interpreter ' rexx
say 'Platform    ' system
say 'Invoked as  ' command
say 'Program name' program
say 'Interface   ' address()
say
return 0

External:
parse arg xx
say 'External' xx 'returns...'
parse version rexx
parse source system command program
say 'Interpreter ' rexx
say 'Platform    ' system
say 'Invoked as  ' command
say 'Program name' program
say 'Interface   ' address()
say
return 0
Output Regina:
PROGRAM NAME

Internal as routine returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\progname.rex
Interface    SYSTEM

Internal as function returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\progname.rex
Interface    SYSTEM

External as routine returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   SUBROUTINE
Program name C:\Rex\Rosetta\P\EXTERNAL.rex
Interface    SYSTEM

External as function returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   FUNCTION
Program name C:\Rex\Rosetta\P\EXTERNAL.rex
Interface    SYSTEM

External as command returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\External.rex
Interface    SYSTEM

External as command returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\External.rex
Interface    CMD
Output ooRexx:
PROGRAM NAME

Internal as routine returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\ProgName.rex
Interface    CMD

Internal as function returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\ProgName.rex
Interface    CMD

External as routine returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   SUBROUTINE
Program name C:\Rex\Rosetta\P\External.rex
Interface    CMD

External as function returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   FUNCTION
Program name C:\Rex\Rosetta\P\External.rex
Interface    CMD

External as command returns...
Interpreter  REXX-Regina_3.9.7(MT) 5.00 18 Mar 2025
Platform     WIN64
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\External.rex
Interface    SYSTEM

External as command returns...
Interpreter  REXX-ooRexx_5.1.0(MT)_64-bit 6.05 2 May 2025
Platform     WindowsNT
Invoked as   COMMAND
Program name C:\Rex\Rosetta\P\External.rex
Interface    CMD

Ring 

see "Active Source File Name : " + filename() + nl

output 

Active Source File Name : tests\filename.ring

Check the main file in the program 

if sysargv[2] = filename()
        see "I'm the main program file!" + nl
        # we can run tests here!
else
        see "I'm a sub file in a program" + nl
ok

Ruby 

#!/usr/bin/env ruby

puts "Path: #{$PROGRAM_NAME}"  # or puts "Path: #{$0}"
puts "Name: #{File.basename $0}"

For example, 

$ ruby script.rb                                                               
Path: script.rb
Name: script.rb
$ ruby ../rc/script.rb
Path: ../rc/script.rb
Name: script.rb
$ ruby -e 'load "script.rb"'
Path: -e
Name: -e

Rust

scriptname.rs: 

fn main() {
    println!("Program: {}", std::env::args().next().unwrap());
}

Example: 

$ rustc scriptname.rs
$ ./scriptname
Program: ./scriptname

SAC

scriptname.sac: 

use StdIO: all;
use Array: all;
use String: { string };
use CommandLine: all;

int main() {
	program = argv(0);
	printf("Program: %s\n", program);
	return(0);
}

Makefile: 

all: scriptname

scriptname: scriptname.sac
	sac2c -o scriptname scriptname.sac

clean:
	-rm scriptname
	-rm scriptname.c

Example: 

$ make
sac2c -o scriptname scriptname.sac
$ ./scriptname 
Program: ./scriptname

Scala 

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")}")
}

Scheme

Works with: Chicken Scheme

Getting the program name is tricky. When interpreted, the script name will be printed. When compiled, the executable name will be printed. 

#!/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))))

Seed7

The function path(PROGRAM) returns the path of the file executed. When the program is interpreted this is the path of the source file. When the program is compiled this is the path of the executable. The functions dir(PROGRAM) and file(PROGRAM) deliver the directory respectivly file name of the program path. 

$ 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;

Output when the program is interpreted: 

Program path:      /home/anyuser/seed7_5/prg/programname.sd7
Program directory: /home/anyuser/seed7_5/prg
Program file:      programname.sd7

Output when the program is compiled: 

Program path:      /home/anyuser/seed7_5/prg/programname
Program directory: /home/anyuser/seed7_5/prg
Program file:      programname

Sidef 

say __MAIN__;
if (__MAIN__ != __FILE__) {
    say "This file has been included!";
}

Smalltalk

Works with: GNU Smalltalk

Note that this only works when run as "./scriptname.st", because the shebang must force the script name onto ARGV. 

"exec" "gst" "-f" "$0" "$0" "$@"
"exit"

| program |

program := Smalltalk getArgv: 1.

Transcript show: 'Program: ', program; cr.
Works with: Smalltalk/X

Works when run in script mode or in a workspace. 

| program |

program := Smalltalk commandLine first.
Transcript show: 'Program: ', program; cr.

Standard ML 

#!/usr/bin/env sml

let
	val program = CommandLine.name ()
in
	print ("Program: " ^ program ^ "\n")
end;

Tcl 

#!/usr/bin/env tclsh

proc main {args} {
    set program $::argv0
    puts "Program: $program"
}
 
if {$::argv0 eq [info script]} {
    main {*}$::argv
}

Transd 

#lang transd

MainModule: {
	_start: (λ 
        (textout (get @progArgs 0))
    )
}

TXR

Given this code in program-name.txr, marked executable: 

#!/usr/local/bin/txr -B
@(bind my-name @self-path)

If we run it as an executable: 

$ ./program-name.txr
my-name="./program-name.txr"

If we pass it as an argument to txr: 

$ txr program-name.txr
my-name="program-name.txr"

If we evaluate the same thing on the command line: 

$ txr -c '@(bind my-name @self-path)'
my-name="cmdline"

If we pass in the code on standard input: 

$ txr -
@(bind my-name @self-path)
my-name="stdin"

UNIX Shell

Works with: Bourne Shell
#!/bin/sh

echo "Program: $0"

Vala

Get name of program and print to console: 

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

Output for program named "filename": 

./filename

VBA

VBA can retrieve the name of the program hosting the VBA code using the Application object: 

Debug.Print Application.Name

This is mostly useful for code that is shared between, say, Microsoft Excel and Microsoft Word, but has different requirements or actions depending on where it's running.

Wscript.Echo "FullName:",Wscript.FullName

vbscript

vbscript provides the Wscript object. Among its properties are the following: 

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
FullName: C:\WINDOWS\System32\CScript.exe
Name: Windows Script Host
Path: C:\WINDOWS\System32
ScriptFullName: D:\Utils\test.vbs
ScriptName: test.vbs

Visual Basic

Visual Basic provides the App object, which has a property called EXEName that contains the program's filename without the extension. (For most uses, this doesn't matter, but for code shared between, for example, a program and a screensaver, it can be important.) So, if a program is called "MyVBapp.exe", retreiving the value of App.EXEName would look like this: 

appname = App.EXEName 'appname = "MyVBapp"

Alternately, Visual Basic can make an API call: 

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

V (Vlang) 

import os

println("program: ${os.args[0]}")

Wren

Assuming we're running a script file named "Program_name.wren": 

import "os" for Process

System.print("My name is %(Process.allArguments[1])")
Output:
My name is Program_name.wren

x86 Assembly

Works with: Nasm

Linux

Makefile: 

FORMAT=-f elf
RUN=./
BIN=scriptname
OBJ=scriptname.o

all: test

test: $(BIN)
	$(RUN)$(BIN)

$(BIN): $(OBJ)
	ld -o $(BIN) $(OBJ)

$(OBJ): scriptname.asm
	nasm $(FORMAT) -o $(OBJ) scriptname.asm

clean:
	-rm $(BIN)
	-rm $(OBJ)

scriptname.asm: 

bits 32

section .data

stdout equ 1

sys_write equ 4
sys_exit equ 1

kernel equ 0x80

program db "Program: ", 0
programlen equ $-program

nl db "", 10, 0
nllen equ $-nl

section .bss

scriptname resd 1
scriptnamelen resd 1

section .text

global _start

strlen:							; eax: a string ending in 0
	push eax						; cache eax

	.strloop:
		mov bl, byte [eax]
		cmp bl, 0
		je .strret						; return len if bl == 0
		inc eax							; else eax++
		jmp .strloop

	.strret:
		pop ebx							; ebx = cached eax
		sub eax, ebx					; eax -= ebx
		ret								; eax = len

_start:
	mov eax, esp
	add eax, 4
	mov eax, [eax]
	mov dword [scriptname], eax

	mov eax, sys_write
	mov ebx, stdout
	mov ecx, program
	mov edx, programlen
	int kernel

	mov dword eax, [scriptname]
	call strlen
	mov dword [scriptnamelen], eax

	mov eax, sys_write
	mov ebx, stdout
	mov dword ecx, [scriptname]
	mov dword edx, [scriptnamelen]
	int kernel

	mov eax, sys_write
	mov ebx, stdout
	mov ecx, nl
	mov edx, nllen
	int kernel

	mov eax, sys_exit
	mov ebx, 0
	int kernel

FreeBSD/Mac OS X

Makefile: 

# FreeBSD defaults

FORMAT=-f elf
RUN=./
BIN=scriptname
OBJ=scriptname.o

# Mac OS X
ifeq ($(shell uname -s),Darwin)
	FORMAT=-f macho
	MINV=-macosx_version_min 10.6
endif

all: test

test: $(BIN)
	$(RUN)$(BIN)

$(BIN): $(OBJ)
	ld -o $(BIN) $(MINV) $(OBJ)

$(OBJ): scriptname.asm
	nasm $(FORMAT) -o $(OBJ) scriptname.asm

clean:
	-rm $(BIN)
	-rm $(OBJ)

scriptname.asm: 

bits 32

section .data

stdout equ 1

sys_write equ 4
sys_exit equ 1

kernel equ 0x80

program db "Program: ", 0
programlen equ $-program

nl db "", 10, 0
nllen equ $-nl

section .bss

scriptname resd 1
scriptnamelen resd 1

section .text

global start

strlen:							; eax: a string ending in 0
	push eax						; cache eax

	.strloop:
		mov bl, byte [eax]
		cmp bl, 0
		je .strret						; return len if bl == 0
		inc eax							; else eax++
		jmp .strloop

	.strret:
		pop ebx							; ebx = cached eax
		sub eax, ebx					; eax -= ebx
		ret								; eax = len

start:
	mov eax, esp
	add eax, 4
	mov eax, [eax]
	mov dword [scriptname], eax

	push programlen
	push program
	push stdout
	mov eax, sys_write
	sub esp, 4
	int kernel
	add esp, 4 + 4 * 3

	mov dword eax, [scriptname]
	call strlen
	mov dword [scriptnamelen], eax

	push dword [scriptnamelen]
	push dword [scriptname]
	push stdout
	mov eax, sys_write
	sub esp, 4
	int kernel
	add esp, 4 + 4 * 3

	push nllen
	push nl
	push stdout
	mov eax, sys_write
	sub esp, 4
	int kernel
	add esp, 4 + 4 * 3

	push 0
	mov eax, sys_exit
	sub esp, 4
	int kernel

Windows

Makefile: 

FORMAT=-f win32
BIN=scriptname.exe
OBJ=scriptname.obj
RUN=

all: test

test: $(BIN)
	$(RUN)$(BIN)

$(BIN): $(OBJ)
	golink /fo $(BIN) $(OBJ) /console kernel32.dll Msvcrt.dll

$(OBJ): scriptname.asm
	nasm $(FORMAT) -o $(OBJ) scriptname.asm

clean:
	-rm $(BIN)
	-rm $(OBJ)

scriptname.asm: 

bits 32

section .data

program db "Program: ", 0
programlen equ $-program

nl db "", 13, 10, 0
nllen equ $-nl

stdouthandle equ -11

section .bss

stdout resd 1

charswritten resd 1

env resd 1
argc resd 1
argv resd 255

scriptname resd 1
scriptnamelen resd 1

section .text

global Start
extern GetStdHandle
extern __getmainargs
extern WriteConsoleA
extern ExitProcess

strlen:				; eax: a string ending in 0
	push eax			; cache eax

	.strloop:
		mov bl, byte [eax]
		cmp bl, 0
		je .strret			; return len if bl == 0
		inc eax				; else eax++
		jmp .strloop

	.strret:
		pop ebx				; ebx = cached eax
		sub eax, ebx		; eax -= ebx
		ret					; eax = len

Start:
	push 0
	push env
	push argv
	push argc
	call __getmainargs
	mov eax, [argv]
	mov eax, [eax]
	mov [scriptname], eax
	add esp, 4 * 4

	push stdouthandle
	call GetStdHandle
	mov [stdout], eax
	add esp, 4 * 1

	push 0
	push charswritten
	push programlen
	push program
	push dword [stdout]
	call WriteConsoleA
	add esp, 4 * 5

	mov eax, [scriptname]
	call strlen
	mov [scriptnamelen], eax

	push 0
	push charswritten
	push dword [scriptnamelen]
	push dword [scriptname]
	push dword [stdout]
	call WriteConsoleA
	add esp, 4 * 5

	push 0
	push charswritten
	push nllen
	push nl
	push dword [stdout]
	call WriteConsoleA
	add esp, 4 * 5

	push 0
	call ExitProcess

Yabasic 

print peek$("program_name")

s$ = system$("cd")
n = len(s$)
print left$(s$, n - 2), "\\", peek$("program_name")

YAMLScript 

!ys-0

defn main():
  say: "Program file: $FILE"
  say: "Basename:     $(fs/basename(FILE))"
Output:
$ ys program-name.ys
Program file: /home/ingy/src/teaching-ys/good/program-name.ys
Basename:     program-name.ys

Zen C 

fn main(argc: int, argv: char**) {
    println "My name is: {argv[0]}";
}
Output:
My name is: ./Program_name

Zig 

const std = @import("std");

pub fn main() void {
    var args = std.process.args();

    const program_name = args.next().?;
    
    std.debug.print("{s}\n", .{program_name});
}

zkl

C's argv is exposed to the zkl runtime so if file bbb.zkl contains: 

#!/Homer/craigd/Bin/zkl
println(System.argv);

Then (on Unix like OSes) 

./bbb.zkl
zkl bbb.zkl

both print 

L("/home/craigd/Projects/ZKL/Bin/zkl","bbb.zkl")

On Unix, zkl is actually a shell script: 

#!/bin/sh
# A bash script to run zkl if you haven't jumped 
#   through all the Unix hoops to put the bits in the "right" places
# You can change zklRoot to your build directory, 
#   change the script name to "zkl" and put it in your bin path.
# You may need to chmod a+x <this script>
if [ -z $zklRoot ]; then
   zklRoot=$HOME/ZKL
   if [ ! -d $zklRoot ]; then
      zklRoot=$HOME/Projects/ZKL
   fi
fi
export zklRoot
#set -o noglob
LD_LIBRARY_PATH=$zklRoot/Lib $zklRoot/Bin/zkl "$@"

On Windows, no launch script (windows knows where the DLLs are) but argv[0] can be messed up.

Retrieved from "https://rosettacode.org/wiki/Program_name?oldid=404765"