Piotr Caban : scrrun: Add IFileSystem3::GetAbsolutePathName implementation.
Alexandre Julliard
julliard at winehq.org
Mon Jul 29 14:01:18 CDT 2013
Module: wine
Branch: master
Commit: 1027c20cd7d5f6b180d904460f068933951ab98f
URL: http://source.winehq.org/git/wine.git/?a=commit;h=1027c20cd7d5f6b180d904460f068933951ab98f
Author: Piotr Caban <piotr at codeweavers.com>
Date: Thu Jul 25 15:13:13 2013 +0200
scrrun: Add IFileSystem3::GetAbsolutePathName implementation.
---
dlls/scrrun/filesystem.c | 49 ++++++++++++++++++++++++++++++++++++++++++++-
1 files changed, 47 insertions(+), 2 deletions(-)
diff --git a/dlls/scrrun/filesystem.c b/dlls/scrrun/filesystem.c
index 8d0f5b1..53ace2a 100644
--- a/dlls/scrrun/filesystem.c
+++ b/dlls/scrrun/filesystem.c
@@ -862,9 +862,54 @@ static HRESULT WINAPI filesys_GetExtensionName(IFileSystem3 *iface, BSTR Path,
static HRESULT WINAPI filesys_GetAbsolutePathName(IFileSystem3 *iface, BSTR Path,
BSTR *pbstrResult)
{
- FIXME("%p %s %p\n", iface, debugstr_w(Path), pbstrResult);
+ static const WCHAR cur_path[] = {'.',0};
- return E_NOTIMPL;
+ WCHAR buf[MAX_PATH], ch;
+ const WCHAR *path;
+ DWORD i, beg, len, exp_len;
+ WIN32_FIND_DATAW fdata;
+ HANDLE fh;
+
+ TRACE("%p %s %p\n", iface, debugstr_w(Path), pbstrResult);
+
+ if(!pbstrResult)
+ return E_POINTER;
+
+ if(!Path)
+ path = cur_path;
+ else
+ path = Path;
+
+ len = GetFullPathNameW(path, MAX_PATH, buf, NULL);
+ if(!len)
+ return E_FAIL;
+
+ buf[0] = toupperW(buf[0]);
+ if(len>3 && buf[len-1] == '\\')
+ buf[--len] = 0;
+
+ for(beg=3, i=3; i<=len; i++) {
+ if(buf[i]!='\\' && buf[i])
+ continue;
+
+ ch = buf[i];
+ buf[i] = 0;
+ fh = FindFirstFileW(buf, &fdata);
+ if(fh == INVALID_HANDLE_VALUE)
+ break;
+
+ exp_len = strlenW(fdata.cFileName);
+ if(exp_len == i-beg)
+ memcpy(buf+beg, fdata.cFileName, exp_len*sizeof(WCHAR));
+ FindClose(fh);
+ buf[i] = ch;
+ beg = i+1;
+ }
+
+ *pbstrResult = SysAllocString(buf);
+ if(!*pbstrResult)
+ return E_OUTOFMEMORY;
+ return S_OK;
}
static HRESULT WINAPI filesys_GetTempName(IFileSystem3 *iface, BSTR *pbstrResult)
More information about the wine-cvs
mailing list