#include <malloc.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include "excp.h"
static char* excp_get_msg(void);
static excpt_t* excp_get_excption(void);
int excp_create(excpt_list_t* pel)
{
pel->excp_ptr = NULL;
return 0;
}
void excp_set_try(void)
{
int stat = 0;
excpt_event_t* pev;
pev = (excpt_event_t*)malloc(sizeof(excpt_event_t));
if(stat != 0){
printf("Set Try Error.\n");
return;
}
memset(pev, 0, sizeof(excpt_event_t));
pev->prev = excp_list.excp_ptr;
excp_list.excp_ptr = pev;
}
void excp_clear(void)
{
excpt_event_t* ev;
if (excp_list.excp_ptr)
{
ev = excp_list.excp_ptr;
excp_list.excp_ptr = excp_list.excp_ptr->prev;
free(ev->excpt.msg);
free(ev);
}
}
void excp_throw(int type, const char* message, char* file, int line)
{
int stat = 0;
int len = 0;
int size = 0;
#ifndef NOEBUG
char buf[100];
#endif
#ifndef NOEBUG
if(type == 0){
return;
}
sprintf(buf, MESSAGE_FORMAT, file, line);
len = strlen(buf);
#endif
if(excp_list.excp_ptr == NULL ||
(excp_list.excp_ptr && excp_list.excp_ptr->excpt.msg != NULL)){
return;
}
size = strlen(message) + len +1;
excp_msg = (char*)malloc(sizeof(char) * EXCP_DEF_MSG_LEN);
if(excp_msg == NULL){
printf("Throw Error.\n");
return;
}
#ifndef NDEBUG
strcpy(excp_msg, buf);
strcat(excp_msg, message);
#else
strcpy(excp_msg, message);
#endif
if (excp_list.excp_ptr)
{
excp_list.excp_ptr->excpt.type = type;
excp_list.excp_ptr->excpt.msg = excp_msg;
excp_list.excp_ptr->excpt.srcfile = file;
excp_list.excp_ptr->excpt.line = line;
excp_list.excp_ptr->ev_idx = evThrow;
longjmp(excp_list.excp_ptr->buf, evThrow);
}
else
{
fprintf(stderr, excp_msg);
//abort();
}
}
void excp_throw_again(void)
{
excpt_t e;
if (excp_list.excp_ptr)
{
e = excp_list.excp_ptr->excpt;
if (excp_list.excp_ptr->prev)
{
excp_clear();
excp_list.excp_ptr->excpt = e;
longjmp(excp_list.excp_ptr->buf, evThrow);
}
else
{
fprintf(stderr, excp_msg);
abort();
}
}
}
int excp_get_error(int type)
{
if (excp_list.excp_ptr->ev_idx == evThrow &&
(type == EXCEPT_ALL || type == excp_list.excp_ptr->excpt.type))
{
excp_list.excp_ptr->ev_idx = evExcept;
return 1;
}
return 0;
}
void excp_set_end(void)
{
if (excp_list.excp_ptr && excp_list.excp_ptr->ev_idx == evThrow){
excp_throw_again();
}
excp_clear();
}
jmp_buf* excp_get_buf(void)
{
return &excp_list.excp_ptr->buf;
}
int excp_set_num(int idx)
{
excp_list.excp_ptr->ev_idx = idx;
return excp_list.excp_ptr->ev_idx;
}
static char* excp_get_msg(void)
{
return excp_msg;
}
// 获取当前异常结构
static excpt_t* excp_get_excption(void)
{
return &excp_list.excp_ptr->excpt;
}
static void fun(void* p){
if(p == NULL) Throw(1, "这个指针是空的呀！！！");
else printf("神马都是浮云！\n");
}
int main(){
void* p = NULL;
Try{
fun(p);
}
OnExcept(1){
printf("%s\n", Message);
}
Finally{
printf("这个指针是空的我有啥用呀？\n");
}
return 0;
}
