/usr/share/gnudatalanguage/lib/resolve_all.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 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
|