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/list.h"
34 #include "wine/debug.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 */
52 static LPWSTR SQL_getstring
( void *info
, 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_column
( void *info
, column_info
*column
);
63 static struct expr
* EXPR_ival
( void *info
, int val
);
64 static struct expr
* EXPR_sval
( void *info
, struct sql_str
* );
65 static struct expr
* EXPR_wildcard
( void *info
);
75 column_info
*column_list
;
82 %token TK_ABORT TK_AFTER TK_AGG_FUNCTION TK_ALL TK_AND TK_AS TK_ASC
83 %token TK_BEFORE TK_BEGIN TK_BETWEEN TK_BITAND TK_BITNOT TK_BITOR TK_BY
84 %token TK_CASCADE TK_CASE TK_CHAR TK_CHECK TK_CLUSTER TK_COLLATE TK_COLUMN
85 %token TK_COMMA TK_COMMENT TK_COMMIT TK_CONCAT TK_CONFLICT
86 %token TK_CONSTRAINT TK_COPY TK_CREATE
87 %token TK_DEFAULT TK_DEFERRABLE TK_DEFERRED TK_DELETE TK_DELIMITERS TK_DESC
88 %token TK_DISTINCT TK_DOT TK_DROP TK_EACH
89 %token TK_ELSE TK_END TK_END_OF_FILE TK_EQ TK_EXCEPT TK_EXPLAIN
90 %token TK_FAIL TK_FLOAT TK_FOR TK_FOREIGN TK_FROM TK_FUNCTION
91 %token TK_GE TK_GLOB TK_GROUP TK_GT
92 %token TK_HAVING TK_HOLD
93 %token TK_IGNORE TK_ILLEGAL TK_IMMEDIATE TK_IN TK_INDEX TK_INITIALLY
95 %token TK_INSERT TK_INSTEAD TK_INT
96 %token
<str
> TK_INTEGER
97 %token TK_INTERSECT TK_INTO TK_IS
99 %token TK_JOIN TK_JOIN_KW
101 %token TK_LE TK_LIKE TK_LIMIT TK_LONG TK_LONGCHAR TK_LP TK_LSHIFT TK_LT
102 %token TK_LOCALIZABLE
103 %token TK_MATCH TK_MINUS
104 %token TK_NE TK_NOT TK_NOTNULL TK_NULL
105 %token TK_OBJECT TK_OF TK_OFFSET TK_ON TK_OR TK_ORACLE_OUTER_JOIN TK_ORDER
106 %token TK_PLUS TK_PRAGMA TK_PRIMARY
107 %token TK_RAISE TK_REFERENCES TK_REM TK_REPLACE TK_RESTRICT TK_ROLLBACK
108 %token TK_ROW TK_RP TK_RSHIFT
109 %token TK_SELECT TK_SEMI TK_SET TK_SHORT TK_SLASH TK_SPACE TK_STAR TK_STATEMENT
110 %token
<str
> TK_STRING
111 %token TK_TABLE TK_TEMP TK_THEN TK_TRANSACTION TK_TRIGGER
112 %token TK_UMINUS TK_UNCLOSED_STRING TK_UNION TK_UNIQUE
113 %token TK_UPDATE TK_UPLUS TK_USING
114 %token TK_VACUUM TK_VALUES TK_VIEW
115 %token TK_WHEN TK_WHERE TK_WILDCARD
118 * These are extra tokens used by the lexer but never seen by the
119 * parser. We put them in a rule so that the parser generator will
120 * add them to the parse.h output file.
123 %nonassoc END_OF_FILE ILLEGAL SPACE UNCLOSED_STRING COMMENT FUNCTION
126 %type
<string> table id
127 %type
<column_list
> selcollist column column_and_type column_def table_def
128 %type
<column_list
> column_assignment update_assign_list constlist
129 %type
<query
> query from fromtable selectfrom unorderedsel
130 %type
<query
> oneupdate onedelete oneselect onequery onecreate oneinsert
131 %type
<expr
> expr val column_val const_val
132 %type
<column_type
> column_type data_type data_type_l data_count
133 %type
<integer
> number
140 SQL_input
* sql
= (SQL_input
*) info
;
154 TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP
156 SQL_input
*sql
= (SQL_input
*) info
;
157 MSIVIEW
*insert
= NULL
;
160 r
= INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, FALSE
);
165 | TK_INSERT TK_INTO table TK_LP selcollist TK_RP TK_VALUES TK_LP constlist TK_RP TK_TEMP
167 SQL_input
*sql
= (SQL_input
*) info
;
168 MSIVIEW
*insert
= NULL
;
170 INSERT_CreateView
( sql
->db
, &insert
, $3, $5, $9, TRUE
);
178 TK_CREATE TK_TABLE table TK_LP table_def TK_RP
180 SQL_input
* sql
= (SQL_input
*) info
;
181 MSIVIEW
*create
= NULL
;
185 CREATE_CreateView
( sql
->db
, &create
, $3, $5, FALSE
);
190 | TK_CREATE TK_TABLE table TK_LP table_def TK_RP TK_HOLD
192 SQL_input
* sql
= (SQL_input
*) info
;
193 MSIVIEW
*create
= NULL
;
197 CREATE_CreateView
( sql
->db
, &create
, $3, $5, TRUE
);
205 TK_UPDATE table TK_SET update_assign_list TK_WHERE expr
207 SQL_input
* sql
= (SQL_input
*) info
;
208 MSIVIEW
*update
= NULL
;
210 UPDATE_CreateView
( sql
->db
, &update
, $2, $4, $6 );
220 SQL_input
* sql
= (SQL_input
*) info
;
221 MSIVIEW
*delete
= NULL
;
223 DELETE_CreateView
( sql
->db
, &delete
, $2 );
231 column_def TK_PRIMARY TK_KEY selcollist
233 if
( SQL_MarkPrimaryKeys
( $1, $4 ) )
241 column_def TK_COMMA column_and_type
245 for
( ci
= $1; ci
->next
; ci
= ci
->next
)
268 $$
= $1 | MSITYPE_VALID
;
270 | data_type_l TK_LOCALIZABLE
272 FIXME
("LOCALIZABLE ignored\n");
273 $$
= $1 | MSITYPE_VALID
;
280 $$ |
= MSITYPE_NULLABLE
;
282 | data_type TK_NOT TK_NULL
291 $$
= MSITYPE_STRING |
1;
293 | TK_CHAR TK_LP data_count TK_RP
295 $$
= MSITYPE_STRING |
0x400 |
$3;
322 if
( ( $1 > 255 ) ||
( $1 < 0 ) )
329 unorderedsel TK_ORDER TK_BY selcollist
331 SQL_input
* sql
= (SQL_input
*) info
;
335 ORDER_CreateView
( sql
->db
, &$$
, $1, $4 );
349 | TK_SELECT TK_DISTINCT selectfrom
351 SQL_input
* sql
= (SQL_input
*) info
;
354 DISTINCT_CreateView
( sql
->db
, &$$
, $3 );
363 SQL_input
* sql
= (SQL_input
*) info
;
367 SELECT_CreateView
( sql
->db
, &$$
, $2, $1 );
378 | column TK_COMMA selcollist
390 | fromtable TK_WHERE expr
392 SQL_input
* sql
= (SQL_input
*) info
;
396 r
= WHERE_CreateView
( sql
->db
, &$$
, $1, $3 );
397 if
( r
!= ERROR_SUCCESS ||
!$$
)
405 SQL_input
* sql
= (SQL_input
*) info
;
409 r
= TABLE_CreateView
( sql
->db
, $2, &$$
);
410 if
( r
!= ERROR_SUCCESS ||
!$$
)
422 | column_val TK_EQ column_val
424 $$
= EXPR_complex
( info
, $1, OP_EQ
, $3 );
430 $$
= EXPR_complex
( info
, $1, OP_AND
, $3 );
436 $$
= EXPR_complex
( info
, $1, OP_OR
, $3 );
440 | column_val TK_EQ val
442 $$
= EXPR_complex
( info
, $1, OP_EQ
, $3 );
446 | column_val TK_GT val
448 $$
= EXPR_complex
( info
, $1, OP_GT
, $3 );
452 | column_val TK_LT val
454 $$
= EXPR_complex
( info
, $1, OP_LT
, $3 );
458 | column_val TK_LE val
460 $$
= EXPR_complex
( info
, $1, OP_LE
, $3 );
464 | column_val TK_GE val
466 $$
= EXPR_complex
( info
, $1, OP_GE
, $3 );
470 | column_val TK_NE val
472 $$
= EXPR_complex
( info
, $1, OP_NE
, $3 );
476 | column_val TK_IS TK_NULL
478 $$
= EXPR_complex
( info
, $1, OP_ISNULL
, NULL
);
482 | column_val TK_IS TK_NOT TK_NULL
484 $$
= EXPR_complex
( info
, $1, OP_NOTNULL
, NULL
);
498 $$
= parser_alloc_column
( info
, NULL
, NULL
);
503 | const_val TK_COMMA constlist
505 $$
= parser_alloc_column
( info
, NULL
, NULL
);
515 | column_assignment TK_COMMA update_assign_list
523 column TK_EQ const_val
533 $$
= EXPR_ival
( info
, $1 );
539 $$
= EXPR_ival
( info
, -$2 );
545 $$
= EXPR_sval
( info
, &$1 );
551 $$
= EXPR_wildcard
( info
);
560 $$
= EXPR_column
( info
, $1 );
569 $$
= parser_alloc_column
( info
, $1, $3 );
575 $$
= parser_alloc_column
( info
, NULL
, $1 );
591 $$
= SQL_getstring
( info
, &$1 );
600 $$
= SQL_getint
( info
);
606 static void *parser_alloc
( void *info
, unsigned int sz
)
608 SQL_input
* sql
= (SQL_input
*) info
;
611 mem
= HeapAlloc
( GetProcessHeap
(), 0, sizeof
(struct list
) + sz
);
612 list_add_tail
( sql
->mem
, mem
);
616 static column_info
*parser_alloc_column
( void *info
, LPCWSTR table
, LPCWSTR column
)
620 col
= parser_alloc
( info
, sizeof
(*col
) );
624 col
->column
= column
;
633 int SQL_lex
( void *SQL_lval
, SQL_input
*sql
)
636 struct sql_str
* str
= SQL_lval
;
641 if
( ! sql
->command
[sql
->n
] )
642 return
0; /* end of input */
644 TRACE
("string : %s\n", debugstr_w
(&sql
->command
[sql
->n
]));
645 sql
->len
= sqliteGetToken
( &sql
->command
[sql
->n
], &token
);
648 str
->data
= &sql
->command
[sql
->n
];
651 while
( token
== TK_SPACE
);
653 TRACE
("token : %d (%s)\n", token
, debugstr_wn
(&sql
->command
[sql
->n
], sql
->len
));
658 LPWSTR SQL_getstring
( void *info
, struct sql_str
*strdata
)
660 LPCWSTR p
= strdata
->data
;
661 UINT len
= strdata
->len
;
664 /* if there's quotes, remove them */
665 if
( ( (p
[0]=='`') && (p
[len
-1]=='`') ) ||
666 ( (p
[0]=='\'') && (p
[len
-1]=='\'') ) )
671 str
= parser_alloc
( info
, (len
+ 1)*sizeof
(WCHAR
) );
674 memcpy
( str
, p
, len
*sizeof
(WCHAR
) );
680 INT SQL_getint
( void *info
)
682 SQL_input
* sql
= (SQL_input
*) info
;
683 LPCWSTR p
= &sql
->command
[sql
->n
];
686 for
( i
=0; i
<sql
->len
; i
++ )
688 if
( '0' > p
[i
] ||
'9' < p
[i
] )
690 ERR
("should only be numbers here!\n");
693 r
= (p
[i
]-'0') + r
*10;
699 int SQL_error
( const char *str
)
704 static struct expr
* EXPR_wildcard
( void *info
)
706 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
709 e
->type
= EXPR_WILDCARD
;
714 static struct expr
* EXPR_complex
( void *info
, struct expr
*l
, UINT op
, struct expr
*r
)
716 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
719 e
->type
= EXPR_COMPLEX
;
727 static struct expr
* EXPR_column
( void *info
, column_info
*column
)
729 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
732 e
->type
= EXPR_COLUMN
;
733 e
->u.sval
= column
->column
;
738 static struct expr
* EXPR_ival
( void *info
, int val
)
740 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
749 static struct expr
* EXPR_sval
( void *info
, struct sql_str
*str
)
751 struct expr
*e
= parser_alloc
( info
, sizeof
*e
);
755 e
->u.sval
= SQL_getstring
( info
, str
);
760 static BOOL SQL_MarkPrimaryKeys
( column_info
*cols
,
766 for
( k
= keys
; k
&& found
; k
= k
->next
)
771 for
( c
= cols
; c
&& !found
; c
= c
->next
)
773 if
( lstrcmpW
( k
->column
, c
->column
) )
775 c
->type |
= MSITYPE_KEY
;
783 UINT MSI_ParseSQL
( MSIDATABASE
*db
, LPCWSTR command
, MSIVIEW
**phview
,
792 sql.command
= command
;
800 TRACE
("Parse returned %d\n", r
);
804 (*sql.view
)->ops
->delete
( *sql.view
);
806 return ERROR_BAD_QUERY_SYNTAX
;
809 return ERROR_SUCCESS
;