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
*, int sign
);
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
;
83 column_assignment update_col_info
;
86 %token TK_ABORT TK_AFTER TK_AGG_FUNCTION TK_ALL TK_AND TK_AS TK_ASC
87 %token TK_BEFORE TK_BEGIN TK_BETWEEN TK_BITAND TK_BITNOT TK_BITOR TK_BY
88 %token TK_CASCADE TK_CASE TK_CHAR TK_CHECK TK_CLUSTER TK_COLLATE TK_COLUMN
89 %token TK_COMMA TK_COMMENT TK_COMMIT TK_CONCAT TK_CONFLICT
90 %token TK_CONSTRAINT TK_COPY TK_CREATE
91 %token TK_DEFAULT TK_DEFERRABLE TK_DEFERRED TK_DELETE TK_DELIMITERS TK_DESC
92 %token TK_DISTINCT TK_DOT TK_DROP TK_EACH
93 %token TK_ELSE TK_END TK_END_OF_FILE TK_EQ TK_EXCEPT TK_EXPLAIN
94 %token TK_FAIL TK_FLOAT TK_FOR TK_FOREIGN TK_FROM TK_FUNCTION
95 %token TK_GE TK_GLOB TK_GROUP TK_GT
96 %token TK_HAVING TK_HOLD
97 %token TK_IGNORE TK_ILLEGAL TK_IMMEDIATE TK_IN TK_INDEX TK_INITIALLY
99 %token TK_INSERT TK_INSTEAD TK_INT
100 %token
<str
> TK_INTEGER
101 %token TK_INTERSECT TK_INTO TK_IS
103 %token TK_JOIN TK_JOIN_KW
105 %token TK_LE TK_LIKE TK_LIMIT TK_LONG TK_LONGCHAR TK_LP TK_LSHIFT TK_LT
106 %token TK_LOCALIZABLE
107 %token TK_MATCH TK_MINUS
108 %token TK_NE TK_NOT TK_NOTNULL TK_NULL
109 %token TK_OBJECT TK_OF TK_OFFSET TK_ON TK_OR TK_ORACLE_OUTER_JOIN TK_ORDER
110 %token TK_PLUS TK_PRAGMA TK_PRIMARY
111 %token TK_RAISE TK_REFERENCES TK_REM TK_REPLACE TK_RESTRICT TK_ROLLBACK
112 %token TK_ROW TK_RP TK_RSHIFT
113 %token TK_SELECT TK_SEMI TK_SET TK_SHORT TK_SLASH TK_SPACE TK_STAR TK_STATEMENT
114 %token
<str
> TK_STRING
115 %token TK_TABLE TK_TEMP TK_THEN TK_TRANSACTION TK_TRIGGER
116 %token TK_UMINUS TK_UNCLOSED_STRING TK_UNION TK_UNIQUE
117 %token TK_UPDATE TK_UPLUS TK_USING
118 %token TK_VACUUM TK_VALUES TK_VIEW
119 %token TK_WHEN TK_WHERE TK_WILDCARD
122 * These are extra tokens used by the lexer but never seen by the
123 * parser. We put them in a rule so that the parser generator will
124 * add them to the parse.h output file.
127 %nonassoc END_OF_FILE ILLEGAL SPACE UNCLOSED_STRING COMMENT FUNCTION
130 %type
<string> column table string_or_id
131 %type
<column_list
> selcollist
132 %type
<query
> from unorderedsel oneselect onequery onecreate oneinsert
133 %type
<query
> oneupdate onedelete
134 %type
<expr
> expr val column_val const_val
135 %type
<column_type
> column_type data_type data_type_l data_count
136 %type
<column_info
> column_def table_def
137 %type
<val_list
> constlist
138 %type
<update_col_info
> column_assignment update_assign_list
145 SQL_input
* sql
= (SQL_input
*) info
;
150 SQL_input
* sql
= (SQL_input
*) info
;
155 SQL_input
* sql
= (SQL_input
*) info
;
160 SQL_input
* sql
= (SQL_input
*) info
;
165 SQL_input
* sql
= (SQL_input
*) info
;
171 TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP
173 SQL_input
*sql
= (SQL_input
*) info
;
174 MSIVIEW
*insert
= NULL
;
176 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, FALSE
);
179 | TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP TK_TEMP
181 SQL_input
*sql
= (SQL_input
*) info
;
182 MSIVIEW
*insert
= NULL
;
184 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, TRUE
);
190 TK_CREATE TK_TABLE table TK_LP table_def TK_RP
192 SQL_input
* sql
= (SQL_input
*) info
;
193 MSIVIEW
*create
= NULL
;
197 CREATE_CreateView
( sql
->db
, &create
, $3, $5, FALSE
);
200 | TK_CREATE TK_TABLE table TK_LP table_def TK_RP TK_HOLD
202 SQL_input
* sql
= (SQL_input
*) info
;
203 MSIVIEW
*create
= NULL
;
207 CREATE_CreateView
( sql
->db
, &create
, $3, $5, TRUE
);
213 TK_UPDATE table TK_SET update_assign_list TK_WHERE expr
215 SQL_input
* sql
= (SQL_input
*) info
;
216 MSIVIEW
*update
= NULL
;
218 UPDATE_CreateView
( sql
->db
, &update
, $2, &$4, $6 );
226 SQL_input
* sql
= (SQL_input
*) info
;
227 MSIVIEW
*delete
= NULL
;
229 DELETE_CreateView
( sql
->db
, &delete
, $2 );
235 column_def TK_PRIMARY TK_KEY selcollist
237 if
( SQL_MarkPrimaryKeys
( $1, $4 ) )
245 column_def TK_COMMA column column_type
249 for
( ci
= $1; ci
->next
; ci
= ci
->next
)
252 ci
->next
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$
);
258 ci
->next
->colname
= $3;
260 ci
->next
->next
= NULL
;
266 $$
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$
);
278 $$
= $1 | MSITYPE_VALID
;
280 | data_type_l TK_LOCALIZABLE
282 FIXME
("LOCALIZABLE ignored\n");
283 $$
= $1 | MSITYPE_VALID
;
290 $$ |
= MSITYPE_NULLABLE
;
292 | data_type TK_NOT TK_NULL
301 $$
= MSITYPE_STRING |
1;
303 | TK_CHAR TK_LP data_count TK_RP
305 $$
= MSITYPE_STRING |
0x400 |
$3;
332 SQL_input
* sql
= (SQL_input
*) info
;
333 int val
= SQL_getint
(sql
);
334 if
( ( val
> 255 ) ||
( val
< 0 ) )
341 unorderedsel TK_ORDER TK_BY selcollist
343 SQL_input
* sql
= (SQL_input
*) info
;
348 $$
= do_order_by
( sql
->db
, $1, $4 );
356 TK_SELECT selcollist from
358 SQL_input
* sql
= (SQL_input
*) info
;
363 $$
= do_one_select
( sql
->db
, $3, $2 );
370 | TK_SELECT TK_DISTINCT selcollist from
372 SQL_input
* sql
= (SQL_input
*) info
;
379 view
= do_one_select
( sql
->db
, view
, $3 );
383 DISTINCT_CreateView
( sql
->db
, & $$
, view
);
392 list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*list
);
399 TRACE
("Collist %s\n",debugstr_w
($$
->string));
401 | column TK_COMMA selcollist
405 list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*list
);
412 TRACE
("From table: %s\n",debugstr_w
($$
->string));
423 SQL_input
* sql
= (SQL_input
*) info
;
427 TRACE
("From table: %s\n",debugstr_w
($2));
428 r
= TABLE_CreateView
( sql
->db
, $2, & $$
);
429 if
( r
!= ERROR_SUCCESS
)
432 | TK_FROM table TK_WHERE expr
434 SQL_input
* sql
= (SQL_input
*) info
;
435 MSIVIEW
*view
= NULL
;
439 TRACE
("From table: %s\n",debugstr_w
($2));
440 r
= TABLE_CreateView
( sql
->db
, $2, &view
);
441 if
( r
!= ERROR_SUCCESS
)
443 r
= WHERE_CreateView
( sql
->db
, &view
, view
, $4 );
444 if
( r
!= ERROR_SUCCESS
)
455 | column_val TK_EQ column_val
457 $$
= EXPR_complex
( $1, OP_EQ
, $3 );
461 $$
= EXPR_complex
( $1, OP_AND
, $3 );
465 $$
= EXPR_complex
( $1, OP_OR
, $3 );
467 | column_val TK_EQ val
469 $$
= EXPR_complex
( $1, OP_EQ
, $3 );
471 | column_val TK_GT val
473 $$
= EXPR_complex
( $1, OP_GT
, $3 );
475 | column_val TK_LT val
477 $$
= EXPR_complex
( $1, OP_LT
, $3 );
479 | column_val TK_LE val
481 $$
= EXPR_complex
( $1, OP_LE
, $3 );
483 | column_val TK_GE val
485 $$
= EXPR_complex
( $1, OP_GE
, $3 );
487 | column_val TK_NE val
489 $$
= EXPR_complex
( $1, OP_NE
, $3 );
491 | column_val TK_IS TK_NULL
493 $$
= EXPR_complex
( $1, OP_ISNULL
, NULL
);
495 | column_val TK_IS TK_NOT TK_NULL
497 $$
= EXPR_complex
( $1, OP_NOTNULL
, NULL
);
511 vals
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*vals
);
519 | const_val TK_COMMA constlist
523 vals
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*vals
);
535 | column_assignment TK_COMMA update_assign_list
537 $1.col_list
->next
= $3.col_list
;
538 $1.val_list
->next
= $3.val_list
;
544 column TK_EQ const_val
546 $$.col_list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$.col_list
);
549 $$.col_list
->string = $1;
550 $$.col_list
->next
= NULL
;
551 $$.val_list
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*$$.val_list
);
554 $$.val_list
->val
= $3;
555 $$.val_list
->next
= 0;
562 $$
= EXPR_ival
( &$1, 1 );
564 | TK_MINUS TK_INTEGER
566 $$
= EXPR_ival
( &$2, -1 );
570 $$
= EXPR_sval
( &$1 );
574 $$
= EXPR_wildcard
();
581 $$
= EXPR_column
( $1 );
586 table TK_DOT string_or_id
606 $$
= SQL_getstring
( &$1 );
610 $$
= SQL_getstring
( &$1 );
616 int SQL_lex
( void *SQL_lval
, SQL_input
*sql
)
619 struct sql_str
* str
= SQL_lval
;
624 if
( ! sql
->command
[sql
->n
] )
625 return
0; /* end of input */
627 TRACE
("string : %s\n", debugstr_w
(&sql
->command
[sql
->n
]));
628 sql
->len
= sqliteGetToken
( &sql
->command
[sql
->n
], &token
);
631 str
->data
= &sql
->command
[sql
->n
];
634 while
( token
== TK_SPACE
);
636 TRACE
("token : %d (%s)\n", token
, debugstr_wn
(&sql
->command
[sql
->n
], sql
->len
));
641 LPWSTR SQL_getstring
( struct sql_str
*strdata
)
643 LPCWSTR p
= strdata
->data
;
644 UINT len
= strdata
->len
;
647 /* if there's quotes, remove them */
648 if
( ( (p
[0]=='`') && (p
[len
-1]=='`') ) ||
649 ( (p
[0]=='\'') && (p
[len
-1]=='\'') ) )
654 str
= HeapAlloc
( GetProcessHeap
(), 0, (len
+ 1)*sizeof
(WCHAR
));
657 memcpy
(str
, p
, len
*sizeof
(WCHAR
) );
663 INT SQL_getint
( SQL_input
*sql
)
665 LPCWSTR p
= &sql
->command
[sql
->n
];
670 int SQL_error
(const char *str
)
675 static MSIVIEW
*do_one_select
( MSIDATABASE
*db
, MSIVIEW
*in
,
676 string_list
*columns
)
678 MSIVIEW
*view
= NULL
;
680 SELECT_CreateView
( db
, &view
, in
, columns
);
681 delete_string_list
( columns
);
683 ERR
("Error creating select query\n");
687 static MSIVIEW
*do_order_by
( MSIDATABASE
*db
, MSIVIEW
*in
,
688 string_list
*columns
)
690 MSIVIEW
*view
= NULL
;
692 ORDER_CreateView
( db
, &view
, in
);
695 string_list
*x
= columns
;
697 for
( x
= columns
; x
; x
= x
->next
)
698 ORDER_AddColumn
( view
, x
->string );
701 ERR
("Error creating select query\n");
702 delete_string_list
( columns
);
706 static struct expr
* EXPR_wildcard
()
708 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
711 e
->type
= EXPR_WILDCARD
;
716 static struct expr
* EXPR_complex
( struct expr
*l
, UINT op
, struct expr
*r
)
718 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
721 e
->type
= EXPR_COMPLEX
;
729 static struct expr
* EXPR_column
( LPWSTR str
)
731 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
734 e
->type
= EXPR_COLUMN
;
740 static struct expr
* EXPR_ival
( struct sql_str
*str
, int sign
)
742 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
746 e
->u.ival
= atoiW
( str
->data
) * sign
;
751 static struct expr
* EXPR_sval
( struct sql_str
*str
)
753 struct expr
*e
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
*e
);
757 e
->u.sval
= SQL_getstring
( str
);
762 void delete_expr
( struct expr
*e
)
766 if
( e
->type
== EXPR_COMPLEX
)
768 delete_expr
( e
->u.expr.left
);
769 delete_expr
( e
->u.expr.right
);
771 else if
( e
->type
== EXPR_UTF8
)
772 HeapFree
( GetProcessHeap
(), 0, e
->u.utf8
);
773 else if
( e
->type
== EXPR_SVAL
)
774 HeapFree
( GetProcessHeap
(), 0, e
->u.sval
);
775 HeapFree
( GetProcessHeap
(), 0, e
);
778 void delete_string_list
( string_list
*sl
)
782 string_list
*t
= sl
->next
;
783 HeapFree
( GetProcessHeap
(), 0, sl
->string );
784 HeapFree
( GetProcessHeap
(), 0, sl
);
789 void delete_value_list
( value_list
*vl
)
793 value_list
*t
= vl
->next
;
794 delete_expr
( vl
->val
);
795 HeapFree
( GetProcessHeap
(), 0, vl
);
800 static BOOL SQL_MarkPrimaryKeys
( create_col_info
*cols
,
806 for
( k
= keys
; k
&& found
; k
= k
->next
)
811 for
( c
= cols
; c
&& !found
; c
= c
->next
)
813 if
( lstrcmpW
( k
->string, c
->colname
) )
815 c
->type |
= MSITYPE_KEY
;
823 UINT MSI_ParseSQL
( MSIDATABASE
*db
, LPCWSTR command
, MSIVIEW
**phview
)
831 sql.command
= command
;
838 TRACE
("Parse returned %d\n", r
);
842 (*sql.view
)->ops
->delete
( *sql.view
);
844 return ERROR_BAD_QUERY_SYNTAX
;
847 return ERROR_SUCCESS
;