File: sslink.c

package info (click to toggle)
xscorch 0.2.0-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 4,636 kB
  • ctags: 3,399
  • sloc: ansic: 31,504; sh: 8,826; makefile: 467; perl: 16
file content (63 lines) | stat: -rw-r--r-- 1,697 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
/* $Header: /fridge/cvs/xscorch/sutil/sslink.c,v 1.4 2004/02/26 06:34:57 justins Exp $ */
/*

   xscorch - sslink.c         Copyright(c) 2000 Jacob Luna Lundberg
   jacob(at)chaos2.org        http://chaos2.org/~jacob

   A very slim slink list library for xscorch.


   This program is free software; you can redistribute it and/or modify 
   it under the terms of the GNU General Public License as published by 
   the Free Software Foundation, version 2 of the License ONLY. 

   This program is distributed in the hope that it will be useful, 
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
   General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software Foundation, 
   Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/
#include <stdlib.h>

#include <sslink.h>



slinklist *slink_last(slinklist *head) {
/* slink_last()
   Return a pointer to the last item in an slink list.
   Please, please, folks, don't call this on a ring buffer... */

   if(head == NULL) return(NULL);
   while(head->next != NULL) head = head->next;
   return(head);

}



slinklist *slink_insert(slinklist *head, slinklist *item) {
/* slink_insert()
   Insert a list item at the head of the list. */

   if(item == NULL) return(head);
   item->next = head;
   return(item);

}



slinklist *slink_append(slinklist *head, slinklist *item) {
/* slink_append()
   Append a list or item to the tail of the list. */

   if(head == NULL) return(item);
   slink_last(head)->next = item;
   return(head);

}