Changeset 7864 in project


Ignore:
Timestamp:
01/22/08 23:52:14 (12 years ago)
Author:
felix winkelmann
Message:

fixed uses of time->string and seconds->string (no trailing newline)

Files:
12 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/NEWS

    r7839 r7864  
    1111- On sparc64 architectures more than 126 procedure arguments are allowed
    1212  [Thanks to Peter Bex]
     13- posix unit: "seconds->string" and "time->string" have now their trailing
     14  #\newline character removed. THIS IS A BACKWARD-INCOMPATIBLE CHANGE.
    1315
    14162.739
  • chicken/trunk/chicken-bug.scm

    r7017 r7864  
    3232  (print "\n--------------------------------------------------\n")
    3333  (print "This is a bug report generated by chicken-bug(1).\n")
    34   (print "Date:\t" (seconds->string (current-seconds)) "\n")
     34  (print "Date:\t" (seconds->string (current-seconds)) "\n\n")
    3535  (printf "User information:\t~s~%~%" (user-information (current-user-id)))
    3636  (print "Host information:\n")
  • chicken/trunk/manual/Unit posix

    r7036 r7864  
    940940
    941941Converts the local time represented in {{SECONDS}} into a string
    942 of the form {{"Tue May 21 13:46:22 1991\n"}}.
     942of the form {{"Tue May 21 13:46:22 1991"}}.
    943943
    944944==== seconds->utc-time
     
    962962Converts the broken down time represented in the 10 element vector
    963963{{VECTOR}} into a string of the form {{"Tue May 21 13:46:22
    964 1991\n"}}.
     9641991"}}.
    965965
    966966
  • chicken/trunk/posixunix.scm

    r7784 r7864  
    17431743      (let ([str (ctime secs)])
    17441744        (unless str (##sys#error 'seconds->string "cannot convert seconds to string" secs))
    1745         str) ) ) )
     1745        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    17461746
    17471747(define time->string
     
    17521752      (let ([str (asctime tm)])
    17531753        (unless str (##sys#error 'time->string "cannot convert time vector to string" tm))
    1754         str) ) ) )
     1754        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    17551755
    17561756(define (local-time->seconds tm)
  • chicken/trunk/posixwin.scm

    r7189 r7864  
    15761576      (let ([str (ctime secs)])
    15771577        (unless str (##sys#error 'seconds->string "cannot convert seconds to string" secs))
    1578         str) ) ) )
     1578        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    15791579
    15801580(define time->string
     
    15851585      (let ([str (asctime tm)])
    15861586        (unless str (##sys#error 'time->string "cannot time vector to string" tm))
    1587         str) ) ) )
     1587        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    15881588
    15891589(define (local-time->seconds tm)
  • release/3/egg-post-commit/post-commit.scm

    r7102 r7864  
    180180    (delete-file* +log-file+)
    181181    (with-output
    182      (cut printf "=================================== ~a"
     182     (cut printf "=================================== ~a~%"
    183183          (seconds->string (current-seconds))))
    184184    (when (member "-report" args) (set! *report* #t))
  • release/3/job-worker/tests/job-worker-test.scm

    r5071 r7864  
    5656    (define stop-seconds 0.0)
    5757
    58     (define (seconds->string/out-nl sec)
    59       (let ([str (seconds->string sec)])
    60         (substring str 0 (fx- (string-length str) 1)) ) )
     58    (define seconds->string/out-nl seconds->string)
    6159
    6260    (define (time-message what when)
  • release/3/salmonella/trunk/salmonella.scm

    r7365 r7864  
    127127        (pp #<#EOF
    128128salmonella -- a tool for testing Chicken eggs (http://chicken.wiki.br/salmonella)
    129 #(string-trim-both (current-time))
     129#(string-trim-left (current-time))
    130130#(system:output (chicken-setup) " -version")
    131131Options:
  • release/3/sbky/bky.scm

    r7326 r7864  
    135135
    136136(define (date-last-modified file)
    137   (string-chomp (seconds->string (file-modification-time file))))
     137  (seconds->string (file-modification-time file)))
    138138
    139139(define (get-remote remote)
  • release/3/sigma/trunk/sigma.scm

    r7316 r7864  
    672672              (lambda ()
    673673                (print "; This is SIGMA " caption-file " file, first generated "
    674                        (string-chomp (time->string (seconds->local-time  (current-seconds))) "\n")
     674                       (time->string (seconds->local-time  (current-seconds)))
    675675                       ".")
    676676                (print "; The captions must be in S-expression format and may include SXML tags. ")
  • release/3/spiffy/trunk/spiffy-base.scm

    r7066 r7864  
    149149     (log-message "~A [~A] \"~A ~A ~A\" ~A "
    150150                  addr
    151                   (string-trim-right (seconds->string (current-seconds)))
     151                  (seconds->string (current-seconds))
    152152                  (http:request-method req)
    153153                  (http:request-url req)
  • release/3/testbase-results/testbase-reports.scm

    r5047 r7864  
    4444            (switch key
    4545              ['when key
    46                 (string-trim-right (time->string val))]
     46                (time->string val)]
    4747              [else
    4848                val])) ) ) )
Note: See TracChangeset for help on using the changeset viewer.