note description: "Summary description for {APP_CLIB_SCANNER}." author: "" date: "$Date$" revision: "$Revision$" class APP_CLIB_SCANNER inherit DIRECTORY_ITERATOR redefine directory_excluded, file_excluded, process_directory end create make feature {NONE} -- Initialization make do create items.make (0) end feature -- Access items: ARRAYED_LIST [PATH] feature -- Reset reset do items.wipe_out end feature -- Visitor process_directory (dn: PATH) local n: READABLE_STRING_32 do if attached dn.entry as e then n := e.name else n := dn.name end if n.is_case_insensitive_equal_general ("Clib") then items.force (dn) else Precursor (dn) end end feature -- Status directory_excluded (dn: PATH): BOOLEAN -- Is Directory `dn' excluded? local n: READABLE_STRING_32 do Result := Precursor (dn) if not Result then if attached dn.entry as e then n := e.name else n := dn.name end Result := n.starts_with_general (".") or n.same_string_general ("EIFGENs") end end file_excluded (fn: PATH): BOOLEAN -- Is file `fn' excluded? do Result := True end note copyright: "Copyright (c) 1984-2013, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end