Changeset 198 for trunk/SRC/ToBeReviewed/WIDGET

Timestamp:

12/01/06 12:05:05 (18 years ago)

Author:

smasson

Message:

add flexibility for the name of time attribut units

File:

• trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro

@@ -261 +261 @@
           mots = str_sep(value, ' ')
           unite = mots[0]
+          unite = strlowcase(unite)
+          IF strpos(unite, 's', strlen(unite)-1) NE -1 THEN unite = strmid(unite, 0, strlen(unite)-1)
+          IF strpos(unite, 'julian_') NE -1 THEN unite = strmid(unite, 7)
           err = 0
-          IF unite NE 'seconds' AND unite NE 'hours' AND unite NE 'days' $
-             AND unite NE 'months' AND unite NE 'years' THEN BEGIN
+          IF unite NE 'second' AND unite NE 'hour' AND unite NE 'day' $
+             AND unite NE 'month' AND unite NE 'year' THEN BEGIN
             dummy = report('time units does not start with seconds/hours/days/months/years')
             err = 1
           ENDIF
-          err = err + 1 - stregex(value, '[^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*', /boolean)
+          IF stregex(value, '[^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*', /boolean) EQ 0 THEN BEGIN
+            dummy = report('attribut units of time has not the good format: [^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*')
+            err = 1
+          ENDIF
           IF err GT 0 THEN BEGIN 
-            dummy = report('attribut units of time has not the good format: [^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*')
             fakecal = 1
             time = date0fk + lindgen(1>jpt)
@@ -301 +306 @@
 ; We pass time in IDL julian days
 ;
-            unite = strlowcase(unite)
-            IF strpos(unite, 's', strlen(unite)-1) NE -1 THEN unite = strmid(unite, 0, strlen(unite)-1)
-            IF strpos(unite, 'julian_') NE -1 THEN unite = strmid(unite, 7)
             case unite of
               'second':time = julday(debut[1], debut[2], debut[0])+time/86400.d