2 * Implementation of the Microsoft Installer (msi.dll)
4 * Copyright 2002 Mike McCormack for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
26 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(msidb
);
39 /* below is the query interface to a table */
41 typedef struct tagMSIWHEREVIEW
51 static UINT
WHERE_fetch_int( struct tagMSIVIEW
*view
, UINT row
, UINT col
, UINT
*val
)
53 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
55 TRACE("%p %d %d %p\n", wv
, row
, col
, val
);
58 return ERROR_FUNCTION_FAILED
;
60 if( row
> wv
->row_count
)
61 return ERROR_NO_MORE_ITEMS
;
63 row
= wv
->reorder
[ row
];
65 return wv
->table
->ops
->fetch_int( wv
->table
, row
, col
, val
);
68 static UINT
WHERE_fetch_stream( struct tagMSIVIEW
*view
, UINT row
, UINT col
, IStream
**stm
)
70 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
72 TRACE("%p %d %d %p\n", wv
, row
, col
, stm
);
75 return ERROR_FUNCTION_FAILED
;
77 if( row
> wv
->row_count
)
78 return ERROR_NO_MORE_ITEMS
;
80 row
= wv
->reorder
[ row
];
82 return wv
->table
->ops
->fetch_stream( wv
->table
, row
, col
, stm
);
85 static UINT
WHERE_set_row( struct tagMSIVIEW
*view
, UINT row
, MSIRECORD
*rec
, UINT mask
)
87 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
89 TRACE("%p %d %p %08x\n", wv
, row
, rec
, mask
);
92 return ERROR_FUNCTION_FAILED
;
94 if( row
> wv
->row_count
)
95 return ERROR_NO_MORE_ITEMS
;
97 row
= wv
->reorder
[ row
];
99 return wv
->table
->ops
->set_row( wv
->table
, row
, rec
, mask
);
102 static INT
INT_evaluate_binary( INT lval
, UINT op
, INT rval
)
107 return ( lval
== rval
);
109 return ( lval
&& rval
);
111 return ( lval
|| rval
);
113 return ( lval
> rval
);
115 return ( lval
< rval
);
117 return ( lval
<= rval
);
119 return ( lval
>= rval
);
121 return ( lval
!= rval
);
123 ERR("Unknown operator %d\n", op
);
128 static INT
INT_evaluate_unary( INT lval
, UINT op
)
137 ERR("Unknown operator %d\n", op
);
142 static const WCHAR
*STRING_evaluate( const string_table
*st
,
143 MSIVIEW
*table
, UINT row
, const struct expr
*expr
, const MSIRECORD
*record
)
149 case EXPR_COL_NUMBER_STRING
:
150 r
= table
->ops
->fetch_int( table
, row
, expr
->u
.col_number
, &val
);
151 if( r
!= ERROR_SUCCESS
)
153 return msi_string_lookup_id( st
, val
);
159 return MSI_RecordGetString( record
, 1 );
162 ERR("Invalid expression type\n");
168 static UINT
STRCMP_Evaluate( const string_table
*st
, MSIVIEW
*table
, UINT row
,
169 const struct expr
*cond
, INT
*val
, const MSIRECORD
*record
)
172 const WCHAR
*l_str
, *r_str
;
174 l_str
= STRING_evaluate( st
, table
, row
, cond
->u
.expr
.left
, record
);
175 r_str
= STRING_evaluate( st
, table
, row
, cond
->u
.expr
.right
, record
);
178 else if( l_str
&& ! r_str
)
180 else if( r_str
&& ! l_str
)
183 sr
= lstrcmpW( l_str
, r_str
);
185 *val
= ( cond
->u
.expr
.op
== OP_EQ
&& ( sr
== 0 ) ) ||
186 ( cond
->u
.expr
.op
== OP_LT
&& ( sr
< 0 ) ) ||
187 ( cond
->u
.expr
.op
== OP_GT
&& ( sr
> 0 ) );
189 return ERROR_SUCCESS
;
192 static UINT
WHERE_evaluate( MSIDATABASE
*db
, MSIVIEW
*table
, UINT row
,
193 const struct expr
*cond
, INT
*val
, MSIRECORD
*record
)
199 return ERROR_SUCCESS
;
203 case EXPR_COL_NUMBER
:
204 r
= table
->ops
->fetch_int( table
, row
, cond
->u
.col_number
, &tval
);
205 *val
= tval
- 0x8000;
206 return ERROR_SUCCESS
;
208 case EXPR_COL_NUMBER32
:
209 r
= table
->ops
->fetch_int( table
, row
, cond
->u
.col_number
, &tval
);
210 *val
= tval
- 0x80000000;
215 return ERROR_SUCCESS
;
218 r
= WHERE_evaluate( db
, table
, row
, cond
->u
.expr
.left
, &lval
, record
);
219 if( r
!= ERROR_SUCCESS
)
221 r
= WHERE_evaluate( db
, table
, row
, cond
->u
.expr
.right
, &rval
, record
);
222 if( r
!= ERROR_SUCCESS
)
224 *val
= INT_evaluate_binary( lval
, cond
->u
.expr
.op
, rval
);
225 return ERROR_SUCCESS
;
228 r
= table
->ops
->fetch_int( table
, row
, cond
->u
.expr
.left
->u
.col_number
, &tval
);
229 if( r
!= ERROR_SUCCESS
)
231 *val
= INT_evaluate_unary( tval
, cond
->u
.expr
.op
);
232 return ERROR_SUCCESS
;
235 return STRCMP_Evaluate( db
->strings
, table
, row
, cond
, val
, record
);
238 *val
= MSI_RecordGetInteger( record
, 1 );
239 return ERROR_SUCCESS
;
242 ERR("Invalid expression type\n");
246 return ERROR_SUCCESS
;
250 static UINT
WHERE_execute( struct tagMSIVIEW
*view
, MSIRECORD
*record
)
252 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
253 UINT count
= 0, r
, i
;
255 MSIVIEW
*table
= wv
->table
;
257 TRACE("%p %p\n", wv
, record
);
260 return ERROR_FUNCTION_FAILED
;
262 r
= table
->ops
->execute( table
, record
);
263 if( r
!= ERROR_SUCCESS
)
266 r
= table
->ops
->get_dimensions( table
, &count
, NULL
);
267 if( r
!= ERROR_SUCCESS
)
270 msi_free( wv
->reorder
);
271 wv
->reorder
= msi_alloc( count
*sizeof(UINT
) );
273 return ERROR_FUNCTION_FAILED
;
276 if (wv
->cond
->type
== EXPR_STRCMP
)
278 MSIITERHANDLE handle
= NULL
;
279 UINT row
, value
, col
;
280 struct expr
*col_cond
= wv
->cond
->u
.expr
.left
;
281 struct expr
*val_cond
= wv
->cond
->u
.expr
.right
;
283 /* swap conditionals */
284 if (col_cond
->type
!= EXPR_COL_NUMBER_STRING
)
286 val_cond
= wv
->cond
->u
.expr
.left
;
287 col_cond
= wv
->cond
->u
.expr
.right
;
290 if ((col_cond
->type
== EXPR_COL_NUMBER_STRING
) && (val_cond
->type
== EXPR_SVAL
))
292 col
= col_cond
->u
.col_number
;
293 /* special case for "" - translate it into nil */
294 if (!val_cond
->u
.sval
[0])
298 r
= msi_string2idW(wv
->db
->strings
, val_cond
->u
.sval
, &value
);
299 if (r
!= ERROR_SUCCESS
)
301 TRACE("no id for %s, assuming it doesn't exist in the table\n", debugstr_w(wv
->cond
->u
.expr
.right
->u
.sval
));
302 return ERROR_SUCCESS
;
308 r
= table
->ops
->find_matching_rows(table
, col
, value
, &row
, &handle
);
309 if (r
== ERROR_SUCCESS
)
310 wv
->reorder
[ wv
->row_count
++ ] = row
;
311 } while (r
== ERROR_SUCCESS
);
313 if (r
== ERROR_NO_MORE_ITEMS
)
314 return ERROR_SUCCESS
;
318 /* else fallback to slow case */
321 for( i
=0; i
<count
; i
++ )
324 r
= WHERE_evaluate( wv
->db
, table
, i
, wv
->cond
, &val
, record
);
325 if( r
!= ERROR_SUCCESS
)
328 wv
->reorder
[ wv
->row_count
++ ] = i
;
331 return ERROR_SUCCESS
;
334 static UINT
WHERE_close( struct tagMSIVIEW
*view
)
336 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
341 return ERROR_FUNCTION_FAILED
;
343 msi_free( wv
->reorder
);
346 return wv
->table
->ops
->close( wv
->table
);
349 static UINT
WHERE_get_dimensions( struct tagMSIVIEW
*view
, UINT
*rows
, UINT
*cols
)
351 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
353 TRACE("%p %p %p\n", wv
, rows
, cols
);
356 return ERROR_FUNCTION_FAILED
;
361 return ERROR_FUNCTION_FAILED
;
362 *rows
= wv
->row_count
;
365 return wv
->table
->ops
->get_dimensions( wv
->table
, NULL
, cols
);
368 static UINT
WHERE_get_column_info( struct tagMSIVIEW
*view
,
369 UINT n
, LPWSTR
*name
, UINT
*type
)
371 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
373 TRACE("%p %d %p %p\n", wv
, n
, name
, type
);
376 return ERROR_FUNCTION_FAILED
;
378 return wv
->table
->ops
->get_column_info( wv
->table
, n
, name
, type
);
381 static UINT
WHERE_modify( struct tagMSIVIEW
*view
, MSIMODIFY eModifyMode
,
384 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
386 TRACE("%p %d %p\n", wv
, eModifyMode
, rec
);
389 return ERROR_FUNCTION_FAILED
;
391 return wv
->table
->ops
->modify( wv
->table
, eModifyMode
, rec
);
394 static UINT
WHERE_delete( struct tagMSIVIEW
*view
)
396 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
401 wv
->table
->ops
->delete( wv
->table
);
404 msi_free( wv
->reorder
);
408 msiobj_release( &wv
->db
->hdr
);
411 return ERROR_SUCCESS
;
414 static UINT
WHERE_find_matching_rows( struct tagMSIVIEW
*view
, UINT col
,
415 UINT val
, UINT
*row
, MSIITERHANDLE
*handle
)
417 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
420 TRACE("%p, %d, %u, %p\n", view
, col
, val
, *handle
);
423 return ERROR_FUNCTION_FAILED
;
425 r
= wv
->table
->ops
->find_matching_rows( wv
->table
, col
, val
, row
, handle
);
427 if( *row
> wv
->row_count
)
428 return ERROR_NO_MORE_ITEMS
;
430 *row
= wv
->reorder
[ *row
];
436 static const MSIVIEWOPS where_ops
=
445 WHERE_get_dimensions
,
446 WHERE_get_column_info
,
449 WHERE_find_matching_rows
452 static UINT
WHERE_VerifyCondition( MSIDATABASE
*db
, MSIVIEW
*table
, struct expr
*cond
,
460 r
= VIEW_find_column( table
, cond
->u
.column
, &val
);
461 if( r
== ERROR_SUCCESS
)
464 r
= table
->ops
->get_column_info( table
, val
, NULL
, &type
);
465 if( r
== ERROR_SUCCESS
)
467 if (type
&MSITYPE_STRING
)
468 cond
->type
= EXPR_COL_NUMBER_STRING
;
469 else if ((type
&0xff) == 4)
470 cond
->type
= EXPR_COL_NUMBER32
;
472 cond
->type
= EXPR_COL_NUMBER
;
473 cond
->u
.col_number
= val
;
482 ERR("Couldn't find column %s\n", debugstr_w( cond
->u
.column
) );
486 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.left
, valid
);
487 if( r
!= ERROR_SUCCESS
)
490 return ERROR_SUCCESS
;
491 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.right
, valid
);
492 if( r
!= ERROR_SUCCESS
)
495 /* check the type of the comparison */
496 if( ( cond
->u
.expr
.left
->type
== EXPR_SVAL
) ||
497 ( cond
->u
.expr
.left
->type
== EXPR_COL_NUMBER_STRING
) ||
498 ( cond
->u
.expr
.right
->type
== EXPR_SVAL
) ||
499 ( cond
->u
.expr
.right
->type
== EXPR_COL_NUMBER_STRING
) )
501 switch( cond
->u
.expr
.op
)
509 return ERROR_INVALID_PARAMETER
;
512 /* FIXME: check we're comparing a string to a column */
514 cond
->type
= EXPR_STRCMP
;
519 if ( cond
->u
.expr
.left
->type
!= EXPR_COLUMN
)
522 return ERROR_INVALID_PARAMETER
;
524 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.left
, valid
);
525 if( r
!= ERROR_SUCCESS
)
530 cond
->type
= EXPR_UVAL
;
531 cond
->u
.uval
= cond
->u
.ival
;
540 ERR("Invalid expression type\n");
545 return ERROR_SUCCESS
;
548 UINT
WHERE_CreateView( MSIDATABASE
*db
, MSIVIEW
**view
, MSIVIEW
*table
,
551 MSIWHEREVIEW
*wv
= NULL
;
552 UINT count
= 0, r
, valid
= 0;
554 TRACE("%p\n", table
);
556 r
= table
->ops
->get_dimensions( table
, NULL
, &count
);
557 if( r
!= ERROR_SUCCESS
)
559 ERR("can't get table dimensions\n");
565 r
= WHERE_VerifyCondition( db
, table
, cond
, &valid
);
566 if( r
!= ERROR_SUCCESS
)
569 return ERROR_FUNCTION_FAILED
;
572 wv
= msi_alloc_zero( sizeof *wv
);
574 return ERROR_FUNCTION_FAILED
;
576 /* fill the structure */
577 wv
->view
.ops
= &where_ops
;
578 msiobj_addref( &db
->hdr
);
584 *view
= (MSIVIEW
*) wv
;
586 return ERROR_SUCCESS
;