- struct
- {
- bool do_it_;
- char const *func_name_;
- } settings[] = {
- {make_tex, "convert-to-tex"},
- {make_dvi, "convert-to-dvi"},
- {make_ps, "convert-to-ps"},
- {make_pdf, "convert-to-pdf"},
- {make_png, "convert-to-png"},
- {0,0}
- };
-
- for (int i= 0; settings[i].func_name_; i++)
- {
- if (settings[i].do_it_)
- {
- SCM func = scm_c_module_lookup (module, settings[i].func_name_);
- if (scm_variable_p (func) == SCM_BOOL_T)
- {
- func = scm_variable_ref (func);
- if (ly_c_procedure_p (func))
- scm_call_2 (func, self_scm(), file_name);
- }
- }
- }