Changeset 536 for trunk

Timestamp:

04/20/12 12:02:16 (12 years ago)

Author:

pinsard

Message:

add some arg checking

File:

• trunk/src/search_amsufiles.pro (modified) (3 diffs)

trunk/src/search_amsufiles.pro

@@ -55 +55 @@
 ; $URL$
 ;
+; - fplod 20120419
+;
+;   * add some arg checking
+;
 ; - fplod 20120323
 ;
@@ -91 +95 @@
          + 'Usage : ' + usage])
    return, result
+ENDIF
+;
+;
+; check required and optional parameters
+nparam = N_PARAMS()
+IF (nparam LT 2) THEN BEGIN
+   ras = report(['Incorrect number of arguments.' $
+         + '!C' $
+         + 'Usage : ' + usage])
+   return, result
+ENDIF
+;
+arg_type = size(yyyy,/type)
+IF ((arg_type NE 2) AND (arg_type NE 3)) THEN BEGIN
+   ras = report(['Incorrect arg type yyyy' $
+         + '!C' $
+         + 'Usage : ' + usage])
+   return, result
+ENDIF
+;
+arg_type = size(mm, /type)
+IF ((arg_type NE 2) AND (arg_type NE 3)) THEN BEGIN
+   ras = report(['Incorrect arg type mm' $
+         + '!C' $
+         + 'Usage : ' + usage])
+   return, result
+ENDIF
+;
+arg_type = size(dd, /type)
+IF ((arg_type NE 2) AND (arg_type NE 3)) THEN BEGIN
+   ras = report(['Incorrect arg type dd' $
+         + '!C' $
+         + 'Usage : ' + usage])
+   return, result
+ENDIF
+;
+yyyymmdd=jul2date(julday(mm,dd,yyyy))
+IF ((yyyymmdd LT yyyymmddb_min) OR (yyyymmdd GT yyyymmdde_max)) THEN BEGIN
+    msg = report([routine + 'eee : ' $
+      + string(yyyy, format='(1x,I4.4)') $
+      + string(mm, format='(I2.2)') $
+      + string(dd, format='(I2.2)') $
+      + ' must be between' $
+      + string(yyyymmddb_min, format='(1x,I8.8)') $
+      + ' and ' $
+      + string(yyyymmdde_max, format='(1x,I8.8)') $
+       ])
+    return, result
 ENDIF
 ;
@@ -140 +192 @@
 CASE size(files_list,/DIMENSION) OF
    0L : BEGIN
-     print, 'pas de fichiers'
+     print, routine, ': iii : pas de fichiers'
         END
    ELSE: BEGIN
-       print, 'nb de fichers', size(files_list,/DIMENSION)
+       print, routine ,': iii : nb de fichiers', size(files_list,/DIMENSION)
         END
 ENDCASE