IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Swap static functions so the lower one can reuse the upper one

Browse Source
This commit is contained in:
Geert Janssens 2014-09-21 21:50:48 +02:00
parent 3e0d83b256
commit db6c83cdb6
1 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
src/app-utils/gfec.c
View File

@ -118,10 +118,43 @@ gfec_catcher(void *data, SCM tag, SCM throw_args)
void *handler_data : a pointer to pass to the handler
*/
static SCM
gfec_string_helper(void *data)
{
char *string = data;
return scm_c_eval_string(string);
}
SCM
gfec_eval_string(const char *str, gfec_error_handler error_handler)
{
char *err_msg = NULL;
SCM result;
result = scm_internal_stack_catch(SCM_BOOL_T,
gfec_string_helper,
(void *) str,
gfec_catcher,
&err_msg);
if (err_msg != NULL)
{
if (error_handler)
error_handler(err_msg);
free(err_msg);
return SCM_UNDEFINED;
}
return result;
}
static SCM
gfec_file_helper(void *data)
{
char *file = data;
char *string = data;
return scm_c_primitive_load(file);
}
@ -156,39 +189,6 @@ gfec_eval_file(const char *file, gfec_error_handler error_handler)
return result;
}
static SCM
gfec_string_helper(void *data)
{
char *string = data;
return scm_c_eval_string(string);
}
SCM
gfec_eval_string(const char *str, gfec_error_handler error_handler)
{
char *err_msg = NULL;
SCM result;
result = scm_internal_stack_catch(SCM_BOOL_T,
gfec_string_helper,
(void *) str,
gfec_catcher,
&err_msg);
if (err_msg != NULL)
{
if (error_handler)
error_handler(err_msg);
free(err_msg);
return SCM_UNDEFINED;
}
return result;
}
struct gfec_apply_rec
{
SCM proc;