home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
messroms.de
/
2007-01-13_www.messroms.de.zip
/
VZ200
/
TOOLS
/
ZCCSRC.ZIP
/
scc
/
error.c
< prev
next >
Wrap
C/C++ Source or Header
|
2000-03-01
|
606b
|
48 lines
/* File error.c: 2.1 (83/03/20,16:02:00) */
/*% cc -O -c %
*
*/
#include <stdio.h>
#include "defs.h"
#include "data.h"
#include "proto.h"
void error(char *ptr)
{
FILE *tempfile;
tempfile = output;
output = stdout;
doerror(ptr);
output = tempfile;
doerror(ptr);
errcnt++;
}
void doerror(char *ptr)
{
int k;
comment();
outstr(line);
nl();
comment();
k = 0;
while (k < lptr)
{
if (line[k] == 9)
tab();
else
outbyte(' ');
k++;
}
outbyte('^');
nl();
comment();
outstr("****** ");
outstr(ptr);
outstr(" ******");
nl();
}