Commit e740be66 authored by Hemery Mathieu's avatar Hemery Mathieu
Browse files

Small bug fix on naming ODE system

parent 8473d581
......@@ -142,7 +142,7 @@ read_xpp(Stream, Id) :-
string_lower(LineUD, LineDotted),
re_replace("([+,-,*,/,=, ])(\\.\\d)"/g,"\\{1}0\\{2}",LineDotted, Line),
split_string(Line, " ", "", SeqLine),
read_xpp_line(Line,SeqLine, Id)
read_xpp_line(Line, SeqLine, Id)
).
......@@ -150,12 +150,12 @@ read_xpp(Stream, Id) :-
%
% read an xpp line as a sequence of word and add the results to the ode system Id
read_xpp_line(_Line,["#", "NAME:", Name|_Tail], Id) :-
read_xpp_line(_Line, ["#", "name:", Name|_Tail], Id) :-
!,
set_ode_system_name(Id, Name),
fail.
read_xpp_line(_Line,["#", "OPTION:", Option, "=", Value|_T], _Id) :-
read_xpp_line(_Line,["#", "option:", Option, "=", Value|_T], _Id) :-
!,
read_term_from_atom(Option, OptionT, []),
read_term_from_atom(Value, ValueT, []),
......@@ -210,6 +210,7 @@ read_xpp_line(Line, _Split, Id) :-
ode:set_ode_function(Id, Expr),
fail.
is_param("par").
is_param("param").
is_param("parameter").
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment