home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / CYFILE.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.4 KB  |  71 lines
  1. /*
  2.     cyfile.prg
  3.  
  4.     Copyright (c) 1991 Anton van Straaten
  5.  
  6.     13/02/1991 20:56 avs - creation
  7.  
  8.     A simple encapsulation of the Clipper low-level file i/o functions.
  9.     Limited, but serves as an example of how easily a well-designed
  10.     procedural system can be encapsulated in an object-oriented shell.
  11.  
  12.     Note that the name 'File' cannot be used for this class because of
  13.     the Clipper function FILE().
  14. */
  15.  
  16. #include "class(y).ch"
  17.  
  18.  
  19. create class DosFile
  20.  
  21. export:
  22.     instvar handle  noassign
  23.     instvar name    noassign
  24.  
  25.     method open
  26.     method close
  27.     method create
  28.     method read, readstr
  29.     method write
  30.  
  31.     class method error
  32.     class method erase
  33.     class method exists
  34.  
  35. endclass
  36.  
  37.  
  38. constructor (cFileName)
  39.     ::name := cFileName
  40. return
  41.  
  42. method function open(nMode)
  43. return (::handle := fopen(::name, nMode))
  44.  
  45. method function close
  46. return fclose(::handle)
  47.  
  48. method function create(nAttribute)
  49. return ::handle := fcreate(::name, nAttribute)
  50.  
  51. method function read(buf, nBytes)
  52. return fread(::handle, @buf, nBytes)
  53.  
  54. method function readstr(nBytes)
  55. return freadstr(::handle, nBytes)
  56.  
  57. method function write(buf, nBytes)
  58. return fwrite(::handle, buf, nBytes)
  59.  
  60. method function error
  61. return ferror()
  62.  
  63. method function erase(cFile)
  64. return ferase(cFile)
  65.  
  66. method function exists(cFile)
  67. return file(cFile)
  68.  
  69.  
  70. // eof cyfile.prg
  71.