Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

7

  • Loading branch information...
commit 8d8b2cb16f2f63a1e9f39a8b5ad2a9aa897dc398 1 parent 9b48242
Kartik Agaram authored
Showing with 9 additions and 3 deletions.
  1. +4 −0 CodeLog
  2. +0 −1  agenda.pl
  3. +5 −2 am.pl
4 CodeLog
View
@@ -28,3 +28,7 @@ Ok, it compiles now, though I need to call load_am_files separately before am.
am dies within various abolish calls that I can comment out to get it to run.
Don't want to save those until I figure out what I'm doing.
=-=6 - Thu Dec 4 18:43:24 PST 2008
+
+make those procedures dynamic right at the start. Now is it hung or just
+processing for a long time?
+=-=7 - Thu Dec 11 12:23:44 PST 2008
1  agenda.pl
View
@@ -18,7 +18,6 @@
/* do_threshold returns the lowest acceptable value for an
* executable task.
*/
-
do_threshold(500).
/* addtohistory adds a task to the 5 task history stack which is kept by
7 am.pl
View
@@ -13,6 +13,9 @@
consult(Hfile),
fail.
+:-dynamic(seed/1).
+:-dynamic(do_threshold/1).
+
am :-
init_am,
repeat,
@@ -135,8 +138,8 @@
T < 0.
execute_heuristics(Con,[H|R]) :-
((descr(H,Msg,_),
- format('~a:~t~8|~a~n',[H,Msg]),ttyflush) ;
- (format('~a:~t~8|~n',[H]), ttyflush)),
+ format('~a: ~a~n',[H,Msg]),flush_output) ;
+ (format('~a: ~n',[H]), flush_output)),
clock(Start,_),
apply_heuristic(H,[Con]),
clock(Start,Elapsed_time),
Please sign in to comment.
Something went wrong with that request. Please try again.