void
getl_include_syntax_file (const char *fn)
{
if (cur_source != NULL)
{
char *found_fn = fn_search_path (fn, ds_c_str (&getl_include_path),
void
getl_include_syntax_file (const char *fn)
{
if (cur_source != NULL)
{
char *found_fn = fn_search_path (fn, ds_c_str (&getl_include_path),
}
/* Pops F off the stack of file locations.
Argument F is only used for verification that that is actually the
item on top of the stack. */
void
}
/* Pops F off the stack of file locations.
Argument F is only used for verification that that is actually the
item on top of the stack. */
void
/* Open file, if not yet opened. */
if (s->u.syntax_file == NULL)
{
/* Open file, if not yet opened. */
if (s->u.syntax_file == NULL)
{
s->u.syntax_file = fn_open (s->fn, "r");
if (s->u.syntax_file == NULL)
s->u.syntax_file = fn_open (s->fn, "r");
if (s->u.syntax_file == NULL)