This file is indexed.

/usr/lib/pd/extra/pddp/pddplink.tcl is in pd-pddp 0.1-2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
proc pddplink_open {filename dir} {
    if {[string first "://" $filename] > -1} {
        menu_openhtml $filename
    } elseif {[file pathtype $filename] eq "absolute"} {
        menu_openhtml $filename
    } elseif {[file exists [file join $dir $filename]]} {
        set fullpath [file normalize [file join $dir $filename]]
        set dir [file dirname $fullpath]
        set filename [file tail $fullpath]
        menu_doc_open $dir $filename
    } else {
        bell ;# beep on error to provide instant feedback
        pdtk_post "\[pddplink\] ERROR file not found: $filename\n"
    }
}