root/trunk/ensc_vector/list-at.c

Revision 1896, 1.1 kB (checked in by ensc, 4 years ago)

initial checkin

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 // $Id$    --*- c -*--
2
3 // Copyright (C) 2005 Enrico Scholz <enrico.scholz@sigma-chemnitz.de>
4 // 
5 // This program is free software; you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation; version 2 of the License.
8 // 
9 // This program is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 // GNU General Public License for more details.
13 // 
14 // You should have received a copy of the GNU General Public License
15 // along with this program; if not, write to the Free Software
16 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 // 
18
19 #ifdef HAVE_CONFIG_H
20 include <config.h>
21 #endif
22
23 #include "list.h"
24 #include "list-internal.h"
25
26 void const *
27 List_at_const(struct List const *l, size_t idx)
28 {
29   struct ListItem const         *itm  = l->root;
30  
31   for (; itm!=0 && idx>0; --idx)
32     itm = itm->next;
33
34   if (itm!=0) return itm->data;
35   else        return 0;
36 }
Note: See TracBrowser for help on using the browser.