/usr/share/gnudatalanguage/lib/handle_value.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 | ; support for obsolete pro/func.
pro handle_value,id,value,no_copy=no_copy,set=set
common gdlhandles
if n_params() ne 2 then return
w=where(ids eq id, count)
if count ne 1 then return
if keyword_set(set) then begin
ptr_free,ptrs[w]
ptrs[w]=ptr_new(value)
endif else begin
value=*(ptrs[w[0]])
endelse
end
|