mirror of
https://github.com/Dark98/SliceBeam.git
synced 2026-07-07 08:49:06 +00:00
YTKAB0BP
96 lines
3.4 KiB
C
96 lines
3.4 KiB
C
/*<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 */
|
|
|