Changeset 14850 in project


Ignore:
Timestamp:
06/01/09 09:07:08 (10 years ago)
Author:
Ivan Raikov
Message:

bug fix in command-line argument handling

Location:
release/4/sigma/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/sigma/trunk/sigma-eggdoc.scm

    r14737 r14850  
    3131
    3232     (history
     33      (version "1.19" "Bug fix in command-line handling")
    3334      (version "1.18" "Bug fix in filter-subfolders")
    3435      (version "1.17" "Ported to Chicken 4")
  • release/4/sigma/trunk/sigma.scm

    r14849 r14850  
    182182                       (s+ "scale all thumbnails to the same height  "
    183183                                      "(default: " (number->string opt_y) ")")
    184                        (set! opt_y (string->number arg)))
     184                       (let ((N (string->number arg)))
     185                         (if (not N) (sigma:error 'main ": invalid numeric argument " arg  " given to option -y"))
     186                         (set! opt_y N)))
    185187    ,(args:make-option (ad)       #:none              "like -a, but write only the image dimensions"
    186188                       (set! opt_ad #t))
     
    231233    ,(args:make-option (verbose)       (required: "LEVEL")
    232234                       (s+ "set verbose mode (0: quiet; 1: info; 2: debug)")
    233                        (set! opt_verbose (string->number arg)))
     235                       (let ((N (string->number arg)))
     236                         (if (not N) (sigma:error 'main ": invalid numeric argument " arg  " given to option --verbose"))
     237                         (set! opt_verbose N)))
    234238    ,(args:make-option (www)      #:none              "makes all SIGMA files world-readable"
    235239                       (set! opt_www #t))
    236240    ,(args:make-option (xy)       (required: "N")     "scale thumbnails to N pixels in their longer dimension"
    237                        (set! opt_xy (string->number arg)))
     241                       (let ((N (string->number arg)))
     242                         (if (not N) (sigma:error 'main ": invalid numeric argument " arg  " given to option --xy"))
     243                         (set! opt_xy N)))
    238244    ,(args:make-option (yslide)     (required: "N")   "scale slides to the given maximum height"
    239                        (set! opt_yslide (string->number arg)))
     245                       (let ((N (string->number arg)))
     246                         (if (not N) (sigma:error 'main ": invalid numeric argument " arg  " given to option --yslide"))
     247                         (set! opt_yslide N)))
    240248    ,(args:make-option (h help)  #:none               "Print help"
    241249                       (usage))))
  • release/4/sigma/trunk/sigma.setup

    r14736 r14850  
    1111
    1212  ; Assoc list with properties for the program:
    13   '((version 1.18)
     13  '((version 1.19)
    1414    (documentation "sigma.html")))
    1515
Note: See TracChangeset for help on using the changeset viewer.