oleaut32: Support VT_SAFEARRAY in the typelib marshaler.
[wine] / dlls / msi / create.c
1 /*
2  * Implementation of the Microsoft Installer (msi.dll)
3  *
4  * Copyright 2002-2004 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  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 /* below is the query interface to a table */
40
41 typedef struct tagMSICREATEVIEW
42 {
43     MSIVIEW          view;
44     MSIDATABASE     *db;
45     LPWSTR           name;
46     BOOL             bIsTemp;
47     column_info     *col_info;
48 } MSICREATEVIEW;
49
50 static UINT CREATE_fetch_int( struct tagMSIVIEW *view, UINT row, UINT col, UINT *val )
51 {
52     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
53
54     TRACE("%p %d %d %p\n", cv, row, col, val );
55
56     return ERROR_FUNCTION_FAILED;
57 }
58
59 static UINT CREATE_execute( struct tagMSIVIEW *view, MSIRECORD *record )
60 {
61     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
62     column_info *col;
63     UINT r, nField;
64     static const WCHAR szTables[] =  { '_','T','a','b','l','e','s',0 };
65     static const WCHAR szColumns[] = { '_','C','o','l','u','m','n','s',0 };
66     MSIVIEW *tv = NULL;
67     MSIRECORD *rec = NULL;
68
69     TRACE("%p Table %s (%s)\n", cv, debugstr_w(cv->name), 
70           cv->bIsTemp?"temporary":"permanent");
71
72     /* only add tables that don't exist already */
73     if( TABLE_Exists(cv->db, cv->name ) )
74         return ERROR_BAD_QUERY_SYNTAX;
75
76     r = TABLE_CreateView( cv->db, szTables, &tv );
77     TRACE("CreateView returned %x\n", r);
78     if( r )
79         return r;
80
81     r = tv->ops->execute( tv, 0 );
82     TRACE("tv execute returned %x\n", r);
83     if( r )
84         goto err;
85
86     rec = MSI_CreateRecord( 1 );
87     if( !rec )
88         goto err;
89
90     r = MSI_RecordSetStringW( rec, 1, cv->name );
91     if( r )
92         goto err;
93
94     r = tv->ops->insert_row( tv, rec );
95     TRACE("insert_row returned %x\n", r);
96     if( r )
97         goto err;
98
99     tv->ops->delete( tv );
100     tv = NULL;
101
102     msiobj_release( &rec->hdr );
103
104     /* add each column to the _Columns table */
105     r = TABLE_CreateView( cv->db, szColumns, &tv );
106     if( r )
107         return r;
108
109     r = tv->ops->execute( tv, 0 );
110     TRACE("tv execute returned %x\n", r);
111     if( r )
112         goto err;
113
114     rec = MSI_CreateRecord( 4 );
115     if( !rec )
116         goto err;
117
118     r = MSI_RecordSetStringW( rec, 1, cv->name );
119     if( r )
120         goto err;
121
122     /*
123      * need to set the table, column number, col name and type
124      * for each column we enter in the table
125      */
126     nField = 1;
127     for( col = cv->col_info; col; col = col->next )
128     {
129         r = MSI_RecordSetInteger( rec, 2, nField );
130         if( r )
131             goto err;
132
133         r = MSI_RecordSetStringW( rec, 3, col->column );
134         if( r )
135             goto err;
136
137         r = MSI_RecordSetInteger( rec, 4, col->type );
138         if( r )
139             goto err;
140
141         r = tv->ops->insert_row( tv, rec );
142         if( r )
143             goto err;
144
145         nField++;
146     }
147     if( !col )
148         r = ERROR_SUCCESS;
149
150 err:
151     if (rec)
152         msiobj_release( &rec->hdr );
153     /* FIXME: remove values from the string table on error */
154     if( tv )
155         tv->ops->delete( tv );
156     return r;
157 }
158
159 static UINT CREATE_close( struct tagMSIVIEW *view )
160 {
161     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
162
163     TRACE("%p\n", cv);
164
165     return ERROR_SUCCESS;
166 }
167
168 static UINT CREATE_get_dimensions( struct tagMSIVIEW *view, UINT *rows, UINT *cols )
169 {
170     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
171
172     TRACE("%p %p %p\n", cv, rows, cols );
173
174     return ERROR_FUNCTION_FAILED;
175 }
176
177 static UINT CREATE_get_column_info( struct tagMSIVIEW *view,
178                 UINT n, LPWSTR *name, UINT *type )
179 {
180     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
181
182     TRACE("%p %d %p %p\n", cv, n, name, type );
183
184     return ERROR_FUNCTION_FAILED;
185 }
186
187 static UINT CREATE_modify( struct tagMSIVIEW *view, MSIMODIFY eModifyMode,
188                 MSIRECORD *rec)
189 {
190     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
191
192     TRACE("%p %d %p\n", cv, eModifyMode, rec );
193
194     return ERROR_FUNCTION_FAILED;
195 }
196
197 static UINT CREATE_delete( struct tagMSIVIEW *view )
198 {
199     MSICREATEVIEW *cv = (MSICREATEVIEW*)view;
200
201     TRACE("%p\n", cv );
202
203     msiobj_release( &cv->db->hdr );
204     msi_free( cv );
205
206     return ERROR_SUCCESS;
207 }
208
209
210 MSIVIEWOPS create_ops =
211 {
212     CREATE_fetch_int,
213     NULL,
214     NULL,
215     NULL,
216     CREATE_execute,
217     CREATE_close,
218     CREATE_get_dimensions,
219     CREATE_get_column_info,
220     CREATE_modify,
221     CREATE_delete
222 };
223
224 UINT CREATE_CreateView( MSIDATABASE *db, MSIVIEW **view, LPWSTR table,
225                         column_info *col_info, BOOL temp )
226 {
227     MSICREATEVIEW *cv = NULL;
228
229     TRACE("%p\n", cv );
230
231     cv = msi_alloc_zero( sizeof *cv );
232     if( !cv )
233         return ERROR_FUNCTION_FAILED;
234     
235     /* fill the structure */
236     cv->view.ops = &create_ops;
237     msiobj_addref( &db->hdr );
238     cv->db = db;
239     cv->name = table;
240     cv->col_info = col_info;
241     cv->bIsTemp = temp;
242     *view = (MSIVIEW*) cv;
243
244     return ERROR_SUCCESS;
245 }