/usr/share/octave/site/m/pfstools/pfsview_list.m is in octave-pfstools 1.8.5-2+b1.
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 16 17 18 19 20 21 22 23 24 25 26 27 | function pfsview_list( M, idx )
## Shows list of high-dynamic range matrices using pfsview
##
## Usage: pfsview_list( list, idx )
## list - list of channels
## idx - vector of list indexes to show (optional)
if !exist("idx")
idx = 1:length(M);
endif
execStr = "pfswrite( hdr_name";
for i=idx
chStr = sprintf( ", \"ch%d\",real(nth(M,%d))", i, i );
execStr = [ execStr chStr ];
endfor
execStr = strcat( execStr, " );" );
hdr_name = tmpnam();
eval( execStr );
xv = sprintf ("pfsview <%s", hdr_name);
rm = sprintf ("rm -f %s", hdr_name);
system (sprintf ("( %s && %s ) > /dev/null 2>&1 &", xv, rm));
endfunction
|