/usr/share/gnudatalanguage/lib/rstrpos.pro is in libgnudatalanguage0 0.9.7-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 | ; by Sylwester Arabas <slayoo (at) igf.fuw.edu.pl>
function rstrpos, haystack, needle, pos
on_error, 2
if ~keyword_set(haystack) || ~keyword_set(needle) then $
message, 'First and second arguments must not be undefined'
if n_elements(needle) ne 1 then $
message, 'Second argument must be a scalar or one element array'
if keyword_set(pos) then begin
return, strpos(haystack, needle, pos, /reverse_search)
endif else begin
return, strpos(haystack, needle, /reverse_search)
endelse
compile_opt obsolete
end
|