home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AIE9009.ZIP / FRAMES.ZIP / TRACEFLG.CON < prev   
Encoding:
Text File  |  1990-07-09  |  1.7 KB  |  59 lines
  1.  
  2. /* To trace something take out the                         % in col. 1.
  3.    To untrace something,     put the                         % in col. 1.
  4.  
  5.    Trace messages appear on the screen and in the file log.log
  6.    created for each complete run.
  7.  
  8. */
  9. z( CMD, FLAG ) :-
  10.     string_term( S_FLAG, FLAG ),
  11.     !,
  12.     (   CMD == off,
  13.         !,
  14.         (    call( FLAG ),
  15.              !,
  16.              concat( S_FLAG, $ turned off.$, MSG),
  17.              write_status_line( MSG )
  18.         ;    true
  19.         ),
  20.         retractall( FLAG )
  21.     ;
  22.         CMD == on ,
  23.         !,
  24.         (    call( FLAG ),
  25.              !
  26.          ;
  27.              concat( S_FLAG, $ turned on.$, MSG),
  28.              write_status_line( MSG ),
  29.              asserta( FLAG )
  30.          )
  31.      ).
  32.  
  33.  
  34. /* THE FOLLOWING SPECIAL FLAG MAKES TRACE FILE SAVING INCREMENTAL
  35. WHEN IT IS TURNED ON.  THIS IS USEFUL WHEN THE SYSTEM CRASHES
  36. MIDWAY THRU,     BUT IT IS SLOWER.
  37. */
  38. % :-z( off , incremental_flag                    ). % write traces incrementally to file
  39.  
  40.  
  41.   :-z( off , test   / 0                          ). %
  42.   :-z( off , solve  / 0                          ). %
  43.   :-z( off , try    / 1                          ). %
  44.   :-z( off , main_hlpr / 0                       ). %
  45.   :-z( off , ground_statement / 3                ). %
  46.   :-z( off , find_rule  / 1                      ). %
  47.   :-z( off , frame_op                            ). %
  48.   :-z( off , setup_statements / 0                ). %
  49.   :-z( off , setup_rules / 0                ). %
  50.   :-z( off , setup       / 0                ). %
  51.  
  52.  
  53.   :-z( off , frame_select_trace                  ). %
  54.   :-z( off , frame_slot_val_trace                ). %
  55.  
  56. %%%%%%%%%%%%%%%%%%% eof %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  57.  
  58.  
  59.