Changeset 16348


Ignore:
Timestamp:
Jan 31, 2015, 6:16:53 AM (5 years ago)
Author:
svspire
Message:

Add #'file-data-size.
Partially addresses ticket:1265.

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r16080 r16348  
    11731173  or FILE is a wild pathname."
    11741174  (%file-author (defaulted-native-namestring path)))
     1175
     1176(defun file-data-size (path)
     1177  "Returns size of file's data fork, without needing to open the file.
     1178   If the file has a resource fork, its size is not included here."
     1179  (nth-value 2 (ccl::%stat (defaulted-native-namestring path))))
    11751180
    11761181(defun touch (path)
  • trunk/source/lib/ccl-export-syms.lisp

    r16330 r16348  
    326326     unlock-file
    327327     file-locked-p
     328     file-data-size
    328329     directoryp
    329330     delete-directory
Note: See TracChangeset for help on using the changeset viewer.