Modulinos: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
m (→‎{{header|Phix}}: replaced outdated comment)
Line 1,276: Line 1,276:


=={{header|Phix}}==
=={{header|Phix}}==
There is a builtin for this, which can even be asked to skip an arbitrary number of stack frames and that way find out exactly where it was effectively called from.
Here is a simple little dirty hack to do this. You can put the function in any file, but you have to call it from the right place.
<lang Phix>printf(1,"This is %s\n",{{"An Include","Main"}[(include_file()=1)+1]})</lang>
<lang Phix>printf(1,"This is %s\n",{{"An Include","Main"}[(include_file()=1)+1]})</lang>