47 |
{ |
{ |
48 |
scm_init_load_path(); |
scm_init_load_path(); |
49 |
radscm_init(); |
radscm_init(); |
50 |
rscm_radlog_init(); |
rscm_server_init(); |
|
rscm_rewrite_init(); |
|
51 |
radiusd_main(); |
radiusd_main(); |
52 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
53 |
} |
} |
111 |
_("%s is not a procedure object"), procname); |
_("%s is not a procedure object"), procname); |
112 |
return 1; |
return 1; |
113 |
} |
} |
114 |
if (setjmp(jmp_env)) |
if (setjmp(jmp_env)) { |
115 |
|
radlog(L_NOTICE, |
116 |
|
_("Procedure `%s' failed: see error output for details"), |
117 |
|
procname); |
118 |
return 1; |
return 1; |
119 |
|
} |
120 |
|
|
121 |
res = scm_internal_lazy_catch( |
res = scm_internal_lazy_catch( |
122 |
SCM_BOOL_T, |
SCM_BOOL_T, |
123 |
eval_catch_body, |
eval_catch_body, |
162 |
_("%s is not a procedure object"), procname); |
_("%s is not a procedure object"), procname); |
163 |
return 1; |
return 1; |
164 |
} |
} |
165 |
if (setjmp(jmp_env)) |
if (setjmp(jmp_env)) { |
166 |
|
radlog(L_NOTICE, |
167 |
|
_("Procedure `%s' failed: see error output for details"), |
168 |
|
procname); |
169 |
return 1; |
return 1; |
170 |
|
} |
171 |
res = scm_internal_lazy_catch( |
res = scm_internal_lazy_catch( |
172 |
SCM_BOOL_T, |
SCM_BOOL_T, |
173 |
eval_catch_body, |
eval_catch_body, |