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
|
/*******************************************************************/
/* XDMF */
/* eXtensible Data Model and Format */
/* */
/* Id : $Id: XdmfExpression.cxx,v 1.2 2009-01-23 20:31:39 clarke Exp $ */
/* Date : $Date: 2009-01-23 20:31:39 $ */
/* Version : $Revision $ */
/* */
/* Author: */
/* Jerry A. Clarke */
/* clarke@arl.army.mil */
/* US Army Research Laboratory */
/* Aberdeen Proving Ground, MD */
/* */
/* Copyright @ 2002 US Army Research Laboratory */
/* All Rights Reserved */
/* See Copyright.txt or http://www.arl.hpc.mil/ice for details */
/* */
/* This software is distributed WITHOUT ANY WARRANTY; without */
/* even the implied warranty of MERCHANTABILITY or FITNESS */
/* FOR A PARTICULAR PURPOSE. See the above copyright notice */
/* for more information. */
/* */
/*******************************************************************/
#include <cstring>
#include "XdmfExpression.h"
extern XdmfArray *XdmfExprParse( XdmfString string );
XdmfArray *
XdmfExpr( XdmfString Statement ) {
// cerr << "In XdmfExpr : " << Statement << '\n';
return ( XdmfExprParse( Statement ));
}
void
XdmfArrayExpr( XdmfArray *Array, XdmfString Operation, XdmfArray *Values ){
if( strcmp( Operation, "=" ) == 0 ){
*Array = *Values;
} else
if( strcmp( Operation, "*=" ) == 0 ){
*Array *= *Values;
} else
if( strcmp( Operation, "+=" ) == 0 ){
*Array += *Values;
}
}
void
XdmfScalarExpr( XdmfArray *Array, XdmfString Operation, XdmfFloat64 Value){
if( strcmp( Operation, "=" ) == 0 ){
*Array = Value;
} else
if( strcmp( Operation, "*=" ) == 0 ){
*Array *= Value;
} else
if( strcmp( Operation, "+=" ) == 0 ){
*Array += Value;
}
}
|
