cvs/stack/stack.c

/* printf */
#include <stdio.h>
/* EXIT_SUCCESS */
#include <stdlib.h>
/* NULL */
#include <stddef.h>
/* dlopen, dlsym, dlerror */
#include <dlfcn.h>

#define HASHTBLSIZE 65536

typedef struct stack_item
{
  enum {value, string, ref, func, symbol, list} type;
  union {
    void* ptr;
    int val;
  } content;

  char* id;
  struct stack_item* next;
} stackitem;


typedef stackitem* hashtbl[HASHTBLSIZE];
typedef void (*funcp)(stackitem**);

void init_hashtbl(hashtbl out_hash)
{
  long i;

  for(i= 0; i<HASHTBLSIZE; i++)
    out_hash[i]= NULL;
}

stackitem** hash(hashtbl in_hashtbl, const char* in_string)
{
  long i= 0;
  unsigned long out_hash= 0;
  char key= 0;
  stackitem** position;
  
  while(1){
    key= in_string[i++];
    if(key=='\0')
      break;
    out_hash= out_hash*32+key;
  }

  out_hash= out_hash%HASHTBLSIZE;
  position= &(in_hashtbl[out_hash]);

  while(1){
    if(*position==NULL)
      return position;
    
    if(strcmp(in_string, (*position)->id)==0)
      return position;

    position= &((*position)->next);
  }
}


int push(stackitem** stack_head, stackitem* in_item)
{
  in_item->next= *stack_head;
  *stack_head= in_item;
  return 1;
}

int push_val(stackitem** stack_head, int in_val) 
{
  stackitem* new_item= malloc(sizeof(stackitem));
  new_item->content.val= in_val;
  new_item->type= value;

  push(stack_head, new_item);
  return 1;
}

int push_cstring(stackitem** stack_head, const char* in_string)
{
  stackitem* new_item= malloc(sizeof(stackitem));
  new_item->content.ptr= malloc(strlen(in_string)+1);
  strcpy(new_item->content.ptr, in_string);
  new_item->type= string;

  push(stack_head, new_item);
  return 1;
}

int mk_hashentry(hashtbl in_hashtbl, stackitem* in_item, const char* id)
{
  in_item->id= malloc(strlen(id)+1);

  strcpy(in_item->id, id);
  push(hash(in_hashtbl, id), in_item);

  return 1;
}

void def_func(hashtbl in_hashtbl, funcp in_func, const char* id)
{
  stackitem* temp= malloc(sizeof(stackitem));

  temp->type= func;
  temp->content.ptr= in_func;

  mk_hashentry(in_hashtbl, temp, id);
}

void def_sym(hashtbl in_hashtbl, const char* id)
{
  stackitem* temp= malloc(sizeof(stackitem));
  
  temp->type= symbol;

  mk_hashentry(in_hashtbl, temp, id);
}

int push_ref(stackitem** stack_head, hashtbl in_hash, const char* in_string)
{
  static void* handle= NULL;
  void* symbol;

  stackitem* new_item= malloc(sizeof(stackitem));
  new_item->content.ptr= *hash(in_hash, in_string);
  new_item->type= ref;

  if(new_item->content.ptr==NULL) {
    if(handle==NULL)
      handle= dlopen(NULL, RTLD_LAZY);    

    symbol= dlsym(handle, in_string);
    if(dlerror()==NULL) 
      def_func(in_hash, symbol, in_string);
    else
      def_sym(in_hash, in_string);
      
    new_item->content.ptr= *hash(in_hash, in_string);
    new_item->type= ref;
  }

  push(stack_head, new_item);
  return 1;
}

extern void toss(stackitem** stack_head)
{
  stackitem* temp= *stack_head;

  if((*stack_head)==NULL)
    return;
  
  if((*stack_head)->type==string)
    free((*stack_head)->content.ptr);

  *stack_head= (*stack_head)->next;
  free(temp);
}

extern void nl()
{
  printf("\n");
}

void prin(stackitem** stack_head)
{
  if((*stack_head)==NULL)
    return;

  switch((*stack_head)->type) {
  case value:
    printf("%d", (*stack_head)->content.val);
    break;
  case string:
    printf("%s", (char*)(*stack_head)->content.ptr);
    break;
  case ref:
    printf("%s", ((stackitem*)(*stack_head)->content.ptr)->id);
    break;
  case symbol:
  default:
    printf("%p", (*stack_head)->content.ptr);
    break;
  }
}

extern void print(stackitem** stack_head)
{
  prin(stack_head);
  toss(stack_head);
}

/* print_stack(stack); */
void print_st(stackitem* stack_head, long counter)
{ 
  if(stack_head->next != NULL)
    print_st(stack_head->next, counter+1);

  printf("%ld: ", counter);
  prin(&stack_head);
  nl();
}

extern void printstack(stackitem** stack_head)
{
  if(*stack_head != NULL) {
    print_st(*stack_head, 1);
    printf("\n");
  }
}


extern void eval(stackitem** stack_head)
{
  funcp in_func;

  if((*stack_head)==NULL || (*stack_head)->type!=ref)
    return;

  if(((stackitem*)(*stack_head)->content.ptr)->type==func) {
    in_func= (funcp)((stackitem*)(*stack_head)->content.ptr)->content.ptr;
    toss(stack_head); 
    (*in_func)(stack_head);
    return;
  }
}

int stack_read(stackitem** stack_head, hashtbl in_hash, char* in_line) 
{
  char *temp, *rest;
  int itemp;
  size_t inlength= strlen(in_line)+1;
  int convert= 0;

  temp= malloc(inlength);
  rest= malloc(inlength);

  if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest)) >= 1)
    push_cstring(stack_head, temp);
  else if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest)) >= 1)
    push_val(stack_head, itemp);
  else if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest)) >= 1) 
    push_ref(stack_head, in_hash, temp);
  else if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) >= 1)
    if(*temp==';')
      eval(stack_head);

  free(temp);

  if(convert<2) {
    free(rest);
    return 0;
  }
   
  stack_read(stack_head, in_hash, rest);
  
  free(rest);
  return 1;
}

extern void pack(stackitem** stack_head)
{
  void* delimiter;
  stackitem *iterator, *temp, *pack;

  if((*stack_head)==NULL)
    return;

  delimiter= (*stack_head)->content.ptr;
  toss(stack_head);

  iterator= *stack_head;

  while(iterator->next!=NULL && iterator->next->content.ptr!=delimiter)
    iterator= iterator->next;

  temp= *stack_head;
  *stack_head= iterator->next;
  iterator->next= NULL;
  
  if(*stack_head!=NULL && (*stack_head)->content.ptr==delimiter)
    toss(stack_head);

  pack= malloc(sizeof(stackitem));
  pack->type= list;
  pack->content.ptr= temp;

  push(stack_head, pack);
}

extern void expand(stackitem** stack_head)
{
  stackitem *temp, *new_head;

  if((*stack_head)==NULL || (*stack_head)->type!=list)
    return;

  new_head= temp= (*stack_head)->content.ptr;
  toss(stack_head);

  while(temp->next!=NULL)
    temp= temp->next;

  temp->next= *stack_head;
  *stack_head= new_head;
}

extern void quit()
{
  exit(EXIT_SUCCESS);
}

int main()
{
  stackitem* s= NULL;
  hashtbl myhash;
  char in_string[100];

  init_hashtbl(myhash);

  printf("okidok\n ");

  while(fgets(in_string, 100, stdin) != NULL) {
    stack_read(&s, myhash, in_string);
    printf("okidok\n ");
  }


  return EXIT_SUCCESS;
}

/* Local Variables: */
/* compile-command:"make CFLAGS=\"-Wall -g -rdynamic -ldl\" stack" */
/* End: */
1	masse	1.1	/* printf */
2			#include <stdio.h>
3			/* EXIT_SUCCESS */
4			#include <stdlib.h>
5			/* NULL */
6			#include <stddef.h>
7	teddy	1.3	/* dlopen, dlsym, dlerror */
8	masse	1.1	#include <dlfcn.h>
9
10			#define HASHTBLSIZE 65536
11
12			typedef struct stack_item
13			{
14	masse	1.7	enum {value, string, ref, func, symbol, list} type;
15	masse	1.1	union {
16			void* ptr;
17			int val;
18			} content;
19
20			char* id;
21			struct stack_item* next;
22			} stackitem;
23
24
25			typedef stackitem* hashtbl[HASHTBLSIZE];
26			typedef void (funcp)(stackitem*);
27
28			void init_hashtbl(hashtbl out_hash)
29			{
30			long i;
31
32			for(i= 0; i<HASHTBLSIZE; i++)
33			out_hash[i]= NULL;
34			}
35
36			stackitem** hash(hashtbl in_hashtbl, const char* in_string)
37			{
38			long i= 0;
39			unsigned long out_hash= 0;
40			char key= 0;
41			stackitem** position;
42
43			while(1){
44			key= in_string[i++];
45			if(key=='\0')
46			break;
47			out_hash= out_hash*32+key;
48			}
49
50			out_hash= out_hash%HASHTBLSIZE;
51			position= &(in_hashtbl[out_hash]);
52
53			while(1){
54			if(*position==NULL)
55			return position;
56
57			if(strcmp(in_string, (*position)->id)==0)
58			return position;
59
60			position= &((*position)->next);
61			}
62			}
63
64
65			int push(stackitem** stack_head, stackitem* in_item)
66			{
67			in_item->next= *stack_head;
68			*stack_head= in_item;
69			return 1;
70			}
71
72			int push_val(stackitem** stack_head, int in_val)
73			{
74			stackitem* new_item= malloc(sizeof(stackitem));
75			new_item->content.val= in_val;
76			new_item->type= value;
77
78			push(stack_head, new_item);
79			return 1;
80			}
81
82			int push_cstring(stackitem** stack_head, const char* in_string)
83			{
84			stackitem* new_item= malloc(sizeof(stackitem));
85			new_item->content.ptr= malloc(strlen(in_string)+1);
86			strcpy(new_item->content.ptr, in_string);
87			new_item->type= string;
88
89			push(stack_head, new_item);
90			return 1;
91			}
92
93			int mk_hashentry(hashtbl in_hashtbl, stackitem* in_item, const char* id)
94			{
95			in_item->id= malloc(strlen(id)+1);
96
97			strcpy(in_item->id, id);
98			push(hash(in_hashtbl, id), in_item);
99
100			return 1;
101			}
102
103			void def_func(hashtbl in_hashtbl, funcp in_func, const char* id)
104			{
105			stackitem* temp= malloc(sizeof(stackitem));
106
107			temp->type= func;
108			temp->content.ptr= in_func;
109
110			mk_hashentry(in_hashtbl, temp, id);
111			}
112
113	masse	1.4	void def_sym(hashtbl in_hashtbl, const char* id)
114			{
115			stackitem* temp= malloc(sizeof(stackitem));
116
117			temp->type= symbol;
118
119			mk_hashentry(in_hashtbl, temp, id);
120			}
121
122	masse	1.1	int push_ref(stackitem** stack_head, hashtbl in_hash, const char* in_string)
123			{
124	masse	1.6	static void* handle= NULL;
125	masse	1.1	void* symbol;
126	masse	1.6
127	masse	1.1	stackitem* new_item= malloc(sizeof(stackitem));
128			new_item->content.ptr= *hash(in_hash, in_string);
129			new_item->type= ref;
130
131	masse	1.9	if(new_item->content.ptr==NULL) {
132			if(handle==NULL)
133			handle= dlopen(NULL, RTLD_LAZY);
134	masse	1.6
135	masse	1.1	symbol= dlsym(handle, in_string);
136	masse	1.4	if(dlerror()==NULL)
137	masse	1.1	def_func(in_hash, symbol, in_string);
138	masse	1.4	else
139			def_sym(in_hash, in_string);
140
141			new_item->content.ptr= *hash(in_hash, in_string);
142			new_item->type= ref;
143	masse	1.1	}
144
145			push(stack_head, new_item);
146			return 1;
147			}
148
149			extern void toss(stackitem** stack_head)
150			{
151			stackitem* temp= *stack_head;
152
153	masse	1.7	if((*stack_head)==NULL)
154			return;
155
156			if((*stack_head)->type==string)
157			free((*stack_head)->content.ptr);
158
159	masse	1.1	stack_head= (stack_head)->next;
160			free(temp);
161			}
162
163	masse	1.8	extern void nl()
164			{
165			printf("\n");
166			}
167	masse	1.1
168	masse	1.8	void prin(stackitem** stack_head)
169			{
170			if((*stack_head)==NULL)
171			return;
172	masse	1.1
173	masse	1.8	switch((*stack_head)->type) {
174	teddy	1.2	case value:
175	masse	1.8	printf("%d", (*stack_head)->content.val);
176	teddy	1.2	break;
177			case string:
178	masse	1.8	printf("%s", (char)(stack_head)->content.ptr);
179	teddy	1.2	break;
180			case ref:
181	masse	1.8	printf("%s", ((stackitem)(stack_head)->content.ptr)->id);
182	masse	1.6	break;
183	masse	1.4	case symbol:
184	masse	1.7	default:
185	masse	1.8	printf("%p", (*stack_head)->content.ptr);
186	teddy	1.2	break;
187			}
188	masse	1.1	}
189
190	masse	1.8	extern void print(stackitem** stack_head)
191			{
192			prin(stack_head);
193			toss(stack_head);
194			}
195
196			/* print_stack(stack); */
197			void print_st(stackitem* stack_head, long counter)
198			{
199			if(stack_head->next != NULL)
200			print_st(stack_head->next, counter+1);
201
202			printf("%ld: ", counter);
203			prin(&stack_head);
204			nl();
205			}
206
207	masse	1.1	extern void printstack(stackitem** stack_head)
208			{
209			if(*stack_head != NULL) {
210			print_st(*stack_head, 1);
211			printf("\n");
212			}
213			}
214
215
216			extern void eval(stackitem** stack_head)
217			{
218			funcp in_func;
219
220			if((stack_head)==NULL \|\| (stack_head)->type!=ref)
221			return;
222
223			if(((stackitem)(stack_head)->content.ptr)->type==func) {
224			in_func= (funcp)((stackitem)(stack_head)->content.ptr)->content.ptr;
225			toss(stack_head);
226			(*in_func)(stack_head);
227			return;
228			}
229			}
230
231			int stack_read(stackitem** stack_head, hashtbl in_hash, char* in_line)
232			{
233			char temp, rest;
234			int itemp;
235			size_t inlength= strlen(in_line)+1;
236			int convert= 0;
237
238			temp= malloc(inlength);
239			rest= malloc(inlength);
240
241			if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest)) >= 1)
242			push_cstring(stack_head, temp);
243			else if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest)) >= 1)
244			push_val(stack_head, itemp);
245			else if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest)) >= 1)
246			push_ref(stack_head, in_hash, temp);
247			else if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) >= 1)
248			if(*temp==';')
249			eval(stack_head);
250
251			free(temp);
252
253			if(convert<2) {
254			free(rest);
255			return 0;
256			}
257
258			stack_read(stack_head, in_hash, rest);
259
260			free(rest);
261			return 1;
262			}
263
264	masse	1.7	extern void pack(stackitem** stack_head)
265			{
266			void* delimiter;
267			stackitem iterator, temp, *pack;
268
269			if((*stack_head)==NULL)
270			return;
271
272			delimiter= (*stack_head)->content.ptr;
273			toss(stack_head);
274
275			iterator= *stack_head;
276
277			while(iterator->next!=NULL && iterator->next->content.ptr!=delimiter)
278			iterator= iterator->next;
279
280			temp= *stack_head;
281			*stack_head= iterator->next;
282			iterator->next= NULL;
283
284			if(stack_head!=NULL && (stack_head)->content.ptr==delimiter)
285			toss(stack_head);
286
287			pack= malloc(sizeof(stackitem));
288			pack->type= list;
289			pack->content.ptr= temp;
290
291			push(stack_head, pack);
292			}
293	masse	1.1
294	masse	1.8	extern void expand(stackitem** stack_head)
295	masse	1.1	{
296	masse	1.8	stackitem temp, new_head;
297
298			if((stack_head)==NULL \|\| (stack_head)->type!=list)
299			return;
300
301			new_head= temp= (*stack_head)->content.ptr;
302			toss(stack_head);
303
304			while(temp->next!=NULL)
305			temp= temp->next;
306
307			temp->next= *stack_head;
308			*stack_head= new_head;
309	teddy	1.5	}
310
311			extern void quit()
312			{
313			exit(EXIT_SUCCESS);
314	masse	1.1	}
315
316			int main()
317			{
318			stackitem* s= NULL;
319			hashtbl myhash;
320			char in_string[100];
321
322			init_hashtbl(myhash);
323
324			printf("okidok\n ");
325
326			while(fgets(in_string, 100, stdin) != NULL) {
327			stack_read(&s, myhash, in_string);
328			printf("okidok\n ");
329			}
330
331
332			return EXIT_SUCCESS;
333			}
334	teddy	1.3
335			/* Local Variables: */
336			/* compile-command:"make CFLAGS=\"-Wall -g -rdynamic -ldl\" stack" */
337			/* End: */