source: doc/papers/general/evaluation/c-stack.c @ 81e8ab0

aaron-thesisarm-ehcleanup-dtorsdeferred_resndemanglerjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerresolv-newwith_gc
Last change on this file since 81e8ab0 was 81e8ab0, checked in by Peter A. Buhr <pabuhr@…>, 4 years ago

more updates

  • Property mode set to 100644
File size: 1.1 KB
Line 
1#include <stdlib.h>
2#include "c-stack.h"
3
4struct stack_node {
5        void * value;
6        struct stack_node * next;
7};
8
9struct stack new_stack() { return (struct stack){ NULL }; /***/ }
10
11void clear_stack( struct stack * s, void (*free_el)( void * ) ) {
12        for ( struct stack_node * next = s->head; next; ) {
13                struct stack_node * crnt = next;
14                next = crnt->next;
15                free_el( crnt->value );
16                free( crnt );
17        }
18        s->head = NULL;
19}
20
21void copy_stack( struct stack * s, const struct stack * t, void * (*copy)( const void * ) ) {
22        struct stack_node ** crnt = &s->head;
23        for ( struct stack_node * next = t->head; next; next = next->next ) {
24                *crnt = malloc( sizeof(struct stack_node) ); /***/
25                (*crnt)->value = copy( next->value );
26                crnt = &(*crnt)->next;
27        }
28        *crnt = NULL;
29}
30
31_Bool stack_empty( const struct stack * s ) { return s->head == NULL; }
32
33void push_stack( struct stack * s, void * value ) {
34        struct stack_node * n = malloc( sizeof(struct stack_node) ); /***/
35        *n = (struct stack_node){ value, s->head }; /***/
36        s->head = n;
37}
38
39void * pop_stack( struct stack * s ) {
40        struct stack_node * n = s->head;
41        s->head = n->next;
42        void * v = n->value;
43        free( n );
44        return v;
45}
Note: See TracBrowser for help on using the repository browser.