| version 1.6, 2018/04/17 02:50:07 |
version 1.7, 2018/04/18 08:31:51 |
|
|
| /* $OpenXM: OpenXM/src/ox_gsl/ox_eval.c,v 1.5 2018/04/13 16:51:42 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_gsl/ox_eval.c,v 1.6 2018/04/17 02:50:07 ohara Exp $ */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| #include <stdlib.h> |
#include <stdlib.h> |
| Line 118 int register_entry(char *s, double v) |
|
| Line 118 int register_entry(char *s, double v) |
|
| { |
{ |
| entry *e = &local_dic[local_dic_counter]; |
entry *e = &local_dic[local_dic_counter]; |
| if(local_dic_counter<LOCAL_DIC_SIZE-1) { |
if(local_dic_counter<LOCAL_DIC_SIZE-1) { |
| e->name = s; |
e->name = (char *)malloc(strlen(s)+1); |
| |
strcpy(e->name, s); |
| e->v = v; |
e->v = v; |
| e->f = NULL; |
e->f = NULL; |
| local_dic_counter++; |
local_dic_counter++; |
| return 1; |
return 1; |
| } |
} |