src/interp/rassa.c
/*====================================+
 * request_file -- Prompt user for file name
 *  returns open file pointer, or NULL if error
 *  handles error message
 * Created: 2002/01/18
 *===================================*/
- Prompt user for file name
returns open file pointer, or NULL if error
handles error message
Created: 2002/01/18
- Prompt user for file name returns open file pointer or NULL if error handles error message Created : 2002 / 01 / 18
static BOOLEAN
request_file (BOOLEAN *eflg)
{
	STRING rptdir = getlloptstr("LLREPORTS", ".");
	STRING fname=0, fullpath=0;
	Poutfp = rptui_ask_for_output_file(LLWRITETEXT, _(qSwhtout), &fname
		, &fullpath, rptdir, NULL);
	if (!Poutfp || !fname || !fname[0])  {
		if (fname)
			prog_error(0, _("Report stopping due to error opening output file"));
		else
			prog_error(0, _("Report stopping due to lack of output file"));
		*eflg = TRUE;
		rpt_cancelled = TRUE;
		strfree(&fname);
		return FALSE;
	}
	if (outfilename)
		stdfree(outfilename);
	outfilename = fullpath;
	strfree(&fname);
	prefix_file_for_report(Poutfp);
	return TRUE;
}
static BOOLEAN request_file ( BOOLEAN * eflg ) { STRING rptdir = getlloptstr ( " " , " " ) ; STRING fname = 0 , fullpath = 0 ; Poutfp = rptui_ask_for_output_file ( LLWRITETEXT , _ ( qSwhtout ) , & fname , & fullpath , rptdir , NULL ) ; if ( ! Poutfp || ! fname || ! fname [ 0 ] ) { if ( fname ) prog_error ( 0 , _ ( " " ) ) ; else prog_error ( 0 , _ ( " " ) ) ; * eflg = TRUE ; rpt_cancelled = TRUE ; strfree ( & fname ) ; return FALSE ; } if ( outfilename ) stdfree ( outfilename ) ; outfilename = fullpath ; strfree ( & fname ) ; prefix_file_for_report ( Poutfp ) ; return TRUE ; }
+
 request_file -- Prompt user for file name
  returns open file pointer, or NULL if error
  handles error message
 Created: 2002/01/18
+ request_file -- Prompt user for file name returns open file pointer or NULL if error handles error message Created : 2002 / 01 / 18
/* set error flag to stop interpreter */ /* set cancel flag to suppress traceback */