Changeset 8847 in project for nondescript


Ignore:
Timestamp:
02/24/08 21:44:21 (11 years ago)
Author:
anonymous
Message:

Bugfixes for filesystem and statvfs.

Location:
nondescript
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • nondescript/filesystem/filesystem.scm

    r8841 r8847  
    3636
    3737(define (filesystem:block-size path)
     38  (vector-ref (statvfs path) 1))
     39
     40(define (filesystem:blocks-total path)
    3841  (vector-ref (statvfs path) 2))
    3942
    40 (define (filesystem:blocks-total path)
     43(define (filesystem:blocks-free path)
    4144  (vector-ref (statvfs path) 3))
    4245
    43 (define (filesystem:blocks-free path)
     46(define (filesystem:blocks-available path)
    4447  (vector-ref (statvfs path) 4))
    45 
    46 (define (filesystem:blocks-available path)
    47   (vector-ref (statvfs path) 5))
    4848
    4949(define (filesystem:blocks->bytes blocksize blocks units)
  • nondescript/filesystem/filesystem.setup

    r8841 r8847  
    44 'filesystem
    55 '("filesystem.so")
    6  '((version 1.0)
     6 '((version 1.0.1)
    77   (documentation "filesystem.html")))
  • nondescript/statvfs/statvfs.scm

    r8841 r8847  
    9999    (c-statvfs path ptr)
    100100    (let ((v (vector
    101               (statvfs-f_frsize ptr)
    102101              (statvfs-f_bsize ptr)
    103102              (statvfs-f_frsize ptr)
  • nondescript/statvfs/statvfs.setup

    r8841 r8847  
    44 'statvfs
    55 '("statvfs.so")
    6  '((version 1.0)
     6 '((version 1.0.1)
    77   (documentation "statvfs.html")))
Note: See TracChangeset for help on using the changeset viewer.