home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / incl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1984-04-29  |  424 b   |  21 lines
  1.  
  2. /*  include - include file  */
  3. include (file, func)
  4. /******************/
  5.     char *file;
  6.     int (*func)();
  7.     {
  8.     char *alloc();
  9.     struct _buf *iobuf;
  10.  
  11.     iobuf = alloc (BUFSIZ);
  12.     if (fopen (file, iobuf) == ERROR)
  13.         diagnostic (FALSE, "can't open ", file, NULL);
  14.     else
  15.         {
  16.         (*func)(file, iobuf);
  17.         fclose (iobuf);
  18.         }
  19.     free (iobuf);
  20.     }  /* include */
  21.