/usr/share/gnudatalanguage/lib/tic.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 | ; AC, 14/01/2013 at JPL
; initializing the timing ...
;
; revisiting on Nov. 26, 2013
;
; under GPL 2 or any later
;
pro TIC, vide, profiler=profiler, help=help, test=test
;
ON_ERROR, 2
;
if KEYWORD_SET(help) then begin
print, 'pro TIC, name, profiler=profiler, help=help, test=test'
return
endif
;
if KEYWORD_SET(profiler) then begin
MESSAGE, /continue, 'This /PROFILER keyword is not available, please contribute'
endif
;
if N_PARAMS() GT 1 then MESSAGE, 'Incorrect number of arguments.'
;
if N_PARAMS() EQ 1 then vide=''
;
t0=SYSTIME(1)
;
DEFSYSV, '!TIC', {NAME: '', TIME : t0}
;
if KEYWORD_SET(test) then STOP
;
end
;
; --------------------
;
function TIC, name, profiler=profiler, help=help, test=test
;
ON_ERROR, 2
;
if KEYWORD_SET(help) then begin
print, 'function TIC, name, profiler=profiler, help=help, test=test'
return, !null
endif
;
if KEYWORD_SET(profiler) then begin
MESSAGE, /continue, 'This /PROFILER keyword is not available, please contribute'
endif
;
if N_PARAMS() GT 1 then MESSAGE, 'Incorrect number of arguments.'
;
if N_PARAMS() EQ 0 then name=''
;
t0=SYSTIME(1)
;
; since a function call to TIC then TOC is OK, !tic must be set up
; (the value is wrong but works as expected !)
;
DEFSYSV, '!TIC', exist=tic_exist
if ~tic_exist then DEFSYSV, '!TIC', {NAME: '', TIME : 0.0D}
;
if KEYWORD_SET(test) then STOP
;
return, {NAME: name, TIME : t0}
;
end
|