rom/graphics/createrastport.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AROS Graphics function CreateRastPort()
   6     Lang: english
   7 */
   8 #include "graphics_intern.h"
   9 #include <exec/memory.h>
  10 #include <graphics/rastport.h>
  11 #include <proto/exec.h>
  12 #include "gfxfuncsupport.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <graphics/rastport.h>
  18 #include <proto/graphics.h>
  19
  20         AROS_LH0(struct RastPort *, CreateRastPort,
  21
  22 /*  SYNOPSIS */
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 177, Graphics)
  26
  27 /*  FUNCTION
  28         This function creates a new RastPort.
  29
  30     INPUTS
  31         None.
  32
  33     RESULT
  34         A pointer to a new RastPort or NULL if there was not enough memory
  35         to perform the operation.
  36
  37     NOTES
  38         This function is AROS specific. For compatibility, there is a
  39         function in aros.lib which does the same on Amiga.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49     HISTORY
  50         29-10-95    digulla automatically created from
  51                             graphics_lib.fd and clib/graphics_protos.h
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  57
  58     struct RastPort * newRP;
  59     BOOL              ok = FALSE;
  60
  61     newRP = AllocMem (sizeof (struct RastPort), MEMF_ANY);
  62
  63     if (newRP)
  64     {
  65         if (InitRastPort(newRP))
  66         {
  67             /* Mark the rastport as being cleaned up by the
  68                user itself later on (through FreeRastPort()).
  69                No need for garbage collection */
  70             newRP->Flags |= RPF_SELF_CLEANUP;
  71             ok = TRUE;
  72         }
  73
  74         if (!ok)
  75         {
  76             FreeMem (newRP, sizeof (struct RastPort));
  77             newRP = NULL;
  78         }
  79     }
  80
  81     return newRP;
  82     AROS_LIBFUNC_EXIT
  83 } /* CreateRastPort */