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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
33 #include "wine/debug.h"
34 #include "wine/unicode.h"
36 #define YYLEX_PARAM info
37 #define YYPARSE_PARAM info
39 extern
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 */
51 static LPWSTR SQL_getstring
( struct sql_str
*str
);
52 static INT SQL_getint
( SQL_input
*sql
);
53 static int SQL_lex
( void *SQL_lval
, SQL_input
*info
);
55 static MSIVIEW
*do_one_select
( MSIDATABASE
*db
, MSIVIEW
*in
,
56 string_list
*columns
);
57 static MSIVIEW
*do_order_by
( MSIDATABASE
*db
, MSIVIEW
*in
,
58 string_list
*columns
);
60 static BOOL SQL_MarkPrimaryKeys
( create_col_info
*cols
,
63 static struct expr
* EXPR_complex
( struct expr
*l
, UINT op
, struct expr
*r
);
64 static struct expr
* EXPR_column
( LPWSTR
);
65 static struct expr
* EXPR_ival
( struct sql_str
*);
66 static struct expr
* EXPR_sval
( struct sql_str
*);
67 static struct expr
* EXPR_wildcard
();
77 string_list
*column_list
;
82 create_col_info
*column_info
;
85 %token TK_ABORT TK_AFTER TK_AGG_FUNCTION TK_ALL TK_AND TK_AS TK_ASC
86 %token TK_BEFORE TK_BEGIN TK_BETWEEN TK_BITAND TK_BITNOT TK_BITOR TK_BY
87 %token TK_CASCADE TK_CASE TK_CHAR TK_CHECK TK_CLUSTER TK_COLLATE TK_COLUMN
88 %token TK_COMMA TK_COMMENT TK_COMMIT TK_CONCAT TK_CONFLICT
89 %token TK_CONSTRAINT TK_COPY TK_CREATE
90 %token TK_DEFAULT TK_DEFERRABLE TK_DEFERRED TK_DELETE TK_DELIMITERS TK_DESC
91 %token TK_DISTINCT TK_DOT TK_DROP TK_EACH
92 %token TK_ELSE TK_END TK_END_OF_FILE TK_EQ TK_EXCEPT TK_EXPLAIN
93 %token TK_FAIL TK_FLOAT TK_FOR TK_FOREIGN TK_FROM TK_FUNCTION
94 %token TK_GE TK_GLOB TK_GROUP TK_GT
95 %token TK_HAVING TK_HOLD
96 %token TK_IGNORE TK_ILLEGAL TK_IMMEDIATE TK_IN TK_INDEX TK_INITIALLY
98 %token TK_INSERT TK_INSTEAD TK_INT
99 %token
<str
> TK_INTEGER
100 %token TK_INTERSECT TK_INTO TK_IS
102 %token TK_JOIN TK_JOIN_KW
104 %token TK_LE TK_LIKE TK_LIMIT TK_LONG TK_LONGCHAR TK_LP TK_LSHIFT TK_LT
105 %token TK_LOCALIZABLE
106 %token TK_MATCH TK_MINUS
107 %token TK_NE TK_NOT TK_NOTNULL TK_NULL
108 %token TK_OBJECT TK_OF TK_OFFSET TK_ON TK_OR TK_ORACLE_OUTER_JOIN TK_ORDER
109 %token TK_PLUS TK_PRAGMA TK_PRIMARY
110 %token TK_RAISE TK_REFERENCES TK_REM TK_REPLACE TK_RESTRICT TK_ROLLBACK
111 %token TK_ROW TK_RP TK_RSHIFT
112 %token TK_SELECT TK_SEMI TK_SET TK_SHORT TK_SLASH TK_SPACE TK_STAR TK_STATEMENT
113 %token
<str
> TK_STRING
114 %token TK_TABLE TK_TEMP TK_THEN TK_TRANSACTION TK_TRIGGER
115 %token TK_UMINUS TK_UNCLOSED_STRING TK_UNION TK_UNIQUE
116 %token TK_UPDATE TK_UPLUS TK_USING
117 %token TK_VACUUM TK_VALUES TK_VIEW
118 %token TK_WHEN TK_WHERE TK_WILDCARD
121 * These are extra tokens used by the lexer but never seen by the
122 * parser. We put them in a rule so that the parser generator will
123 * add them to the parse.h output file.
126 %nonassoc END_OF_FILE ILLEGAL SPACE UNCLOSED_STRING COMMENT FUNCTION
129 %type
<string> column table string_or_id
130 %type
<column_list
> selcollist
131 %type
<query
> from unorderedsel oneselect onequery onecreate oneinsert
132 %type
<expr
> expr val column_val const_val
133 %type
<column_type
> column_type data_type data_type_l data_count
134 %type
<column_info
> column_def table_def
135 %type
<val_list
> constlist
142 SQL_input
* sql
= (SQL_input
*) info
;
147 SQL_input
* sql
= (SQL_input
*) info
;
152 SQL_input
* sql
= (SQL_input
*) info
;
158 TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP
160 SQL_input
*sql
= (SQL_input
*) info
;
161 MSIVIEW
*insert
= NULL
;
163 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, FALSE
);
166 | TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP TK_TEMP
168 SQL_input
*sql
= (SQL_input
*) info
;
169 MSIVIEW
*insert
= NULL
;
171 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, TRUE
);
177 TK_CREATE TK_TABLE table TK_LP table_def TK_RP
179 SQL_input
* sql
= (SQL_input
*) info
;
184 CREATE_CreateView
( sql
->db
, &create
, $3, $5, FALSE
);
187 | TK_CREATE TK_TABLE table TK_LP table_def TK_RP TK_HOLD
189 SQL_input
* sql
= (SQL_input
*) info
;
194 CREATE_CreateView
( sql
->db
, &create
, $3, $5, TRUE
);
200 column_def TK_PRIMARY TK_KEY selcollist
202 if
( SQL_MarkPrimaryKeys
( $1, $4 ) )
210 column_def TK_COMMA column column_type
214 for
( ci
= $1; ci
->next
; ci
= ci
->next
)
217 ci
->next
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$
);
223 ci
->next
->colname
= $3;
225 ci
->next
->next
= NULL
;
231 $$
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$
);
243 $$
= $1 | MSITYPE_VALID
;
245 | data_type_l TK_LOCALIZABLE
247 FIXME
("LOCALIZABLE ignored\n");
248 $$
= $1 | MSITYPE_VALID
;
255 $$ |
= MSITYPE_NULLABLE
;
257 | data_type TK_NOT TK_NULL
266 $$
= MSITYPE_STRING |
1;
268 | TK_CHAR TK_LP data_count TK_RP
270 $$
= MSITYPE_STRING |
0x400 |
$3;
297 SQL_input
* sql
= (SQL_input
*) info
;
298 int val
= SQL_getint
(sql
);
299 if
( ( val
> 255 ) ||
( val
< 0 ) )
306 unorderedsel TK_ORDER TK_BY selcollist
308 SQL_input
* sql
= (SQL_input
*) info
;
313 $$
= do_order_by
( sql
->db
, $1, $4 );
321 TK_SELECT selcollist from
323 SQL_input
* sql
= (SQL_input
*) info
;
327 $$
= do_one_select
( sql
->db
, $3, $2 );
331 | TK_SELECT TK_DISTINCT selcollist from
333 SQL_input
* sql
= (SQL_input
*) info
;
339 view
= do_one_select
( sql
->db
, view
, $3 );
340 DISTINCT_CreateView
( sql
->db
, & $$
, view
);
349 list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*list
);
356 TRACE
("Collist %s\n",debugstr_w
($$
->string));
358 | column TK_COMMA selcollist
362 list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*list
);
369 TRACE
("From table: %s\n",debugstr_w
($$
->string));
380 SQL_input
* sql
= (SQL_input
*) info
;
383 TRACE
("From table: %s\n",debugstr_w
($2));
384 TABLE_CreateView
( sql
->db
, $2, & $$
);
386 | TK_FROM table TK_WHERE expr
388 SQL_input
* sql
= (SQL_input
*) info
;
389 MSIVIEW
*view
= NULL
;
393 TRACE
("From table: %s\n",debugstr_w
($2));
394 r
= TABLE_CreateView
( sql
->db
, $2, &view
);
395 if
( r
!= ERROR_SUCCESS
)
397 r
= WHERE_CreateView
( sql
->db
, &view
, view
, $4 );
398 if
( r
!= ERROR_SUCCESS
)
409 | column_val TK_EQ column_val
411 $$
= EXPR_complex
( $1, OP_EQ
, $3 );
415 $$
= EXPR_complex
( $1, OP_AND
, $3 );
419 $$
= EXPR_complex
( $1, OP_OR
, $3 );
421 | column_val TK_EQ val
423 $$
= EXPR_complex
( $1, OP_EQ
, $3 );
425 | column_val TK_GT val
427 $$
= EXPR_complex
( $1, OP_GT
, $3 );
429 | column_val TK_LT val
431 $$
= EXPR_complex
( $1, OP_LT
, $3 );
433 | column_val TK_LE val
435 $$
= EXPR_complex
( $1, OP_LE
, $3 );
437 | column_val TK_GE val
439 $$
= EXPR_complex
( $1, OP_GE
, $3 );
441 | column_val TK_NE val
443 $$
= EXPR_complex
( $1, OP_NE
, $3 );
445 | column_val TK_IS TK_NULL
447 $$
= EXPR_complex
( $1, OP_ISNULL
, NULL
);
449 | column_val TK_IS TK_NOT TK_NULL
451 $$
= EXPR_complex
( $1, OP_NOTNULL
, NULL
);
465 vals
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*vals
);
473 | constlist TK_COMMA const_val
477 vals
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*vals
);
491 $$
= EXPR_ival
( &$1 );
495 $$
= EXPR_sval
( &$1 );
499 $$
= EXPR_wildcard
();
506 $$
= EXPR_column
( $1 );
511 table TK_DOT string_or_id
531 $$
= SQL_getstring
( &$1 );
535 $$
= SQL_getstring
( &$1 );
541 int SQL_lex
( void *SQL_lval
, SQL_input
*sql
)
544 struct sql_str
* str
= SQL_lval
;
549 if
( ! sql
->command
[sql
->n
] )
550 return
0; /* end of input */
552 TRACE
("string : %s\n", debugstr_w
(&sql
->command
[sql
->n
]));
553 sql
->len
= sqliteGetToken
( &sql
->command
[sql
->n
], &token
);
556 str
->data
= &sql
->command
[sql
->n
];
559 while
( token
== TK_SPACE
);
561 TRACE
("token : %d (%s)\n", token
, debugstr_wn
(&sql
->command
[sql
->n
], sql
->len
));
566 LPWSTR SQL_getstring
( struct sql_str
*strdata
)
568 LPCWSTR p
= strdata
->data
;
569 UINT len
= strdata
->len
;
572 /* if there's quotes, remove them */
573 if
( ( (p
[0]=='`') && (p
[len
-1]=='`') ) ||
574 ( (p
[0]=='\'') && (p
[len
-1]=='\'') ) )
579 str
= HeapAlloc
( GetProcessHeap
(), 0, (len
+ 1)*sizeof
(WCHAR
));
582 memcpy
(str
, p
, len
*sizeof
(WCHAR
) );
588 INT SQL_getint
( SQL_input
*sql
)
590 LPCWSTR p
= &sql
->command
[sql
->n
];
595 int SQL_error
(const char *str
)
600 static MSIVIEW
*do_one_select
( MSIDATABASE
*db
, MSIVIEW
*in
,
601 string_list
*columns
)
603 MSIVIEW
*view
= NULL
;
605 SELECT_CreateView
( db
, &view
, in
, columns
);
606 delete_string_list
( columns
);
608 ERR
("Error creating select query\n");
612 static MSIVIEW
*do_order_by
( MSIDATABASE
*db
, MSIVIEW
*in
,
613 string_list
*columns
)
615 MSIVIEW
*view
= NULL
;
617 ORDER_CreateView
( db
, &view
, in
);
620 string_list
*x
= columns
;
622 for
( x
= columns
; x
; x
= x
->next
)
623 ORDER_AddColumn
( view
, x
->string );
626 ERR
("Error creating select query\n");
627 delete_string_list
( columns
);
631 static struct expr
* EXPR_wildcard
()
633 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
636 e
->type
= EXPR_WILDCARD
;
641 static struct expr
* EXPR_complex
( struct expr
*l
, UINT op
, struct expr
*r
)
643 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
646 e
->type
= EXPR_COMPLEX
;
654 static struct expr
* EXPR_column
( LPWSTR str
)
656 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
659 e
->type
= EXPR_COLUMN
;
665 static struct expr
* EXPR_ival
( struct sql_str
*str
)
667 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
671 e
->u.ival
= atoiW
( str
->data
);
676 static struct expr
* EXPR_sval
( struct sql_str
*str
)
678 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
682 e
->u.sval
= SQL_getstring
( str
);
687 void delete_expr
( struct expr
*e
)
691 if
( e
->type
== EXPR_COMPLEX
)
693 delete_expr
( e
->u.expr.left
);
694 delete_expr
( e
->u.expr.right
);
696 else if
( e
->type
== EXPR_UTF8
)
697 HeapFree
( GetProcessHeap
(), 0, e
->u.utf8
);
698 else if
( e
->type
== EXPR_SVAL
)
699 HeapFree
( GetProcessHeap
(), 0, e
->u.sval
);
700 HeapFree
( GetProcessHeap
(), 0, e
);
703 void delete_string_list
( string_list
*sl
)
707 string_list
*t
= sl
->next
;
708 HeapFree
( GetProcessHeap
(), 0, sl
->string );
709 HeapFree
( GetProcessHeap
(), 0, sl
);
714 void delete_value_list
( value_list
*vl
)
718 value_list
*t
= vl
->next
;
719 delete_expr
( vl
->val
);
720 HeapFree
( GetProcessHeap
(), 0, vl
);
725 static BOOL SQL_MarkPrimaryKeys
( create_col_info
*cols
,
731 for
( k
= keys
; k
&& found
; k
= k
->next
)
736 for
( c
= cols
; c
&& !found
; c
= c
->next
)
738 if
( lstrcmpW
( k
->string, c
->colname
) )
740 c
->type |
= MSITYPE_KEY
;
748 UINT MSI_ParseSQL
( MSIDATABASE
*db
, LPCWSTR command
, MSIVIEW
**phview
)
756 sql.command
= command
;
763 TRACE
("Parse returned %d\n", r
);
767 (*sql.view
)->ops
->delete
( *sql.view
);
769 return ERROR_BAD_QUERY_SYNTAX
;
772 return ERROR_SUCCESS
;