File: UnknownListExpression.cpp

package info (click to toggle)
freefem3d 1.0pre8-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 13,920 kB
  • ctags: 7,145
  • sloc: cpp: 45,748; sh: 8,698; yacc: 2,847; makefile: 600; ansic: 504; perl: 110
file content (86 lines) | stat: -rw-r--r-- 2,506 bytes parent folder | download
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
//  This file is part of ff3d - http://www.freefem.org/ff3d
//  Copyright (C) 2001, 2002, 2003 Stphane Del Pino

//  This program 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, or (at your option)
//  any later version.

//  This program 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 this program; if not, write to the Free Software Foundation,
//  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  

//  $Id: UnknownListExpression.cpp,v 1.4 2005/09/25 13:57:34 delpinux Exp $

#include <Variable.hpp>
#include <UnknownListExpression.hpp>

#include <VariableList.hpp>

// A pointer to the lexer.
extern VariableList variableList;

std::ostream& UnknownListExpressionSet::put(std::ostream& os) const
{
  os << '[';
  for (listType::const_iterator i = __list.begin(); i != __list.end(); ++i) {
    const FunctionExpressionVariable& u
      = static_cast<const FunctionExpressionVariable&>((**i));
    if (i != __list.begin()) {
      os << ',';
    }
    os << (*u.variable()).name() << ':';
    switch(u.discretizationType()) {
    case DiscretizationType::LagrangianFEM1: {
      os << "P1";
      break;
    }
    case DiscretizationType::LagrangianFEM2: {
      os << "P2";
      break;
    }
    default: {
      throw ErrorHandler(__FILE__,__LINE__,
			 "not implemented",
			 ErrorHandler::unexpected);
    }
    }
  }
  os << ']';
  return os;
}


void UnknownListExpressionSet::unknownsDeclare()
{
  for (listType::iterator i = __list.begin(); i != __list.end(); ++i) {
    FunctionExpressionVariable& u
      = dynamic_cast<FunctionExpressionVariable&>((*(*i)));

    u.subscribe();

    bool isVariable = (variableList.find((*u.variable()).name()) != 0);

    if (!isVariable) {
      ReferenceCounting<Variable> newVariable
	= &dynamic_cast<FunctionVariable&>(*u.variable());
      variableList.add(newVariable);
    }
  }
}

void UnknownListExpressionSet::unknownsUndeclare()
{
  for (listType::iterator i = __list.begin(); i != __list.end(); ++i) {
    FunctionExpressionVariable& u
      = dynamic_cast<FunctionExpressionVariable&>((*(*i)));

    u.unsubscribe();
  }
}