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"
27 #include "wine/unicode.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(msidb
);
39 #define MSI_HASH_TABLE_SIZE 37
41 typedef struct tagMSIHASHENTRY
43 struct tagMSIHASHENTRY
*next
;
48 /* below is the query interface to a table */
50 typedef struct tagMSIWHEREVIEW
56 MSIHASHENTRY
**reorder
;
61 static void free_hash_table(MSIHASHENTRY
**table
)
63 MSIHASHENTRY
*new, *old
;
69 for (i
= 0; i
< MSI_HASH_TABLE_SIZE
; i
++)
86 static UINT
find_entry_in_hash(MSIHASHENTRY
**table
, UINT row
, UINT
*val
)
93 if (!(entry
= table
[row
% MSI_HASH_TABLE_SIZE
]))
95 WARN("Row not found in hash table!\n");
96 return ERROR_FUNCTION_FAILED
;
99 while (entry
&& entry
->row
!= row
)
102 if (entry
) *val
= entry
->value
;
103 return ERROR_SUCCESS
;
106 static UINT
add_entry_to_hash(MSIHASHENTRY
**table
, UINT row
, UINT val
)
108 MSIHASHENTRY
*new = msi_alloc(sizeof(MSIHASHENTRY
));
112 return ERROR_OUTOFMEMORY
;
118 prev
= table
[row
% MSI_HASH_TABLE_SIZE
];
122 table
[row
% MSI_HASH_TABLE_SIZE
] = new;
124 return ERROR_SUCCESS
;
127 static UINT
WHERE_fetch_int( struct tagMSIVIEW
*view
, UINT row
, UINT col
, UINT
*val
)
129 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
132 TRACE("%p %d %d %p\n", wv
, row
, col
, val
);
135 return ERROR_FUNCTION_FAILED
;
137 if( row
> wv
->row_count
)
138 return ERROR_NO_MORE_ITEMS
;
140 r
= find_entry_in_hash(wv
->reorder
, row
, &row
);
141 if (r
!= ERROR_SUCCESS
)
144 return wv
->table
->ops
->fetch_int( wv
->table
, row
, col
, val
);
147 static UINT
WHERE_fetch_stream( struct tagMSIVIEW
*view
, UINT row
, UINT col
, IStream
**stm
)
149 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
152 TRACE("%p %d %d %p\n", wv
, row
, col
, stm
);
155 return ERROR_FUNCTION_FAILED
;
157 if( row
> wv
->row_count
)
158 return ERROR_NO_MORE_ITEMS
;
160 r
= find_entry_in_hash(wv
->reorder
, row
, &row
);
161 if (r
!= ERROR_SUCCESS
)
164 return wv
->table
->ops
->fetch_stream( wv
->table
, row
, col
, stm
);
167 static UINT
WHERE_get_row( struct tagMSIVIEW
*view
, UINT row
, MSIRECORD
**rec
)
169 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
172 TRACE("%p %d %p\n", wv
, row
, rec
);
175 return ERROR_FUNCTION_FAILED
;
177 if (row
> wv
->row_count
)
178 return ERROR_NO_MORE_ITEMS
;
180 r
= find_entry_in_hash(wv
->reorder
, row
, &row
);
181 if (r
!= ERROR_SUCCESS
)
184 return wv
->table
->ops
->get_row(wv
->table
, row
, rec
);
187 static UINT
WHERE_set_row( struct tagMSIVIEW
*view
, UINT row
, MSIRECORD
*rec
, UINT mask
)
189 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
192 TRACE("%p %d %p %08x\n", wv
, row
, rec
, mask
);
195 return ERROR_FUNCTION_FAILED
;
197 if( row
> wv
->row_count
)
198 return ERROR_NO_MORE_ITEMS
;
200 r
= find_entry_in_hash(wv
->reorder
, row
, &row
);
201 if (r
!= ERROR_SUCCESS
)
204 return wv
->table
->ops
->set_row( wv
->table
, row
, rec
, mask
);
207 static UINT
WHERE_delete_row(struct tagMSIVIEW
*view
, UINT row
)
209 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
212 TRACE("(%p %d)\n", view
, row
);
215 return ERROR_FUNCTION_FAILED
;
217 if ( row
> wv
->row_count
)
218 return ERROR_NO_MORE_ITEMS
;
220 r
= find_entry_in_hash( wv
->reorder
, row
, &row
);
221 if ( r
!= ERROR_SUCCESS
)
224 return wv
->table
->ops
->delete_row( wv
->table
, row
);
227 static INT
INT_evaluate_binary( INT lval
, UINT op
, INT rval
)
232 return ( lval
== rval
);
234 return ( lval
&& rval
);
236 return ( lval
|| rval
);
238 return ( lval
> rval
);
240 return ( lval
< rval
);
242 return ( lval
<= rval
);
244 return ( lval
>= rval
);
246 return ( lval
!= rval
);
248 ERR("Unknown operator %d\n", op
);
253 static INT
INT_evaluate_unary( INT lval
, UINT op
)
262 ERR("Unknown operator %d\n", op
);
267 static const WCHAR
*STRING_evaluate( MSIWHEREVIEW
*wv
, UINT row
,
268 const struct expr
*expr
,
269 const MSIRECORD
*record
)
275 case EXPR_COL_NUMBER_STRING
:
276 r
= wv
->table
->ops
->fetch_int( wv
->table
, row
, expr
->u
.col_number
, &val
);
277 if( r
!= ERROR_SUCCESS
)
279 return msi_string_lookup_id( wv
->db
->strings
, val
);
285 return MSI_RecordGetString( record
, ++wv
->rec_index
);
288 ERR("Invalid expression type\n");
294 static UINT
STRCMP_Evaluate( MSIWHEREVIEW
*wv
, UINT row
, const struct expr
*cond
,
295 INT
*val
, const MSIRECORD
*record
)
298 const WCHAR
*l_str
, *r_str
;
300 l_str
= STRING_evaluate( wv
, row
, cond
->u
.expr
.left
, record
);
301 r_str
= STRING_evaluate( wv
, row
, cond
->u
.expr
.right
, record
);
302 if( l_str
== r_str
||
303 ((!l_str
|| !*l_str
) && (!r_str
|| !*r_str
)) )
305 else if( l_str
&& ! r_str
)
307 else if( r_str
&& ! l_str
)
310 sr
= strcmpW( l_str
, r_str
);
312 *val
= ( cond
->u
.expr
.op
== OP_EQ
&& ( sr
== 0 ) ) ||
313 ( cond
->u
.expr
.op
== OP_NE
&& ( sr
!= 0 ) );
315 return ERROR_SUCCESS
;
318 static UINT
WHERE_evaluate( MSIWHEREVIEW
*wv
, UINT row
,
319 struct expr
*cond
, INT
*val
, MSIRECORD
*record
)
325 return ERROR_SUCCESS
;
329 case EXPR_COL_NUMBER
:
330 r
= wv
->table
->ops
->fetch_int( wv
->table
, row
, cond
->u
.col_number
, &tval
);
331 if( r
!= ERROR_SUCCESS
)
333 *val
= tval
- 0x8000;
334 return ERROR_SUCCESS
;
336 case EXPR_COL_NUMBER32
:
337 r
= wv
->table
->ops
->fetch_int( wv
->table
, row
, cond
->u
.col_number
, &tval
);
338 if( r
!= ERROR_SUCCESS
)
340 *val
= tval
- 0x80000000;
345 return ERROR_SUCCESS
;
348 r
= WHERE_evaluate( wv
, row
, cond
->u
.expr
.left
, &lval
, record
);
349 if( r
!= ERROR_SUCCESS
)
351 r
= WHERE_evaluate( wv
, row
, cond
->u
.expr
.right
, &rval
, record
);
352 if( r
!= ERROR_SUCCESS
)
354 *val
= INT_evaluate_binary( lval
, cond
->u
.expr
.op
, rval
);
355 return ERROR_SUCCESS
;
358 r
= wv
->table
->ops
->fetch_int( wv
->table
, row
, cond
->u
.expr
.left
->u
.col_number
, &tval
);
359 if( r
!= ERROR_SUCCESS
)
361 *val
= INT_evaluate_unary( tval
, cond
->u
.expr
.op
);
362 return ERROR_SUCCESS
;
365 return STRCMP_Evaluate( wv
, row
, cond
, val
, record
);
368 *val
= MSI_RecordGetInteger( record
, ++wv
->rec_index
);
369 return ERROR_SUCCESS
;
372 ERR("Invalid expression type\n");
376 return ERROR_SUCCESS
;
379 static UINT
WHERE_execute( struct tagMSIVIEW
*view
, MSIRECORD
*record
)
381 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
382 UINT count
= 0, r
, i
;
384 MSIVIEW
*table
= wv
->table
;
386 TRACE("%p %p\n", wv
, record
);
389 return ERROR_FUNCTION_FAILED
;
391 r
= table
->ops
->execute( table
, record
);
392 if( r
!= ERROR_SUCCESS
)
395 r
= table
->ops
->get_dimensions( table
, &count
, NULL
);
396 if( r
!= ERROR_SUCCESS
)
399 free_hash_table(wv
->reorder
);
400 wv
->reorder
= msi_alloc_zero(MSI_HASH_TABLE_SIZE
* sizeof(MSIHASHENTRY
*));
402 return ERROR_OUTOFMEMORY
;
406 if (0) /* disable optimization, there's no guarantee that strings are in the string table */
408 if (wv
->cond
->type
== EXPR_STRCMP
)
410 MSIITERHANDLE handle
= NULL
;
411 UINT row
, value
, col
;
412 struct expr
*col_cond
= wv
->cond
->u
.expr
.left
;
413 struct expr
*val_cond
= wv
->cond
->u
.expr
.right
;
415 /* swap conditionals */
416 if (col_cond
->type
!= EXPR_COL_NUMBER_STRING
)
418 val_cond
= wv
->cond
->u
.expr
.left
;
419 col_cond
= wv
->cond
->u
.expr
.right
;
422 if ((col_cond
->type
== EXPR_COL_NUMBER_STRING
) && (val_cond
->type
== EXPR_SVAL
))
424 col
= col_cond
->u
.col_number
;
425 /* special case for "" - translate it into nil */
426 if (!val_cond
->u
.sval
[0])
430 r
= msi_string2idW(wv
->db
->strings
, val_cond
->u
.sval
, &value
);
431 if (r
!= ERROR_SUCCESS
)
433 TRACE("no id for %s, assuming it doesn't exist in the table\n", debugstr_w(wv
->cond
->u
.expr
.right
->u
.sval
));
434 return ERROR_SUCCESS
;
440 r
= table
->ops
->find_matching_rows(table
, col
, value
, &row
, &handle
);
441 if (r
== ERROR_SUCCESS
)
442 add_entry_to_hash(wv
->reorder
, wv
->row_count
++, row
);
443 } while (r
== ERROR_SUCCESS
);
445 if (r
== ERROR_NO_MORE_ITEMS
)
446 return ERROR_SUCCESS
;
450 /* else fallback to slow case */
454 for( i
=0; i
<count
; i
++ )
458 r
= WHERE_evaluate( wv
, i
, wv
->cond
, &val
, record
);
459 if( r
!= ERROR_SUCCESS
)
462 add_entry_to_hash( wv
->reorder
, wv
->row_count
++, i
);
465 return ERROR_SUCCESS
;
468 static UINT
WHERE_close( struct tagMSIVIEW
*view
)
470 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
475 return ERROR_FUNCTION_FAILED
;
477 return wv
->table
->ops
->close( wv
->table
);
480 static UINT
WHERE_get_dimensions( struct tagMSIVIEW
*view
, UINT
*rows
, UINT
*cols
)
482 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
484 TRACE("%p %p %p\n", wv
, rows
, cols
);
487 return ERROR_FUNCTION_FAILED
;
492 return ERROR_FUNCTION_FAILED
;
493 *rows
= wv
->row_count
;
496 return wv
->table
->ops
->get_dimensions( wv
->table
, NULL
, cols
);
499 static UINT
WHERE_get_column_info( struct tagMSIVIEW
*view
,
500 UINT n
, LPWSTR
*name
, UINT
*type
, BOOL
*temporary
,
503 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
505 TRACE("%p %d %p %p %p %p\n", wv
, n
, name
, type
, temporary
, table_name
);
508 return ERROR_FUNCTION_FAILED
;
510 return wv
->table
->ops
->get_column_info( wv
->table
, n
, name
,
511 type
, temporary
, table_name
);
514 static UINT
WHERE_modify( struct tagMSIVIEW
*view
, MSIMODIFY eModifyMode
,
515 MSIRECORD
*rec
, UINT row
)
517 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
519 TRACE("%p %d %p\n", wv
, eModifyMode
, rec
);
521 find_entry_in_hash(wv
->reorder
, row
- 1, &row
);
524 return wv
->table
->ops
->modify( wv
->table
, eModifyMode
, rec
, row
);
527 static UINT
WHERE_delete( struct tagMSIVIEW
*view
)
529 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
534 wv
->table
->ops
->delete( wv
->table
);
537 free_hash_table(wv
->reorder
);
541 msiobj_release( &wv
->db
->hdr
);
544 return ERROR_SUCCESS
;
547 static UINT
WHERE_find_matching_rows( struct tagMSIVIEW
*view
, UINT col
,
548 UINT val
, UINT
*row
, MSIITERHANDLE
*handle
)
550 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
553 TRACE("%p, %d, %u, %p\n", view
, col
, val
, *handle
);
556 return ERROR_FUNCTION_FAILED
;
558 r
= wv
->table
->ops
->find_matching_rows( wv
->table
, col
, val
, row
, handle
);
559 if (r
!= ERROR_SUCCESS
)
562 if( *row
> wv
->row_count
)
563 return ERROR_NO_MORE_ITEMS
;
565 return find_entry_in_hash(wv
->reorder
, *row
, row
);
568 static UINT
WHERE_sort(struct tagMSIVIEW
*view
, column_info
*columns
)
570 MSIWHEREVIEW
*wv
= (MSIWHEREVIEW
*)view
;
572 TRACE("%p %p\n", view
, columns
);
574 return wv
->table
->ops
->sort(wv
->table
, columns
);
577 static const MSIVIEWOPS where_ops
=
587 WHERE_get_dimensions
,
588 WHERE_get_column_info
,
591 WHERE_find_matching_rows
,
600 static UINT
WHERE_VerifyCondition( MSIDATABASE
*db
, MSIVIEW
*table
, struct expr
*cond
,
608 r
= VIEW_find_column( table
, cond
->u
.column
.column
,
609 cond
->u
.column
.table
, &val
);
610 if( r
== ERROR_SUCCESS
)
613 r
= table
->ops
->get_column_info( table
, val
, NULL
, &type
,
615 if( r
== ERROR_SUCCESS
)
617 if (type
&MSITYPE_STRING
)
618 cond
->type
= EXPR_COL_NUMBER_STRING
;
619 else if ((type
&0xff) == 4)
620 cond
->type
= EXPR_COL_NUMBER32
;
622 cond
->type
= EXPR_COL_NUMBER
;
623 cond
->u
.col_number
= val
;
632 WARN("Couldn't find column %s.%s\n", debugstr_w( cond
->u
.column
.table
), debugstr_w( cond
->u
.column
.column
) );
636 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.left
, valid
);
637 if( r
!= ERROR_SUCCESS
)
640 return ERROR_SUCCESS
;
641 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.right
, valid
);
642 if( r
!= ERROR_SUCCESS
)
645 /* check the type of the comparison */
646 if( ( cond
->u
.expr
.left
->type
== EXPR_SVAL
) ||
647 ( cond
->u
.expr
.left
->type
== EXPR_COL_NUMBER_STRING
) ||
648 ( cond
->u
.expr
.right
->type
== EXPR_SVAL
) ||
649 ( cond
->u
.expr
.right
->type
== EXPR_COL_NUMBER_STRING
) )
651 switch( cond
->u
.expr
.op
)
658 return ERROR_INVALID_PARAMETER
;
661 /* FIXME: check we're comparing a string to a column */
663 cond
->type
= EXPR_STRCMP
;
668 if ( cond
->u
.expr
.left
->type
!= EXPR_COLUMN
)
671 return ERROR_INVALID_PARAMETER
;
673 r
= WHERE_VerifyCondition( db
, table
, cond
->u
.expr
.left
, valid
);
674 if( r
!= ERROR_SUCCESS
)
679 cond
->type
= EXPR_UVAL
;
680 cond
->u
.uval
= cond
->u
.ival
;
689 ERR("Invalid expression type\n");
694 return ERROR_SUCCESS
;
697 UINT
WHERE_CreateView( MSIDATABASE
*db
, MSIVIEW
**view
, MSIVIEW
*table
,
700 MSIWHEREVIEW
*wv
= NULL
;
701 UINT count
= 0, r
, valid
= 0;
703 TRACE("%p\n", table
);
705 r
= table
->ops
->get_dimensions( table
, NULL
, &count
);
706 if( r
!= ERROR_SUCCESS
)
708 ERR("can't get table dimensions\n");
714 r
= WHERE_VerifyCondition( db
, table
, cond
, &valid
);
715 if( r
!= ERROR_SUCCESS
)
718 return ERROR_FUNCTION_FAILED
;
721 wv
= msi_alloc_zero( sizeof *wv
);
723 return ERROR_FUNCTION_FAILED
;
725 /* fill the structure */
726 wv
->view
.ops
= &where_ops
;
727 msiobj_addref( &db
->hdr
);
734 *view
= (MSIVIEW
*) wv
;
736 return ERROR_SUCCESS
;