Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

finalyze moving

Browse Source
This commit is contained in:
Alexander
2025-03-12 14:28:04 +03:00
committed by Dudarenko
parent de4690513b
commit 189374274e
776 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

352
projects/dvm/fdvm/trunk/parser/errors.c Normal file
View File

@@ -0,0 +1,352 @@
/*********************************************************************/
/* pC++/Sage++ Copyright (C) 1993 */
/* Indiana University University of Oregon University of Rennes */
/*********************************************************************/
/*
* errors.c
*
* Miscellaneous error routines
*/
#include <stdio.h>
#include <stdlib.h>
#include "defs.h"
#include "symb.h"
#include "extern.h"
#define MAX_PARSER_ERRORS 1000
static char buff[100];
#ifdef __SPF_BUILT_IN_PARSER
extern void ExitFromParser(const int c);
#endif
void format_num (int num, char num3s[])
{
if(num>99)
sprintf(num3s,"%3d",num);
else if(num>9)
sprintf(num3s,"0%2d",num);
else
sprintf(num3s,"00%1d",num);
}
int
error_limit()
{
if (! errcnt)
errline = yylineno;
if (errcnt++ == MAX_PARSER_ERRORS)
(void)fprintf(stderr, "!!! Too many errors !!!\n");
if (errcnt > MAX_PARSER_ERRORS)
return 1;
return 0;
}
/*
* fatal -- print the fatal error message then exit
*
* input:
* s - the message to be printed out
* num - error message number
*/
void fatal(char* s, int num)
{
char num3s[4];
format_num(num, num3s);
(void)fprintf(stderr, "Error %s on line %d of %s: %s\n", num3s, yylineno, infname, s);
#ifdef __SPF_BUILT_IN_PARSER
ExitFromParser(3);
#else
exit(3);
#endif
}
/*
* fatalstr -- sets up the error message according to the given format
* then call "fatal" to print it out
*
* input:
* t - a string that specifies the output format
* s - a string that contents the error messaged to be formatted
* num - error message number
*/
void
fatalstr(t, s, num)
char *t, *s;
int num;
{
(void)sprintf(buff, t, s);
fatal(buff,num);
}
/*
* fatali -- formats a fatal error message which contains a number
* then call "fatal" to print it
*
* input:
* t - a string that specifies the output format
* d - an integer to be converted according to t
*/
void
fatali(t, d)
char *t;
int d;
{
(void)sprintf(buff, t, d);
fatal(buff,0);
}
/*
* err_fatal -- print the fatal error message then exit
*
* input:
* s - the message to be printed out
*/
void err_fatal(char* s, int num)
{
char num3s[4];
format_num(num, num3s);
(void)fprintf(stderr, "Error %s: %s\n", num3s, s);
#ifdef __SPF_BUILT_IN_PARSER
ExitFromParser(3);
#else
exit(3);
#endif
}
/*
* errstr_fatal -- sets up the error message according to the given format
* then call "fatal" to print it out
*
* input:
* t - a string that specifies the output format
* s - a string that contents the error messaged to be formatted
*/
void
errstr_fatal(t, s, num)
char *t, *s;
int num;
{
(void)sprintf(buff, t, s);
err_fatal(buff, num);
}
/*
* warn1 -- formats a warning message then call "warn" to print it out
*
* input:
* s - string that specifies the conversion format
* t - string that to be converted according to s
* n - warning message number
*/
void
warn1(s, t, num)
char *s, *t;
int num;
{
void warn();
(void)sprintf(buff, s, t);
warn(buff,num);
}
/*
* warn -- print the warning message if specified
*
* input:
* s - string to be printed
* num - warning message number
*/
void
warn(s, num)
char *s;
int num;
{char num3s[4];
format_num(num,num3s);
if (!nowarnflag) {
++nwarn;
(void)fprintf(stderr, "Warning %s on line %d of %s: %s\n", num3s,yylineno, infname, s);
}
}
/*
* warn_line -- prints the error message and does the bookkeeping
*
* input:
* s - string to be printed out
* num - warning message number
* ln - string number
*/
void
warn_line(s, num, ln)
char *s;
int num, ln;
{ char num3s[4];
format_num(num,num3s);
if (!nowarnflag) {
++nwarn;
(void)fprintf(stderr,"Warning %s on line %d of %s: %s\n", num3s,ln,infname, s);
}
}
/*
* errstr -- formats the non-fatal error message then call "err" to print it
*
* input:
* s - string that specifies the conversion format
* t - string that to be formated according to s
* num - error message number
*/
void
errstr(s, t, num)
char *s, *t;
int num;
{
void err();
(void)sprintf(buff, s, t);
err(buff,num);
}
/*
* erri -- formats an error number then prints it out
*
* input:
* s - string that specifies the output format
* t - number to be formatted
* num - error message number
*/
void
erri(s, t, num)
char *s;
int t,num;
{
void err();
(void)sprintf(buff, s, t);
err(buff,num);
}
/*
* err -- prints the error message and does the bookkeeping
*
* input:
* s - string to be printed out
* num - error message number
*/
void
err(s, num)
char *s;
int num;
{ char num3s[4];
format_num(num,num3s);
if (error_limit())
return;
(void)fprintf(stderr,"Error %s on line %d of %s: %s\n", num3s,yylineno,infname, s);
}
/*
* err_line -- prints the error message and does the bookkeeping
*
* input:
* s - string to be printed out
* num - error message number
* ln - string number
*/
void
err_line(s, num, ln)
char *s;
int num, ln;
{ char num3s[4];
format_num(num,num3s);
if (error_limit())
return;
(void)fprintf(stderr,"Error %s on line %d of %s: %s\n", num3s,ln,infname, s);
}
/*
* errg -- prints the error message (without line number)
*
* input:
* s - string to be printed out
* num - error message number
*/
void
errg(s, num)
char *s;
int num;
{ char num3s[4];
format_num(num,num3s);
if (error_limit())
return;
(void)fprintf(stderr,"Error %s: %s\n", num3s, s);
}
/*
* yyerror -- the error handling routine called by yacc
*
* input:
* s - the error message to be printed
*/
void
yyerror(s)
char *s;
{
err(s,14); /* 14 - syntax error */
}
/*
* dclerr -- prints the error message when find error in declaration part
*
* input:
* s - error message string
* v - pointer to the symble table entry
*/
void
dclerr(s, v)
char *s;
PTR_SYMB v;
{
char buf[100];
if (v) {
(void)sprintf(buf,"Declaration error for %s: %s",v->ident, s);
err(buf,0);
} else
errstr("Declaration error: %s", s,0);
}
/*
* execerr -- prints error message for executable part
*
* input:
* s - the error message string1
* n - the error message string2
*/
void
execerr(s, n)
char *s, *n;
{
char buf1[100], buf2[100];
/*(void)sprintf(buf1, "Execution error: %s", s);*/
(void)sprintf(buf1, "%s", s);
(void)sprintf(buf2, buf1, n);
err(buf2,0);
}