FILE-PROPERTIES

[Arseny S. <am...@ic...>]

Hi,
I've implemented FILE-PROPERTIES. It can be used like this (NTFS file
system):

[1]> (posix::file-properties ".gdbinit" :built-in :author "Me" :title "Debugger initialization file"
 :create-dtm (list :filetime (encode-universal-time 0 30 23 6 12 2004)))
:EMPTY ;
:EMPTY ;
:EMPTY
[2]> (posix::file-properties ".gdbinit" :built-in :author nil :title nil :create-dtm nil)
"Me" ;
"Debugger initialization file" ;
3311328600
[3]> (decode-universal-time 3311328600)
0 ;
30 ;
23 ;
6 ;
12 ;
2004 ;
0 ;
NIL ;
-10

As of documentation - I have this. I appreciate if Sam helps me to
convert it to XML.

/* (POSIX::FILE-PROPERTIES filename set [specifier value|:INITID init-id]*)
     Wrapper for Win32 IPropertyStorage functionality
     filename - a compound file name or (on NTFS) name of any file
     set      - :BUILT-IN or :USER-DEFINED property set
     specifier - property specifier: integer, keyword, string or
       list of integer or keyword and string.
       Integer specifier - a property identifier
       Keyword:  :CODEPAGE, :LOCALE,   :TITLE, :SUBJECT, :AUTHOR,
                 :KEYWORDS, :COMMENTS, :TEMPLATE, :LASTAUTHOR,
                 :REVNUMBER, :EDITTIME, :LASTPRINTED,:CREATE-DTM,
                 :LASTSAVE-DTM, :PAGECOUNT, :WORDCOUNT, :CHARCOUNT,
                 :THUMBNAIL, :APPNAME, :DOC-SECURITY - predefined IDs.
       String: string property specifier. If no match is found, first
         ID >= init-id (which defaults to 2) is associated with the
         string and it's value is replaced with new value.
       (int|keyword string) - first element is used as specifier, 
         string is associated with this ID.
     value - new value of the property, suitable lisp object, nil or list of
       keyword and value itself. If value is NIL, no assignment is done. 
       :EMPTY and :NULL correspond VT_EMPTY and VT_NULL datatypes.
       Keyword in the list specifies the desired type of property being set.
       Supported types are :I1, :UI1, :I2, :UI2, :I4, :UI4, :UINT, :I8,
         :UI8, :R4, :R8, :DATE, :BSTR, :BOOL, :ERROR, :FILETIME, 
         :LPSTR, :LPWSTR. FILETIMEs are converted to/from universal time format,
         while DATEs are not.

     returns multiple values - property contents before assignment.
 */

-- 
Best regards,
 Arseny