You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
#include <config.h>
#include "error.h"
#include "debug-print.h"
-#if DEBUGGING
-static void debug_print ();
-#endif
-
/* Variables on MIS VAL. */
static struct variable **v;
static int nv;
free (v);
}
-#if 0 && DEBUGGING
- debug_print ();
-#endif
-
return lex_end_of_command ();
fail:
nor->d[0] = LOWEST;
nor->d[1] = tokval;
}
- else if (token == T_NUM)
+ else if (lex_is_number ())
{
nor->d[0] = tokval;
lex_get ();
memcpy (dest->missing[i].s, src->missing[i].s, src->width);
}
}
-
-\f
-/* Debug output. */
-
-#if 0 && DEBUGGING
-static void
-debug_print (void)
-{
- int i, j;
-
- puts (_("Missing value:"));
- for (i = 0; i < nvar; i++)
- {
- printf (" %8s: ", var[i]->name);
- if (var[i]->type == ALPHA && var[i]->nv > 1)
- puts (_("(long string variable)"));
- else
- switch (var[i]->miss_type)
- {
- case MISSING_NONE:
- printf (_("(no missing values)\n"));
- break;
- case MISSING_1:
- case MISSING_2:
- case MISSING_3:
- printf ("(MISSING_%d)", var[i]->miss_type);
- for (j = 0; j < var[i]->miss_type; j++)
- if (var[i]->type == ALPHA)
- printf (" \"%.*s\"", var[i]->width, var[i]->missing[j].s);
- else
- printf (" %.2g", var[i]->missing[j].f);
- printf ("\n");
- break;
- case MISSING_RANGE:
- printf ("(MISSING_RANGE) %.2g THRU %.2g\n",
- var[i]->missing[0].f, var[i]->missing[1].f);
- break;
- case MISSING_RANGE_1:
- printf ("(MISSING_RANGE_1) %.2g THRU %.2g, %.2g\n",
- var[i]->missing[0].f, var[i]->missing[1].f,
- var[i]->missing[2].f);
- break;
- default:
- printf (_("(!!!INTERNAL ERROR--%d!!!)\n"), var[i]->miss_type);
- }
- }
-}
-#endif /* DEBUGGING */