" ),
nl,
nondeterm_found_search_result( Display_per_file_or_per_tag, Filepath, TxLine1, Txtline, Filewithpath ),
color_for_file_type( Filewithpath, Htm_color_string ),
write( "
" ),
show_file_also( Display_per_file_or_per_tag, Filewithpath ),
write_line_with_tag_colors( TxLine1, Txtline ),
% write( " " ), write( Txtline ), write( " " ), write( "
\n" ),
write( " " ), write( Txtline ), write( " " ), write( "
\n" ),
string_length( Txtline, Lex ), if_small_no_newline( Lex ) ,
write( "
" ),
fail, ! .
fresults_par_file( _, _, _, _Fnx, _ , _):- !, write( "\n
\n" ).
:- dynamic per_file/1.
file_characteristics( File_with_path , Fnx , Lp, Lpx2 , Dir ):-
sub_atom( File_with_path, _, _, _, '/' ),
file_base_name( File_with_path , Fnx ),
dir_get_last_path( File_with_path , Lp ), dir_get_last_path2( File_with_path , Lpx2 ),
file_directory_name( File_with_path , Dir ), !.
file_characteristics( _File_with_path , '','','','' ):- !.
display_metta_sresults( 'display_per_file', _Zk, _Dirx ):- retractall( per_file( _ ) ) ,
found_search_result( _, _, Fpz, _, _ ), not( per_file( Fpz ) ), assert( per_file( Fpz ) ), fail.
display_metta_sresults( 'display_per_file', Zk, _Dirx ):-
findall( Fpz, per_file( Fpz ), Fpzl ), member( File_with_path, Fpzl ),
file_characteristics( File_with_path , Fnx , Lp, Lpx2 , Dir ),
write( "\n