diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/omegafonts/error_routines.c | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegafonts/error_routines.c')
-rw-r--r-- | Build/source/texk/web2c/omegafonts/error_routines.c | 171 |
1 files changed, 171 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegafonts/error_routines.c b/Build/source/texk/web2c/omegafonts/error_routines.c new file mode 100644 index 00000000000..b1ac96c4ccb --- /dev/null +++ b/Build/source/texk/web2c/omegafonts/error_routines.c @@ -0,0 +1,171 @@ +/* error_routines.c: General error routines. + +This file is part of Omega, +which is based on the web2c distribution of TeX, + +Copyright 1994--2018 John Plaice and Yannis Haralambous + +Omega is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +Omega is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with Omega; if not, write to the Free Software Foundation, Inc., +59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +*/ + +#include "cpascal.h" +#include "parser.h" +#include "error_routines.h" + +int num_errors = 0; + +/* Error routines: + +All of the routines in this file have the same general format. +They + +*/ + +void +lex_error_1(const_string fmt, int item) +{ + fprintf(stderr, "line %d (lexing): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); +} + +void +lex_error_s(const_string fmt, const_string item) +{ + fprintf(stderr, "line %d (lexing): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); +} + +void +lex_error_s_1(const_string fmt, const_string item, int item1) +{ + fprintf(stderr, "line %d (lexing): ", line_number); + fprintf(stderr, fmt, item, item1); + fprintf(stderr, "\n"); +} + +void +yyerror(const_string fmt) +{ + fprintf(stderr, "line %d (parsing): ", line_number); + fprintf(stderr, "%s", fmt); + fprintf(stderr, "\n"); + num_errors++; +} + + +void +warning_0(const_string fmt) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, "%s", fmt); + fprintf(stderr, "\n"); +} + +void +warning_1(const_string fmt, int item) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); +} + +void +warning_2(const_string fmt, int item, int item2) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, fmt, item, item2); + fprintf(stderr, "\n"); +} + +void +warning_s(const_string fmt, const_string item) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); +} + +void +warning_s_1(const_string fmt, const_string item, int item1) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, fmt, item, item1); + fprintf(stderr, "\n"); +} + +void +warning_s_2(const_string fmt, const_string item, int item1, int item2) +{ + fprintf(stderr, "line %d (warning): ", line_number); + fprintf(stderr, fmt, item, item1, item2); + fprintf(stderr, "\n"); +} + +void +fatal_error_0(const_string fmt) +{ + fprintf(stderr, "line %d (fatal): ", line_number); + fprintf(stderr, "%s", fmt); + fprintf(stderr, "\n"); + exit(1); +} + +void +fatal_error_1(const_string fmt, int item) +{ + fprintf(stderr, "line %d (fatal): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); + exit(1); +} + +void +fatal_error_2(const_string fmt, int item, int item2) +{ + fprintf(stderr, "line %d (fatal): ", line_number); + fprintf(stderr, fmt, item, item2); + fprintf(stderr, "\n"); + exit(1); +} + +void +fatal_error_s(const_string fmt, const_string item) +{ + fprintf(stderr, "line %d (fatal): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); + exit(1); +} + +void +internal_error_0(const_string fmt) +{ + fprintf(stderr, "line %d (internal): ", line_number); + fprintf(stderr, "%s", fmt); + fprintf(stderr, "\n"); + exit(2); +} + +void +internal_error_1(const_string fmt, int item) +{ + fprintf(stderr, "line %d (internal): ", line_number); + fprintf(stderr, fmt, item); + fprintf(stderr, "\n"); + exit(2); +} |