local void Exception_Error(void) {
ThreadData* td = current(Thread);
print_to($(File, stderr), 0, "\n");
print_to($(File, stderr), 0, "!!\t\n");
print_to($(File, stderr), 0, "!!\tUncaught %$ at (%s:%s:%i) \n", Exception_Object(), $(String, (char*)td->exc_file), $(String, (char*)td->exc_func), $(Int, td->exc_lineno));
print_to($(File, stderr), 0, "!!\t\n");
print_to($(File, stderr), 0, "!!\t\t %s\n", Exception_Message());
print_to($(File, stderr), 0, "!!\t\n");
print_to($(File, stderr), 0, "!!\tStack Trace: \n");
print_to($(File, stderr), 0, "!!\t\n");
#if defined(__unix__) || defined(__APPLE__)
char** symbols = backtrace_symbols(td->exc_backtrace, td->exc_backtrace_count);
for (int i = 0; i < td->exc_backtrace_count; i++) {
print_to($(File, stderr), 0, "!!\t\t[%i] %s\n", $(Int, i), $(String, symbols[i]));
}
print_to($(File, stderr), 0, "!!\t\n");
free(symbols);
#endif
exit(EXIT_FAILURE);
}
void tan_print_to(const tan_t* tan, FILE* f) {
if (tan->sin) {
print_to(tan, f, "SIN");
} else {
print_to(tan, f, "TAN");
}
}
static int GC_Show(var self, var out, int pos) {
struct GC* gc = self;
pos = print_to(out, pos, "<'GC' At 0x%p\n", self);
for (size_t i = 0; i < gc->nslots; i++) {
if (gc->entries[i].hash is 0) {
pos = print_to(out, pos, "| %i : \n", $I(i));
continue;
}
pos = print_to(out, pos, "| %i : %15s %p %s %s\n",
$I(i), type_of(gc->entries[i].ptr),
gc->entries[i].ptr,
gc->entries[i].root ? $S("root") : $S("auto"),
gc->entries[i].marked ? $S("*") : $S(" "));
}
return print_to(out, pos, "+------------------->\n");
}
int show_to(var self, var out, int pos) {
if (not type_implements(type_of(self), Show)) {
return print_to(out, 0, "<'%s' At 0x%p>", type_of(self), self);
} else {
Show* ishow = type_class(type_of(self), Show);
return ishow->show(self, out, pos);
}
}
void tpv_print_to(const tpv_t* tpv, FILE* f) {
double det,pixsc;
print_to(&(tpv->wcstan), f, "TPV");
/*
if (tpv->a_order > 0) {
int p, q;
for (p=0; p<=tpv->a_order; p++) {
fprintf(f, (p ? " " : " A = "));
for (q=0; q<=tpv->a_order; q++)
if (p+q <= tpv->a_order)
//fprintf(f,"a%d%d=%le\n", p,q,tpv->a[p][q]);
fprintf(f,"%12.5g", tpv->a[p][q]);
fprintf(f,"\n");
}
}
if (tpv->b_order > 0) {
int p, q;
for (p=0; p<=tpv->b_order; p++) {
fprintf(f, (p ? " " : " B = "));
for (q=0; q<=tpv->b_order; q++)
if (p+q <= tpv->a_order)
fprintf(f,"%12.5g", tpv->b[p][q]);
//if (p+q <= tpv->b_order && p+q > 0)
//fprintf(f,"b%d%d=%le\n", p,q,tpv->b[p][q]);
fprintf(f,"\n");
}
}
det = tpv_det_cd(tpv);
pixsc = 3600*sqrt(fabs(det));
//fprintf(f," det(CD)=%g\n", det);
fprintf(f," sqrt(det(CD))=%g [arcsec]\n", pixsc);
//fprintf(f,"\n");
*/
}
int Vec2_Show(var self, var output, int pos) {
Vec2Data* v = cast(self, Vec2);
return print_to(output, pos, "(%f, %f)", $(Real, v->x), $(Real, v->y));
}
int Real_Show(var self, var output, int pos) {
return print_to(output, pos, "%f", self);
}
int Reference_Show(var self, var output, int pos) {
return print_to(output, pos, "<'Reference' at 0x%p (%$)>", self, at(self,0));
}
// print
template <class... Ts> inline std::ostream &print(const Ts &... args) {
return print_to(std::cout, args...);
}
int Type_Show(var self, var output, int pos) {
return print_to(output, pos, "%s", self);
}
void sip_print_to(const sip_t* sip, FILE* f) {
double det,pixsc;
if (sip->wcstan.sin) {
print_to(&(sip->wcstan), f, "SIN-SIP");
} else {
print_to(&(sip->wcstan), f, "TAN-SIP");
}
fprintf(f, " SIP order: A=%i, B=%i, AP=%i, BP=%i\n",
sip->a_order, sip->b_order, sip->ap_order, sip->bp_order);
if (sip->a_order > 0) {
int p, q;
for (p=0; p<=sip->a_order; p++) {
fprintf(f, (p ? " " : " A = "));
for (q=0; q<=sip->a_order; q++)
if (p+q <= sip->a_order)
//fprintf(f,"a%d%d=%le\n", p,q,sip->a[p][q]);
fprintf(f,"%12.5g", sip->a[p][q]);
fprintf(f,"\n");
}
}
if (sip->b_order > 0) {
int p, q;
for (p=0; p<=sip->b_order; p++) {
fprintf(f, (p ? " " : " B = "));
for (q=0; q<=sip->b_order; q++)
if (p+q <= sip->a_order)
fprintf(f,"%12.5g", sip->b[p][q]);
//if (p+q <= sip->b_order && p+q > 0)
//fprintf(f,"b%d%d=%le\n", p,q,sip->b[p][q]);
fprintf(f,"\n");
}
}
if (sip->ap_order > 0) {
int p, q;
for (p=0; p<=sip->ap_order; p++) {
fprintf(f, (p ? " " : " AP = "));
for (q=0; q<=sip->ap_order; q++)
if (p+q <= sip->ap_order)
fprintf(f,"%12.5g", sip->ap[p][q]);
fprintf(f,"\n");
}
}
if (sip->bp_order > 0) {
int p, q;
for (p=0; p<=sip->bp_order; p++) {
fprintf(f, (p ? " " : " BP = "));
for (q=0; q<=sip->bp_order; q++)
if (p+q <= sip->bp_order)
fprintf(f,"%12.5g", sip->bp[p][q]);
fprintf(f,"\n");
}
}
det = sip_det_cd(sip);
pixsc = 3600*sqrt(fabs(det));
//fprintf(f," det(CD)=%g\n", det);
fprintf(f," sqrt(det(CD))=%g [arcsec]\n", pixsc);
//fprintf(f,"\n");
}
/*
* Create a request
*/
char* build_uac_req(str* method, str* headers, str* body, dlg_t* dialog,
int branch, struct cell *t, int* len)
{
char* buf, *w;
str content_length, cseq, via;
if (!method || !dialog) {
LM_ERR("inalid parameter value\n");
return 0;
}
if (print_content_length(&content_length, body) < 0) {
LM_ERR("failed to print content-length\n");
return 0;
}
if (print_cseq_num(&cseq, dialog) < 0) {
LM_ERR("failed to print CSeq number\n");
return 0;
}
*len = method->len + 1 + dialog->hooks.request_uri->len + 1 +
SIP_VERSION_LEN + CRLF_LEN;
if (assemble_via(&via, t, dialog->send_sock, branch) < 0) {
LM_ERR("failed to assemble Via\n");
return 0;
}
*len += via.len;
/* To */
*len += TO_LEN
+ (dialog->rem_dname.len ? dialog->rem_dname.len+1 : 0)
+ dialog->rem_uri.len
+ (dialog->id.rem_tag.len ? TOTAG_LEN + dialog->id.rem_tag.len : 0)
+ (dialog->rem_dname.len || dialog->id.rem_tag.len ? 2 : 0)
+ CRLF_LEN;
/* From */
*len += FROM_LEN
+ (dialog->loc_dname.len ? dialog->loc_dname.len+1 : 0)
+ dialog->loc_uri.len
+ (dialog->id.loc_tag.len ? FROMTAG_LEN + dialog->id.loc_tag.len : 0)
+ (dialog->loc_dname.len || dialog->id.loc_tag.len ? 2 : 0)
+ CRLF_LEN;
/* Call-ID */
*len += CALLID_LEN + dialog->id.call_id.len + CRLF_LEN;
/* CSeq */
*len += CSEQ_LEN + cseq.len + 1 + method->len + CRLF_LEN;
/* Route set */
*len += calculate_routeset_length(dialog);
/* Content-Length */
*len += CONTENT_LENGTH_LEN + content_length.len + CRLF_LEN;
/* Signature */
*len += (server_signature ? (user_agent_header.len + CRLF_LEN) : 0);
/* Additional headers */
*len += (headers ? headers->len : 0);
/* Message body */
*len += (body ? body->len : 0);
/* End of Header */
*len += CRLF_LEN;
buf = shm_malloc(*len + 1);
if (!buf) {
LM_ERR("no more share memory\n");
goto error;
}
w = buf;
w = print_request_uri(w, method, dialog, t, branch); /* Request-URI */
append_string(w, via.s, via.len); /* Top-most Via */
w = print_to(w, dialog, t); /* To */
w = print_from(w, dialog, t); /* From */
w = print_cseq(w, &cseq, method, t); /* CSeq */
w = print_callid(w, dialog, t); /* Call-ID */
w = print_routeset(w, dialog); /* Route set */
/* Content-Length */
append_string(w, CONTENT_LENGTH, CONTENT_LENGTH_LEN);
append_string(w, content_length.s, content_length.len);
append_string(w, CRLF, CRLF_LEN);
/* Server signature */
if (server_signature) {
append_string(w, user_agent_header.s, user_agent_header.len);
append_string(w, CRLF, CRLF_LEN);
}
if (headers) {
t->uac[branch].extra_headers.s = w;
t->uac[branch].extra_headers.len = headers->len;
append_string(w, headers->s, headers->len);
}
append_string(w, CRLF, CRLF_LEN);
if (body) {
t->uac[branch].body.s = w;
t->uac[branch].body.len = body->len;
append_string(w, body->s, body->len);
}
#ifdef EXTRA_DEBUG
if (w-buf != *len ) abort();
#endif
pkg_free(via.s);
return buf;
error:
pkg_free(via.s);
return 0;
}
std::ostream &operator<<(std::ostream &os,
const std::chrono::duration<RepT, PeriodT> &d) {
return print_to(os, d.count(), " ", detail::_period_str(PeriodT()));
}
/*
* Create a request
*/
char* build_uac_req(str* method, str* headers, str* body, dlg_t* dialog,
int branch, struct cell *t, int* len, struct dest_info* dst)
{
char* buf, *w, *p;
str content_length, cseq, via;
unsigned int maxfwd_len;
int tbracket, fbracket;
str fromtag = STR_NULL;
str loc_tag = STR_NULL;
if (!method || !dialog) {
LM_ERR("invalid parameter value\n");
return 0;
}
if (dialog->id.loc_tag.len<=0) {
/* From Tag is mandatory in RFC3261 - generate one if not provided */
generate_fromtag(&fromtag, &dialog->id.call_id);
loc_tag = dialog->id.loc_tag;
dialog->id.loc_tag = fromtag;
}
if (print_content_length(&content_length, body) < 0) {
LM_ERR("error while printing content-length\n");
return 0;
}
if (print_cseq_num(&cseq, dialog) < 0) {
LM_ERR("error while printing CSeq number\n");
return 0;
}
if(headers==NULL || headers->len<15
|| _strnstr(headers->s, "Max-Forwards:", headers->len)==NULL) {
maxfwd_len = MAXFWD_HEADER_LEN;
} else {
maxfwd_len = 0;
}
*len = method->len + 1 + dialog->hooks.request_uri->len + 1
+ SIP_VERSION_LEN + CRLF_LEN;
if (assemble_via(&via, t, dst, branch) < 0) {
LM_ERR("error while assembling Via\n");
return 0;
}
*len += via.len;
if((p=q_memrchr(dialog->rem_uri.s, '>', dialog->rem_uri.len))!=NULL) {
if((p==dialog->rem_uri.s + dialog->rem_uri.len - 1)
|| *(p+1)==';') {
tbracket = 0;
} else {
tbracket = 1;
}
} else {
tbracket = 1;
}
if((p=q_memrchr(dialog->loc_uri.s, '>', dialog->loc_uri.len))!=NULL) {
if((p==dialog->loc_uri.s + dialog->loc_uri.len - 1)
|| *(p+1)==';') {
fbracket = 0;
} else {
fbracket = 1;
}
} else {
fbracket = 1;
}
*len += TO_LEN + dialog->rem_uri.len
+ (dialog->id.rem_tag.len ? (TOTAG_LEN + dialog->id.rem_tag.len) : 0)
+ CRLF_LEN; /* To */
if(tbracket) *len += 2; /* To-URI < > */
*len += FROM_LEN + dialog->loc_uri.len
+ (dialog->id.loc_tag.len ? (FROMTAG_LEN + dialog->id.loc_tag.len) : 0)
+ CRLF_LEN; /* From */
if(fbracket) *len += 2; /* From-URI < > */
*len += CALLID_LEN + dialog->id.call_id.len + CRLF_LEN; /* Call-ID */
*len += CSEQ_LEN + cseq.len + 1 + method->len + CRLF_LEN; /* CSeq */
*len += calculate_routeset_length(dialog); /* Route set */
*len += maxfwd_len; /* Max-forwards */
*len += CONTENT_LENGTH_LEN + content_length.len
+ CRLF_LEN; /* Content-Length */
*len += ((server_signature && user_agent_hdr.len>0)
? (user_agent_hdr.len + CRLF_LEN) : 0); /* Signature */
if(headers && headers->len>2) {
/* Additional headers */
*len += headers->len;
/* End of header if missing */
if(headers->s[headers->len - 1] != '\n')
*len += CRLF_LEN;
}
*len += (body ? body->len : 0); /* Message body */
*len += CRLF_LEN; /* End of Header */
buf = shm_malloc(*len + 1);
if (!buf) {
LM_ERR("no more shared memory (%d)\n", *len);
goto error;
}
w = buf;
w = print_request_uri(w, method, dialog, t, branch); /* Request-URI */
memapp(w, via.s, via.len); /* Top-most Via */
w = print_to(w, dialog, t, tbracket); /* To */
w = print_from(w, dialog, t, fbracket); /* From */
if(fromtag.len>0) {
dialog->id.loc_tag = loc_tag;
}
w = print_cseq(w, &cseq, method, t); /* CSeq */
w = print_callid(w, dialog, t); /* Call-ID */
w = print_routeset(w, dialog); /* Route set */
if(maxfwd_len>0)
memapp(w, MAXFWD_HEADER, MAXFWD_HEADER_LEN); /* Max-forwards */
/* Content-Length */
memapp(w, CONTENT_LENGTH, CONTENT_LENGTH_LEN);
memapp(w, content_length.s, content_length.len);
memapp(w, CRLF, CRLF_LEN);
/* Server signature */
if (server_signature && user_agent_hdr.len>0) {
memapp(w, user_agent_hdr.s, user_agent_hdr.len);
memapp(w, CRLF, CRLF_LEN);
}
if(headers && headers->len>2) {
memapp(w, headers->s, headers->len);
if(headers->s[headers->len - 1] != '\n')
memapp(w, CRLF, CRLF_LEN);
}
memapp(w, CRLF, CRLF_LEN);
if (body) memapp(w, body->s, body->len);
#ifdef EXTRA_DEBUG
assert(w-buf == *len);
#endif
memapp(w, "\0", 1);
pkg_free(via.s);
return buf;
error:
pkg_free(via.s);
return 0;
}
inline std::ostream &print_to(std::ostream &os, const T &arg,
const Ts &... args) {
os << arg;
return print_to(os, args...);
}
int Bool_Show(var self, var output, int pos) {
if (self) { pos = print_to(output, pos, true_str); }
else { pos = print_to(output, pos, false_str); }
return pos;
}
int String_Show(var self, var out, int pos) {
return print_to(out, pos, "\"%s\"", self);
}