OpenEuphoria

Original date:2023-03-17 10:13:18 Edited by: petelomax Subject: Re: Introspection?

In Phix:

function me(integer rid) 
    return get_routine_info(rid)[4] 
end function 
 
procedure Hello(sequence place)  
    puts(1, me(Hello) & ", " & place & "!\n")  
end procedure  
  
Hello("World")  

or

function me() 
    integer rid 
    #ilASM{ 
        [32] 
            mov eax,[ebp+20]    -- prev_ebp 
            mov eax,[eax+8]     -- rtn_id 
            mov [rid],eax 
        [64] 
            mov rax,[rbp+40]    -- prev_rbp 
            mov rax,[rax+16]    -- rtn_id 
            mov [rid],rax 
          } 
    return get_routine_info(rid)[4] 
end function 
 
procedure Hello(sequence place)  
    puts(1, me() & ", " & place & "!\n")  
end procedure  
  
Hello("World")