1 /* ScummVM - Graphic Adventure Engine
2 *
3 * ScummVM is the legal property of its developers, whose names
4 * are too numerous to list here. Please refer to the COPYRIGHT
5 * file distributed with this source distribution.
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version 2
10 * of the License, or (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20 *
21 */
22
23 #include "glk/jacl/jacl.h"
24 #include "glk/jacl/language.h"
25 #include "glk/jacl/types.h"
26 #include "glk/jacl/prototypes.h"
27
28 namespace Glk {
29 namespace JACL {
30
31 extern struct function_type *executing_function;
32 extern const char *word[];
33
34 extern char error_buffer[];
35
badparrun()36 void badparrun() {
37 sprintf(error_buffer, BAD_PARENT, executing_function->name);
38
39 log_error(error_buffer, PLUS_STDERR);
40 }
41
notintrun()42 void notintrun() {
43 sprintf(error_buffer, NOT_INTEGER, executing_function->name, word[0]);
44 log_error(error_buffer, PLUS_STDERR);
45 }
46
unkfunrun(const char * name)47 void unkfunrun(const char *name) {
48 sprintf(error_buffer, UNKNOWN_FUNCTION_RUN, name);
49 log_error(error_buffer, PLUS_STDOUT);
50 }
51
unkkeyerr(int line,int wordno)52 void unkkeyerr(int line, int wordno) {
53 sprintf(error_buffer, UNKNOWN_KEYWORD_ERR, line, word[wordno]);
54 log_error(error_buffer, PLUS_STDERR);
55 }
56
unkatterr(int line,int wordno)57 void unkatterr(int line, int wordno) {
58 sprintf(error_buffer, UNKNOWN_ATTRIBUTE_ERR, line,
59 word[wordno]);
60 log_error(error_buffer, PLUS_STDERR);
61 }
62
unkvalerr(int line,int wordno)63 void unkvalerr(int line, int wordno) {
64 sprintf(error_buffer, UNKNOWN_VALUE_ERR, line,
65 word[wordno]);
66 log_error(error_buffer, PLUS_STDERR);
67 }
68
noproprun(int)69 void noproprun(int) {
70 sprintf(error_buffer, INSUFFICIENT_PARAMETERS_RUN, executing_function->name, word[0]);
71 log_error(error_buffer, PLUS_STDOUT);
72 }
73
noobjerr(int line)74 void noobjerr(int line) {
75 sprintf(error_buffer, NO_OBJECT_ERR,
76 line, word[0]);
77 log_error(error_buffer, PLUS_STDERR);
78 }
79
noproperr(int line)80 void noproperr(int line) {
81 sprintf(error_buffer, INSUFFICIENT_PARAMETERS_ERR,
82 line, word[0]);
83 log_error(error_buffer, PLUS_STDERR);
84 }
85
nongloberr(int line)86 void nongloberr(int line) {
87 sprintf(error_buffer, NON_GLOBAL_FIRST, line);
88 log_error(error_buffer, PLUS_STDERR);
89 }
90
nofnamerr(int line)91 void nofnamerr(int line) {
92 sprintf(error_buffer, NO_NAME_FUNCTION, line);
93 log_error(error_buffer, PLUS_STDERR);
94 }
95
unkobjerr(int line,int wordno)96 void unkobjerr(int line, int wordno) {
97 sprintf(error_buffer, UNDEFINED_ITEM_ERR, line, word[wordno]);
98 log_error(error_buffer, PLUS_STDERR);
99 }
100
maxatterr(int line,int wordno)101 void maxatterr(int line, int wordno) {
102 sprintf(error_buffer,
103 MAXIMUM_ATTRIBUTES_ERR, line, word[wordno]);
104 log_error(error_buffer, PLUS_STDERR);
105 }
106
unkobjrun(int wordno)107 void unkobjrun(int wordno) {
108 sprintf(error_buffer, UNDEFINED_ITEM_RUN, executing_function->name, word[wordno]);
109 log_error(error_buffer, PLUS_STDOUT);
110 }
111
unkattrun(int wordno)112 void unkattrun(int wordno) {
113 sprintf(error_buffer, UNKNOWN_ATTRIBUTE_RUN, executing_function->name, word[wordno]);
114 log_error(error_buffer, PLUS_STDOUT);
115 }
116
unkdirrun(int wordno)117 void unkdirrun(int wordno) {
118 sprintf(error_buffer, UNDEFINED_DIRECTION_RUN,
119 executing_function->name, word[wordno]);
120 log_error(error_buffer, PLUS_STDOUT);
121 }
122
badparun()123 void badparun() {
124 sprintf(error_buffer, BAD_PARENT, executing_function->name);
125 log_error(error_buffer, PLUS_STDOUT);
126 }
127
badplrrun(int value)128 void badplrrun(int value) {
129 sprintf(error_buffer, BAD_PLAYER, executing_function->name, value);
130 log_error(error_buffer, PLUS_STDOUT);
131 }
132
badptrrun(const char * name,int value)133 void badptrrun(const char *name, int value) {
134 sprintf(error_buffer, BAD_POINTER, executing_function->name, name, value);
135 log_error(error_buffer, PLUS_STDOUT);
136 }
137
unkvarrun(const char * variable)138 void unkvarrun(const char *variable) {
139 sprintf(error_buffer, UNDEFINED_CONTAINER_RUN, executing_function->name, arg_text_of(variable));
140 log_error(error_buffer, PLUS_STDOUT);
141 }
142
unkstrrun(const char * variable)143 void unkstrrun(const char *variable) {
144 sprintf(error_buffer, UNDEFINED_STRING_RUN, executing_function->name, variable);
145 log_error(error_buffer, PLUS_STDOUT);
146 }
147
unkscorun(const char * scope)148 void unkscorun(const char *scope) {
149 sprintf(error_buffer, UNKNOWN_SCOPE_RUN, executing_function->name, scope);
150 log_error(error_buffer, PLUS_STDOUT);
151 }
152
totalerrs(int errors)153 void totalerrs(int errors) {
154 if (errors == 1)
155 sprintf(error_buffer, ERROR_DETECTED);
156 else {
157 sprintf(error_buffer, ERRORS_DETECTED, errors);
158 }
159
160 log_error(error_buffer, PLUS_STDERR);
161 }
162
outofmem()163 void outofmem() {
164 log_error(OUT_OF_MEMORY, PLUS_STDERR);
165 error("Terminated");
166 }
167
168 } // End of namespace JACL
169 } // End of namespace Glk
170