Changeset 13250 in project


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

scripts/setversion works in binary mode (for windoof)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/scripts/setversion

    r12920 r13250  
    2828                       (unless (eof-object? ln)
    2929                         (write-line (string-substitute rx subst ln #t))
    30                          (loop) ) ) ) ) ) ) ) ) )
     30                         (loop) ) ) ) )
     31                 binary:) )
     32             binary:)))
    3133        (else
    3234         (let ((tmp (create-temporary-file)))
     
    4749                (huh (car (cddddr v))))
    4850           (set! buildversion (conc maj "." min "." (add1 (string->number pl)) huh)) ) ) )
    49   (with-output-to-file "buildversion" (cut display buildversion))
     51  (with-output-to-file "buildversion" (cut display buildversion) binary:)
    5052  (with-output-to-file "version.scm"
    5153    (lambda ()
    5254      (write `(define-constant +build-version+ ,buildversion))
    53       (newline) ) )
     55      (newline) )
     56    binary:)
    5457  (system* "cat version.scm")
    5558  (let ([vstr (sprintf "version ~A" buildversion)])
    5659    (for-each (cut patch <> (rx "version [0-9][-.0-9a-zA-Z]+") vstr) files) )
    57   (with-output-to-file "DONE" (cut print "- version is " buildversion))
    5860  0)
    5961
Note: See TracChangeset for help on using the changeset viewer.