File: tl_exception.h

package info (click to toggle)
dynare 4.5.7-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 49,408 kB
  • sloc: cpp: 84,998; ansic: 29,058; pascal: 13,843; sh: 4,833; objc: 4,236; yacc: 3,622; makefile: 2,278; lex: 1,541; python: 236; lisp: 69; 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*/