| /* $Id$ |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one or more |
| * contributor license agreements. See the NOTICE file distributed with |
| * this work for additional information regarding copyright ownership. |
| * The ASF licenses this file to you under the Apache License, Version |
| * 2.0 (the "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, |
| * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| * See the License for the specific language governing permissions and |
| * limitations under the License. |
| */ |
| |
| /* |
| * etch_excp.c -- exception objects native and boxed |
| */ |
| |
| #include "etch_encoding.h" |
| #include "etch_exception.h" |
| #include "etch_objecttypes.h" |
| #include "etch_log.h" |
| #include "etch_mem.h" |
| |
| static const char* LOG_CATEGORY = "etch_exception"; |
| /* builtin exception text */ |
| const wchar_t* excptext_excp_builtin = L"etch builtin exception"; |
| const wchar_t* excptext_excp_user = L"etch user defined exception"; |
| |
| /** |
| * etch_exception |
| */ |
| struct etch_exception |
| { |
| etch_object object; |
| |
| etch_string* message; |
| uint32 errorcode; |
| excptype_t excptype; |
| |
| }; |
| |
| /* |
| * default_excptext() |
| * find and return default text for exception type |
| */ |
| etch_string* default_excptext(const excptype_t type) |
| { |
| wchar_t* text = NULL; |
| etch_string* res = NULL; |
| switch(type) |
| { |
| case EXCPTYPE_BUILTIN: text = (wchar_t*) excptext_excp_builtin; break; |
| case EXCPTYPE_USERDEFINED: text = (wchar_t*) excptext_excp_user; break; |
| default: |
| text = (wchar_t*) L"unknown error"; |
| ETCH_LOG(LOG_CATEGORY, ETCH_LOG_WARN, "no default exception text for type %d", type); |
| break; |
| } |
| res = new_stringw(text); |
| return res; |
| } |
| |
| |
| /** |
| * destroy_etch_exception() |
| */ |
| int destroy_etch_exception(void* p) |
| { |
| etch_exception* ee = (etch_exception*) p; |
| |
| if ((! is_etchobj_static_content(ee)) && ee->message) { |
| etch_object_destroy(ee->message); |
| } |
| |
| return destroy_objectex((etch_object*) ee); |
| } |
| |
| |
| /** |
| * clone_etch_exception() |
| */ |
| void* clone_etch_exception(void* data) |
| { |
| etch_exception* ee = (etch_exception*)data; |
| etch_exception* newobj = NULL; |
| newobj = new_etch_exception (ee->excptype); |
| if(ee->message) { |
| newobj->message = (etch_string*)etch_object_clone_func(ee->message); |
| }else { |
| newobj->message = NULL; |
| } |
| newobj->errorcode = ee->errorcode; |
| return newobj; |
| } |
| |
| /** |
| * new_etch_exception() |
| * constructor for wrapped exception |
| */ |
| etch_exception* new_etch_exception(const excptype_t type) |
| { |
| etch_exception* newobj = (etch_exception*) new_object |
| (sizeof(struct etch_exception), ETCHTYPEB_EXCEPTION, CLASSID_EXCEPTION); |
| |
| ((etch_object*)newobj)->destroy = destroy_etch_exception; |
| ((etch_object*)newobj)->clone = clone_etch_exception; |
| newobj->errorcode = 0; |
| newobj->excptype = type; |
| newobj->message = default_excptext(type); |
| |
| return newobj; |
| } |
| |
| /** |
| * create a new builtin etch exception with errorcode |
| */ |
| etch_exception* new_etch_exception_from_errorcode(int errorcode){ |
| etch_exception* result = new_etch_exception(EXCPTYPE_BUILTIN); |
| result->errorcode = errorcode; |
| return result; |
| } |
| |
| void etch_exception_set_message(etch_exception* ex, etch_string* mess) |
| { |
| if(ex->message){ |
| etch_object_destroy(ex->message); |
| } |
| ex->message = mess; |
| } |
| |
| uint32 etch_exception_get_errorcode(etch_exception* ex) { |
| if(ex){ |
| return ex->errorcode; |
| } |
| return 0; |
| } |
| |
| etch_string* etch_exception_get_message(etch_exception* ex) |
| { |
| return ex->message; |
| } |
| |
| etch_status_t etch_exception_get_type(etch_exception* exception, excptype_t* type) |
| { |
| if(exception == NULL || type == NULL) { |
| return ETCH_EINVAL; |
| } |
| *type = exception->excptype; |
| return ETCH_SUCCESS; |
| } |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |