luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

comments for wl_cons(), wl_append_word() and wl_chop_rest()

This commit is contained in:
rlar 2012-07-14 12:39:02 +02:00
parent 9655b9885a
commit 5859f1a61d
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/misc/wlist.c
View File

@ -275,25 +275,38 @@ wl_range(wordlist *wl, int low, int up)
} }
/*
* prepend a new `word'
* to the front of the given `wlist' wordlist
* and return this new list
*/
wordlist * wordlist *
wl_cons(char *word, wordlist *tail) wl_cons(char *word, wordlist *wlist)
{ {
wordlist *w = alloc(struct wordlist); wordlist *w = alloc(wordlist);
w->wl_next = tail; w->wl_next = wlist;
w->wl_prev = NULL; w->wl_prev = NULL;
w->wl_word = word; w->wl_word = word;
if (tail) if (wlist)
tail->wl_prev = w; wlist->wl_prev = w;
return w; return w;
} }
/*
* given a wordlist
* described by a `first' and `last' wordlist element
* append a new `word'
* and update the given `first' and `last' pointers accordingly
*/
void void
wl_append_word(wordlist **first, wordlist **last, char *word) wl_append_word(wordlist **first, wordlist **last, char *word)
{ {
wordlist *w = alloc(struct wordlist); wordlist *w = alloc(wordlist);
w->wl_next = NULL; w->wl_next = NULL;
w->wl_prev = (*last); w->wl_prev = (*last);
w->wl_word = word; w->wl_word = word;
@ -307,6 +320,12 @@ wl_append_word(wordlist **first, wordlist **last, char *word)
} }
/*
* given a pointer `wl' into a wordlist
* cut off the rest of the list
* and return this rest
*/
wordlist * wordlist *
wl_chop_rest(wordlist *wl) wl_chop_rest(wordlist *wl)
{ {