home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume8 / libhoward / part08 / mfclose.c < prev    next >
C/C++ Source or Header  |  1989-10-01  |  2KB  |  72 lines
  1. /*
  2.  * mfclose - fclose() + malf1()
  3.  */
  4.  
  5. #ifndef lint
  6. static char _cpyrgt[] = "Copyright 1989 Howard Lee Gayle";
  7. #endif lint
  8.  
  9. /*
  10.  * This program is free software; you can redistribute it and/or modify
  11.  * it under the terms of the GNU General Public License version 1,
  12.  * as published by the Free Software Foundation.
  13.  *
  14.  * This program is distributed in the hope that it will be useful,
  15.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17.  * GNU General Public License for more details.
  18.  *
  19.  * You should have received a copy of the GNU General Public License
  20.  * along with this program; if not, write to the Free Software
  21.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  */
  23.  
  24. #include <stdio.h>
  25. #include <howard/port.h>
  26. #include <howard/version.h>
  27.  
  28. MODVER ("@(#)$Header: mfclose.c,v 1.3 89/08/13 14:53:25 howard Exp $");
  29.  
  30. #include <howard/malf.h>
  31. #include <howard/registers.i>
  32.  
  33. PUBLIC void mfclose (s, n)
  34. streamT s; /* Stream to close.*/
  35. bStrT   n; /* File name.*/
  36.  
  37.  
  38. /* Function:
  39.  *    
  40.  * Algorithm:
  41.  *    Call fclose().  On error call malf1().
  42.  * Returns:
  43.  *    
  44.  * Notes:
  45.  *    
  46.  */
  47. {
  48. if (fclose (s)) malf1 ("%s: Can not close", n);
  49. }
  50.  
  51. #ifdef TEST
  52. #include <howard/usage.h>
  53.  
  54. MAINVER ("@(#)$Header: mfclose.c,v 1.3 89/08/13 14:53:25 howard Exp $");
  55. USAGE ("file");
  56.  
  57. PUBLIC int main (argc, argv)
  58. int    argc; /* Number of arguments.*/
  59. bStrT *argv; /* Points to array of argument strings.*/
  60. {
  61. if (2 != argc) usage();
  62. mfclose (mfopen (argv[1], "r"), argv[1]);
  63. PUTS ("Success");
  64. mfflush (stdout, "Standard Output");
  65. exit (SUCCESS);
  66.  
  67. #ifdef lint
  68. return (SUCCESS);
  69. #endif
  70. }
  71. #endif
  72.