ZidanStore.pas

   1 unit ZidanStore;
   2
   3 INTERFACE
   4
   5 type
   6 tfid=array [0..20] of byte;
   7 tStoreObjectInfo=object
   8  hnd:file of byte;
   9  final:boolean;
  10  rc:Word;
  11  length:LongWord;
  12  seglen:longword;
  13
  14  procedure Open(const fid:tfid);
  15  procedure Close;
  16  procedure SegSeek(ofs:LongWord);
  17 end;
  18
  19 IMPLEMENTATION
  20 procedure tStoreObjectInfo.Open(const fid:tfid);
  21  begin
  22  rc:=0;
  23  final:=true;
  24  length:=65000;
  25  Assign(hnd,'/dev/urandom');
  26  Reset(hnd);
  27 end;
  28 procedure tStoreObjectInfo.Close;
  29  begin
  30 end;
  31 procedure tStoreObjectInfo.SegSeek(ofs:longword);
  32  begin
  33  if ofs=0 then begin
  34  rc:=0;
  35  seglen:=65000;
  36  end else rc:=7;
  37 end;
  38
  39 END.
  40