home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Emulatory / AROS / exec / remport.c < prev    next >
Encoding:
C/C++ Source or Header  |  1978-03-06  |  1.4 KB  |  75 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: remport.c,v 1.5 1996/10/24 15:50:56 aros Exp $
  4.     $Log: remport.c,v $
  5.     Revision 1.5  1996/10/24 15:50:56  aros
  6.     Use the official AROS macros over the __AROS versions.
  7.  
  8.     Revision 1.4  1996/08/13 13:56:07  digulla
  9.     Replaced AROS_LA by AROS_LHA
  10.     Replaced some AROS_LH*I by AROS_LH*
  11.     Sorted and added includes
  12.  
  13.     Revision 1.3  1996/08/01 17:41:17  digulla
  14.     Added standard header for all files
  15.  
  16.     Desc:
  17.     Lang: english
  18. */
  19. #include <exec/ports.h>
  20. #include <exec/execbase.h>
  21. #include <aros/libcall.h>
  22.  
  23. /*****************************************************************************
  24.  
  25.     NAME */
  26.     #include <clib/exec_protos.h>
  27.  
  28.     AROS_LH1(void, RemPort,
  29.  
  30. /*  SYNOPSIS */
  31.     AROS_LHA(struct MsgPort *, port, A1),
  32.  
  33. /*  LOCATION */
  34.     struct ExecBase *, SysBase, 60, Exec)
  35.  
  36. /*  FUNCTION
  37.     Remove a public port from the public port list to make it private
  38.     again. Any further attempts to find this port in the public port
  39.     list will fail.
  40.  
  41.     INPUTS
  42.     port - Pointer to messageport structure.
  43.  
  44.     RESULT
  45.  
  46.     NOTES
  47.  
  48.     EXAMPLE
  49.  
  50.     BUGS
  51.  
  52.     SEE ALSO
  53.  
  54.     INTERNALS
  55.  
  56.     HISTORY
  57.  
  58. ******************************************************************************/
  59. {
  60.     AROS_LIBFUNC_INIT
  61.  
  62.     /* Arbitrate for the list of message ports.*/
  63.     Forbid();
  64.  
  65.     /* Remove the current port. */
  66.     Remove(&port->mp_Node);
  67.  
  68.     /* All done. */
  69.     Permit();
  70.     AROS_LIBFUNC_EXIT
  71. } /* RemPort */
  72.  
  73.  
  74.  
  75.