This file is indexed.

/usr/share/gnudatalanguage/lib/resolve_all.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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
;
; Very preliminary version of RESOLVE_ALL
; This was enough to run Ulyss 
; http://ulyss.univ-lyon1.fr/download.html
;
; Contributions welcome !
;
; This code is under GNU GPL V2 or later
; Ilia N., Alain C., July 2015
;
pro RESOLVE_ALL, RESOLVE_EITHER=resolve_either, $
                 RESOLVE_FUNCTION=resolve_function, $
                 RESOLVE_PROCEDURE=resolve_procedure, $
                 CONTINUE_ON_ERROR=continue_on_error, UNRESOLVED=unres, $
                 class=class,  SKIP_ROUTINES=skip_routines, QUIET=quiet, $
                 help=help, test=test
;

if KEYWORD_SET(help) then begin
    print, 'pro RESOLVE_ALL, RESOLVE_EITHER=resolve_either, $'
    print, '                 RESOLVE_FUNCTION=res_fun, RESOLVE_PROCEDURE=res_pro, $'
    print, '                 CONTINUE_ON_ERROR=continue_on_error, UNRESOLVED=UNRESOLVED, $' 
    print, '                 CLASS=class,  SKIP_ROUTINES=skip_routines, QUIET=quiet, $'
    print, '                 help=help, test=test'
    print, ' '
    print, 'keyword CLASS= not ready'
    print, 'keyword UNRESOLVED= not ready'
    print, 'keyword SKIP_ROUTINES= not ready'
    return
endif
;
please='; Please contribute !'
;
if KEYWORD_SET(CLASS) then begin
    MESSAGE, 'Keyword CLASS is not ready'+please
endif
if KEYWORD_SET(SKIP_ROUTINES) then begin
    MESSAGE, 'Keyword SKIP_ROUTINES is not ready'+please
endif
if KEYWORD_SET(UNRESOLVED) then begin
    MESSAGE, 'Keyword UNRESOLVED is not ready'+please
endif
;
if KEYWORD_SET(QUIET) then begin
    quiet_save=!quiet
    !quiet = quiet
endif else begin
    quiet = 0
endelse
;
; procedures only
;
if KEYWORD_SET(resolve_procedure) then begin
    if ~KEYWORD_SET(continue_on_error) then begin
        RESOLVE_ROUTINE, resolve_procedure
    endif else begin
        for i = 0, N_ELEMENTS(resolve_procedure)-1 do begin
            command='RESOLVE_ROUTINE, resolve_procedure[i]'
            a=EXECUTE(command)
        endfor
    endelse
endif
;
; functions only
;
if KEYWORD_SET(resolve_function) then begin
    if ~KEYWORD_SET(continue_on_error) then begin
        RESOLVE_ROUTINE, resolve_function, /is_function
    endif else begin
        for i = 0, N_ELEMENTS(resolve_function)-1 do begin
            command='RESOLVE_ROUTINE, resolve_function[i], /is_function'
            a=EXECUTE(command)
        endfor
    endelse
endif
;
; procedures or functions : /either
;
if KEYWORD_SET(resolve_either) then begin
    if ~KEYWORD_SET(continue_on_error) then begin
        RESOLVE_ROUTINE, resolve_either, /either        
    endif else begin
        for i = 0, N_ELEMENTS(resolve_either)-1 do begin
            command='RESOLVE_ROUTINE, resolve_either[i], /either'
            a=EXECUTE(command)
        endfor
    endelse
endif
;
if KEYWORD_SET(QUIET) then !quiet=quiet_save
;
if KEYWORD_SET(test) then STOP
;
end