home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / educ / splines.lzh / SPLINES / DLIST.C < prev    next >
C/C++ Source or Header  |  1991-08-16  |  3KB  |  126 lines
  1. /* The routines in this file are copyright (c) 1987 by Helene (Lee) Taran.
  2.  * Permission is granted for use and free distribution as long as the
  3.  * original author's name is included with the code.
  4.  */
  5.  
  6. #include "dlist.h"
  7.  
  8. Init_List(list)
  9. DLISTPTR list; 
  10. { 
  11.  int *calloc();
  12.  list->next = list;
  13.  list->prev = list;
  14.  list->contents = calloc(1,sizeof(int));
  15.  *((int *)(list->contents)) = 0;
  16. }
  17.  
  18.  
  19. /* Inserts <element> before <position> in <list> */
  20. Insert_Before(position, element, list)  
  21. DLISTPTR position, element, list; 
  22. { 
  23.    *((int *)(list->contents)) = LENGTH(list) + 1;
  24.    element->next = position;
  25.    element->prev = position->prev;
  26.    position->prev->next = element;
  27.    position->prev = element;
  28. }
  29.  
  30. /* Inserts <element> after <position> in <list> */
  31. Insert_After(position,element,list)
  32. DLISTPTR position, element, list; 
  33. {
  34.    *((int *)(list->contents)) = LENGTH(list) + 1;
  35.    element->prev = position;
  36.    element->next = position->next;
  37.    position->next->prev = element;
  38.    position->next = element;
  39. }
  40.  
  41. /* Removes <element> from <list>. Assumes the <element> is currently
  42.  * a member of <list>. Does not deallocate <element>
  43.  */
  44. DLISTPTR Remove_Element(element,list)
  45. DLISTPTR element,list;  
  46. {
  47.    if (ISEMPTY(list)) return(list);
  48.    *((int *)(list->contents)) = LENGTH(list) - 1;
  49.    element->prev->next = element->next;
  50.    element->next->prev = element->prev;
  51.    element->next = NULL;
  52.    element->prev = NULL;
  53.    return(element);
  54. }
  55.  
  56.  
  57. /* Member: Returns TRUE if element is a member of the list 
  58.  */
  59. Member (element, list)
  60. DLISTPTR element,list;    
  61. { 
  62.    DLISTPTR tmp = list;
  63.    while ((tmp = tmp->next) != list) 
  64.      if (tmp == element) return(TRUE);     
  65.    return(FALSE);
  66. }
  67.  
  68. /* Get_Member : returns the member of the list that contains <element>
  69.  * returns NULL if not a member of the list.
  70.  */
  71. DLISTPTR GET_MEMBER(element, list) 
  72. void *element; 
  73. DLISTPTR list;   
  74. {
  75.   DLISTPTR tmp = list;
  76.   while ((tmp = tmp->next) != list ) 
  77.      if (tmp->contents == element) return(tmp);     
  78.   return(FALSE);
  79. }
  80.   
  81. /* Find_Element: returns the member of the list that contains some element
  82.  * that satisfies the given test with respect to <element>.  For example:
  83.  * you can define a function equal that returns true if two elements have
  84.  * the exact same fields. 
  85.  * Returns FALSE if no member of the list satifies the test. 
  86.  */
  87. DLISTPTR Find_Element(element,list,test)
  88. void *element;
  89. DLISTPTR list;                 
  90. int (*test)(); 
  91. {
  92.   DLISTPTR tmp = list;
  93.   while ((tmp = tmp->next) != list ) 
  94.      if ((*test)(tmp->contents,element)) return(tmp);     
  95.   return(FALSE);
  96. }
  97.  
  98. /* Apply : applies the given function to the contents of each list
  99.  * element.
  100.  */
  101. Apply(fn,list)
  102. int (*fn)();
  103. DLISTPTR list;
  104. {
  105.    DLISTPTR tmp = list;
  106.    while ((tmp = tmp->next) != list) (*fn)(tmp->contents);
  107.  
  108. }
  109.  
  110.  
  111. /* Removes and disposes of all elements in a list --- does not deallocate
  112.  * the head of the list. if <foo> is non-zero then deallocate the contents
  113.  * of each element.
  114.  */
  115. ClearList (list,foo)
  116. DLISTPTR list; 
  117. int foo;
  118. {
  119.   DLISTPTR doomed;
  120.   while ((doomed = Remove_Element(FIRST(list),list)) != list) {
  121.       if (foo) free(doomed->contents);
  122.       free(doomed);
  123.   }
  124. }
  125.  
  126.