diff options
| author | yuryalekseev <yuryalekseev@yandex-team.com> | 2022-12-28 18:34:10 +0300 |
|---|---|---|
| committer | yuryalekseev <yuryalekseev@yandex-team.com> | 2022-12-28 18:34:10 +0300 |
| commit | 48aaf60ffad50a3cd1dd55d80d8d2fde282f9f26 (patch) | |
| tree | c13dfc679b3ba52d0b2e3b49048f3c6d4529edf1 /contrib/libs/qhull/libqhull_r/userprintf_r.c | |
| parent | 7ee4233c4eea5893888ea9657229587d508662c4 (diff) | |
| download | ydb-48aaf60ffad50a3cd1dd55d80d8d2fde282f9f26.tar.gz | |
Move dstool_oss to ydb/apps/dstool.
Diffstat (limited to 'contrib/libs/qhull/libqhull_r/userprintf_r.c')
| -rw-r--r-- | contrib/libs/qhull/libqhull_r/userprintf_r.c | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/contrib/libs/qhull/libqhull_r/userprintf_r.c b/contrib/libs/qhull/libqhull_r/userprintf_r.c new file mode 100644 index 0000000000..6512407d92 --- /dev/null +++ b/contrib/libs/qhull/libqhull_r/userprintf_r.c @@ -0,0 +1,95 @@ +/*<html><pre> -<a href="qh-user_r.htm" + >-------------------------------</a><a name="TOP">-</a> + + userprintf_r.c + user redefinable function -- qh_fprintf + + see README.txt see COPYING.txt for copyright information. + + If you recompile and load this file, then userprintf_r.o will not be loaded + from qhull_r.a or qhull_r.lib + + See libqhull_r.h for data structures, macros, and user-callable functions. + See user_r.c for qhull-related, redefinable functions + see user_r.h for user-definable constants + See usermem_r.c for qh_exit(), qh_free(), and qh_malloc() + see Qhull.cpp and RboxPoints.cpp for examples. + + qh_printf is a good location for debugging traps, checked on each log line + + Please report any errors that you fix to qhull@qhull.org +*/ + +#include "libqhull_r.h" +#include "poly_r.h" /* for qh.tracefacet */ + +#include <stdarg.h> +#include <stdio.h> +#include <stdlib.h> + +/*-<a href="qh-user_r.htm#TOC" + >-------------------------------</a><a name="qh_fprintf">-</a> + + qh_fprintf(qh, fp, msgcode, format, list of args ) + print arguments to *fp according to format + Use qh_fprintf_rbox() for rboxlib_r.c + + notes: + sets qh.last_errcode if msgcode is error 6000..6999 + same as fprintf() + fgets() is not trapped like fprintf() + exit qh_fprintf via qh_errexit() + may be called for errors in qh_initstatistics and qh_meminit +*/ + +void qh_fprintf(qhT *qh, FILE *fp, int msgcode, const char *fmt, ... ) { + va_list args; + facetT *neighbor, **neighborp; + + if (!fp) { + if(!qh){ + qh_fprintf_stderr(6241, "qhull internal error (userprintf_r.c): fp and qh not defined for qh_fprintf '%s'\n", fmt); + qh->last_errcode= 6241; + qh_exit(qh_ERRqhull); /* can not use qh_errexit() */ + } + /* could use qh->qhmem.ferr, but probably better to be cautious */ + qh_fprintf_stderr(6028, "qhull internal error (userprintf_r.c): fp is 0. Wrong qh_fprintf was called.\n"); + qh->last_errcode= 6028; + qh_errexit(qh, qh_ERRqhull, NULL, NULL); + } + if ((qh && qh->ANNOTATEoutput) || msgcode < MSG_TRACE4) { + fprintf(fp, "[QH%.4d]", msgcode); + }else if (msgcode >= MSG_ERROR && msgcode < MSG_STDERR ) { + fprintf(fp, "QH%.4d ", msgcode); + } + va_start(args, fmt); + vfprintf(fp, fmt, args); + va_end(args); + + if (qh) { + if (msgcode >= MSG_ERROR && msgcode < MSG_WARNING) + qh->last_errcode= msgcode; + /* Place debugging traps here. Use with trace option 'Tn' + Set qh.tracefacet_id, qh.traceridge_id, and/or qh.tracevertex_id in global_r.c + */ + if (False) { /* in production skip test for debugging traps */ + if (qh->tracefacet && qh->tracefacet->tested) { + if (qh_setsize(qh, qh->tracefacet->neighbors) < qh->hull_dim) + qh_errexit(qh, qh_ERRdebug, qh->tracefacet, qh->traceridge); + FOREACHneighbor_(qh->tracefacet) { + if (neighbor != qh_DUPLICATEridge && neighbor != qh_MERGEridge && neighbor->visible) + qh_errexit2(qh, qh_ERRdebug, qh->tracefacet, neighbor); + } + } + if (qh->traceridge && qh->traceridge->top->id == 234342223) { + qh_errexit(qh, qh_ERRdebug, qh->tracefacet, qh->traceridge); + } + if (qh->tracevertex && qh_setsize(qh, qh->tracevertex->neighbors)>3434334) { + qh_errexit(qh, qh_ERRdebug, qh->tracefacet, qh->traceridge); + } + } + if (qh->FLUSHprint) + fflush(fp); + } +} /* qh_fprintf */ + |