1:- module(clpcd_domain_ops,
    2          [ active_clpcd/2,
    3            active_clpcd_module/3,
    4            cast_d/3,
    5            compare_d/4,
    6            div_d/4,
    7            rsgn_d/4,
    8            eval_d/3,
    9            ceiling_d/3,
   10            floor_d/3,
   11            integerp/3,
   12            numbers_only/2,
   13            pmone/1
   14          ]).   15
   16:- multifile
   17        cast_d/3,
   18        compare_d/4,
   19        div_d/4,
   20        rsgn_d/4,
   21        ceiling_d/3,
   22        floor_d/3,
   23        eval_d/3,
   24        integerp/3,
   25        numbers_only/2,
   26        clpcd_module/2.   27
   28active_clpcd(Context, CD) :- active_clpcd_module(Context, CD, _).
   29
   30active_clpcd_module(Context, CD, Module) :-
   31    '$load_context_module'(File, Context, _),
   32    module_property(Module, file(File)),
   33    clpcd_module(CD, Module),
   34    !.
   35
   36pmone(1).
   37pmone(-1)