Changeset 14565 in project for chicken


Ignore:
Timestamp:
05/08/09 11:48:02 (11 years ago)
Author:
felix winkelmann
Message:

multiple uses of -v replace -v2/-v3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/csc.scm

    r14533 r14565  
    278278    -h  -help                      display this text and exit
    279279    -v                             show intermediate compilation stages
    280     -v2  -verbose                  display information about translation
     280    -vv  -verbose                  display information about translation
    281281                                    progress
    282     -v3                            display information about all compilation
     282    -vvv                           display information about all compilation
    283283                                    stages
    284284    -V  -version                   display Scheme compiler version and exit
     
    560560                (set! show-libs #t) ]
    561561               [(-v)
    562                 (set! verbose #t) ]
    563                [(-v2 -verbose)
     562                (when (and (number? verbose) (not msvc))
     563                  (set! compile-options (cons* "-v" "-Q" compile-options))
     564                  (set! link-options (cons (if msvc "-VERBOSE" "-v") link-options)) )
     565                (cond (verbose
     566                       (t-options "-verbose")
     567                       (set! verbose 2))
     568                      (else (set! verbose #t))) ]
     569               [(-v2 -verbose)          ; DEPRECATED
    564570                (set! verbose #t)
    565571                (t-options "-verbose") ]
    566                [(-w -no-warnings)
    567                 (set! compile-options (cons "-w" compile-options))
    568                 (t-options "-no-warnings") ]
    569                [(-v3)
     572               [(-v3)                   ; DEPRECATED
    570573                (set! verbose #t)
    571574                (t-options "-verbose")
     
    573576                    (set! compile-options (cons* "-v" "-Q" compile-options)))
    574577                (set! link-options (cons (if msvc "-VERBOSE" "-v") link-options)) ]
     578               [(-w -no-warnings)
     579                (set! compile-options (cons "-w" compile-options))
     580                (t-options "-no-warnings") ]
    575581               [(|-A| -analyze-only)
    576582                (set! translate-only #t)
Note: See TracChangeset for help on using the changeset viewer.