comdlg32/tests: Don't test function directly when reporting GetLastError().
[wine] / dlls / kernel32 / oldconfig.c
1 /*
2  * Support for converting from old configuration format
3  *
4  * Copyright 2005 Alexandre Julliard
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  * NOTES
21  *   This file should be removed after a suitable transition period.
22  */
23
24 #include "config.h"
25 #include "wine/port.h"
26
27 #include <stdarg.h>
28 #include <sys/types.h>
29 #include <stdlib.h>
30 #include <stdio.h>
31 #ifdef HAVE_SYS_STAT_H
32 # include <sys/stat.h>
33 #endif
34 #include <fcntl.h>
35 #ifdef HAVE_DIRENT_H
36 # include <dirent.h>
37 #endif
38 #ifdef HAVE_SYS_IOCTL_H
39 #include <sys/ioctl.h>
40 #endif
41 #ifdef HAVE_LINUX_HDREG_H
42 # include <linux/hdreg.h>
43 #endif
44
45 #define NONAMELESSUNION
46 #define NONAMELESSSTRUCT
47 #include "windef.h"
48 #include "winbase.h"
49 #include "winternl.h"
50 #include "ntddscsi.h"
51 #include "wine/library.h"
52 #include "wine/unicode.h"
53 #include "wine/debug.h"
54 #include "kernel_private.h"
55
56 WINE_DEFAULT_DEBUG_CHANNEL(reg);
57
58 static NTSTATUS create_key( HANDLE root, const char *name, HANDLE *key, DWORD *disp )
59 {
60     OBJECT_ATTRIBUTES attr;
61     UNICODE_STRING nameW;
62     NTSTATUS status;
63
64     attr.Length = sizeof(attr);
65     attr.RootDirectory = root;
66     attr.ObjectName = &nameW;
67     attr.Attributes = 0;
68     attr.SecurityDescriptor = NULL;
69     attr.SecurityQualityOfService = NULL;
70
71     if (!RtlCreateUnicodeStringFromAsciiz( &nameW, name )) return STATUS_NO_MEMORY;
72     status = NtCreateKey( key, KEY_ALL_ACCESS, &attr, 0, NULL, REG_OPTION_VOLATILE, disp );
73     if (status) ERR("Cannot create %s registry key\n", name );
74     RtlFreeUnicodeString( &nameW );
75     return status;
76 }
77
78 /******************************************************************
79  *              create_scsi_entry
80  *
81  * Initializes registry to contain scsi info about the cdrom in NT.
82  * All devices (even not real scsi ones) have this info in NT.
83  * NOTE: programs usually read these registry entries after sending the
84  *       IOCTL_SCSI_GET_ADDRESS ioctl to the cdrom
85  */
86 static void create_scsi_entry( PSCSI_ADDRESS scsi_addr, LPCSTR lpDriver, UINT uDriveType,
87     LPSTR lpDriveName, LPSTR lpUnixDeviceName )
88 {
89     static UCHAR uCdromNumber = 0;
90     static UCHAR uTapeNumber = 0;
91
92     UNICODE_STRING nameW;
93     WCHAR dataW[50];
94     DWORD sizeW;
95     char buffer[40];
96     DWORD value;
97     const char *data;
98     HANDLE scsiKey;
99     HANDLE portKey;
100     HANDLE busKey;
101     HANDLE targetKey;
102     HANDLE lunKey;
103     DWORD disp;
104
105     if (create_key( 0, "Machine\\HARDWARE\\DEVICEMAP", &scsiKey, &disp )) return;
106     NtClose( scsiKey );
107
108     /* Ensure there is Scsi key */
109     if (create_key( 0, "Machine\\HARDWARE\\DEVICEMAP\\Scsi", &scsiKey, &disp )) return;
110
111     snprintf(buffer,sizeof(buffer),"Scsi Port %d",scsi_addr->PortNumber);
112     if (create_key( scsiKey, buffer, &portKey, &disp )) return;
113
114     RtlCreateUnicodeStringFromAsciiz( &nameW, "Driver" );
115     RtlMultiByteToUnicodeN( dataW, sizeof(dataW), &sizeW, lpDriver, strlen(lpDriver)+1);
116     NtSetValueKey( portKey, &nameW, 0, REG_SZ, dataW, sizeW );
117     RtlFreeUnicodeString( &nameW );
118     value = 10;
119     RtlCreateUnicodeStringFromAsciiz( &nameW, "FirstBusTimeScanInMs" );
120     NtSetValueKey( portKey,&nameW, 0, REG_DWORD, &value, sizeof(DWORD) );
121     RtlFreeUnicodeString( &nameW );
122
123     value = 0;
124     if (strcmp(lpDriver, "atapi") == 0)
125     {
126 #ifdef HDIO_GET_DMA
127         int fd, dma;
128         
129         fd = open(lpUnixDeviceName, O_RDONLY|O_NONBLOCK);
130         if (fd != -1)
131         {
132             if (ioctl(fd, HDIO_GET_DMA, &dma) != -1) value = dma;
133             close(fd);
134         }
135 #endif
136         RtlCreateUnicodeStringFromAsciiz( &nameW, "DMAEnabled" );
137         NtSetValueKey( portKey,&nameW, 0, REG_DWORD, &value, sizeof(DWORD) );
138         RtlFreeUnicodeString( &nameW );
139     }
140
141     snprintf(buffer, sizeof(buffer),"Scsi Bus %d", scsi_addr->PathId);
142     if (create_key( portKey, buffer, &busKey, &disp )) return;
143
144     /* FIXME: get real controller Id for SCSI */
145     if (create_key( busKey, buffer, &targetKey, &disp )) return;
146     NtClose( targetKey );
147
148     snprintf(buffer, sizeof(buffer),"Target Id %d", scsi_addr->TargetId);
149     if (create_key( busKey, buffer, &targetKey, &disp )) return;
150
151     snprintf(buffer, sizeof(buffer),"Logical Unit Id %d", scsi_addr->Lun);
152     if (create_key( targetKey, buffer, &lunKey, &disp )) return;
153
154     switch (uDriveType)
155     {
156         case DRIVE_NO_ROOT_DIR:
157         default:
158             data = "OtherPeripheral"; break;
159         case DRIVE_FIXED:
160             data = "DiskPeripheral"; break;
161         case DRIVE_REMOVABLE:
162             data = "TapePeripheral";
163             snprintf(buffer, sizeof(buffer), "Tape%d", uTapeNumber++);
164             break;
165         case DRIVE_CDROM:
166             data = "CdRomPeripheral";
167             snprintf(buffer, sizeof(buffer), "Cdrom%d", uCdromNumber++);
168             break;
169     }
170     RtlCreateUnicodeStringFromAsciiz( &nameW, "Type" );
171     RtlMultiByteToUnicodeN( dataW, sizeof(dataW), &sizeW, data, strlen(data)+1);
172     NtSetValueKey( lunKey, &nameW, 0, REG_SZ, dataW, sizeW );
173     RtlFreeUnicodeString( &nameW );
174
175     RtlCreateUnicodeStringFromAsciiz( &nameW, "Identifier" );
176     RtlMultiByteToUnicodeN( dataW, sizeof(dataW), &sizeW, lpDriveName, strlen(lpDriveName)+1);
177     NtSetValueKey( lunKey, &nameW, 0, REG_SZ, dataW, sizeW );
178     RtlFreeUnicodeString( &nameW );
179
180     if (uDriveType == DRIVE_CDROM || uDriveType == DRIVE_REMOVABLE)
181     {
182         RtlCreateUnicodeStringFromAsciiz( &nameW, "DeviceName" );
183         RtlMultiByteToUnicodeN( dataW, sizeof(dataW), &sizeW, buffer, strlen(buffer)+1);
184         NtSetValueKey( lunKey, &nameW, 0, REG_SZ, dataW, sizeW );
185         RtlFreeUnicodeString( &nameW );
186     }
187
188     RtlCreateUnicodeStringFromAsciiz( &nameW, "UnixDeviceName" );
189     RtlMultiByteToUnicodeN( dataW, sizeof(dataW), &sizeW, lpUnixDeviceName, strlen(lpUnixDeviceName)+1);
190     NtSetValueKey( lunKey, &nameW, 0, REG_SZ, dataW, sizeW );
191     RtlFreeUnicodeString( &nameW );
192
193     NtClose( lunKey );
194     NtClose( targetKey );
195     NtClose( busKey );
196     NtClose( portKey );
197     NtClose( scsiKey );
198 }
199
200 struct LinuxProcScsiDevice
201 {
202     int host;
203     int channel;
204     int target;
205     int lun;
206     char vendor[9];
207     char model[17];
208     char rev[5];
209     char type[33];
210     int ansirev;
211 };
212
213 /*
214  * we need to declare white spaces explicitly via %*1[ ],
215  * as there are very dainbread CD-ROM devices out there
216  * which have their manufacturer name blanked out via spaces,
217  * which confuses fscanf's parsing (skips all blank spaces)
218  */
219 static int SCSI_getprocentry( FILE * procfile, struct LinuxProcScsiDevice * dev )
220 {
221     int result;
222
223     result = fscanf( procfile,
224         "Host:%*1[ ]scsi%d%*1[ ]Channel:%*1[ ]%d%*1[ ]Id:%*1[ ]%d%*1[ ]Lun:%*1[ ]%d\n",
225         &dev->host,
226         &dev->channel,
227         &dev->target,
228         &dev->lun );
229     if( result == EOF )
230     {
231         /* "end of entries" return, so no TRACE() here */
232         return EOF;
233     }
234     if( result != 4 )
235     {
236         ERR("bus id line scan count error (fscanf returns %d, expected 4)\n", result);
237         return 0;
238     }
239     result = fscanf( procfile,
240         "  Vendor:%*1[ ]%8c%*1[ ]Model:%*1[ ]%16c%*1[ ]Rev:%*1[ ]%4c\n",
241         dev->vendor,
242         dev->model,
243         dev->rev );
244     if( result != 3 )
245     {
246         ERR("model line scan count error (fscanf returns %d, expected 3)\n", result);
247         return 0;
248     }
249
250     result = fscanf( procfile,
251         "  Type:%*3[ ]%32c%*1[ ]ANSI SCSI%*1[ ]revision:%*1[ ]%x\n",
252         dev->type,
253         &dev->ansirev );
254     if( result != 2 )
255     {
256         ERR("SCSI type line scan count error (fscanf returns %d, expected 2)\n", result);
257         return 0;
258     }
259     /* Since we fscanf with %XXc instead of %s.. put a NULL at end */
260     dev->vendor[8] = 0;
261     dev->model[16] = 0;
262     dev->rev[4] = 0;
263     dev->type[32] = 0;
264
265     return 1;
266 }
267
268
269 /* create the hardware registry branch */
270 static void create_hardware_branch(void)
271 {
272     /* The following mostly will work on Linux, but should not cause
273      * problems on other systems. */
274     static const char procname_ide_media[] = "/proc/ide/%s/media";
275     static const char procname_ide_model[] = "/proc/ide/%s/model";
276     static const char procname_scsi[] = "/proc/scsi/scsi";
277     DIR *idedir;
278     struct dirent *dent = NULL;
279     FILE *procfile = NULL;
280     char cStr[40], cDevModel[40], cUnixDeviceName[40], read1[10] = "\0", read2[10] = "\0";
281     SCSI_ADDRESS scsi_addr;
282     UINT nType;
283     struct LinuxProcScsiDevice dev;
284     int result = 0, nSgNumber = 0;
285     UCHAR uFirstSCSIPort = 0;
286
287     /* Enumerate all ide devices first */
288     idedir = opendir("/proc/ide");
289     if (idedir)
290     {
291         while ((dent = readdir(idedir)))
292         {
293             if (strncmp(dent->d_name, "hd", 2) == 0)
294             {
295                 sprintf(cStr, procname_ide_media, dent->d_name);
296                 procfile = fopen(cStr, "r");
297                 if (!procfile)
298                 {
299                     ERR("Could not open %s\n", cStr);
300                     continue;
301                 } else {
302                     fgets(cStr, sizeof(cStr), procfile);
303                     fclose(procfile);
304                     nType = DRIVE_UNKNOWN;
305                     if (strncasecmp(cStr, "disk", 4)  == 0) nType = DRIVE_FIXED;
306                     if (strncasecmp(cStr, "cdrom", 5) == 0) nType = DRIVE_CDROM;
307
308                     if (nType == DRIVE_UNKNOWN) continue;
309                 }
310
311                 sprintf(cStr, procname_ide_model, dent->d_name);
312                 procfile = fopen(cStr, "r");
313                 if (!procfile)
314                 {
315                     ERR("Could not open %s\n", cStr);
316                     switch (nType)
317                     {
318                     case DRIVE_FIXED: strcpy(cDevModel, "Wine harddisk"); break;
319                     case DRIVE_CDROM: strcpy(cDevModel, "Wine CDROM"); break;
320                     }
321                 } else {
322                     fgets(cDevModel, sizeof(cDevModel), procfile);
323                     fclose(procfile);
324                     cDevModel[strlen(cDevModel) - 1] = 0;
325                 }
326
327                 sprintf(cUnixDeviceName, "/dev/%s", dent->d_name);
328                 scsi_addr.PortNumber = (dent->d_name[2] - 'a') / 2;
329                 scsi_addr.PathId = 0;
330                 scsi_addr.TargetId = (dent->d_name[2] - 'a') % 2;
331                 scsi_addr.Lun = 0;
332                 if (scsi_addr.PortNumber + 1 > uFirstSCSIPort)
333                     uFirstSCSIPort = scsi_addr.PortNumber + 1;
334
335                 create_scsi_entry(&scsi_addr, "atapi", nType, cDevModel, cUnixDeviceName);
336             }
337         }
338         closedir(idedir);
339     }
340
341     /* Now goes SCSI */
342     procfile = fopen(procname_scsi, "r");
343     if (!procfile)
344     {
345         TRACE("Could not open %s\n", procname_scsi);
346         return;
347     }
348     fgets(cStr, 40, procfile);
349     sscanf(cStr, "Attached %9s %9s", read1, read2);
350
351     if (strcmp(read1, "devices:") != 0)
352     {
353         WARN("Incorrect %s format\n", procname_scsi);
354         fclose( procfile );
355         return;
356     }
357     if (strcmp(read2, "none") == 0)
358     {
359         TRACE("No SCSI devices found in %s.\n", procname_scsi);
360         fclose( procfile );
361         return;
362     }
363
364     /* Read info for one device */
365     while ((result = SCSI_getprocentry(procfile, &dev)) > 0)
366     {
367         scsi_addr.PortNumber = dev.host;
368         scsi_addr.PathId = dev.channel;
369         scsi_addr.TargetId = dev.target;
370         scsi_addr.Lun = dev.lun;
371
372         scsi_addr.PortNumber += uFirstSCSIPort;
373         if (strncmp(dev.type, "Direct-Access", 13) == 0) nType = DRIVE_FIXED;
374         else if (strncmp(dev.type, "Sequential-Access", 17) == 0) nType = DRIVE_REMOVABLE;
375         else if (strncmp(dev.type, "CD-ROM", 6) == 0) nType = DRIVE_CDROM;
376         else if (strncmp(dev.type, "Processor", 9) == 0) nType = DRIVE_NO_ROOT_DIR;
377         else continue;
378
379         strcpy(cDevModel, dev.vendor);
380         strcat(cDevModel, dev.model);
381         strcat(cDevModel, dev.rev);
382         sprintf(cUnixDeviceName, "/dev/sg%d", nSgNumber++);
383         /* FIXME: get real driver name */
384         create_scsi_entry(&scsi_addr, "WINE SCSI", nType, cDevModel, cUnixDeviceName);
385     }
386     if( result != EOF )
387         WARN("Incorrect %s format\n", procname_scsi);
388     fclose( procfile );
389 }
390
391
392 /***********************************************************************
393  *              convert_old_config
394  */
395 void convert_old_config(void)
396 {
397     HANDLE key;
398     DWORD disp;
399
400     /* create some hardware keys (FIXME: should not be done here) */
401     if (create_key( 0, "Machine\\HARDWARE", &key, &disp )) return;
402     NtClose( key );
403     if (disp != REG_OPENED_EXISTING_KEY) create_hardware_branch();
404 }