indexing
   description: "exercise the KWIC problem with a simple example"

class DRIVER
creation
   make
feature
   library : LISTE[BOOK]
   non_kw : LISTE[STRING]
   make is
      local
	 k : KWIC
      do
	 read_library		  -- read the list of books
	 read_non_keywords	  -- read the list of non_keywords
	 !!k.make(library,non_kw) -- build the KWIC
	 k.quick_sort		  -- sort it
	 k.print_index		  -- print it
      end -- make
   read_library is
      -- put a number of books in the 'library' list.
      local
	 b : BOOK
      do
	 !!b.make("The Hitch-Hiker's Guide to the Galaxy",
		  "G. Adams", 4242)
	 !!library.make(b,Void) 
	 !!b.make("Software Engineering with Ada and Modula-2",
		  "R. Wierner and R. Sincovec", 6543)
	 library:=library.append(b)
	 !!b.make("Object-Oriented Software Engineering with Eiffel",
		  "J.-M. Jezequel", 6789)
	 library:=library.append(b)
	 !!b.make("The Evolution of the Universe: Part 1",
		  "C. Charlie", 9834)
	 library:=library.append(b)
      end -- read_library
   read_non_keywords is
	 -- put a number of non_keywords in the 'non_kw' list.
      do
	 !!non_kw.make("and",Void)
	 non_kw := non_kw.append("of")
	 non_kw := non_kw.append("or")
	 non_kw := non_kw.append("part")
	 non_kw := non_kw.append("s")
	 non_kw := non_kw.append("the")
	 non_kw := non_kw.append("to")
	 non_kw := non_kw.append("using")
	 non_kw := non_kw.append("with")
      end -- read_non_keywords
end -- DRIVER