void report_error( /* ARGUMENTS */
int error_code, /* the code number of the error message */
int print_stack) /* print stack if ON, otherwise not */
{
char buffer[RS274NGC_TEXT_SIZE];
int k;
rs274ngc_error_text(error_code, buffer, sizeof(buffer), 5); /* for coverage of code */
rs274ngc_error_text(error_code, buffer, sizeof(buffer), RS274NGC_TEXT_SIZE);
fprintf(stderr, "%s\n",
((buffer[0] IS 0) ? "Unknown error, bad error code" : buffer));
rs274ngc_line_text(buffer, RS274NGC_TEXT_SIZE);
fprintf(stderr, "%s\n", buffer);
if (print_stack IS ON)
{
for (k SET_TO 0; ; k++)
{
rs274ngc_stack_name(k, buffer, RS274NGC_TEXT_SIZE);
if (buffer[0] ISNT 0)
fprintf(stderr, "%s\n", buffer);
else
break;
}
}
}
void print_nc_line_number()
{
char text[256];
int k;
int m;
rs274ngc_line_text(text, 256);
for (k SET_TO 0;
((k < 256) AND
((text[k] IS '\t') OR (text[k] IS ' ') OR (text[k] IS '/')));
k++);
if ((k < 256) AND ((text[k] IS 'n') OR (text[k] IS 'N')))
{
fputc('N', _outfile);
for (k++, m SET_TO 0;
((k < 256) AND (text[k] >= '0') AND (text[k] <= '9'));
k++, m++)
fputc(text[k], _outfile);
for (; m < 6; m++)
fputc(' ', _outfile);
}
else if (k < 256)
fprintf(_outfile, "N..... ");
}
