Public source code release

2026-07-07 08:49:06 +00:00 · 2024-11-01 08:28:55 +03:00
parent 20b730b1c8
commit 0b2ba24c7f
6691 changed files with 2325292 additions and 1 deletions
@@ -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 */
+