/usr/share/gnudatalanguage/lib/dicom/gdlffdicom_date.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 | ;L+
; LICENSE:
;
; IDL user contributed source code
; Copyright (C) 2006 Robbie Barnett
;
; This library is free software;
; you can redistribute it and/or modify it under the
; terms of the GNU Lesser General Public License as published
; by the Free Software Foundation;
; either version 2.1 of the License,
; or (at your option) any later version.
;
; This library is distributed in the hope that it will
; be useful, but WITHOUT ANY WARRANTY;
; without even the implied warranty of MERCHANTABILITY
; or FITNESS FOR A PARTICULAR PURPOSE.
; See the GNU Lesser General Public License for more details.
;
; You should have received a copy of the GNU Lesser General Public License
; along with this library; if not, write to the
; Free Software Foundation, Inc.
; 51 Franklin Street, Suite 500
; Boston, MA 02110-1335, USA
;
; Please send queries to:
; Robbie Barnett
; Nuclear Medicine and Ultrasound
; Westmead Hospital
; +61 2 9845 7223
;L-
;+
; Return a DICOM formatted date string
; @field elsapsed_seconds
;-
function gdlffdicom_date, elapsed_seconds, UTC=utc
if (n_elements(elapsed_seconds)) then begin
if (size(elapsed_seconds,/type) eq 7) then date_str = elapsed_seconds $
else date_str = systime(0,double(elapsed_seconds), UTC=utc)
endif else $
date_str = systime(UTC=utc)
dow = ''
mon = ''
day = 0l
hour = 0l
minute = 0l
second = 0l
year = 0l
s1 = ':'
s2 = ':'
READS, date_str, dow, mon, day, hour, s1, minute, s2, second, year, FORMAT="(A3,A4,I3,I3,A1,I02,A1,I02,I5)"
imon = where(mon eq ['',' Jan',' Feb',' Mar',' Apr',' May',' Jun',' Jul',' Aug',' Sep',' Oct',' Nov',' Dec'],count)
if (count gt 0) then return, string(year,imon[0],day,FORMAT="(I04,I02,I02)") $
else message, 'No such month'
; for i=0l,10000 do help, gdlffdicom_date(systime(1)+randomu(seed)*100000000.)
end
|