lyaaaaaaaaaaaaaaa / lyaaaaa-s-logs-filter Goto Github PK

   
   procedure Read_Line (p_filters           : store_Filter;
                        p_number_of_filters : Natural) is
      
      word_length     : Natural := 0;
      line_to_display : Boolean := False;
      word            : string             (1 .. 40); 
      Filters_State   : store_Filters_State (1.. p_number_of_filters);
      
   begin
      While not  End_Of_File (file) Loop
         
         line := To_Unbounded_String (Get_Line(file));
         initialize_Filters_State (p_value => false,
                                   p_Filters_State => Filters_State);
         
         for I in 1 .. Length(line) loop
            
            
            --  We ignore some opening characters to not miss any information
             --in logs.
              -- Therefore, a user doesn't need to think about logs syntax.
               --  So it avoids [carl not being returned when carl is a filter.
            
            
            if Element (line,I) /= ' ' and End_Of_Line (file) = false then
               
               if    Element (line,I) /= '[' 
                 and Element (line,I) /= '(' 
                 and Element (line,I) /= ''' 
                 and Element (line,I) /= '"' 
                 and Element (line,I) /= '<'
                 and Element (line,I) /= '*'
                 and Element (line,I) /= '{' then
                  
                  word_length        := word_length  +  1;
                  word (word_length) := To_Lower (Element(line,I));
                  
               end if;
                  
            elsif Element (line,I) = ' ' or End_Of_Line (file) = true then
               
               filter_check(p_filters           => p_filters,
                            p_number_of_filters => p_number_of_filters,
                            p_word              => word,
                            p_Filters_State     => Filters_State);
               word_length := 0;
                 
            end if;

           
         end loop;
         
         if are_they_all_true (Filters_State) = true then
            
            display_line;
            
         end if;
         
      end loop;
      
      close (file);
   
   end read_line;