Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

2026-01-26 11:52:25 +00:00 · 2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
--- a/src/lpwrite.c
+++ b/src/lpwrite.c
@@ -0,0 +1,134 @@
+/* $Id: lpwrite.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
+static char *id = "$Id: lpwrite.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ Copyright (C) Venue";
+
+
+/************************************************************************/
+/*									*/
+/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
+/*	Manufactured in the United States of America.			*/
+/*									*/
+/*	The contents of this file are proprietary information 		*/
+/*	belonging to Venue, and are provided to you under license.	*/
+/*	They may not be further distributed or disclosed to third	*/
+/*	parties without the specific permission of Venue.		*/
+/*									*/
+/************************************************************************/
+
+#include "version.h"
+
+
+#include "lpdefs.h"
+#include "lpglobl.h"
+#ifdef OS4
+#include <sys/types.h>
+#include <varargs.h>
+#else
+#include <stdarg.h>
+#endif
+
+/* this is the ansi version ... */
+
+#ifdef OS4
+print_solution(stream, sol)
+FILE *stream; double *sol;
+#else
+void print_solution(FILE *stream, double *sol)
+#endif
+{
+  int i;
+
+  fprintf(stream, "Value of objective function: %16.5g\n", sol[0]);
+
+  /* print normal variables */
+  for (i = Rows + 1; i <= Sum; i++)
+    if (0 != sol[i]) fprintf(stream, "%-10s%16.5g\n", Names[i], sol[i]);
+
+  /* print dual variables */
+  if(Verbose || Print_duals)
+    {
+      fprintf(stream, "\nValues of the dual variables:\n");
+      for (i = 1; i <= Rows; i++)
+	if (0 != sol[i]) fprintf(stream, "%-10s%16.5g\n", Names[i], sol[i]);
+    }
+} /* print_solution */
+
+
+#ifdef OS4
+print_indent()
+#else
+void print_indent(void)
+#endif
+{
+  int i;
+
+  fprintf(stderr, "%2d", Level);
+  for(i = Level; i > 0; i--)
+    fprintf(stderr, "--");
+  fprintf(stderr, "> ");
+} /* print_indent */
+
+
+#ifdef OS4
+debug_print_solution(sol)
+double *sol;
+#else
+void debug_print_solution(double *sol)
+#endif
+{
+  int i;
+
+  if(Debug)
+    for (i = 0; i <= Sum; i++)
+      {
+	print_indent();
+	if (sol[i] != 0) fprintf(stderr, "%-10s%16.5g\n", Names[i], sol[i]);
+      }
+} /* debug_print_solution */
+
+
+#ifdef OS4
+debug_print_bounds(upbo, lowbo)
+double *upbo, *lowbo;
+#else
+void debug_print_bounds(double *upbo, double *lowbo)
+#endif
+{
+  int i;
+
+  if(Debug)
+    for(i = Rows + 1; i <= Sum; i++)
+      {
+	if(lowbo[i] != 0)
+	  {
+	    print_indent();
+	    fprintf(stderr, "%s > %10.3g\n", Names[i], lowbo[i]);
+	  }
+	if(upbo[i] != INFINITE)
+	  {
+	    print_indent();
+	    fprintf(stderr, "%s < %10.3g\n", Names[i], upbo[i]);
+	  }
+      }
+} /* debug_print_bounds */
+
+
+#ifdef OS4
+debug_print(format)
+char *format;
+{ return 0; }
+#else
+void debug_print(char *format, ...)
+{
+  va_list ap;
+
+  if(Debug)
+    {
+      va_start(ap, format);
+      print_indent();
+      vfprintf(stderr, format, ap);
+      fputc('\n', stderr);
+      va_end(ap);
+    }
+} /* debug_print */
+
+#endif