workbench/libs/rexxsupport/closeportrsrc.c

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <aros/debug.h>
  10 #include "rexxsupport_intern.h"
  11 #include "portnode.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(VOID, ClosePortRsrc,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct RexxRsrc *, rsrc, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, RexxSupportBase, 6, RexxSupport)
  24
  25 /*  FUNCTION
  26          Deletes a RexxMsg structure
  27
  28     INPUTS
  29          packet - The RexxMsg to delete.
  30
  31     RESULT
  32          void
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41          rexxsyslib.library/CreateRexxMsg()
  42
  43     INTERNALS
  44
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     portcleanup(RexxSupportBase, (struct PortNode *)rsrc);
  51
  52     ReturnVoid("ClosePortRsrc");
  53     AROS_LIBFUNC_EXIT
  54 } /* DeleteRexxMsg */