Reflection/Get source: Difference between revisions
Content added Content deleted
(added Tcl) |
(→{{header|REXX}}: added the REXX language.) |
||
Line 150: | Line 150: | ||
# "/usr/local/lib/python3.5/os.pyc" |
# "/usr/local/lib/python3.5/os.pyc" |
||
</lang> |
</lang> |
||
=={{header|REXX}}== |
|||
This REXX version was modeled after the '''zkl''' example, but in addition, it also displays the source. |
|||
<lang rexx>/*REXX program gets the source function (source code) and */ |
|||
/*───────────────────────── displays the number of lines. */ |
|||
#=sourceline() |
|||
do j=1 for sourceline() |
|||
say 'line' right(j, length(#) ) '──►' , |
|||
strip( sourceline(j), 'T') |
|||
end /*j*/ |
|||
say |
|||
parse source x y sID |
|||
say 'The name of the source file (program) is: ' sID |
|||
say 'The number of lines in the source program: ' # |
|||
/*stick a fork in it, we're all done.*/</lang> |
|||
{{out|output|:}} |
|||
<pre> |
|||
line 1 ──► /*REXX program gets the source function (source code) and */ |
|||
line 2 ──► /*───────────────────────── displays the number of lines. */ |
|||
line 3 ──► #=sourceline() |
|||
line 4 ──► do j=1 for sourceline() |
|||
line 5 ──► say 'line' right(j, length(#) ) '──►' , |
|||
line 6 ──► strip( sourceline(j), 'T') |
|||
line 7 ──► end /*j*/ |
|||
line 8 ──► say |
|||
line 9 ──► parse source x y sID |
|||
line 10 ──► say 'The name of the source file (program) is: ' sID |
|||
line 11 ──► say 'The number of lines in the source program: ' # |
|||
line 12 ──► /*stick a fork in it, we're all done.*/ |
|||
The name of the source file (program) is: c:\reflecti.rex |
|||
The number of lines in the source program: 12 |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |