53 lines
1.3 KiB
Perl
53 lines
1.3 KiB
Perl
|
/*
|
||
|
|
|
||
|
|
$Header$
|
||
|
|
@author Nikolai van Kempen
|
||
|
|
|
||
|
|
Provides access to the ../bin/ProgressConstants.csv values.
|
||
|
|
|
||
|
|
Note: Won't distinguishing between the standalone and the client/server mode (but intendedly!).
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
Reads the csv file when
|
||
|
|
- getProgressConstant is called the first time
|
||
|
|
- after reloading this file and the first getProgressConsant call.
|
||
|
|
*/
|
||
|
|
:- dynamic pcInit/1.
|
||
|
|
pcInit(true).
|
||
|
|
|
||
|
|
pcInit :-
|
||
|
|
File='../bin/ProgressConstants.csv',
|
||
|
|
% With the options functor(progressConsant), arity(5), match_arity(false)
|
||
|
|
% it is possible to assert the facts directly, but then you need to
|
||
|
|
% retract the header value...
|
||
|
|
csv_read_file(File, Rows, [strip(true)]),
|
||
|
|
retractall(progressConstant(_, _, _, _, _)),
|
||
|
|
Rows=[_HeaderRow|Rest],
|
||
|
|
assertProgressConstants(Rest),
|
||
|
|
retractall(pcInit(_)).
|
||
|
|
|
||
|
|
assertProgressConstants([]) :-
|
||
|
|
!.
|
||
|
|
|
||
|
|
assertProgressConstants([R|Rest]) :-
|
||
|
|
assertProgressConstants(Rest),
|
||
|
|
R=..[_|Args],
|
||
|
|
Args=[Algebra, Operator, Constant, Value, Unit|_],
|
||
|
|
asserta(progressConstant(Algebra, Operator, Constant, Value, Unit)),
|
||
|
|
!.
|
||
|
|
|
||
|
|
getProgressConstant(_, _, _, _) :-
|
||
|
|
pcInit(true),
|
||
|
|
ensure(pcInit, 'failed to load the progressConstants'),
|
||
|
|
retractall(pcInit(true)),
|
||
|
|
fail.
|
||
|
|
|
||
|
|
getProgressConstant(Algebra, Operator, Constant, Value) :-
|
||
|
|
progressConstant(Algebra, Operator, Constant, Value, _),
|
||
|
|
!.
|
||
|
|
|
||
|
|
% eof
|