workbench/libs/muiscreen/closepubfile.c

   1 /*
   2     Copyright © 2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <libraries/muiscreen.h>
   7 #include <proto/dos.h>
   8 #include <proto/iffparse.h>
   9 #define DEBUG 1
  10 #include <aros/debug.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/muiscreen.h>
  16
  17         AROS_LH1(void, MUIS_ClosePubFile,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(APTR, pf,  A0),
  21
  22 /*  LOCATION */
  23         struct Library *, MUIScreenBase, 10, MUIScreen)
  24
  25 /*  FUNCTION
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41 ******************************************************************************/
  42
  43 {
  44     AROS_LIBFUNC_INIT
  45
  46     D(bug("MUIS_ClosePubFile(%p)\n", pf));
  47
  48     struct IFFHandle *iff = (struct IFFHandle *) pf;
  49
  50     if (iff)
  51     {
  52         if(iff->iff_Flags & IFFF_WRITE)
  53             PopChunk(iff);
  54
  55         CloseIFF(iff);
  56         Close((BPTR) iff->iff_Stream);
  57         FreeIFF(iff);
  58     }
  59
  60     AROS_LIBFUNC_EXIT
  61 }