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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
///
/// This file is part of Rheolef.
///
/// Copyright (C) 2000-2009 Pierre Saramito <Pierre.Saramito@imag.fr>
///
/// Rheolef is free software; you can redistribute it and/or modify
/// it under the terms of the GNU General Public License as published by
/// the Free Software Foundation; either version 2 of the License, or
/// (at your option) any later version.
///
/// Rheolef is distributed in the hope that it will be useful,
/// but WITHOUT ANY WARRANTY; without even the implied warranty of
/// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
/// GNU General Public License for more details.
///
/// You should have received a copy of the GNU General Public License
/// along with Rheolef; if not, write to the Free Software
/// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
///
/// =========================================================================
// old format input space_constitution files:
// space_constitution_old_get (idiststream& ids, space_constitution<T,M>& constit)
//
// author: Pierre.Saramito@imag.fr
//
// date: 19 dec 2011
//
#include "space_constitution_get.icc"
// ================================================================================
// part 1 : read from idiststeam and build as tree_type* result_ptr
// ================================================================================
/* AIX requires this to be the first thing in the file. */
#ifndef __GNUC__
# if _RHEOLEF_HAVE_ALLOCA_H
# include <alloca.h>
# else
# ifdef _AIX
#pragma alloca
# else
# ifndef alloca /* predefined by HP cc +Olibcalls */
char *alloca ();
# endif
# endif
# endif
#endif
namespace rheolef {
using namespace std;
typedef size_t size_type;
static size_type space_constitution_old_line_no = 1;
static size_type space_constitution_old_n_error = 0;
extern int space_constitution_old_lex();
void space_constitution_old_error (const char* msg) {
std::string near;
error_macro("space constitution_old input:" << space_constitution_old_line_no << ": " << msg);
space_constitution_old_n_error++;
}
int space_constitution_old_wrap () { return 1; }
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Weffc++"
#define YYMALLOC ::malloc
#define YYFREE ::free
#include "space_constitution_old_yacc.cc"
// avoid re-definition of YY_NULL within flex
#ifdef YY_NULL
#undef YY_NULL
#endif
#include "space_constitution_old_lex.cc"
#pragma GCC diagnostic pop
static yyFlexLexer input_space_constitution_old;
int space_constitution_old_lex() { return input_space_constitution_old.yylex(); }
// ================================================================================
// part 2 : main call
// ================================================================================
template<class T, class M>
void
space_constitution_old_get (idiststream& ids, space_constitution<T,M>& constit)
{
space_constitution_get_pass_1_2 (ids, space_constitution_old_parse,
input_space_constitution_old, space_constitution_old_line_no, space_constitution_old_n_error);
// convert tree_type result_ptr to space_constitution
const tree_type* ptr = result_ptr;
constit = build_from_tree<T,M> (*ptr);
delete_macro (result_ptr); result_ptr = 0;
}
// ----------------------------------------------------------------------------
// instanciation in library
// ----------------------------------------------------------------------------
template void space_constitution_old_get (idiststream&, space_constitution<Float,sequential>&);
#ifdef _RHEOLEF_HAVE_MPI
template void space_constitution_old_get (idiststream&, space_constitution<Float,distributed>&);
#endif // _RHEOLEF_HAVE_MPI
} // namespace rheolef
|
