https://github.com/victorsndvg/forex
Fortran User Defined Exceptions Handler
https://github.com/victorsndvg/forex
exception-handler experimental fortran object-oriented
Last synced: 3 months ago
JSON representation
Fortran User Defined Exceptions Handler
- Host: GitHub
- URL: https://github.com/victorsndvg/forex
- Owner: victorsndvg
- License: lgpl-3.0
- Created: 2016-04-26T07:07:15.000Z (about 9 years ago)
- Default Branch: master
- Last Pushed: 2023-04-30T19:40:46.000Z (about 2 years ago)
- Last Synced: 2024-01-29T08:48:34.402Z (over 1 year ago)
- Topics: exception-handler, experimental, fortran, object-oriented
- Language: FORTRAN
- Size: 33.2 KB
- Stars: 18
- Watchers: 5
- Forks: 6
- Open Issues: 2
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
#ForEx
**For**tran User Defined **Ex**ceptions Handler
**Experimental Code:** *Use it carefully! still under development*
[](https://travis-ci.org/victorsndvg/ForEx.svg)
[](https://codecov.io/github/victorsndvg/ForEx?branch=master)
##License
[](http://www.gnu.org/licenses/lgpl-3.0.txt)
##What is ForEx?
**ForEx** is fortran 2003 project taking advance of the [C preprocessor](https://gcc.gnu.org/onlinedocs/cpp/) capabilities in order to emulate exception handling.
##Features
- **Exception hierarchy:** **ForEx** can handle any error object extended from the **Exception** base class.
- **Local flow control:** throwing an exception changes the local flow. **THROW** performs local jumps to the end of the **TRY** frame or **FINALLY**.
- **Global handling:** the exception stack is a global object under the singleton pattern.
- **Single THROW call per scope:**
- Single throw call per local **TRY** scope.
- Single throw call per local **CATCH** scope.
- Single throw call per local **FINALLY** scope.
- **Re-throwing:** a exception can be raised again in the **CATCH** scope.
- **Re-throwing Backtrace:** an exception saves the stack of contexts where it has been throwed.
- **Handle throwed exceptions:** **CATCH** iterate over all the exceptions looking for the first that matches the same *class*.
- **CATCH precedence:** multiple **CATCH** calls in the same **TRY** frame are executed sequencially.
- **Automatic exception stack cleaning when CATCH:** if several exceptions has been thrown along the program, only one of them will be handled in the next **CATCH** call.
- **Customizable catching action:** Exception *class* contains the **Catch** procedure to customize the action performed when cathing it.
- **Automatic Backtrace of non handled exceptions:** going out of the main **TRY**/**ENDTRY** scope with non handled exceptions in the stack causes *exception backtrace flush*.
##How to get ForEx
```git clone https://github.com/victorsndvg/Forex.git ```
##Compilation
**ForEx** compile with GNU Fortran compiler 5.1 (and newer versions) and Intel Fortran compiler 15.0.1 (and newer versions).
**ForEx** uses [CMake](https://cmake.org/) as a portable compilation system.
The easiest way to compile **ForEx** under Linux is:
```
$ cd ForEx
$ mkdir build
$ cd build
$ cmake ../
$ make
```
*To compile ForEx under Windows use de equivalent commands*
Remember, **ForEx** take advantage of the [C preprocessor](https://gcc.gnu.org/onlinedocs/cpp/). To include it in your project, you have to add the preprocessor flags while compiling.
Preprocesor flags depending on the compiler vendor:
- GNU Fortran: -cpp
- Intel Fortran: -fpp
- IBM XLF: -qsuffix=f=f90:cpp=f90
###Using ForEx in your program
```fortran
program test
USE ForEx
implicit none
#include "ExceptionHandler.i90"
TRY
! Variable allocation
if(Error) then
THROW(Exception(Code=-1, Message='An error message')
endif
CATCH(Exception, Ex)
call Ex%Print()
FINALLY
! Variable deallocation
ENDTRY
end program test
```