128 |
new_item->content.ptr= *hash(in_hash, in_string); |
new_item->content.ptr= *hash(in_hash, in_string); |
129 |
new_item->type= ref; |
new_item->type= ref; |
130 |
|
|
|
if(handle==NULL) |
|
|
handle= dlopen(NULL, RTLD_LAZY); |
|
|
|
|
131 |
if(new_item->content.ptr==NULL) { |
if(new_item->content.ptr==NULL) { |
132 |
|
if(handle==NULL) |
133 |
|
handle= dlopen(NULL, RTLD_LAZY); |
134 |
|
|
135 |
symbol= dlsym(handle, in_string); |
symbol= dlsym(handle, in_string); |
136 |
if(dlerror()==NULL) |
if(dlerror()==NULL) |
137 |
def_func(in_hash, symbol, in_string); |
def_func(in_hash, symbol, in_string); |
308 |
*stack_head= new_head; |
*stack_head= new_head; |
309 |
} |
} |
310 |
|
|
311 |
|
extern void swap(stackitem** stack_head) |
312 |
|
{ |
313 |
|
stackitem* temp= (*stack_head); |
314 |
|
|
315 |
|
if((*stack_head)==NULL || (*stack_head)->next==NULL) |
316 |
|
return; |
317 |
|
|
318 |
|
*stack_head= (*stack_head)->next; |
319 |
|
temp->next= (*stack_head)->next; |
320 |
|
(*stack_head)->next= temp; |
321 |
|
} |
322 |
|
|
323 |
extern void quit() |
extern void quit() |
324 |
{ |
{ |
325 |
exit(EXIT_SUCCESS); |
exit(EXIT_SUCCESS); |
340 |
printf("okidok\n "); |
printf("okidok\n "); |
341 |
} |
} |
342 |
|
|
343 |
|
exit(EXIT_SUCCESS); |
|
return EXIT_SUCCESS; |
|
344 |
} |
} |
345 |
|
|
346 |
/* Local Variables: */ |
/* Local Variables: */ |