CXXR (C++ R)
Complex.h
1 /*CXXR $Id: Complex.h 1378 2013-04-26 13:39:20Z arr $
2  *CXXR
3  *CXXR This file is part of CXXR, a project to refactor the R interpreter
4  *CXXR into C++. It may consist in whole or in part of program code and
5  *CXXR documentation taken from the R project itself, incorporated into
6  *CXXR CXXR (and possibly MODIFIED) under the terms of the GNU General Public
7  *CXXR Licence.
8  *CXXR
9  *CXXR CXXR is Copyright (C) 2008-13 Andrew R. Runnalls, subject to such other
10  *CXXR copyrights and copyright restrictions as may be stated below.
11  *CXXR
12  *CXXR CXXR is not part of the R project, and bugs and other issues should
13  *CXXR not be reported via r-bugs or other R project channels; instead refer
14  *CXXR to the CXXR website.
15  *CXXR */
16 
17 /*
18  * R : A Computer Language for Statistical Data Analysis
19  * Copyright (C) 1998-2001 The R Core Team
20  *
21  * This program is free software; you can redistribute it and/or modify
22  * it under the terms of the GNU Lesser General Public License as published by
23  * the Free Software Foundation; either version 2.1 of the License, or
24  * (at your option) any later version.
25  *
26  * This program is distributed in the hope that it will be useful,
27  * but WITHOUT ANY WARRANTY; without even the implied warranty of
28  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29  * GNU Lesser General Public License for more details.
30  *
31  * You should have received a copy of the GNU Lesser General Public License
32  * along with this program; if not, a copy is available at
33  * http://www.r-project.org/Licenses/
34  */
35 
36 #ifndef R_COMPLEX_H
37 #define R_COMPLEX_H
38 
39 #ifdef __cplusplus
40 extern "C" {
41 #endif
42 
43 typedef struct {
44  double r;
45  double i;
46 } Rcomplex;
47 
48 
49 #ifdef __cplusplus
50 inline bool operator==(const Rcomplex& l, const Rcomplex& r)
51 {
52  return (l.r == r.r) && (l.i == r.i);
53 }
54 
55 inline bool operator!=(const Rcomplex& l, const Rcomplex& r)
56 {
57  return !(l==r);
58 }
59 
60 } // extern "C"
61 #endif // __cplusplus
62 
63 #endif /* R_COMPLEX_H */