indexing
	description: "Access to a file date."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class
	CONF_FILE_DATE

feature -- Access

	file_modified_date (a_path: STRING): INTEGER is
			-- Get last modified timestamp of `a_path'.
		require
			a_path_set: a_path /= Void and then not a_path.is_empty
		local
			l_cstr: C_STRING
		do
			create l_cstr.make (a_path)
			eif_date (l_cstr.item, $Result)
		ensure
			file_modified_date_valid: Result >= -1
		end

feature {NONE} -- Externals

	eif_date (a_path: POINTER; r: TYPED_POINTER [INTEGER]) is
			-- Date of file of name `str'.
	external
		"C inline use %"eif_eiffel.h%", <sys/types.h>, <sys/stat.h>"
	alias "{
			{
				#ifdef EIF_WINDOWS
					/* On NTFS file system, windows store UTC file stamps in 100 of nanoseconds
					 * starting from January 1st 0. Converted in seconds, this time is greater
					 * than 232 therefore we substract the EPOCH date January 1st 1970 to get
					 * a 32 bits representation of the date.
					 * FIXME: Manu 01/28/2004: On FAT file system, the date is in local time,
					 * meaning that the code below does not compensate if you change your timezone
					 * and will return a different date value for the same stamp just because
					 * you are in different time zone.
					 */
					 
					 /* WARNING: This is using the Ansi version of the Win32 API. Remember
					  * that if you are doing any change below.
					  */
				static ULARGE_INTEGER epoch_date;
				static int done = 0;
	
				WIN32_FIND_DATAA l_find_data;
				HANDLE l_file_handle;
				ULARGE_INTEGER l_date;
	
				l_file_handle = FindFirstFileA($a_path, &l_find_data);
				if (l_file_handle == INVALID_HANDLE_VALUE) {
					*(EIF_INTEGER*) $r = -1;
				} else {
		 			/* We do not need the file handle anymore, so we close it to
					 * avoid handle leak. */
				FindClose (l_file_handle);
				if (done == 0) {
						/* Lazy initialization of epoch_date. */
					SYSTEMTIME epoch;
					FILETIME epoch_file;
	
					done = 1;
					memset (&epoch, 0, sizeof(SYSTEMTIME));
					epoch.wYear = 1970;
					epoch.wMonth = 1;
					epoch.wDay = 1;
					SystemTimeToFileTime (&epoch, &epoch_file);
					memcpy (&epoch_date, &epoch_file, sizeof(ULARGE_INTEGER));
				}
				memcpy (&l_date, &(l_find_data.ftLastWriteTime), sizeof(ULARGE_INTEGER));
				*(EIF_INTEGER*) $r = (EIF_INTEGER) ((l_date.QuadPart -
					epoch_date.QuadPart) / RTI64C(10000000));
				}
				#else
				static struct stat info;
				*(EIF_INTEGER*) $r = (-1 == stat($a_path,&info)) ? (EIF_INTEGER) -1L :(EIF_INTEGER) info.st_mtime;
				#endif
			}
         }"
	end

indexing
	copyright:	"Copyright (c) 1984-2006, Eiffel Software"
	license:	"GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
	licensing_options:	"http://www.eiffel.com/licensing"
	copying: "[
			This file is part of Eiffel Software's Eiffel Development Environment.
			
			Eiffel Software's Eiffel Development Environment is free
			software; you can redistribute it and/or modify it under
			the terms of the GNU General Public License as published
			by the Free Software Foundation, version 2 of the License
			(available at the URL listed under "license" above).
			
			Eiffel Software's Eiffel Development Environment is
			distributed in the hope that it will be useful,	but
			WITHOUT ANY WARRANTY; without even the implied warranty
			of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
			See the	GNU General Public License for more details.
			
			You should have received a copy of the GNU General Public
			License along with Eiffel Software's Eiffel Development
			Environment; if not, write to the Free Software Foundation,
			Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
		]"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"
end