Changeset 5039

Show
Ignore:
Timestamp:
06/21/09 10:52:26 (9 months ago)
Author:
pmoura
Message:

Added support for translating queries used as directives as initialization goals when compiling a module as an object.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/compiler/logtalk.pl

    r5037 r5039  
    61156115    '$lgt_pp_module_'(_),                                   % we're compiling a module as an object 
    61166116    !,                                                      % translate queries used as directives as initialization goals 
     6117    (   '$lgt_compiler_flag'(portability, warning), 
     6118        \+ '$lgt_compiler_flag'(report, off) -> 
     6119        '$lgt_report_warning_in_new_line', 
     6120        '$lgt_inc_compile_warnings_counter', 
     6121        write('%         WARNING!  Compiling query used as directive as an initialization goal: '), writeq(Dir), nl, 
     6122        '$lgt_pp_entity'(Type, Entity, _, _, _), 
     6123        '$lgt_report_warning_full_context'(Type, Entity, File, Lines, Input) 
     6124    ;   true 
     6125    ), 
    61176126    '$lgt_tr_directive'(initialization, [Dir], File, Lines, Input, Output). 
    61186127