/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"
}
}
|