| //===-- Runtime Error Handler Implementation --------------------*- C++ -*-===// |
| // |
| // High Level Virtual Machine (HLVM) |
| // |
| // Copyright (C) 2006 Reid Spencer. All Rights Reserved. |
| // |
| // This software is free software; you can redistribute it and/or modify it |
| // under the terms of the GNU Lesser General Public License as published by |
| // the Free Software Foundation; either version 2.1 of the License, or (at |
| // your option) any later version. |
| // |
| // This software 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 Lesser General Public License for |
| // more details. |
| // |
| // You should have received a copy of the GNU Lesser General Public License |
| // along with this library in the file named LICENSE.txt; if not, write to the |
| // Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, |
| // MA 02110-1301 USA |
| // |
| //===----------------------------------------------------------------------===// |
| /// @file hlvm/Runtime/Error.cpp |
| /// @author Reid Spencer <rspencer@reidspencer.org> (original author) |
| /// @date 2006/06/07 |
| /// @since 0.1.0 |
| /// @brief Implements the runtime error handling facilities. |
| //===----------------------------------------------------------------------===// |
| |
| #include <hlvm/Runtime/Internal.h> |
| |
| extern "C" { |
| |
| #include <hlvm/Runtime/Error.h> |
| #include <stdlib.h> |
| |
| void |
| hlvm_verror(ErrorCodes ec, va_list ap) |
| { |
| const char* format = "Unknown Error"; |
| switch (ec) { |
| case E_UNHANDLED_EXCEPTION: format = "Unhandled Exception"; break; |
| case E_BAD_OPTION : format = "Unrecognized option: %s"; break; |
| case E_MISSING_ARGUMENT : format = "Missing option argument for %s";break; |
| case E_NO_PROGRAM_NAME : format = "Program name not specified"; break; |
| case E_PROGRAM_NOT_FOUND : format = "Program '%s' not found"; break; |
| case E_APR_ERROR : format = "%s while %s"; break; |
| case E_ASSERT_FAIL : format = "Assertion Failure: (%s) at %s:%d"; break; |
| case E_OPTION_ERROR : format = "In Options: %s"; break; |
| default: break; |
| } |
| char* msg = apr_pvsprintf(_hlvm_pool, format, ap); |
| apr_file_printf(_hlvm_stderr, "Error: %s\n", msg); |
| } |
| |
| void |
| hlvm_error(ErrorCodes ec, ...) |
| { |
| va_list ap; |
| va_start(ap,ec); |
| hlvm_verror(ec,ap); |
| } |
| |
| void |
| hlvm_fatal(ErrorCodes ec, ...) |
| { |
| va_list ap; |
| va_start(ap,ec); |
| hlvm_verror(ec,ap); |
| exit(ec); |
| } |
| |
| void hlvm_panic(const char* msg) { |
| exit(254); |
| } |
| |
| } |