/usr/share/gnudatalanguage/lib/handle_info.pro is in libgnudatalanguage0 0.9.7-6.
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 28 29 30 | ; GD, May 2015
; support for obsolete pro/func.
;
function HANDLE_INFO, id, parent=parent, first_child=first_child, $
num_children=num_children, sibling=sibling, $
valid_id=valid_id
;
common gdlhandles
;
res=REPLICATE(0,n_elements(id))
null=res
parid=res
if (N_PARAMS() ne 1) then return,res
;
for i=0L, N_ELEMENTS(id)-1 do begin
w=WHERE(ids eq id[i], count)
if count eq 1 then res[i]=1
if count eq 1 then parid[i]=parentid[w]
endfor
;
if KEYWORD_SET(valid_id) then return,res
if TOTAL(res) eq 0 then return,res
if KEYWORD_SET(parent) then return, parid
if KEYWORD_SET(sibling) then return, null
if KEYWORD_SET(first_child) then return, null
if KEYWORD_SET(num_children) then return, null
;
return, res
;
end
|