Reflection/Get source

From Rosetta Code
Task
Reflection/Get source
You are encouraged to solve this task according to the task description, using any language you may know.
Task

The goal is to get the source code or file path and line number where a programming object (e.g. module, class, function, method) is defined.

6502 Assembly

A printing routine that can convert hex digits to ASCII characters can point to the address of a subroutine and start printing from there. Such a printing routine would work best if it substituted the null terminator for $60 (the RTS instruction.) This would only print the bytecode for the routine. Conversion to assembly language would need to be done separately.

LDA #<foo
sta $00
LDA #>foo
sta $01
jsr PrintBytecode

foo:
;do stuff
rts

PrintBytecode:
ldy #0

lda $01     ;high byte of starting address of the source
jsr PrintHex
;unimplemented routine that separates the "nibbles" of the accumulator,
; adds $30 or $37 to each depending on if it's 0-9 or A-F respectively, which converts hex to ASCII,
; then prints the high nibble then the low.

lda $00      ;low byte of the starting address of the source
jsr PrintHex
jsr NewLine  ;unimplemented new line routine

loop:
lda ($00),y
cmp #$60
beq Terminated
jsr PrintHex 

jmp loop
Terminated:
jsr PrintHex ;print the last instruction of the routine.
rts

There is no way to get the file name that the routine is stored in. Whether you use a linker or include statements, this information is lost by the time the code is assembled into an executable form.

Clojure

; Use source function for source code.
(source println)

; Use meta function for filenames and line numbers (and other metadata)
(meta #'println)

Factor

Printing definitions:

USE: see
\ integer see ! class
nl
\ dip see     ! word
Output:
IN: math
UNION: integer fixnum bignum ;

IN: kernel
: dip ( x quot -- x ) swap [ call ] dip ;

Obtaining the code that makes up a word as a quotation (an anonymous function/collection that stores code):

USE: accessors
\ partition def>> .
Output:
[ over [ 2selector [ each ] 2dip ] dip [ like ] curry bi@ ]

Obtaining the vocabulary name a word belongs to:

USE: accessors
\ dip vocabulary>> print
Output:
kernel

Obtaining file paths for a particular vocabulary:

USE: vocabs.files
"sequences" vocab-files .
Output:
{
    "resource:core/sequences/sequences.factor"
    "resource:core/sequences/sequences-docs.factor"
    "resource:core/sequences/sequences-tests.factor"
}

Obtaining the path and line number where a word is defined:

"loc" \ dip props>> at
Output:
{ "resource:core/kernel/kernel.factor" 111 }

FreeBASIC

FreeBASIC is a fully compiled language which does not support reflection as such.

Nevertheless, the language does have a number of built-in macros which can be used to map certain entities back to the source code file. This is mainly useful for debugging purposes. Here's a simple example :

' FB 1.05.0 Win64 (getsource.bas)

Sub Proc()
  Print __Function__  & " is defined in " & __Path__ & "\" & __File__ & " at line " & ( __line__ - 1) 
End Sub 

Proc()
Sleep
Output:
PROC is defined in c:\FreeBasic\getsource.bas at line 3

Go

It is possible to get the file name/path and line number of a given function in Go as follows.

package main

import (
    "fmt"
    "path"
    "reflect"
    "runtime"
)

func someFunc() {
    fmt.Println("someFunc called")
}

func main() {
    pc := reflect.ValueOf(someFunc).Pointer()
    f := runtime.FuncForPC(pc)
    name := f.Name()
    file, line := f.FileLine(pc)
    fmt.Println("Name of function :", name)
    fmt.Println("Name of file     :", path.Base(file))
    fmt.Println("Line number      :", line)
}
Output:
Name of function : main.someFunc
Name of file     : reflection_get_source.go
Line number      : 10

J

Source code which when executed will recreate the definition can be obtained using 5!:5 <'name' where name is the name of the thing you want source code for. Or, you can use 5!:6 which will provide a "fully parenthesized" variant for the tacit part of any definition.

You can also use 4!:4 and 4!:3 to find the file containing the name's definition (if there is one). Line number is not tracked.

Examples:

   mean=:+/ %#
   5!:5 <'mean'
+/ % #
   5!:6 <'mean'
(+/) % #
   4!:4 <'mean'
_1
   4!:4 <'names'
2
   2 { 4!:3 ''
┌────────────────────────────────────────────┐
/Applications/j64-804/system/main/stdlib.ijs
└────────────────────────────────────────────┘

We could also provide convenience functions for these mechanisms:

   linrep=: 5!:5@<
   srcfile=: (4!:4@<) { a:,~ 4!:3 bind ''

Example use:

   linrep 'names'
list_z_@nl
   srcfile 'names'
┌────────────────────────────────────────────┐
/Applications/j64-804/system/main/stdlib.ijs
└────────────────────────────────────────────┘
   srcfile 'mean'
┌┐
││
└┘

Note that these mechanisms can be disabled (using 3!:6).

Java

A java exception will contain a list of StackTraceElement's. Each element is one method call in the call stack. The element contains information on the location of the code. Samples are shown below.

Note that the file name is not the absolute path on the file system, but is relative to the java CLASSPATH.

public class ReflectionGetSource {

    public static void main(String[] args) {
        new ReflectionGetSource().method1();

    }
    
    public ReflectionGetSource() {}
    
    public void method1() {
        method2();
    }
    
    public void method2() {
        method3();
    }
    
    public void method3() {
        Throwable t = new Throwable();
        for ( StackTraceElement ste : t.getStackTrace() ) {
            System.out.printf("File Name   = %s%n", ste.getFileName());
            System.out.printf("Class Name  = %s%n", ste.getClassName());
            System.out.printf("Method Name = %s%n", ste.getMethodName());
            System.out.printf("Line number = %s%n%n", ste.getLineNumber());
        }
    }

}
Output:
File Name   = ReflectionGetSource.java
Class Name  = ReflectionGetSource
Method Name = method3
Line number = 20

File Name   = ReflectionGetSource.java
Class Name  = ReflectionGetSource
Method Name = method2
Line number = 16

File Name   = ReflectionGetSource.java
Class Name  = ReflectionGetSource
Method Name = method1
Line number = 12

File Name   = ReflectionGetSource.java
Class Name  = ReflectionGetSource
Method Name = main
Line number = 5

JavaScript

Function.toString() will return the source code for user-defined functions.

function foo() {...}
foo.toString();
// "function foo() {...}"

For native functions, the function body typically will be a syntactically invalid string indicating the function is native. This behavior isn't part of any ECMAScript standard, but is common practice.

Math.sqrt.toString();
// "function sqrt() { [native code] }"

Julia

Works with: Julia version 0.6
# Definition
function foo() end

@which foo() # where foo is defined
@less foo() # first file where foo is defined

Kotlin

It's possible to do this (in a fashion) in Kotlin JS by using inline JavaScript and applying toString() to the function name to get its source code in a similar way to the JavaScript entry above. However, there are a couple of things to note:

1. Kotlin JS transpiles to JavaScript and it will therefore be the JS code for the function which will be printed. To my knowledge, there is no way to recover the original Kotlin code.

2. In the example below the hello function will actually be referred to as _.hello in the generated JavaScript from within the main() function.

// Kotlin JS Version 1.2.31

fun hello() {
    println("Hello")
}

fun main(args: Array<String>) {
    val code = js("_.hello.toString()")
    println(code)
}
Output:
function hello() {  
    println('Hello');
}

Lingo

Lingo does not allow to identify specific line numbers (automatically), but you can get the full source code of the script which defines either a class or a global function. Class scripts (called "parent scripts") only define a single class, so no additional parsing needed. Global functions are defined in movie scripts, there can be any number of such movie scripts, but in each movie script all function names must be unique. So it's not too hard to manually find the line number for a specific function in the returned code (e.g. using a RegExp).

----------------------------------------
-- Returns source code either for a class (parent script) or a class instance (object)
-- @param {script|instance} class
-- @return {string}
----------------------------------------
on getClassCode (class)
  if ilk(class)=#instance then class=class.script
  return class.text
end

----------------------------------------
-- Returns the source code of the movie script that defines the specified global function
-- @param {symbol} func - function specified as symbol
-- @return {string|VOID}
----------------------------------------
on getGlobalFunctionCode (func)
  -- iterate over all members in all castlibs
  repeat with i = 1 to _movie.castlib.count
    repeat with j = 1 to _movie.castlib[i].member.count
      m = _movie.castlib[i].member[j]
      if m.type<>#script then next repeat
      if m.scriptType=#movie and m.script.handler(func) then return m.script.text
    end repeat
  end repeat
end

Usage:

obj = script("MyClass").new()
put getClassCode(obj)
-- script text is printed...

func = #startMovie
put getGlobalFunctionCode(func)
-- script text is printed...

Lua

Introspective capabilities are provided by the debug library..

debug = require("debug")
function foo(bar)
  info = debug.getinfo(1)
  for k,v in pairs(info) do print(k,v) end
end
foo()
Output:
linedefined     2
func    function: 0000000000d8d670
currentline     3
source  @reflection.lua
lastlinedefined 5
short_src       reflection.lua
what    Lua
namewhat        global
nparams 0
isvararg        false
name    foo
istailcall      false
nups    1

Nanoquery

If a program is run from the command line, the absolute path of the source file will be stored in __file__ as a string.

import Nanoquery.IO
println new(File, __file__).readAll()

Nim

import macros, strformat
  
proc f(arg: int): int = arg+1

macro getSource(source: static[string]) =
  let module = parseStmt(source)
  for node in module.children:
    if node.kind == nnkProcDef:
      echo(&"source of procedure {node.name} is:\n{toStrLit(node).strVal}")

proc g(arg: float): float = arg*arg

getSource(staticRead(currentSourcePath()))
Output:
source of procedure f is:
proc f(arg: int): int =
  arg + 1

source of procedure g is:
proc g(arg: float): float =
  arg * arg

Perl

# 20211213 Perl programming solution

use strict;
use warnings;

use Class::Inspector;

print Class::Inspector->resolved_filename( 'IO::Socket::INET' ), "\n";
Output:
/home/hkdtam/perl5/perlbrew/perls/perl-5.30.0/lib/5.30.0/x86_64-linux/IO/Socket/INET.pm

Phix

There are at least two separate methods for achieving this.

From Edita

When using the Edita editor as shipped with Phix, pressing F1 on a call shows a pop-up with the definition and an option to jump to that file/source. However that only works for routines, not variables/constants/etc. That (older) method is powered by a background scan which periodically saves the required information in edita.edb - and you can investigate the contents of that via Tools/Database Viewer.

Holding down the Ctrl key and hovering the mouse over an identifier changes it to a link; left clicking will jump straight to the definition, and right-clicking will show a pop-up with a basic summary, and an option to jump directly to that file/source.

The latter is achieved (see demo\edita\src\eaisense.ew) by invoking "pw.exe -isense file line col partial_key mode main_file" which plants the requested information from a partial compilation into %TMP%\isense.txt (don't worry, it's near-instant) and sends back a message once it is ready. Edita handles the messy details of all that for you automatically, but of course you are free to copy and modify those techniques however you like.

I should warn you that Edita is windows-only, however Edix is well under way and if ever finished will offer the same functionality cross-platform.

Programmatically

The autoinclude file builtins\pincpathN.e defines the include_paths() builtin, which returns something like:

    {"C:\\Program Files (x86)\\Phix\\builtins\\",
     "C:\\Program Files (x86)\\Phix\\builtins\\VM\\",
     "C:\\Program Files (x86)\\Phix\\"}

or the directories where your project is located. There is also a matching include_files() function that retrieves a set of {idx,name} where idx are indexes into the result from above, should that be of interest to you. Note that if it is a pre-compiled executable installed on an end users machine, those sources might not be available, but the internal routines still provide the same names since they are generally quite useful for diagnostic purposes.

A caught exception (see the documentation for throw) contains the line number, file, and path (with the same caveat as above when installed elsewhere).

The file pincpathN.e also shows you how to get your grubby little mitts on the symbol table, and you may also want to look at builtins/VM/prtnidN.e for some ideas on scanning that. Throwing and catching an exception is one way to ensure the symbol table is populated with proper names rather than obscure integer ternary tree indexes. See pglobals.e for detailed notes about the contents of the symbol table. Some caution is advised here; the compiler may plant some otherwise illegal raw values in the symbol table, and play fast and loose with reference counts, etc, and of course messing it up may make life (/subsequent debugging) rather troublesome.

Of course the source files are just files that you can read like any other text files, and for all its detail, the symbol table contains very little in the way of context, which may make mapping of non-unique identifiers rather difficult.

Python

Modules loaded from files have a __file__ attribute.

import os
os.__file__
# "/usr/local/lib/python3.5/os.pyc"

Raku

(formerly Perl 6)

Works with: rakudo version 2016.11


A full path is provided for built-in routines/methods. However for routines exported by pre-compiled modules a precompilation hash is returned, not a proper file path.

say &sum.file;
say Date.^find_method("day-of-week").file;
Output:
SETTING::src/core/Any.pm
SETTING::src/core/Dateish.pm

REXX

This REXX version was modeled after the   zkl   example, but in addition, it also displays the source.

/*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.*/
output:
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

Ring

# Project : Reflection/Get source

fp = fopen("C:\Ring\applications\fifteenpuzzle\CalmoSoftFifteenPuzzleGame.ring","r")
r = ""
str = ""
flag = 0
numline = 0
see "give the function: "
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
           if left(str,len(funct)) = funct
              see '"' + funct + '"' +" is in the line: " + numline + nl
           ok
           str = ""
        ok
end
fclose(fp)

Output:

give the function: rotateleft
"func rotateleft" is in the line: 328

Ruby

Method#source_location will return the file and line number of a Ruby method. If a method wasn't defined in Ruby, Method#source_location returns nil.

require 'mathn'
Math.method(:sqrt).source_location
# ["/usr/local/lib/ruby2.3/2.3.0/mathn.rb", 119]

Class.method(:nesting).source_location
# nil, since Class#nesting is native

Smalltalk

You can ask a class for a method:

mthd := someClass compiledMethodAt:#nameOfMethod

and a method for its source:

mthd source

or better yet, you can ask any active stack frame for its method, source and line number (what is the line number of the "current PC" if you like):

thisContext method source
thisContext lineNumber

so, a Logger could (actually: does) print a log-message with:

Stderr print: e'{msg} generated in {thisContext sender selector} line: {thisContext sender lineNumber}'.
Stderr print: e'generated by the following source line: {thisContext sender method source asStringCollection at:thisContext sender lineNumber}'.

Tcl

Tcl's info command makes it possible to access the source of nearly anything. This example can show the source code of any proc. The popular tkcon includes a dump command which is capable of showing aliases, arrays and more .. and a edit command which lets you edit them in an interactive window!

proc getproc {name} {
    set name [uplevel 1 [list namespace which -command $name]]
    set args [info args $name]
    set args [lmap arg $args {  ;# handle default arguments, if it has them!
        if {[info default $name $arg default]} {
            list $name $default
        } else {
            return -level 0 $arg
        }
    }]
    set body [info body $name]
    list proc $name $args $body
}

puts [getproc getproc]
Output:

Note the output differs very slightly from the original source: the procedure's name is fully namespace-qualified, and the arguments are in "canonical list form", which does not include braces in this simple case.

proc ::getproc name {
    set name [uplevel 1 [list namespace which -command $name]]
    set args [info args $name]
    set args [lmap arg $args {  ;# handle default arguments, if it has them!
        if {[info default $name $arg default]} {
            list $name $default
        } else {
            return -level 0 $arg
        }
    }]
    set body [info body $name]
    list proc $name $args $body
}

Wren

Library: Wren-pattern

Wren doesn't have reflection as such but the command line version (Wren CLI) does have an easy way to obtain a script's own source code which can then be searched for where an object is defined

import "os" for Platform, Process
import "io" for File
import "/.pattern" for Pattern

var getSourceLines = Fn.new {
    var fileName = Process.allArguments[1]
    var text = File.read(fileName)
    var sep = Platform.isWindows ? "\r\n" : "\n"
    return [fileName, text.split(sep)]
}

var res = getSourceLines.call()
var fileName = res[0]
var lines = res[1]
// look for getSourceLines function
var funcName = "getSourceLines"
var p = Pattern.new("+1/s")
var i = 1
var found = 0
for (line in lines) {
    var t = p.splitAll(line.trim())
    if (t[0] == "var" && t[1] == funcName && t[2] == "=" && t[3] == "Fn.new") {
        found = i
        break
    }
    i = i + 1
}

System.print("File name     : %(fileName)")
System.print("Function name : %(funcName)")
System.print("Line number   : %(found > 0 ? found : "Function not found")")
Output:
File name     : Reflection_get_source.wren
Function name : getSourceLines
Line number   : 5

zkl

Reads the source file and counts the lines.

src:=File(__FILE__).read();
println("Src file is \"%s\" and has %d lines".fmt(__FILE__,src.len(1)));
Output:
$ zkl foo
Src file is "foo.zkl" and has 2 lines