/usr/share/gnudatalanguage/lib/handle_create.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 16 17 | ; support for obsolete pro/func.
function handle_create,id,first_child=first_child,no_copy=no_copy,sibling=sibling,value=value
; note:first_child & sibling are ignored.
common gdlhandles,ids,ptrs,parentid
if n_elements(ids) eq 0 then begin
ids=[1]
last=1
if n_elements(value) eq 0 then ptrs=[ptr_new()] else ptrs=[ptr_new(value)]
if (n_params() eq 0) then parentid=[0] else parentid=[id]
endif else begin
last=ids[-1]+1
ids=[ids,last]
if n_elements(value) eq 0 then ptrs=[ptrs,ptr_new()] else ptrs=[ptrs,ptr_new(value)]
if (n_params() eq 0) then parentid=[parentid,0] else parentid=[parentid,id]
end
return,last
end
|