1 files changed, 165 insertions, 0 deletions
diff --git a/error.c b/error.c
new file mode 100644
index 0000000000..001f93df44
--- /dev/null
+++ b/error.c
@@ -0,0 +1,165 @@
+/************************************************
+
+  error.c -
+
+  $Author: matz $
+  $Date: 1994/06/17 14:23:49 $
+  created at: Mon Aug  9 16:11:34 JST 1993
+
+  Copyright (C) 1994 Yukihiro Matsumoto
+
+************************************************/
+
+#include "ruby.h"
+#include "env.h"
+#include <stdio.h>
+#include <varargs.h>
+
+extern char *sourcefile;
+extern int   sourceline;
+
+int nerrs;
+
+static void
+err_sprintf(buf, fmt, args)
+    char *buf, *fmt;
+    va_list args;
+{
+    sprintf(buf, "%s:%d: ", sourcefile, sourceline);
+    vsprintf((char*)buf+strlen(buf), fmt, args);
+    if (buf[strlen(buf)-1] != '\n')
+	strcat(buf, "\n");
+}
+
+static void
+err_print(fmt, args)
+    char *fmt;
+    va_list args;
+{
+    extern errstr;
+    char buf[BUFSIZ];
+
+    err_sprintf(buf, fmt, args);
+    if (the_env->in_eval) {
+	if (errstr == Qnil) {
+	    errstr = str_new2(buf);
+	}
+	else {
+	    str_cat(errstr, buf, strlen(buf));
+	}
+    }
+    else {
+	fputs(buf, stderr);
+    }
+}
+
+yyerror(msg)
+    char *msg;
+{
+    Error("%s", msg);
+}
+
+Error(fmt, va_alist)
+    char *fmt;
+    va_dcl
+{
+    va_list args;
+
+    va_start(args);
+    err_print(fmt, args);
+    va_end(args);
+    nerrs++;
+}
+
+Warning(fmt, va_alist)
+    char *fmt;
+    va_dcl
+{
+    char buf[BUFSIZ]; 
+    va_list args;
+
+    sprintf(buf, "warning: %s", fmt);
+
+    va_start(args);
+    err_print(buf, args);
+    va_end(args);
+}
+
+Fatal(fmt, va_alist)
+    char *fmt;
+    va_dcl
+{
+    va_list args;
+
+    va_start(args);
+    err_print(fmt, args);
+    va_end(args);
+    rb_exit(1);
+}
+
+Bug(fmt, va_alist)
+    char *fmt;
+    va_dcl
+{
+    char buf[BUFSIZ]; 
+    va_list args;
+
+    sprintf(buf, "[BUG] %s", fmt);
+
+    va_start(args);
+    err_print(buf, args);
+    va_end(args);
+    abort();
+}
+
+Fail(fmt, va_alist)
+    char *fmt;
+    va_dcl
+{
+    va_list args;
+    char buf[BUFSIZ]; 
+
+    va_start(args);
+    vsprintf(buf, fmt, args);
+    va_end(args);
+
+    rb_fail(str_new2(buf));
+}
+    
+rb_sys_fail(mesg)
+    char *mesg;
+{
+    char buf[BUFSIZ];
+    extern int errno;
+
+    if (mesg == Qnil)
+	sprintf(buf, "%s.\n", strerror(errno));
+    else
+	sprintf(buf, "%s - %s.\n", strerror(errno), mesg);
+
+    errno = 0;
+    rb_fail(str_new2(buf));
+}
+
+static char *builtin_types[] = {
+    "Nil",
+    "Object",
+    "Class",
+    "iClass",
+    "Module",
+    "Float",
+    "String",
+    "Regexp",
+    "Array",
+    "Fixnum",
+    "Dictionary",
+    "Data",
+};
+
+WrongType(x, t)
+    VALUE x;
+    int t;
+{
+    Fail("wrong argument type %s (expected %s)",
+	 rb_class2name(CLASS_OF(x)), builtin_types[t]);
+}