/[escript]/branches/domexper/dudley/src/CPPAdapter/DudleyError.cpp
ViewVC logotype

Contents of /branches/domexper/dudley/src/CPPAdapter/DudleyError.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3251 - (show annotations)
Thu Oct 7 04:02:30 2010 UTC (8 years, 7 months ago) by jfenwick
File size: 1327 byte(s)
Merged sconcript changes - weipa doesn't build unit test binary
1
2 /*******************************************************
3 *
4 * Copyright (c) 2003-2010 by University of Queensland
5 * Earth Systems Science Computational Center (ESSCC)
6 * http://www.uq.edu.au/esscc
7 *
8 * Primary Business: Queensland, Australia
9 * Licensed under the Open Software License version 3.0
10 * http://www.opensource.org/licenses/osl-3.0.php
11 *
12 *******************************************************/
13
14
15 #ifdef ESYS_MPI
16 #include <mpi.h>
17 #endif
18 #include "DudleyError.h"
19 #include <iostream>
20
21 namespace dudley {
22
23 void setDudleyError(Dudley_ErrorCodeType errorCode,
24 const std::string& errMess)
25 {
26 Dudley_setError(errorCode,(__const char*)(errMess.c_str()));
27 }
28
29 void checkDudleyError()
30 {
31 if (Dudley_noError()) {
32 return;
33 } else {
34 //
35 // reset the error code to no error otherwise the next call to
36 // this function may resurrect a previous error
37 Dudley_resetError();
38 throw DudleyAdapterException(Dudley_getErrorMessage());
39 }
40 }
41 void checkPasoError()
42 {
43 if (Esys_noError()) {
44 return;
45 } else {
46 //
47 // reset the error code to no error otherwise the next call to
48 // this function may resurrect a previous error
49 Esys_resetError();
50 throw DudleyAdapterException(Esys_getErrorMessage());
51 }
52 }
53
54 } // end of namespace

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision
svn:mergeinfo /branches/scons_revamp_from_3210/dudley/src/CPPAdapter/DudleyError.cpp:3212-3243

  ViewVC Help
Powered by ViewVC 1.1.26