msi: Only specifically resolve the TARGETDIR directory once.
[wine] / dlls / msi / delete.c
1 /*
2  * Implementation of the Microsoft Installer (msi.dll)
3  *
4  * Copyright 2002-2005 Mike McCormack for CodeWeavers
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #include <stdarg.h>
22
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"
33
34 #include "query.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(msidb);
37
38
39 /*
40  * Code to delete rows from a table.
41  *
42  * We delete rows by blanking them out rather than trying to remove the row.
43  * This appears to be what the native MSI does (or tries to do). For the query:
44  *
45  * delete from Property
46  *
47  * some non-zero entries are left in the table by native MSI.  I'm not sure if
48  * that's a bug in the way I'm running the query, or a just a bug.
49  */
50
51 typedef struct tagMSIDELETEVIEW
52 {
53     MSIVIEW        view;
54     MSIDATABASE   *db;
55     MSIVIEW       *table;
56 } MSIDELETEVIEW;
57
58 static UINT DELETE_fetch_int( struct tagMSIVIEW *view, UINT row, UINT col, UINT *val )
59 {
60     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
61
62     TRACE("%p %d %d %p\n", dv, row, col, val );
63
64     return ERROR_FUNCTION_FAILED;
65 }
66
67 static UINT DELETE_fetch_stream( struct tagMSIVIEW *view, UINT row, UINT col, IStream **stm)
68 {
69     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
70
71     TRACE("%p %d %d %p\n", dv, row, col, stm );
72
73     return ERROR_FUNCTION_FAILED;
74 }
75
76 static UINT DELETE_set_int( struct tagMSIVIEW *view, UINT row, UINT col, UINT val )
77 {
78     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
79
80     TRACE("%p %d %d %04x\n", dv, row, col, val );
81
82     return ERROR_FUNCTION_FAILED;
83 }
84
85 static UINT DELETE_insert_row( struct tagMSIVIEW *view, MSIRECORD *record )
86 {
87     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
88
89     TRACE("%p %p\n", dv, record );
90
91     return ERROR_FUNCTION_FAILED;
92 }
93
94 static UINT DELETE_execute( struct tagMSIVIEW *view, MSIRECORD *record )
95 {
96     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
97     UINT r, i, j, rows = 0, cols = 0;
98
99     TRACE("%p %p\n", dv, record);
100
101     if( !dv->table )
102          return ERROR_FUNCTION_FAILED;
103
104     r = dv->table->ops->execute( dv->table, record );
105     if( r != ERROR_SUCCESS )
106         return r;
107
108     r = dv->table->ops->get_dimensions( dv->table, &rows, &cols );
109     if( r != ERROR_SUCCESS )
110         return r;
111
112     TRACE("blanking %d rows\n", rows); 
113
114     /* blank out all the rows that match */
115     for( i=0; i<rows; i++ )
116         for( j=1; j<=cols; j++ )
117             dv->table->ops->set_int( dv->table, i, j, 0 );
118
119     return ERROR_SUCCESS;
120 }
121
122 static UINT DELETE_close( struct tagMSIVIEW *view )
123 {
124     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
125
126     TRACE("%p\n", dv );
127
128     if( !dv->table )
129          return ERROR_FUNCTION_FAILED;
130
131     return dv->table->ops->close( dv->table );
132 }
133
134 static UINT DELETE_get_dimensions( struct tagMSIVIEW *view, UINT *rows, UINT *cols )
135 {
136     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
137
138     TRACE("%p %p %p\n", dv, rows, cols );
139
140     if( !dv->table )
141          return ERROR_FUNCTION_FAILED;
142
143     *rows = 0;
144
145     return dv->table->ops->get_dimensions( dv->table, NULL, cols );
146 }
147
148 static UINT DELETE_get_column_info( struct tagMSIVIEW *view,
149                 UINT n, LPWSTR *name, UINT *type )
150 {
151     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
152
153     TRACE("%p %d %p %p\n", dv, n, name, type );
154
155     if( !dv->table )
156          return ERROR_FUNCTION_FAILED;
157
158     return dv->table->ops->get_column_info( dv->table, n, name, type );
159 }
160
161 static UINT DELETE_modify( struct tagMSIVIEW *view, MSIMODIFY eModifyMode,
162                 MSIRECORD *rec )
163 {
164     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
165
166     TRACE("%p %d %p\n", dv, eModifyMode, rec );
167
168     return ERROR_FUNCTION_FAILED;
169 }
170
171 static UINT DELETE_delete( struct tagMSIVIEW *view )
172 {
173     MSIDELETEVIEW *dv = (MSIDELETEVIEW*)view;
174
175     TRACE("%p\n", dv );
176
177     if( dv->table )
178         dv->table->ops->delete( dv->table );
179
180     msi_free( dv );
181
182     return ERROR_SUCCESS;
183 }
184
185 static UINT DELETE_find_matching_rows( struct tagMSIVIEW *view, UINT col,
186     UINT val, UINT *row, MSIITERHANDLE *handle )
187 {
188     TRACE("%p, %d, %u, %p\n", view, col, val, *handle);
189
190     return ERROR_FUNCTION_FAILED;
191 }
192
193
194 static const MSIVIEWOPS delete_ops =
195 {
196     DELETE_fetch_int,
197     DELETE_fetch_stream,
198     DELETE_set_int,
199     DELETE_insert_row,
200     DELETE_execute,
201     DELETE_close,
202     DELETE_get_dimensions,
203     DELETE_get_column_info,
204     DELETE_modify,
205     DELETE_delete,
206     DELETE_find_matching_rows
207 };
208
209 UINT DELETE_CreateView( MSIDATABASE *db, MSIVIEW **view, MSIVIEW *table )
210 {
211     MSIDELETEVIEW *dv = NULL;
212
213     TRACE("%p\n", dv );
214
215     dv = msi_alloc_zero( sizeof *dv );
216     if( !dv )
217         return ERROR_FUNCTION_FAILED;
218     
219     /* fill the structure */
220     dv->view.ops = &delete_ops;
221     dv->db = db;
222     dv->table = table;
223
224     *view = &dv->view;
225
226     return ERROR_SUCCESS;
227 }