class
	PLAYLIST_EXPORT_INFO

inherit
	EL_REFLECTIVE_EIF_OBJ_BUILDER_CONTEXT
		rename
			make_default as make,
			field_included as is_any_field,
			xml_naming as eiffel_naming,
			element_node_fields as Empty_set
		redefine
			make, on_context_exit
		end

	M3U_PLAY_LIST_CONSTANTS

create
	make

feature {NONE} -- Initialization

	make
		do
			Precursor
			subdirectory_name := Default_playlists_subdirectory_name
			m3u_extension := Default_m3u_extension
		end

feature -- Access

	m3u_extension: ZSTRING

	root: ZSTRING

	subdirectory_name: ZSTRING

feature -- Status query

	is_windows_path: BOOLEAN
		local
			s: EL_ZSTRING_ROUTINES
		do
			Result := s.starts_with_drive (root)
		end

feature -- Event handling

	on_context_exit
		do
			M3U.play_list_root := root
		end

feature {NONE} -- Constants

	Default_m3u_extension: ZSTRING
		once
			Result := "m3u"
		end

	Default_playlists_subdirectory_name: ZSTRING
		once
			Result := "playlists"
		end
end