static void knh_Exception_addStackTrace(CTX ctx, kException *e, ksfp_t *sfp)
{
CWB_t cwbbuf, *cwb = CWB_open0(ctx, &cwbbuf);
kMethod *mtd = sfp[K_MTDIDX].mtdNC;
if((mtd)->mn != MN_LAMBDA) {
int i = 0, psize = knh_Method_psize(mtd);
kline_t uline = knh_stack_uline(ctx, sfp);
knh_write_uline(ctx, cwb->w, uline);
knh_write_type(ctx, cwb->w, (mtd)->cid);
knh_putc(ctx, cwb->w, '.');
knh_write_mn(ctx, cwb->w, (mtd)->mn);
knh_putc(ctx, cwb->w, '(');
for(i = 0; i < psize; i++) {
kparam_t *p = knh_Param_get(DP(mtd)->mp, i);
ktype_t type = ktype_tocid(ctx, p->type, O_cid(sfp[0].o));
if(i > 0) {
knh_putc(ctx, cwb->w, ',');
}
knh_write_fn(ctx, cwb->w, p->fn);
knh_putc(ctx, cwb->w, '=');
knh_write_sfp(ctx, cwb->w, type, &sfp[i+1], FMT_line);
}
knh_putc(ctx, cwb->w, ')');
if(e->tracesNULL == NULL) {
KNH_INITv(e->tracesNULL, new_Array(ctx, CLASS_String, 0));
}
knh_Array_add(ctx, e->tracesNULL, CWB_newString0(ctx, cwb));
}
}
void knh_makeEvidence(Ctx *ctx, const char *ns, const char *event, int p, const char *fmt, ...)
{
if(p > LOG_WARNING && !knh_isSystemVerbose()) return;
va_list ap;
va_start(ap , fmt);
if(fmt[0] == '*') {
char newfmt[512];
knh_snprintf(newfmt, sizeof(newfmt), K_EVENT_FORMAT "%s", ns, event, fmt+1);
ctx->share->ebiSPI->vsyslog(p, newfmt, ap);
}
else {
DBG_ASSERT(ctx->bufa != NULL);
knh_cwb_t cwbbuf, *cwb = knh_cwb_open(ctx, &cwbbuf);
knh_printf(ctx, cwb->w, K_EVENT_FORMAT, ns, event);
if(ctx->gma != NULL && SP(ctx->gma)->line != 0) {
knh_write_uline(ctx, cwb->w, SP(ctx->gma)->uri, SP(ctx->gma)->line);
}
knh_vprintf(ctx, cwb->w, fmt, ap);
ctx->share->ebiSPI->syslog(p, knh_cwb_tochar(ctx, cwb));
knh_cwb_clear(cwb, 0);
}
va_end(ap);
if(p == LOG_EMERG || p == LOG_CRIT) {
#if defined(K_USING_DEBUG)
DBG_ABORT();
#endif
knh_exit(ctx, 0);
}
}
static knh_String_t *Gamma_vperror(CTX ctx, int pe, const char *fmt, va_list ap)
{
knh_String_t *msg = TS_EMPTY;
int isPRINT = (pe <= KC_DWARN) ? 1 : 0;
if(pe != KC_DEBUG && (CTX_isInteractive(ctx) || knh_isCompileOnly(ctx))) {
isPRINT = 1;
}
if(Gamma_isQuiet(ctx->gma) || ctx->gma->uline == 0) {
isPRINT = 0;
}
//DBG_P("/*isPRINT=%d*/ uline=%d", isPRINT, ctx->gma->uline);
if(isPRINT == 1) {
knh_cwb_t cwbbuf, *cwb = knh_cwb_open(ctx, &cwbbuf);
knh_write_uline(ctx, cwb->w, ctx->gma->uline);
knh_write_ascii(ctx, cwb->w, KC__(pe));
knh_vprintf(ctx, cwb->w, fmt, ap);
msg = knh_cwb_newString(ctx, cwb);
knh_Array_add(ctx, DP(ctx->gma)->errmsgs, msg);
fprintf(stderr, "%s - %s%s\n", TERM_BNOTE(ctx, pe), S_tochar(msg), TERM_ENOTE(ctx, pe));
}
return msg;
}
