mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-16 04:06:46 +00:00
vbscript: Added beginning parser implementation.
This commit is contained in:
parent
00ab883644
commit
80bcaf8d7b
2
.gitignore
vendored
2
.gitignore
vendored
|
@ -121,6 +121,8 @@ dlls/sti/sti_wia.h
|
||||||
dlls/sti/sti_wia_p.c
|
dlls/sti/sti_wia_p.c
|
||||||
dlls/urlmon/urlmon_urlmon.h
|
dlls/urlmon/urlmon_urlmon.h
|
||||||
dlls/urlmon/urlmon_urlmon_p.c
|
dlls/urlmon/urlmon_urlmon_p.c
|
||||||
|
dlls/vbscript/parser.tab.c
|
||||||
|
dlls/vbscript/parser.tab.h
|
||||||
dlls/vbscript/vbscript_classes.h
|
dlls/vbscript/vbscript_classes.h
|
||||||
dlls/windowscodecs/windowscodecs_wincodec.h
|
dlls/windowscodecs/windowscodecs_wincodec.h
|
||||||
dlls/windowscodecs/windowscodecs_wincodec_p.c
|
dlls/windowscodecs/windowscodecs_wincodec_p.c
|
||||||
|
|
|
@ -5,6 +5,9 @@ C_SRCS = \
|
||||||
vbscript.c \
|
vbscript.c \
|
||||||
vbscript_main.c
|
vbscript_main.c
|
||||||
|
|
||||||
|
BISON_SRCS = \
|
||||||
|
parser.y
|
||||||
|
|
||||||
RC_SRCS = vbscript.rc
|
RC_SRCS = vbscript.rc
|
||||||
|
|
||||||
IDL_H_SRCS = vbscript_classes.idl
|
IDL_H_SRCS = vbscript_classes.idl
|
||||||
|
|
28
dlls/vbscript/parse.h
Normal file
28
dlls/vbscript/parse.h
Normal file
|
@ -0,0 +1,28 @@
|
||||||
|
/*
|
||||||
|
* Copyright 2011 Jacek Caban for CodeWeavers
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or
|
||||||
|
* modify it under the terms of the GNU Lesser General Public
|
||||||
|
* License as published by the Free Software Foundation; either
|
||||||
|
* version 2.1 of the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* This library 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
|
||||||
|
* Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU Lesser General Public
|
||||||
|
* License along with this library; if not, write to the Free Software
|
||||||
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
||||||
|
*/
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
const WCHAR *code;
|
||||||
|
const WCHAR *ptr;
|
||||||
|
const WCHAR *end;
|
||||||
|
|
||||||
|
BOOL parse_complete;
|
||||||
|
HRESULT hres;
|
||||||
|
} parser_ctx_t;
|
||||||
|
|
||||||
|
HRESULT parse_script(parser_ctx_t*,const WCHAR*);
|
87
dlls/vbscript/parser.y
Normal file
87
dlls/vbscript/parser.y
Normal file
|
@ -0,0 +1,87 @@
|
||||||
|
/*
|
||||||
|
* Copyright 2011 Jacek Caban for CodeWeavers
|
||||||
|
*
|
||||||
|
* This library is free software; you can redistribute it and/or
|
||||||
|
* modify it under the terms of the GNU Lesser General Public
|
||||||
|
* License as published by the Free Software Foundation; either
|
||||||
|
* version 2.1 of the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* This library 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
|
||||||
|
* Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU Lesser General Public
|
||||||
|
* License along with this library; if not, write to the Free Software
|
||||||
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
||||||
|
*/
|
||||||
|
|
||||||
|
%{
|
||||||
|
|
||||||
|
#include "vbscript.h"
|
||||||
|
#include "parse.h"
|
||||||
|
|
||||||
|
#include "wine/debug.h"
|
||||||
|
|
||||||
|
WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
|
||||||
|
|
||||||
|
|
||||||
|
#define YYLEX_PARAM ctx
|
||||||
|
#define YYPARSE_PARAM ctx
|
||||||
|
|
||||||
|
static int parser_error(const char*);
|
||||||
|
|
||||||
|
static void parse_complete(parser_ctx_t*);
|
||||||
|
|
||||||
|
static int parser_lex(void *lval, parser_ctx_t *ctx)
|
||||||
|
{
|
||||||
|
FIXME("\n");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
%}
|
||||||
|
|
||||||
|
%pure_parser
|
||||||
|
%start Program
|
||||||
|
|
||||||
|
%token tEOF
|
||||||
|
|
||||||
|
%union {
|
||||||
|
const WCHAR *string;
|
||||||
|
}
|
||||||
|
|
||||||
|
%%
|
||||||
|
|
||||||
|
Program : tEOF { parse_complete(ctx); }
|
||||||
|
|
||||||
|
%%
|
||||||
|
|
||||||
|
static int parser_error(const char *str)
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void parse_complete(parser_ctx_t *ctx)
|
||||||
|
{
|
||||||
|
ctx->parse_complete = TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
HRESULT parse_script(parser_ctx_t *ctx, const WCHAR *code)
|
||||||
|
{
|
||||||
|
ctx->code = ctx->ptr = code;
|
||||||
|
ctx->end = ctx->code + strlenW(ctx->code);
|
||||||
|
|
||||||
|
ctx->parse_complete = FALSE;
|
||||||
|
ctx->hres = S_OK;
|
||||||
|
|
||||||
|
parser_parse(ctx);
|
||||||
|
|
||||||
|
if(FAILED(ctx->hres))
|
||||||
|
return ctx->hres;
|
||||||
|
if(!ctx->parse_complete) {
|
||||||
|
FIXME("parser failed on parsing %s\n", debugstr_w(ctx->ptr));
|
||||||
|
return E_FAIL;
|
||||||
|
}
|
||||||
|
|
||||||
|
return S_OK;
|
||||||
|
}
|
|
@ -20,6 +20,8 @@
|
||||||
#include <assert.h>
|
#include <assert.h>
|
||||||
|
|
||||||
#include "vbscript.h"
|
#include "vbscript.h"
|
||||||
|
#include "parse.h"
|
||||||
|
|
||||||
#include "objsafe.h"
|
#include "objsafe.h"
|
||||||
|
|
||||||
#include "wine/debug.h"
|
#include "wine/debug.h"
|
||||||
|
@ -512,9 +514,18 @@ static HRESULT WINAPI VBScriptParse_ParseScriptText(IActiveScriptParse *iface,
|
||||||
DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
|
DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
|
||||||
{
|
{
|
||||||
VBScript *This = impl_from_IActiveScriptParse(iface);
|
VBScript *This = impl_from_IActiveScriptParse(iface);
|
||||||
FIXME("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
|
parser_ctx_t parser;
|
||||||
|
HRESULT hres;
|
||||||
|
|
||||||
|
TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
|
||||||
debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
|
debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
|
||||||
wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
|
wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
|
||||||
|
|
||||||
|
hres = parse_script(&parser, pstrCode);
|
||||||
|
if(FAILED(hres))
|
||||||
|
return hres;
|
||||||
|
|
||||||
|
FIXME("compiling script not implemented\n");
|
||||||
return E_NOTIMPL;
|
return E_NOTIMPL;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue