Rename interpretor to interpreter.
[Faustine.git] / interpreter / lib / src / libsndfile-1.0.25 / src / windows.c
1 /*
2 ** Copyright (C) 2009-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
3 **
4 ** This program is free software; you can redistribute it and/or modify
5 ** it under the terms of the GNU Lesser General Public License as published by
6 ** the Free Software Foundation; either version 2.1 of the License, or
7 ** (at your option) any later version.
8 **
9 ** This program is distributed in the hope that it will be useful,
10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ** GNU Lesser General Public License for more details.
13 **
14 ** You should have received a copy of the GNU Lesser General Public License
15 ** along with this program; if not, write to the Free Software
16 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 */
18
19 /*
20 ** This needs to be a separate file so that we don't have to include
21 ** <windows.h> elsewhere (too many symbol clashes).
22 */
23
24
25 #include "sfconfig.h"
26
27 #if OS_IS_WIN32
28 #include <windows.h>
29
30 #define ENABLE_SNDFILE_WINDOWS_PROTOTYPES 1
31 #include "sndfile.h"
32 #include "common.h"
33
34 extern int sf_errno ;
35
36 static void copy_filename (SF_PRIVATE * psf, LPCWSTR wpath) ;
37
38 SNDFILE*
39 sf_wchar_open (LPCWSTR wpath, int mode, SF_INFO *sfinfo)
40 { SF_PRIVATE *psf ;
41 char utf8name [512] ;
42
43 if ((psf = calloc (1, sizeof (SF_PRIVATE))) == NULL)
44 { sf_errno = SFE_MALLOC_FAILED ;
45 return NULL ;
46 } ;
47
48 memset (psf, 0, sizeof (SF_PRIVATE)) ;
49 psf_init_files (psf) ;
50
51 if (WideCharToMultiByte (CP_UTF8, 0, wpath, -1, utf8name, sizeof (utf8name), NULL, NULL) == 0)
52 psf->file.path.wc [0] = 0 ;
53
54 psf_log_printf (psf, "File : '%s' (utf-8 converted from ucs-2)\n", utf8name) ;
55
56 copy_filename (psf, wpath) ;
57 psf->file.use_wchar = SF_TRUE ;
58 psf->file.mode = mode ;
59
60 psf->error = psf_fopen (psf) ;
61
62 return psf_open_file (psf, sfinfo) ;
63 } /* sf_wchar_open */
64
65
66 static void
67 copy_filename (SF_PRIVATE *psf, LPCWSTR wpath)
68 { const wchar_t *cwcptr ;
69 wchar_t *wcptr ;
70
71 wcsncpy (psf->file.path.wc, wpath, ARRAY_LEN (psf->file.path.wc)) ;
72 psf->file.path.wc [ARRAY_LEN (psf->file.path.wc) - 1] = 0 ;
73 if ((cwcptr = wcsrchr (wpath, '/')) || (cwcptr = wcsrchr (wpath, '\\')))
74 cwcptr ++ ;
75 else
76 cwcptr = wpath ;
77
78 wcsncpy (psf->file.name.wc, cwcptr, ARRAY_LEN (psf->file.name.wc)) ;
79 psf->file.name.wc [ARRAY_LEN (psf->file.name.wc) - 1] = 0 ;
80
81 /* Now grab the directory. */
82 wcsncpy (psf->file.dir.wc, wpath, ARRAY_LEN (psf->file.dir.wc)) ;
83 psf->file.dir.wc [ARRAY_LEN (psf->file.dir.wc) - 1] = 0 ;
84
85 if ((wcptr = wcsrchr (psf->file.dir.wc, '/')) || (wcptr = wcsrchr (psf->file.dir.wc, '\\')))
86 wcptr [1] = 0 ;
87 else
88 psf->file.dir.wc [0] = 0 ;
89
90 return ;
91 } /* copy_filename */
92
93 #endif