home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / exec / remhead.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-09  |  2.1 KB  |  102 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: remhead.c,v 1.9 1997/01/01 03:46:14 ldp Exp $
  4.     $Log: remhead.c,v $
  5.     Revision 1.9  1997/01/01 03:46:14  ldp
  6.     Committed Amiga native (support) code
  7.  
  8.     Changed clib to proto
  9.  
  10.     Revision 1.8  1996/12/10 13:51:51  aros
  11.     Moved all #include's in the first column so makedepend can see it.
  12.  
  13.     Revision 1.7  1996/10/24 15:50:55  aros
  14.     Use the official AROS macros over the __AROS versions.
  15.  
  16.     Revision 1.6  1996/10/21 20:48:22  aros
  17.     Changed struct SysBase to struct ExecBase
  18.  
  19.     Revision 1.5  1996/08/13 13:56:06  digulla
  20.     Replaced AROS_LA by AROS_LHA
  21.     Replaced some AROS_LH*I by AROS_LH*
  22.     Sorted and added includes
  23.  
  24.     Revision 1.4  1996/08/01 17:41:16  digulla
  25.     Added standard header for all files
  26.  
  27.     Desc:
  28.     Lang: english
  29. */
  30.  
  31. /* I want the macros */
  32. #define AROS_ALMOST_COMPATIBLE
  33. #include "exec_intern.h"
  34. #include <exec/lists.h>
  35. #include <proto/exec.h>
  36.  
  37. /*****************************************************************************
  38.  
  39.     NAME */
  40.  
  41.     AROS_LH1I(struct Node *, RemHead,
  42.  
  43. /*  SYNOPSIS */
  44.     AROS_LHA(struct List *, list, A0),
  45.  
  46. /*  LOCATION */
  47.     struct ExecBase *, SysBase, 43, Exec)
  48.  
  49. /*  FUNCTION
  50.     Remove the first node from a list.
  51.  
  52.     INPUTS
  53.     list - Remove the node from this list
  54.  
  55.     RESULT
  56.     The node that has been removed.
  57.  
  58.     NOTES
  59.  
  60.     EXAMPLE
  61.     struct List * list;
  62.     struct Node * head;
  63.  
  64.     // Remove node and return it
  65.     head = RemHead (list);
  66.  
  67.     BUGS
  68.  
  69.     SEE ALSO
  70.  
  71.     INTERNALS
  72.  
  73.     HISTORY
  74.     26-08-95    digulla created after EXEC-Routine
  75.     26-10-95    digulla adjusted to new calling scheme
  76.  
  77. ******************************************************************************/
  78. {
  79.     AROS_LIBFUNC_INIT
  80.     struct Node * node;
  81.  
  82.     assert (list);
  83.     /*
  84.     Unfortunately, there is no (quick) check that the node
  85.     is in a list
  86.     */
  87.  
  88.     /* Get the address of the first node or NULL */
  89.     node = list->lh_Head->ln_Succ;
  90.     if (node)
  91.     {
  92.     node->ln_Pred = (struct Node *)list;
  93.     node = list->lh_Head;
  94.     list->lh_Head = node->ln_Succ;
  95.     }
  96.  
  97.     /* Return the address or NULL */
  98.     return node;
  99.     AROS_LIBFUNC_EXIT
  100. } /* RemHead */
  101.  
  102.