File: tl_exception.h

package info (click to toggle)
dynare 4.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 40,640 kB
  • sloc: fortran: 82,231; cpp: 72,734; ansic: 28,874; pascal: 13,241; sh: 4,300; objc: 3,281; yacc: 2,833; makefile: 1,288; lex: 1,162; python: 162; lisp: 54; xml: 8
file content (57 lines) | stat: -rw-r--r-- 953 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
/*1:*/
#line 14 "./tl_exception.hweb"

#ifndef TL_EXCEPTION_H
#define TL_EXCEPTION_H

#include <cstring> 
#include <cstdio> 

/*2:*/
#line 43 "./tl_exception.hweb"

#ifndef TL_DEBUG_EXCEPTION
#define TL_DEBUG_EXCEPTION 1
#endif

#ifndef TL_DEBUG
#define TL_DEBUG 0
#endif

#define TL_RAISE(mes) \
if (TL_DEBUG >= TL_DEBUG_EXCEPTION) throw TLException(__FILE__, __LINE__, mes);

#define TL_RAISE_IF(expr, mes) \
if (TL_DEBUG >= TL_DEBUG_EXCEPTION && (expr)) throw TLException(__FILE__, __LINE__, mes);

/*3:*/
#line 61 "./tl_exception.hweb"

class TLException{
char fname[50];
int lnum;
char message[500];
public:
TLException(const char*f,int l,const char*mes)
{
strncpy(fname,f,50);fname[49]= '\0';
strncpy(message,mes,500);message[499]= '\0';
lnum= l;
}
virtual~TLException(){}
virtual void print()const
{printf("At %s:%d:%s\n",fname,lnum,message);}
};


/*:3*/
#line 58 "./tl_exception.hweb"
;

/*:2*/
#line 21 "./tl_exception.hweb"
;

#endif

/*:1*/