diff --git a/UBIXFS.PAS b/UBIXFS.PAS index cde40fd..b1cf344 100755 --- a/UBIXFS.PAS +++ b/UBIXFS.PAS @@ -312,9 +312,11 @@ function vfs_init:integer; function vfs_mkdir(path:PChar):integer; function vfs_read(handle:integer; buffer:pointer; size:uInt32):integer; + function vfs_readAttr(handle:integer; attribute:PChar; attrType:treeTypes; position:uInt32; buf:pointer; count:uInt32):uInt32; function vfs_seek(handle:integer; newPosition:int64):integer; function vfs_unlink(fileName:PChar):integer; function vfs_write(handle:integer; buffer:pointer; size:uInt32):integer; + function vfs_writeAttr(handle:integer; attribute:PChar; attrType:treeTypes; position:uInt32; buf:pointer; count:uInt32):integer; procedure examine; destructor done; virtual; end; // TUbixFS @@ -3168,6 +3170,12 @@ end; // with end; // TUbixFS.vfs_read +function TUbixFS.vfs_readAttr; +begin + result := -1; // failure by default + if (attribute = NIL) or (buf = NIL) then exit; +end; // TUbixFS.vfs_readAttr + function TUbixFS.vfs_seek; begin result := -1; @@ -3266,6 +3274,12 @@ end; // with end; // TUbixFS.vfs_write +function TUbixFS.vfs_writeAttr; +begin + result := -1; // failure by default; + if (attribute = NIL) or (buf = NIL) then exit; + +end; // TUbixFS.vfs_writeAttr function TUbixFS.writeDataStream; var