workbench/libs/iffparse/openclipboard.c

   1 /*
   2     Copyright © 1995-2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "iffparse_intern.h"
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11 #include <proto/iffparse.h>
  12
  13         AROS_LH1(struct ClipboardHandle *, OpenClipboard,
  14
  15 /*  SYNOPSIS */
  16         AROS_LHA(LONG, unitNumber, D0),
  17
  18 /*  LOCATION */
  19         struct Library *, IFFParseBase, 41, IFFParse)
  20
  21 /*  FUNCTION
  22         Opens the clipboard.device with the specified unit.
  23         Allocates and initializes a ClipboardHandle struct which should
  24         be put into the iff_Stream field of the IFFHandle when the
  25         handle is initialized with InitIFFasClip().
  26
  27
  28     INPUTS
  29         unitNumber - a clipboard device unit number (usually PRIMARY_CLIP).
  30
  31     RESULT
  32         ch -  pointer to ClipboardHandle struct or NULL if unsuccessful.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         InitIFFasClip(), CloseClipboard()
  42
  43     INTERNALS
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48     struct ClipboardHandle * ch;
  49     struct IOClipReq       * req;
  50     struct Task            * thistask;
  51
  52     /* Allocate a ClipBoardHandle */
  53
  54     ch = AllocMem
  55     (
  56         sizeof (struct ClipboardHandle),
  57         MEMF_ANY | MEMF_CLEAR | MEMF_PUBLIC
  58     );
  59     if (ch)
  60     {
  61         /* Get a ponter to the ioClipReq, so we
  62           don't need all that type casting.
  63         */
  64         req = &(ch->cbh_Req);
  65
  66
  67         thistask = FindTask(0L);
  68
  69         if (InitPort( &(ch->cbh_CBport), thistask, IPB(IFFParseBase)))
  70         {
  71             if (InitPort( &(ch->cbh_SatisfyPort), thistask, IPB(IFFParseBase)))
  72             {
  73                 /* Initialize the IORequest structure.
  74                 Basically CreateIORequest without memory allocation.
  75                 */
  76                 req->io_Message.mn_ReplyPort = &(ch->cbh_CBport);
  77                 req->io_Message.mn_Length = sizeof(struct IOClipReq);
  78
  79                 if
  80                 (!OpenDevice
  81                     (
  82                         "clipboard.device",
  83                         unitNumber,
  84                         (struct IORequest*)req,
  85                         0L
  86                     )
  87                 )
  88                 {
  89
  90                     return (ch);
  91                 }
  92
  93                 ClosePort( &(ch->cbh_SatisfyPort), IPB(IFFParseBase));
  94             }
  95
  96             ClosePort( &(ch->cbh_CBport), IPB(IFFParseBase));
  97         }
  98         FreeMem(ch, sizeof (struct ClipboardHandle));
  99     }
 100     return (FALSE);
 101
 102
 103     AROS_LIBFUNC_EXIT
 104 } /* OpenClipboard */