home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / LINGUA12.ZIP / FILES.INC < prev    next >
Text File  |  1993-05-21  |  934b  |  27 lines
  1. /* --------------------------------------------*\
  2. | files.inc (version 1.2) - (C) SichemSoft 1993 |
  3. | Roghorst 160, 6708 KS Wageningen, Netherlands |
  4. | include for language independent applications |
  5. | author: Anneke Sicherer-Roetman, date: 930521 |
  6. \* --------------------------------------------*/
  7.  
  8. #include <stdio.h>
  9.  
  10. static FILE *fp=NULL;             /* file pointer */
  11.  
  12. /* opens named file (returns 1 on ok, 0 on not ok) */
  13. #define fileopen(name)            ((fp=fopen(name,readRA))!=0)
  14.  
  15. /* closes file */
  16. #define fileclose()               if (fp) { fclose(fp); fp=NULL; }
  17.  
  18. /* moves file pointer to pos (1=ok,0=not ok) */
  19. #define fileseek(pos)             (fp?!fseek(fp,pos,SEEK_SET):0)
  20.  
  21. /* returns file pointer value */
  22. #define filetell()                (fp?ftell(fp):-1)
  23.  
  24. /* reads num bytes from file into buffer (1=ok,0=not ok) */
  25. #define fileread(buffer,num)      (fp?fread(buffer,num,1,fp)==1:0)
  26.  
  27.