AmigaOS 1.3 'wmn' command

[malko]

Based on DisasterIncarna's thread I have made a small script called 'wmn' (What's My Name) that is able to retrieve it's own name...

As I noticed, and wrote here, the script name is only available during the script initialization (.key, .def, argument substitution (if any)) and therefore really rapidly disappears. Then the 'status' command display the name of the commands executed within the script...

Therefore, what follows is only a proof of concept since to retrieve its name, the script has to call itself...

Even if I wrote it as a loop, I was surprised to notice that 9 out of 10, 1 recursive call was enough to retrieve the name.

Here is the code :

wmn :
.key DUMMY1
.bra {
.ket }
.def DUMMY1 0
failat 11
echo >env:np1{$$} "Process  {$$}: No command loaded"
echo >env:np2{$$} "Process  {$$}: wait"
if NOT EXISTS env:COMPTEUR{$$}
    setenv COMPTEUR{$$} 0
else
    eval <env:COMPTEUR{$$} >NIL: VALUE2 1 OP + TO t:cpt{$$}  ?
    type >env:COMPTEUR{$$} t:cpt{$$}
endif
if "{DUMMY1}" EQ "0"
    echo >t:NShell{$$} "wait 2 SECS*Nbreak {$$} C*Nwait 2*Nstatus >env:pn{$$} PROCESS {$$}*Nwait 3*Nendcli *>NIL:"
    run >NIL: newshell NEWCON:300/0/10/10/mlk/ FROM t:NShell{$$}
    wait >NIL: 1 MIN
    wait 1
    wmn 1
endif
if NOT "$pn{$$}" EQ "$np1{$$}"
    if NOT "$pn{$$}" EQ "$np2{$$}"
        echo >t:rmet{$$} "pa /d: /;sa//;m1;d;w"
        edit >NIL: FROM env:pn{$$} TO env:scrname{$$} WITH t:rmet{$$}
        echo "Script name is : " NOLINE
        getenv scrname{$$}
        echo "*e[1A*e[3m # of call(s) : " NOLINE
        getenv COMPTEUR{$$}
        echo "*e[0m" NOLINE
        run >NIL: delete env:COMPTEUR{$$} env:pn{$$} env:np1{$$} env:np2{$$} t:NShell{$$} t:cpt{$$} t:rmet{$$} QUIET
        quit 0
    endif
endif
wmn 0

As usual, don't forget to set the 's' bit. The result is stored in a variable.

getenv scrname<shell_number>

Here is how it looks :