Reflection/Get source: Difference between revisions
Content added Content deleted
(Added Kotlin) |
No edit summary |
||
Line 218: | Line 218: | ||
The name of the source file (program) is: c:\reflecti.rex |
The name of the source file (program) is: c:\reflecti.rex |
||
The number of lines in the source program: 12 |
The number of lines in the source program: 12 |
||
</pre> |
|||
=={{header|Ring}}== |
|||
<lang ring> |
|||
# Project : Reflection/Get source |
|||
# Date : 2018/05/18 |
|||
# Author : Gal Zsolt [~ CalmoSoft ~] |
|||
# Email : <calmosoft@gmail.com> |
|||
fp = fopen("C:\Ring\applications\fifteenpuzzle\CalmoSoftFifteenPuzzleGame.ring","r") |
|||
r = "" |
|||
str = "" |
|||
flag = 0 |
|||
numline = 0 |
|||
give funct |
|||
funct = "func " + funct |
|||
while isstring(r) |
|||
r = fgetc(fp) |
|||
if r = char(10) |
|||
flag = 1 |
|||
numline = numline + 1 |
|||
else |
|||
flag = 0 |
|||
str = str + r |
|||
ok |
|||
if flag = 1 |
|||
//see left(str,len(funct)) + nl |
|||
if left(str,len(funct)) = funct |
|||
see '"' + funct + '"' +" is in the line: " + numline + nl |
|||
ok |
|||
str = "" |
|||
ok |
|||
end |
|||
fclose(fp) |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
give the function: rotateleft |
|||
"func rotateleft" is in the line: 328 |
|||
</pre> |
</pre> |
||