Changeset 14849 in project


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

bug fixes in command line parsing

File:
1 edited

Legend:

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

    r14736 r14849  
    183183                                      "(default: " (number->string opt_y) ")")
    184184                       (set! opt_y (string->number arg)))
    185 
    186185    ,(args:make-option (ad)       #:none              "like -a, but write only the image dimensions"
    187186                       (set! opt_ad #t))
     
    236235                       (set! opt_www #t))
    237236    ,(args:make-option (xy)       (required: "N")     "scale thumbnails to N pixels in their longer dimension"
    238                        (set! opt_xy (number->string arg)))
     237                       (set! opt_xy (string->number arg)))
    239238    ,(args:make-option (yslide)     (required: "N")   "scale slides to the given maximum height"
    240239                       (set! opt_yslide (string->number arg)))
     
    12941293    (if (and opt_y opt_xy)
    12951294        (sigma:error "please specify only one of the -y and --xy options"))
    1296     (if (or (negative? opt_y) (and opt_xy (negative? opt_xy)))
     1295    (if (or (and opt_y (negative? opt_y)) (and opt_xy (negative? opt_xy)))
    12971296        (sigma:error "please enter non-negative thumbnail dimensions" ))
    12981297    (if (and opt_yslide (negative? opt_yslide))
Note: See TracChangeset for help on using the changeset viewer.