Load precompiled prolog rules from jar file

Looks in (site)/cache/rules for a jar file called:
rules-(sha1 of rules.pl).jar
Loads the precompiled prolog rules and uses them instead of
consulting rules.pl. If the jar does not exist, consults rules.pl.
If rules.pl does not exist, uses the default submit rules.

Change-Id: Iae415de08dbe249eff26b753d258fd7f79a8771f
This commit is contained in:
Jason Tsay
2011-06-14 15:19:26 -07:00
committed by Shawn O. Pearce
parent 76409cf7fa
commit 4efeb4fc64
6 changed files with 160 additions and 5 deletions

View File

@@ -170,12 +170,12 @@ is_all_ok(_) :- fail.
%%
locate_submit_rule(RuleName) :-
clause(user:submit_rule(_), _),
'$compiled_predicate'(user, submit_rule, 1),
!,
RuleName = user:submit_rule
.
locate_submit_rule(RuleName) :-
'$compiled_predicate'(user, submit_rule, 1),
clause(user:submit_rule(_), _),
!,
RuleName = user:submit_rule
.