home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / OFiles.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  78 lines
  1. |##########|
  2. |#MAGIC   #|CKOLFLHJ
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE OFiles;
  11.  
  12. FROM T_Dos      IMPORT EOF,SeekError,OpenErr;
  13. FROM FileSystem IMPORT File;
  14. FROM Resources  IMPORT ContextPtr;
  15.                 IMPORT Dos;
  16.  
  17. EXCEPTION
  18.   ObjectNotFound : "Object not found";
  19.  
  20. TYPE
  21.   ODirectory  = POINTER TO ODirObj;
  22.   ODirObj     = OBJECT
  23.                   name : STRING(108);
  24.                   lock : Dos.FileLockPtr;
  25.                   con  : ContextPtr;
  26.  
  27.                   CONSTRUCTOR Create(REF name : STRING;
  28.                                          con  : ContextPtr := NIL);
  29.                   CONSTRUCTOR Clone(whom : ODirectory;
  30.                                     con  : ContextPtr := NIL);
  31.                   DESTRUCTOR Delete;
  32.  
  33.                   METHOD SubDir(REF name : STRING);
  34.                   METHOD ParentDir;
  35.  
  36.                   METHOD Exists():BOOLEAN;
  37.                   METHOD BuildUp;
  38.  
  39.                   METHOD Contains(REF name : STRING):BOOLEAN;
  40.  
  41.                   $$OwnHeap:=TRUE
  42.                   METHOD FullName():STRING;
  43.  
  44.                   METHOD Destruct;
  45.                 END;
  46.  
  47.   OFile       = POINTER TO OBJECT
  48.                   file : File;
  49.  
  50.                   CONSTRUCTOR Open(REF path    : STRING;
  51.                                        dir     : ODirectory := NIL;
  52.                                        new     : BOOLEAN    := FALSE;
  53.                                        buffer  : LONGINT    := $4000;
  54.                                        context : ContextPtr := NIL);
  55.                   DESTRUCTOR Close;
  56.  
  57.                   METHOD Read(VAR c : CHAR);
  58.                   METHOD ReadBytes(at : ANYPTR;size : LONGINT);
  59.                   METHOD ReadBlock(VAR blk : ANYTYPE);
  60.                   METHOD ReadString(VAR str : STRING);
  61.  
  62.                   METHOD Write(c : CHAR);
  63.                   METHOD WriteBytes(at : ANYPTR;size : LONGINT);
  64.                   METHOD WriteBlock(REF blk : ANYTYPE);
  65.                   METHOD WriteString(REF str : STRING);
  66.  
  67.                   METHOD Pos():LONGINT;
  68.                   METHOD SetPos(pos : LONGINT);
  69.  
  70.                   METHOD Length():LONGINT;
  71.                   METHOD EOF():BOOLEAN;
  72.  
  73.                   METHOD Destruct;
  74.                 END;
  75.  
  76. END OFiles.
  77.  
  78.