Rebol3 Code Examplex

Program name

Programmatically obtain the name used to invoke the program.

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/www/rebol.tech/gen-examples.r3

version   : 0.0.0
title     : Make Rebol function dictionary
author    : Oldes