/*============================
* vccprintf -- vprintf with codeset convert from internal to GUI
* Created: 2002/12/03 (Perry Rapp)
*==========================*/
int
vccprintf (const char *fmt, va_list args)
{
int rtn;
ZSTR zstr = zs_newvf(fmt, args);
int_to_disp(zstr);
rtn = printf(zs_str(zstr));
zs_free(&zstr);
return rtn;
}
/*============================
* vccwprintw -- vwprintw with codeset convert from internal to GUI
* Created: 2002/12/03 (Perry Rapp)
*==========================*/
int
vccwprintw (WINDOW *wp, const char *fmt, va_list args)
{
ZSTR zstr = zs_newvf(fmt, args);
int rtn;
int_to_disp(zstr);
rtn = waddstr(wp, zs_str(zstr));
zs_free(&zstr);
return rtn;
}
/*=============================================+
* prog_var_error -- Report a run time program error
* due to mistyping of a particular variable
* node: [IN] current parse node
* stab: [IN] current symbol table (lexical scope)
* arg: [IN] if non-null, parse node of troublesome argument
* val: [IN] if non-null, PVALUE of troublesome argument
* fmt... [IN] message
*
* Inline debugger is implemented here
* See vprog_error
* Created: 2005-06-01, Perry Rapp
*============================================*/
void
prog_var_error (PNODE node, SYMTAB stab, PNODE arg, PVALUE val, STRING fmt, ...)
{
va_list args;
ZSTR zstr;
va_start(args, fmt);
zstr = zs_newvf(fmt, args);
va_end(args);
prog_var_error_zstr(node, stab, arg, val, zstr);
}
