github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 03:51:32 +00:00
Code Issues Projects Releases Wiki Activity

Reformat all C source files with Clang-format in Google style w/ 100 col width.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 18:08:18 -07:00
parent 691645d048
commit 156c3292f8
167 changed files with 40520 additions and 48069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
src/lpwrite.c Executable file → Normal file
View File

@@ -1,7 +1,7 @@
/* $Id: lpwrite.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $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. */
@@ -16,7 +16,6 @@ static char *id = "$Id: lpwrite.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ Copyr
#include "version.h"
#include "lpdefs.h"
#include "lpglobl.h"
#ifdef OS4
@@ -29,8 +28,8 @@ static char *id = "$Id: lpwrite.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ Copyr
/* this is the ansi version ... */
#ifdef OS4
print_solution(stream, sol)
FILE *stream; double *sol;
print_solution(stream, sol) FILE *stream;
double *sol;
#else
void print_solution(FILE *stream, double *sol)
#endif
@@ -44,15 +43,13 @@ void print_solution(FILE *stream, double *sol)
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]);
}
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
@@ -62,73 +59,60 @@ void print_indent(void)
int i;
fprintf(stderr, "%2d", Level);
for(i = Level; i > 0; i--)
fprintf(stderr, "--");
for (i = Level; i > 0; i--) fprintf(stderr, "--");
fprintf(stderr, "> ");
} /* print_indent */
#ifdef OS4
debug_print_solution(sol)
double *sol;
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]);
}
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;
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]);
}
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;
debug_print(format) char *format;
{ return 0; }
#else
void debug_print(char *format, ...)
{
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);
}
if (Debug) {
va_start(ap, format);
print_indent();
vfprintf(stderr, format, ap);
fputc('\n', stderr);
va_end(ap);
}
} /* debug_print */
#endif