msi: Read the disk prompt source list property from the user-unmanaged context.
[wine/wine-kai.git] / dlls / msi / where.c
blobc12f7a44a68eaf93b2df11d75bb6ceda2363c10a
1 /*
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
21 #include <stdarg.h>
23 #include "windef.h"
24 #include "winbase.h"
25 #include "winerror.h"
26 #include "wine/debug.h"
27 #include "msi.h"
28 #include "msiquery.h"
29 #include "objbase.h"
30 #include "objidl.h"
31 #include "msipriv.h"
32 #include "winnls.h"
34 #include "query.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(msidb);
38 #define MSI_HASH_TABLE_SIZE 37
40 typedef struct tagMSIHASHENTRY
42 struct tagMSIHASHENTRY *next;
43 UINT value;
44 UINT row;
45 } MSIHASHENTRY;
47 /* below is the query interface to a table */
49 typedef struct tagMSIWHEREVIEW
51 MSIVIEW view;
52 MSIDATABASE *db;
53 MSIVIEW *table;
54 UINT row_count;
55 MSIHASHENTRY **reorder;
56 struct expr *cond;
57 UINT rec_index;
58 } MSIWHEREVIEW;
60 static void free_hash_table(MSIHASHENTRY **table)
62 MSIHASHENTRY *new, *old;
63 int i;
65 if (!table)
66 return;
68 for (i = 0; i < MSI_HASH_TABLE_SIZE; i++)
70 new = table[i];
72 while (new)
74 old = new;
75 new = old->next;
76 msi_free(old);
79 table[i] = NULL;
82 msi_free(table);
85 static UINT find_entry_in_hash(MSIHASHENTRY **table, UINT row, UINT *val)
87 MSIHASHENTRY *entry;
89 if (!(entry = table[row % MSI_HASH_TABLE_SIZE]))
91 ERR("Row not found in hash table!\n");
92 return ERROR_FUNCTION_FAILED;
95 while (entry && entry->row != row)
96 entry = entry->next;
98 if (entry) *val = entry->value;
99 return ERROR_SUCCESS;
102 static UINT add_entry_to_hash(MSIHASHENTRY **table, UINT row, UINT val)
104 MSIHASHENTRY *new = msi_alloc(sizeof(MSIHASHENTRY));
105 MSIHASHENTRY *prev;
107 if (!new)
108 return ERROR_OUTOFMEMORY;
110 new->next = NULL;
111 new->value = val;
112 new->row = row;
114 prev = table[row % MSI_HASH_TABLE_SIZE];
115 if (prev)
116 new->next = prev;
118 table[row % MSI_HASH_TABLE_SIZE] = new;
120 return ERROR_SUCCESS;
123 static UINT WHERE_fetch_int( struct tagMSIVIEW *view, UINT row, UINT col, UINT *val )
125 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
126 UINT r;
128 TRACE("%p %d %d %p\n", wv, row, col, val );
130 if( !wv->table )
131 return ERROR_FUNCTION_FAILED;
133 if( row > wv->row_count )
134 return ERROR_NO_MORE_ITEMS;
136 r = find_entry_in_hash(wv->reorder, row, &row);
137 if (r != ERROR_SUCCESS)
138 return r;
140 return wv->table->ops->fetch_int( wv->table, row, col, val );
143 static UINT WHERE_fetch_stream( struct tagMSIVIEW *view, UINT row, UINT col, IStream **stm )
145 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
146 UINT r;
148 TRACE("%p %d %d %p\n", wv, row, col, stm );
150 if( !wv->table )
151 return ERROR_FUNCTION_FAILED;
153 if( row > wv->row_count )
154 return ERROR_NO_MORE_ITEMS;
156 r = find_entry_in_hash(wv->reorder, row, &row);
157 if (r != ERROR_SUCCESS)
158 return r;
160 return wv->table->ops->fetch_stream( wv->table, row, col, stm );
163 static UINT WHERE_get_row( struct tagMSIVIEW *view, UINT row, MSIRECORD **rec )
165 MSIWHEREVIEW *wv = (MSIWHEREVIEW *)view;
166 UINT r;
168 TRACE("%p %d %p\n", wv, row, rec );
170 if (!wv->table)
171 return ERROR_FUNCTION_FAILED;
173 if (row > wv->row_count)
174 return ERROR_NO_MORE_ITEMS;
176 r = find_entry_in_hash(wv->reorder, row, &row);
177 if (r != ERROR_SUCCESS)
178 return r;
180 return wv->table->ops->get_row(view, row, rec);
183 static UINT WHERE_set_row( struct tagMSIVIEW *view, UINT row, MSIRECORD *rec, UINT mask )
185 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
186 UINT r;
188 TRACE("%p %d %p %08x\n", wv, row, rec, mask );
190 if( !wv->table )
191 return ERROR_FUNCTION_FAILED;
193 if( row > wv->row_count )
194 return ERROR_NO_MORE_ITEMS;
196 r = find_entry_in_hash(wv->reorder, row, &row);
197 if (r != ERROR_SUCCESS)
198 return r;
200 return wv->table->ops->set_row( wv->table, row, rec, mask );
203 static UINT WHERE_delete_row(struct tagMSIVIEW *view, UINT row)
205 MSIWHEREVIEW *wv = (MSIWHEREVIEW *)view;
206 UINT r;
208 TRACE("(%p %d)\n", view, row);
210 if ( !wv->table )
211 return ERROR_FUNCTION_FAILED;
213 if ( row > wv->row_count )
214 return ERROR_NO_MORE_ITEMS;
216 r = find_entry_in_hash( wv->reorder, row, &row );
217 if ( r != ERROR_SUCCESS )
218 return r;
220 return wv->table->ops->delete_row( wv->table, row );
223 static INT INT_evaluate_binary( INT lval, UINT op, INT rval )
225 switch( op )
227 case OP_EQ:
228 return ( lval == rval );
229 case OP_AND:
230 return ( lval && rval );
231 case OP_OR:
232 return ( lval || rval );
233 case OP_GT:
234 return ( lval > rval );
235 case OP_LT:
236 return ( lval < rval );
237 case OP_LE:
238 return ( lval <= rval );
239 case OP_GE:
240 return ( lval >= rval );
241 case OP_NE:
242 return ( lval != rval );
243 default:
244 ERR("Unknown operator %d\n", op );
246 return 0;
249 static INT INT_evaluate_unary( INT lval, UINT op )
251 switch( op )
253 case OP_ISNULL:
254 return ( !lval );
255 case OP_NOTNULL:
256 return ( lval );
257 default:
258 ERR("Unknown operator %d\n", op );
260 return 0;
263 static const WCHAR *STRING_evaluate( MSIWHEREVIEW *wv, UINT row,
264 const struct expr *expr,
265 const MSIRECORD *record )
267 UINT val = 0, r;
269 switch( expr->type )
271 case EXPR_COL_NUMBER_STRING:
272 r = wv->table->ops->fetch_int( wv->table, row, expr->u.col_number, &val );
273 if( r != ERROR_SUCCESS )
274 return NULL;
275 return msi_string_lookup_id( wv->db->strings, val );
277 case EXPR_SVAL:
278 return expr->u.sval;
280 case EXPR_WILDCARD:
281 return MSI_RecordGetString( record, ++wv->rec_index );
283 default:
284 ERR("Invalid expression type\n");
285 break;
287 return NULL;
290 static UINT STRCMP_Evaluate( MSIWHEREVIEW *wv, UINT row, const struct expr *cond,
291 INT *val, const MSIRECORD *record )
293 int sr;
294 const WCHAR *l_str, *r_str;
296 l_str = STRING_evaluate( wv, row, cond->u.expr.left, record );
297 r_str = STRING_evaluate( wv, row, cond->u.expr.right, record );
298 if( l_str == r_str ||
299 ((!l_str || !*l_str) && (!r_str || !*r_str)) )
300 sr = 0;
301 else if( l_str && ! r_str )
302 sr = 1;
303 else if( r_str && ! l_str )
304 sr = -1;
305 else
306 sr = lstrcmpW( l_str, r_str );
308 *val = ( cond->u.expr.op == OP_EQ && ( sr == 0 ) ) ||
309 ( cond->u.expr.op == OP_NE && ( sr != 0 ) ) ||
310 ( cond->u.expr.op == OP_LT && ( sr < 0 ) ) ||
311 ( cond->u.expr.op == OP_GT && ( sr > 0 ) );
313 return ERROR_SUCCESS;
316 static UINT WHERE_evaluate( MSIWHEREVIEW *wv, UINT row,
317 struct expr *cond, INT *val, MSIRECORD *record )
319 UINT r, tval;
320 INT lval, rval;
322 if( !cond )
323 return ERROR_SUCCESS;
325 switch( cond->type )
327 case EXPR_COL_NUMBER:
328 r = wv->table->ops->fetch_int( wv->table, row, cond->u.col_number, &tval );
329 *val = tval - 0x8000;
330 return ERROR_SUCCESS;
332 case EXPR_COL_NUMBER32:
333 r = wv->table->ops->fetch_int( wv->table, row, cond->u.col_number, &tval );
334 *val = tval - 0x80000000;
335 return r;
337 case EXPR_UVAL:
338 *val = cond->u.uval;
339 return ERROR_SUCCESS;
341 case EXPR_COMPLEX:
342 r = WHERE_evaluate( wv, row, cond->u.expr.left, &lval, record );
343 if( r != ERROR_SUCCESS )
344 return r;
345 r = WHERE_evaluate( wv, row, cond->u.expr.right, &rval, record );
346 if( r != ERROR_SUCCESS )
347 return r;
348 *val = INT_evaluate_binary( lval, cond->u.expr.op, rval );
349 return ERROR_SUCCESS;
351 case EXPR_UNARY:
352 r = wv->table->ops->fetch_int( wv->table, row, cond->u.expr.left->u.col_number, &tval );
353 if( r != ERROR_SUCCESS )
354 return r;
355 *val = INT_evaluate_unary( tval, cond->u.expr.op );
356 return ERROR_SUCCESS;
358 case EXPR_STRCMP:
359 return STRCMP_Evaluate( wv, row, cond, val, record );
361 case EXPR_WILDCARD:
362 *val = MSI_RecordGetInteger( record, ++wv->rec_index );
363 return ERROR_SUCCESS;
365 default:
366 ERR("Invalid expression type\n");
367 break;
370 return ERROR_SUCCESS;
373 static UINT WHERE_execute( struct tagMSIVIEW *view, MSIRECORD *record )
375 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
376 UINT count = 0, r, i;
377 INT val;
378 MSIVIEW *table = wv->table;
380 TRACE("%p %p\n", wv, record);
382 if( !table )
383 return ERROR_FUNCTION_FAILED;
385 r = table->ops->execute( table, record );
386 if( r != ERROR_SUCCESS )
387 return r;
389 r = table->ops->get_dimensions( table, &count, NULL );
390 if( r != ERROR_SUCCESS )
391 return r;
393 free_hash_table(wv->reorder);
394 wv->reorder = msi_alloc_zero(MSI_HASH_TABLE_SIZE * sizeof(MSIHASHENTRY *));
395 if( !wv->reorder )
396 return ERROR_OUTOFMEMORY;
398 wv->row_count = 0;
399 if (wv->cond->type == EXPR_STRCMP)
401 MSIITERHANDLE handle = NULL;
402 UINT row, value, col;
403 struct expr *col_cond = wv->cond->u.expr.left;
404 struct expr *val_cond = wv->cond->u.expr.right;
406 /* swap conditionals */
407 if (col_cond->type != EXPR_COL_NUMBER_STRING)
409 val_cond = wv->cond->u.expr.left;
410 col_cond = wv->cond->u.expr.right;
413 if ((col_cond->type == EXPR_COL_NUMBER_STRING) && (val_cond->type == EXPR_SVAL))
415 col = col_cond->u.col_number;
416 /* special case for "" - translate it into nil */
417 if (!val_cond->u.sval[0])
418 value = 0;
419 else
421 r = msi_string2idW(wv->db->strings, val_cond->u.sval, &value);
422 if (r != ERROR_SUCCESS)
424 TRACE("no id for %s, assuming it doesn't exist in the table\n", debugstr_w(wv->cond->u.expr.right->u.sval));
425 return ERROR_SUCCESS;
431 r = table->ops->find_matching_rows(table, col, value, &row, &handle);
432 if (r == ERROR_SUCCESS)
433 add_entry_to_hash(wv->reorder, wv->row_count++, row);
434 } while (r == ERROR_SUCCESS);
436 if (r == ERROR_NO_MORE_ITEMS)
437 return ERROR_SUCCESS;
438 else
439 return r;
441 /* else fallback to slow case */
444 for( i=0; i<count; i++ )
446 val = 0;
447 wv->rec_index = 0;
448 r = WHERE_evaluate( wv, i, wv->cond, &val, record );
449 if( r != ERROR_SUCCESS )
450 return r;
451 if( val )
452 add_entry_to_hash( wv->reorder, wv->row_count++, i );
455 return ERROR_SUCCESS;
458 static UINT WHERE_close( struct tagMSIVIEW *view )
460 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
462 TRACE("%p\n", wv );
464 if( !wv->table )
465 return ERROR_FUNCTION_FAILED;
467 return wv->table->ops->close( wv->table );
470 static UINT WHERE_get_dimensions( struct tagMSIVIEW *view, UINT *rows, UINT *cols )
472 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
474 TRACE("%p %p %p\n", wv, rows, cols );
476 if( !wv->table )
477 return ERROR_FUNCTION_FAILED;
479 if( rows )
481 if( !wv->reorder )
482 return ERROR_FUNCTION_FAILED;
483 *rows = wv->row_count;
486 return wv->table->ops->get_dimensions( wv->table, NULL, cols );
489 static UINT WHERE_get_column_info( struct tagMSIVIEW *view,
490 UINT n, LPWSTR *name, UINT *type )
492 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
494 TRACE("%p %d %p %p\n", wv, n, name, type );
496 if( !wv->table )
497 return ERROR_FUNCTION_FAILED;
499 return wv->table->ops->get_column_info( wv->table, n, name, type );
502 static UINT WHERE_modify( struct tagMSIVIEW *view, MSIMODIFY eModifyMode,
503 MSIRECORD *rec, UINT row )
505 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
506 UINT r;
508 TRACE("%p %d %p\n", wv, eModifyMode, rec);
510 r = WHERE_execute(view, NULL);
511 if (r != ERROR_SUCCESS)
512 return r;
514 r = find_entry_in_hash(wv->reorder, row - 1, &row);
515 if (r != ERROR_SUCCESS)
516 return r;
518 return wv->table->ops->modify( wv->table, eModifyMode, rec, row );
521 static UINT WHERE_delete( struct tagMSIVIEW *view )
523 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
525 TRACE("%p\n", wv );
527 if( wv->table )
528 wv->table->ops->delete( wv->table );
529 wv->table = 0;
531 free_hash_table(wv->reorder);
532 wv->reorder = NULL;
533 wv->row_count = 0;
535 msiobj_release( &wv->db->hdr );
536 msi_free( wv );
538 return ERROR_SUCCESS;
541 static UINT WHERE_find_matching_rows( struct tagMSIVIEW *view, UINT col,
542 UINT val, UINT *row, MSIITERHANDLE *handle )
544 MSIWHEREVIEW *wv = (MSIWHEREVIEW*)view;
545 UINT r;
547 TRACE("%p, %d, %u, %p\n", view, col, val, *handle);
549 if( !wv->table )
550 return ERROR_FUNCTION_FAILED;
552 r = wv->table->ops->find_matching_rows( wv->table, col, val, row, handle );
553 if (r != ERROR_SUCCESS)
554 return r;
556 if( *row > wv->row_count )
557 return ERROR_NO_MORE_ITEMS;
559 return find_entry_in_hash(wv->reorder, *row, row);
562 static UINT WHERE_sort(struct tagMSIVIEW *view, column_info *columns)
564 MSIWHEREVIEW *wv = (MSIWHEREVIEW *)view;
566 TRACE("%p %p\n", view, columns);
568 return wv->table->ops->sort(wv->table, columns);
571 static const MSIVIEWOPS where_ops =
573 WHERE_fetch_int,
574 WHERE_fetch_stream,
575 WHERE_get_row,
576 WHERE_set_row,
577 NULL,
578 WHERE_delete_row,
579 WHERE_execute,
580 WHERE_close,
581 WHERE_get_dimensions,
582 WHERE_get_column_info,
583 WHERE_modify,
584 WHERE_delete,
585 WHERE_find_matching_rows,
586 NULL,
587 NULL,
588 NULL,
589 NULL,
590 WHERE_sort,
593 static UINT WHERE_VerifyCondition( MSIDATABASE *db, MSIVIEW *table, struct expr *cond,
594 UINT *valid )
596 UINT r, val = 0;
598 switch( cond->type )
600 case EXPR_COLUMN:
601 r = VIEW_find_column( table, cond->u.column, &val );
602 if( r == ERROR_SUCCESS )
604 UINT type = 0;
605 r = table->ops->get_column_info( table, val, NULL, &type );
606 if( r == ERROR_SUCCESS )
608 if (type&MSITYPE_STRING)
609 cond->type = EXPR_COL_NUMBER_STRING;
610 else if ((type&0xff) == 4)
611 cond->type = EXPR_COL_NUMBER32;
612 else
613 cond->type = EXPR_COL_NUMBER;
614 cond->u.col_number = val;
615 *valid = 1;
617 else
618 *valid = 0;
620 else
622 *valid = 0;
623 WARN("Couldn't find column %s\n", debugstr_w( cond->u.column ) );
625 break;
626 case EXPR_COMPLEX:
627 r = WHERE_VerifyCondition( db, table, cond->u.expr.left, valid );
628 if( r != ERROR_SUCCESS )
629 return r;
630 if( !*valid )
631 return ERROR_SUCCESS;
632 r = WHERE_VerifyCondition( db, table, cond->u.expr.right, valid );
633 if( r != ERROR_SUCCESS )
634 return r;
636 /* check the type of the comparison */
637 if( ( cond->u.expr.left->type == EXPR_SVAL ) ||
638 ( cond->u.expr.left->type == EXPR_COL_NUMBER_STRING ) ||
639 ( cond->u.expr.right->type == EXPR_SVAL ) ||
640 ( cond->u.expr.right->type == EXPR_COL_NUMBER_STRING ) )
642 switch( cond->u.expr.op )
644 case OP_EQ:
645 case OP_GT:
646 case OP_LT:
647 case OP_NE:
648 break;
649 default:
650 *valid = FALSE;
651 return ERROR_INVALID_PARAMETER;
654 /* FIXME: check we're comparing a string to a column */
656 cond->type = EXPR_STRCMP;
659 break;
660 case EXPR_UNARY:
661 if ( cond->u.expr.left->type != EXPR_COLUMN )
663 *valid = FALSE;
664 return ERROR_INVALID_PARAMETER;
666 r = WHERE_VerifyCondition( db, table, cond->u.expr.left, valid );
667 if( r != ERROR_SUCCESS )
668 return r;
669 break;
670 case EXPR_IVAL:
671 *valid = 1;
672 cond->type = EXPR_UVAL;
673 cond->u.uval = cond->u.ival;
674 break;
675 case EXPR_WILDCARD:
676 *valid = 1;
677 break;
678 case EXPR_SVAL:
679 *valid = 1;
680 break;
681 default:
682 ERR("Invalid expression type\n");
683 *valid = 0;
684 break;
687 return ERROR_SUCCESS;
690 UINT WHERE_CreateView( MSIDATABASE *db, MSIVIEW **view, MSIVIEW *table,
691 struct expr *cond )
693 MSIWHEREVIEW *wv = NULL;
694 UINT count = 0, r, valid = 0;
696 TRACE("%p\n", table );
698 r = table->ops->get_dimensions( table, NULL, &count );
699 if( r != ERROR_SUCCESS )
701 ERR("can't get table dimensions\n");
702 return r;
705 if( cond )
707 r = WHERE_VerifyCondition( db, table, cond, &valid );
708 if( r != ERROR_SUCCESS )
709 return r;
710 if( !valid )
711 return ERROR_FUNCTION_FAILED;
714 wv = msi_alloc_zero( sizeof *wv );
715 if( !wv )
716 return ERROR_FUNCTION_FAILED;
718 /* fill the structure */
719 wv->view.ops = &where_ops;
720 msiobj_addref( &db->hdr );
721 wv->db = db;
722 wv->table = table;
723 wv->row_count = 0;
724 wv->reorder = NULL;
725 wv->cond = cond;
726 wv->rec_index = 0;
727 *view = (MSIVIEW*) wv;
729 return ERROR_SUCCESS;