From: Jason Stover <jhs@math.gcsu.edu>
Date: Sun, 18 Dec 2005 18:20:04 +0000 (+0000)
Subject: Moved EXPORT comments to new header file
X-Git-Tag: v0.6.0~1114
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=commitdiff_plain;h=012b055f5f7b4ddd2a608e64c53eaae101b5634e

Moved EXPORT comments to new header file
---

diff --git a/src/regression.q b/src/regression.q
index 28289622..660c15d8 100644
--- a/src/regression.q
+++ b/src/regression.q
@@ -36,6 +36,7 @@
 #include "lexer.h"
 #include <linreg/pspp_linreg.h>
 #include "missing-values.h"
+#include "reg_export_comments.h"
 #include "tab.h"
 #include "var.h"
 #include "vfm.h"
@@ -485,14 +486,7 @@ subcommand_export (int export, pspp_linreg_cache *c)
       assert (fp != NULL);
       fp = fopen (handle_get_filename (model_file), "w");
       fprintf (fp, "#include <string.h>\n\n");
-      fprintf (fp, "/*\n   Estimate the mean of Y, the dependent variable for\n");
-      fprintf (fp, "   the linear model of the form \n\n");
-      fprintf (fp, "      Y = b0 + b1 * X1 + b2 * X2 + ... + bk * X2 + error\n\n");
-      fprintf (fp, "   where X1, ..., Xk are the independent variables\n");
-      fprintf (fp, "   whose values are stored in var_vals and whose names, \n");
-      fprintf (fp, "   as known by PSPP, are stored in var_names. The estimated \n");
-      fprintf (fp, "   regression coefficients (i.e., the estimates of b0,...,bk) \n");
-      fprintf (fp, "   are stored in model_coeffs.\n*/\n");
+      fprintf (fp, "%s", reg_mean_cmt);
       fprintf (fp, "double\npspp_reg_estimate (const double *var_vals, const char *var_names[])\n{\n\tchar *model_depvars[%d] = {", c->n_indeps);
       for (i = 1; i < c->n_indeps; i++)
 	{