Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-winehq
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-winehq
Commits
4ecb339f
Commit
4ecb339f
authored
Jul 20, 2011
by
Michał Ziętek
Committed by
Alexandre Julliard
Jul 21, 2011
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
wscript: Implemented Host_get_ScriptFullName.
parent
bf331f8d
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
25 additions
and
2 deletions
+25
-2
host.c
programs/wscript/host.c
+5
-2
run.c
programs/wscript/tests/run.c
+19
-0
run.js
programs/wscript/tests/run.js
+1
-0
No files found.
programs/wscript/host.c
View file @
4ecb339f
...
...
@@ -176,8 +176,11 @@ static HRESULT WINAPI Host_get_ScriptName(IHost *iface, BSTR *out_ScriptName)
static
HRESULT
WINAPI
Host_get_ScriptFullName
(
IHost
*
iface
,
BSTR
*
out_ScriptFullName
)
{
WINE_FIXME
(
"(%p)
\n
"
,
out_ScriptFullName
);
return
E_NOTIMPL
;
WINE_TRACE
(
"(%p)
\n
"
,
out_ScriptFullName
);
if
(
!
(
*
out_ScriptFullName
=
SysAllocString
(
scriptFullName
)))
return
E_OUTOFMEMORY
;
return
S_OK
;
}
static
HRESULT
WINAPI
Host_get_Arguments
(
IHost
*
iface
,
IArguments2
**
out_Arguments
)
...
...
programs/wscript/tests/run.c
View file @
4ecb339f
...
...
@@ -62,6 +62,7 @@ DEFINE_EXPECT(reportSuccess);
#define DISPID_TESTOBJ_WSCRIPTFULLNAME 10003
#define DISPID_TESTOBJ_WSCRIPTPATH 10004
#define DISPID_TESTOBJ_WSCRIPTSCRIPTNAME 10005
#define DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME 10006
#define TESTOBJ_CLSID "{178fc166-f585-4e24-9c13-4bb7faf80646}"
...
...
@@ -152,6 +153,8 @@ static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid,
rgDispId
[
i
]
=
DISPID_TESTOBJ_WSCRIPTPATH
;
}
else
if
(
!
strcmp_wa
(
rgszNames
[
i
],
"wscriptScriptName"
))
{
rgDispId
[
i
]
=
DISPID_TESTOBJ_WSCRIPTSCRIPTNAME
;
}
else
if
(
!
strcmp_wa
(
rgszNames
[
i
],
"wscriptScriptFullName"
))
{
rgDispId
[
i
]
=
DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME
;
}
else
{
ok
(
0
,
"unexpected name %s
\n
"
,
wine_dbgstr_w
(
rgszNames
[
i
]));
return
DISP_E_UNKNOWNNAME
;
...
...
@@ -246,6 +249,22 @@ static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REF
return
E_OUTOFMEMORY
;
break
;
}
case
DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME
:
{
char
fullPath
[
MAX_PATH
];
long
res
;
ok
(
wFlags
==
INVOKE_PROPERTYGET
,
"wFlags = %x
\n
"
,
wFlags
);
ok
(
pdp
->
cArgs
==
0
,
"cArgs = %d
\n
"
,
pdp
->
cArgs
);
ok
(
!
pdp
->
cNamedArgs
,
"cNamedArgs = %d
\n
"
,
pdp
->
cNamedArgs
);
V_VT
(
pVarResult
)
=
VT_BSTR
;
res
=
GetFullPathNameA
(
script_name
,
sizeof
(
fullPath
)
/
sizeof
(
WCHAR
),
fullPath
,
NULL
);
if
(
!
res
||
res
>
sizeof
(
fullPath
)
/
sizeof
(
WCHAR
))
return
E_FAIL
;
if
(
!
(
V_BSTR
(
pVarResult
)
=
SysAllocString
(
a2bstr
(
fullPath
))))
return
E_OUTOFMEMORY
;
break
;
}
default:
ok
(
0
,
"unexpected dispIdMember %d
\n
"
,
dispIdMember
);
return
E_NOTIMPL
;
...
...
programs/wscript/tests/run.js
View file @
4ecb339f
...
...
@@ -31,5 +31,6 @@ ok(typeof(WScript.BuildVersion) === "number", "typeof(WScript.BuldVersion) = " +
ok
(
WScript
.
FullName
===
winetest
.
wscriptFullName
,
"WScript.FullName = "
,
WScript
.
FullName
);
ok
(
WScript
.
Path
===
winetest
.
wscriptPath
,
"WScript.Path = "
,
WScript
.
Path
);
ok
(
WScript
.
ScriptName
===
winetest
.
wscriptScriptName
,
"WScript.ScriptName = "
+
WScript
.
ScriptName
);
ok
(
WScript
.
ScriptFullName
===
winetest
.
wscriptScriptFullName
,
"WScript.ScriptFullName = "
+
WScript
.
ScriptFullName
);
winetest
.
reportSuccess
();
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment