1:- module(tt_iface,[]). 2 3:- if(\+ (exists_file('tt0_00022_cycl.qlf'))). 4:- format(user_error,'~NLoading tt0_00022_cycl.qlf ... ~n',[]). 5:- time(load_files(tt0_00022_cycl,[qcompile(auto)])). 6:- endif. 7 8:- reexport(tt0_00022_cycl). 9 10:- reexport(ac_xnl_iface). 11:- reexport(clex_iface). 12 13prim_acts(Z):- ttholds(_,Y,primitive_action_tt),(ttholds(_,Z,Y)*->true; Z=Y). 14prim_acts(Z):- ttholds(_,Y,primitive_action_tt),(ttholds(_,Z,Y)*->true; Z=Y). 15 16:- export(prim_acts/1).