Changeset 12851 in project for release/3/cmk/cmk-utils.scm


Ignore:
Timestamp:
12/19/08 08:35:06 (12 years ago)
Author:
Ivan Raikov
Message:

Some fixes to mingw build.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/cmk/cmk-utils.scm

    r12843 r12851  
    165165
    166166
    167 (define (##sys#stat file link loc)
     167(define (##sys#stat file loc)
    168168  (let ([r (cond [(fixnum? file) (##core#inline "C_fstat" file)]
    169169                 [(string? file)
    170170                  (let ([path (##sys#make-c-string (##sys#expand-home-path file))])
    171                     (if link
    172                         (##core#inline "C_lstat" path)
    173                         (##core#inline "C_stat" path) ) ) ]
     171                        (##core#inline "C_stat" path) ) ]
    174172                 [else (##sys#signal-hook #:type-error "bad argument type - not a fixnum or string" file)] ) ] )
    175173    (when (fx< r 0)
     
    183181(define-foreign-variable _stat_st_ctime double "C_statbuf.st_ctime")
    184182
    185 (define (file-size f) (##sys#stat f #f 'file-size) _stat_st_size)
    186 (define (file-modification-time f) (##sys#stat f #f 'file-modification-time) _stat_st_mtime)
    187 (define (file-access-time f) (##sys#stat f #f 'file-access-time) _stat_st_atime)
    188 (define (file-change-time f) (##sys#stat f #f 'file-change-time) _stat_st_ctime)
     183(define (file-size f) (##sys#stat f 'file-size) _stat_st_size)
     184(define (file-modification-time f) (##sys#stat f 'file-modification-time) _stat_st_mtime)
     185(define (file-access-time f) (##sys#stat f 'file-access-time) _stat_st_atime)
     186(define (file-change-time f) (##sys#stat f 'file-change-time) _stat_st_ctime)
    189187
    190188
Note: See TracChangeset for help on using the changeset viewer.