|
|
1.1 ! root 1: /*************************************************************************** ! 2: * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne. JOVE * ! 3: * is provided to you without charge, and with no warranty. You may give * ! 4: * away copies of JOVE, including sources, provided that this notice is * ! 5: * included in all the files. * ! 6: ***************************************************************************/ ! 7: ! 8: /* generic singly linked list package */ ! 9: ! 10: typedef char *Element; ! 11: ! 12: typedef struct cons List; ! 13: ! 14: struct cons { ! 15: Element *car; ! 16: List *cdr; ! 17: }; ! 18: ! 19: #define list_next(lp) ((lp)->cdr) ! 20: #define list_data(lp) ((lp)->car) ! 21: ! 22: extern Element ! 23: *list_push proto((List **, Element *)), ! 24: *list_pop proto((List **));
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.