4 * Implementation of the Microsoft Installer (msi.dll)
6 * Copyright 2002-2004 Mike McCormack for CodeWeavers
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
33 #include "wine/list.h"
34 #include "wine/debug.h"
36 #define YYLEX_PARAM info
37 #define YYPARSE_PARAM info
39 static int sql_error
(const char *str
);
41 WINE_DEFAULT_DEBUG_CHANNEL
(msi
);
43 typedef
struct tag_SQL_input
48 MSIVIEW
**view
; /* view structure for the resulting query */
52 static LPWSTR SQL_getstring
( void *info
, const struct sql_str
*str
);
53 static INT SQL_getint
( void *info
);
54 static int sql_lex
( void *SQL_lval
, SQL_input
*info
);
56 static void *parser_alloc
( void *info
, unsigned int sz
);
57 static column_info
*parser_alloc_column
( void *info
, LPCWSTR table
, LPCWSTR column
);
59 static BOOL SQL_MarkPrimaryKeys
( column_info
*cols
, column_info
*keys
);
61 static struct expr
* EXPR_complex
( void *info
, struct expr
*l
, UINT op
, struct expr
*r
);
62 static struct expr
* EXPR_unary
( void *info
, struct expr
*l
, UINT op
);
63 static struct expr
* EXPR_column
( void *info
, const column_info
*column
);
64 static struct expr
* EXPR_ival
( void *info
, int val
);
65 static struct expr
* EXPR_sval
( void *info
, const struct sql_str
*str
);
66 static struct expr
* EXPR_wildcard
( void *info
);
76 column_info
*column_list
;
83 %token TK_ALTER TK_AND TK_BY TK_CHAR TK_COMMA TK_CREATE TK_DELETE
84 %token TK_DISTINCT TK_DOT TK_EQ TK_FREE TK_FROM TK_GE TK_GT TK_HOLD TK_ADD
86 %token TK_ILLEGAL TK_INSERT TK_INT
87 %token
<str
> TK_INTEGER
88 %token TK_INTO TK_IS TK_KEY TK_LE TK_LONG TK_LONGCHAR TK_LP TK_LT
89 %token TK_LOCALIZABLE TK_MINUS TK_NE TK_NOT TK_NULL
90 %token TK_OBJECT TK_OR TK_ORDER TK_PRIMARY TK_RP
91 %token TK_SELECT TK_SET TK_SHORT TK_SPACE TK_STAR
92 %token
<str
> TK_STRING
93 %token TK_TABLE TK_TEMPORARY TK_UPDATE TK_VALUES TK_WHERE TK_WILDCARD
96 * These are extra tokens used by the lexer but never seen by the
97 * parser. We put them in a rule so that the parser generator will
98 * add them to the parse.h output file.
101 %nonassoc END_OF_FILE ILLEGAL SPACE UNCLOSED_STRING COMMENT FUNCTION
104 %type
<string> table id
105 %type
<column_list
> selcollist column column_and_type column_def table_def
106 %type
<column_list
> column_assignment update_assign_list constlist
107 %type
<query
> query from fromtable selectfrom unorderedsel
108 %type
<query
> oneupdate onedelete oneselect onequery onecreate oneinsert onealter
109 %type
<expr
> expr val column_val const_val
110 %type
<column_type
> column_type data_type data_type_l data_count
111 %type
<integer
> number alterop
113 /* Reference: http://mates.ms.mff.cuni.cz/oracle/doc/ora815nt/server.815/a67779/operator.htm */
117 %left TK_EQ TK_NE TK_LT TK_GT TK_LE TK_GE TK_LIKE
125 SQL_input
* sql
= (SQL_input
*) info
;
140 TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP
142 SQL_input
*sql
= (SQL_input
*) info
;
143 MSIVIEW
*insert
= NULL
;
146 r
= INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, FALSE
);
151 | TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP TK_TEMPORARY
153 SQL_input
*sql
= (SQL_input
*) info
;
154 MSIVIEW
*insert
= NULL
;
156 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, TRUE
);
164 TK_CREATE TK_TABLE table TK_LP table_def TK_RP
166 SQL_input
* sql
= (SQL_input
*) info
;
167 MSIVIEW
*create
= NULL
;
171 CREATE_CreateView
( sql
->db
, &create
, $3, $5, FALSE
);
176 | TK_CREATE TK_TABLE table TK_LP table_def TK_RP TK_HOLD
178 SQL_input
* sql
= (SQL_input
*) info
;
179 MSIVIEW
*create
= NULL
;
183 CREATE_CreateView
( sql
->db
, &create
, $3, $5, TRUE
);
191 TK_UPDATE table TK_SET update_assign_list TK_WHERE expr
193 SQL_input
* sql
= (SQL_input
*) info
;
194 MSIVIEW
*update
= NULL
;
196 UPDATE_CreateView
( sql
->db
, &update
, $2, $4, $6 );
201 | TK_UPDATE table TK_SET update_assign_list
203 SQL_input
* sql
= (SQL_input
*) info
;
204 MSIVIEW
*update
= NULL
;
206 UPDATE_CreateView
( sql
->db
, &update
, $2, $4, NULL
);
216 SQL_input
* sql
= (SQL_input
*) info
;
217 MSIVIEW
*delete
= NULL
;
219 DELETE_CreateView
( sql
->db
, &delete
, $2 );
227 TK_ALTER TK_TABLE table alterop
229 SQL_input
* sql
= (SQL_input
*) info
;
230 MSIVIEW
*alter
= NULL
;
232 ALTER_CreateView
( sql
->db
, &alter
, $3, NULL
, $4 );
237 | TK_ALTER TK_TABLE table TK_ADD column_and_type
239 SQL_input
*sql
= (SQL_input
*)info
;
240 MSIVIEW
*alter
= NULL
;
242 ALTER_CreateView
( sql
->db
, &alter
, $3, $5, 0 );
247 | TK_ALTER TK_TABLE table TK_ADD column_and_type TK_HOLD
249 SQL_input
*sql
= (SQL_input
*)info
;
250 MSIVIEW
*alter
= NULL
;
252 ALTER_CreateView
( sql
->db
, &alter
, $3, $5, 1 );
271 column_def TK_PRIMARY TK_KEY selcollist
273 if
( SQL_MarkPrimaryKeys
( $1, $4 ) )
281 column_def TK_COMMA column_and_type
285 for
( ci
= $1; ci
->next
; ci
= ci
->next
)
301 $$
->type
= ($2 | MSITYPE_VALID
);
302 $$
->temporary
= $2 & MSITYPE_TEMPORARY ? TRUE
: FALSE
;
311 | data_type_l TK_LOCALIZABLE
313 $$
= $1 | MSITYPE_LOCALIZABLE
;
315 | data_type_l TK_TEMPORARY
317 $$
= $1 | MSITYPE_TEMPORARY
;
324 $$ |
= MSITYPE_NULLABLE
;
326 | data_type TK_NOT TK_NULL
335 $$
= MSITYPE_STRING |
1;
337 | TK_CHAR TK_LP data_count TK_RP
339 $$
= MSITYPE_STRING |
0x400 |
$3;
359 $$
= MSITYPE_STRING | MSITYPE_VALID
;
366 if
( ( $1 > 255 ) ||
( $1 < 0 ) )
373 unorderedsel TK_ORDER TK_BY selcollist
375 SQL_input
* sql
= (SQL_input
*) info
;
379 ORDER_CreateView
( sql
->db
, &$$
, $1, $4 );
393 | TK_SELECT TK_DISTINCT selectfrom
395 SQL_input
* sql
= (SQL_input
*) info
;
399 r
= DISTINCT_CreateView
( sql
->db
, &$$
, $3 );
400 if
(r
!= ERROR_SUCCESS
)
411 SQL_input
* sql
= (SQL_input
*) info
;
417 r
= SELECT_CreateView
( sql
->db
, &$$
, $2, $1 );
418 if
(r
!= ERROR_SUCCESS
)
431 | column TK_COMMA selcollist
443 | fromtable TK_WHERE expr
445 SQL_input
* sql
= (SQL_input
*) info
;
449 r
= WHERE_CreateView
( sql
->db
, &$$
, $1, $3 );
450 if
( r
!= ERROR_SUCCESS
)
452 $1->ops
->delete
( $1 );
461 SQL_input
* sql
= (SQL_input
*) info
;
465 r
= TABLE_CreateView
( sql
->db
, $2, &$$
);
466 if
( r
!= ERROR_SUCCESS ||
!$$
)
469 | TK_FROM table TK_COMMA table
471 SQL_input
* sql
= (SQL_input
*) info
;
474 /* only support inner joins on two tables */
475 r
= JOIN_CreateView
( sql
->db
, &$$
, $2, $4 );
476 if
( r
!= ERROR_SUCCESS
)
490 $$
= EXPR_complex
( info
, $1, OP_AND
, $3 );
496 $$
= EXPR_complex
( info
, $1, OP_OR
, $3 );
500 | column_val TK_EQ val
502 $$
= EXPR_complex
( info
, $1, OP_EQ
, $3 );
506 | column_val TK_GT val
508 $$
= EXPR_complex
( info
, $1, OP_GT
, $3 );
512 | column_val TK_LT val
514 $$
= EXPR_complex
( info
, $1, OP_LT
, $3 );
518 | column_val TK_LE val
520 $$
= EXPR_complex
( info
, $1, OP_LE
, $3 );
524 | column_val TK_GE val
526 $$
= EXPR_complex
( info
, $1, OP_GE
, $3 );
530 | column_val TK_NE val
532 $$
= EXPR_complex
( info
, $1, OP_NE
, $3 );
536 | column_val TK_IS TK_NULL
538 $$
= EXPR_unary
( info
, $1, OP_ISNULL
);
542 | column_val TK_IS TK_NOT TK_NULL
544 $$
= EXPR_unary
( info
, $1, OP_NOTNULL
);
558 $$
= parser_alloc_column
( info
, NULL
, NULL
);
563 | const_val TK_COMMA constlist
565 $$
= parser_alloc_column
( info
, NULL
, NULL
);
575 | column_assignment TK_COMMA update_assign_list
583 column TK_EQ const_val
593 $$
= EXPR_ival
( info
, $1 );
597 | TK_MINUS number %prec TK_NEGATION
599 $$
= EXPR_ival
( info
, -$2 );
605 $$
= EXPR_sval
( info
, &$1 );
611 $$
= EXPR_wildcard
( info
);
620 $$
= EXPR_column
( info
, $1 );
629 $$
= parser_alloc_column
( info
, $1, $3 );
635 $$
= parser_alloc_column
( info
, NULL
, $1 );
651 $$
= SQL_getstring
( info
, &$1 );
660 $$
= SQL_getint
( info
);
666 static void *parser_alloc
( void *info
, unsigned int sz
)
668 SQL_input
* sql
= (SQL_input
*) info
;
671 mem
= msi_alloc
( sizeof
(struct list
) + sz
);
672 list_add_tail
( sql
->mem
, mem
);
676 static column_info
*parser_alloc_column
( void *info
, LPCWSTR table
, LPCWSTR column
)
680 col
= parser_alloc
( info
, sizeof
(*col
) );
684 col
->column
= column
;
693 static int sql_lex
( void *SQL_lval
, SQL_input
*sql
)
696 struct sql_str
* str
= SQL_lval
;
701 if
( ! sql
->command
[sql
->n
] )
702 return
0; /* end of input */
704 /* TRACE("string : %s\n", debugstr_w(&sql->command[sql->n])); */
705 sql
->len
= sqliteGetToken
( &sql
->command
[sql
->n
], &token
);
708 str
->data
= &sql
->command
[sql
->n
];
711 while
( token
== TK_SPACE
);
713 /* TRACE("token : %d (%s)\n", token, debugstr_wn(&sql->command[sql->n], sql->len)); */
718 LPWSTR SQL_getstring
( void *info
, const struct sql_str
*strdata
)
720 LPCWSTR p
= strdata
->data
;
721 UINT len
= strdata
->len
;
724 /* if there's quotes, remove them */
725 if
( ( (p
[0]=='`') && (p
[len
-1]=='`') ) ||
726 ( (p
[0]=='\'') && (p
[len
-1]=='\'') ) )
731 str
= parser_alloc
( info
, (len
+ 1)*sizeof
(WCHAR
) );
734 memcpy
( str
, p
, len
*sizeof
(WCHAR
) );
740 INT SQL_getint
( void *info
)
742 SQL_input
* sql
= (SQL_input
*) info
;
743 LPCWSTR p
= &sql
->command
[sql
->n
];
746 for
( i
=0; i
<sql
->len
; i
++ )
748 if
( '0' > p
[i
] ||
'9' < p
[i
] )
750 ERR
("should only be numbers here!\n");
753 r
= (p
[i
]-'0') + r
*10;
759 static int sql_error
( const char *str
)
764 static struct expr
* EXPR_wildcard
( void *info
)
766 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
769 e
->type
= EXPR_WILDCARD
;
774 static struct expr
* EXPR_complex
( void *info
, struct expr
*l
, UINT op
, struct expr
*r
)
776 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
779 e
->type
= EXPR_COMPLEX
;
787 static struct expr
* EXPR_unary
( void *info
, struct expr
*l
, UINT op
)
789 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
792 e
->type
= EXPR_UNARY
;
795 e
->u.expr.right
= NULL
;
800 static struct expr
* EXPR_column
( void *info
, const column_info
*column
)
802 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
805 e
->type
= EXPR_COLUMN
;
806 e
->u.sval
= column
->column
;
811 static struct expr
* EXPR_ival
( void *info
, int val
)
813 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
822 static struct expr
* EXPR_sval
( void *info
, const struct sql_str
*str
)
824 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
828 e
->u.sval
= SQL_getstring
( info
, str
);
833 static BOOL SQL_MarkPrimaryKeys
( column_info
*cols
,
839 for
( k
= keys
; k
&& found
; k
= k
->next
)
844 for
( c
= cols
; c
&& !found
; c
= c
->next
)
846 if
( lstrcmpW
( k
->column
, c
->column
) )
848 c
->type |
= MSITYPE_KEY
;
856 UINT MSI_ParseSQL
( MSIDATABASE
*db
, LPCWSTR command
, MSIVIEW
**phview
,
865 sql.command
= command
;
873 TRACE
("Parse returned %d\n", r
);
877 return ERROR_BAD_QUERY_SYNTAX
;
880 return ERROR_SUCCESS
;