4 * Copyright 1993 Yngvi Sigurjonsson
5 * Copyright 1996 Alexandre Julliard
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 #include "wine/winbase16.h"
28 #include "wine/exception.h"
29 #include "wine/unicode.h"
33 #include "wine/debug.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(string);
37 /* filter for page-fault exceptions */
38 static WINE_EXCEPTION_FILTER(page_fault)
40 if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION)
41 return EXCEPTION_EXECUTE_HANDLER;
42 return EXCEPTION_CONTINUE_SEARCH;
46 /***********************************************************************
47 * hmemcpy (KERNEL.348)
49 void WINAPI hmemcpy16( LPVOID dst, LPCVOID src, LONG count )
51 memcpy( dst, src, count );
55 /***********************************************************************
58 SEGPTR WINAPI lstrcat16( SEGPTR dst, LPCSTR src )
60 /* Windows does not check for NULL pointers here, so we don't either */
61 strcat( MapSL(dst), src );
66 /***********************************************************************
67 * lstrcat (KERNEL32.@)
68 * lstrcatA (KERNEL32.@)
70 LPSTR WINAPI lstrcatA( LPSTR dst, LPCSTR src )
78 SetLastError( ERROR_INVALID_PARAMETER );
86 /***********************************************************************
87 * lstrcatW (KERNEL32.@)
89 LPWSTR WINAPI lstrcatW( LPWSTR dst, LPCWSTR src )
97 SetLastError( ERROR_INVALID_PARAMETER );
105 /***********************************************************************
106 * lstrcatn (KERNEL.352)
108 SEGPTR WINAPI lstrcatn16( SEGPTR dst, LPCSTR src, INT16 n )
110 LPSTR p = MapSL(dst);
114 if ((n -= (p - start)) <= 0) return dst;
115 lstrcpynA( p, src, n );
120 /***********************************************************************
121 * lstrcpy (KERNEL.88)
123 SEGPTR WINAPI lstrcpy16( SEGPTR dst, LPCSTR src )
125 if (!lstrcpyA( MapSL(dst), src )) dst = 0;
130 /***********************************************************************
131 * lstrcpy (KERNEL32.@)
132 * lstrcpyA (KERNEL32.@)
134 LPSTR WINAPI lstrcpyA( LPSTR dst, LPCSTR src )
138 /* this is how Windows does it */
139 memmove( dst, src, strlen(src)+1 );
143 ERR("(%p, %p): page fault occurred ! Caused by bug ?\n", dst, src);
144 SetLastError( ERROR_INVALID_PARAMETER );
152 /***********************************************************************
153 * lstrcpyW (KERNEL32.@)
155 LPWSTR WINAPI lstrcpyW( LPWSTR dst, LPCWSTR src )
163 SetLastError( ERROR_INVALID_PARAMETER );
171 /***********************************************************************
172 * lstrcpyn (KERNEL.353)
174 SEGPTR WINAPI lstrcpyn16( SEGPTR dst, LPCSTR src, INT16 n )
176 lstrcpynA( MapSL(dst), src, n );
181 /***********************************************************************
182 * lstrcpyn (KERNEL32.@)
183 * lstrcpynA (KERNEL32.@)
185 * Note: this function differs from the UNIX strncpy, it _always_ writes
188 * Note: n is an INT but Windows treats it as unsigned, and will happily
189 * copy a gazillion chars if n is negative.
191 LPSTR WINAPI lstrcpynA( LPSTR dst, LPCSTR src, INT n )
196 TRACE("(%p, %s, %i)\n", dst, debugstr_a(src), n);
198 /* In real windows the whole function is protected by an exception handler
199 * that returns ERROR_INVALID_PARAMETER on faulty parameters
200 * We currently just check for NULL.
203 SetLastError(ERROR_INVALID_PARAMETER);
206 while ((count > 1) && *src)
216 /***********************************************************************
217 * lstrcpynW (KERNEL32.@)
219 * Note: this function differs from the UNIX strncpy, it _always_ writes
222 * Note: n is an INT but Windows treats it as unsigned, and will happily
223 * copy a gazillion chars if n is negative.
225 LPWSTR WINAPI lstrcpynW( LPWSTR dst, LPCWSTR src, INT n )
230 TRACE("(%p, %s, %i)\n", dst, debugstr_w(src), n);
232 /* In real windows the whole function is protected by an exception handler
233 * that returns ERROR_INVALID_PARAMETER on faulty parameters
234 * We currently just check for NULL.
237 SetLastError(ERROR_INVALID_PARAMETER);
240 while ((count > 1) && *src)
250 /***********************************************************************
251 * lstrlen (KERNEL.90)
253 INT16 WINAPI lstrlen16( LPCSTR str )
255 return (INT16)lstrlenA( str );
259 /***********************************************************************
260 * lstrlen (KERNEL32.@)
261 * lstrlenA (KERNEL32.@)
263 INT WINAPI lstrlenA( LPCSTR str )
272 SetLastError( ERROR_INVALID_PARAMETER );
280 /***********************************************************************
281 * lstrlenW (KERNEL32.@)
283 INT WINAPI lstrlenW( LPCWSTR str )
292 SetLastError( ERROR_INVALID_PARAMETER );
300 /***********************************************************************
301 * UnicodeToAnsi (KERNEL.434)
303 INT16 WINAPI UnicodeToAnsi16( LPCWSTR src, LPSTR dst, INT16 codepage )
305 if ( codepage == -1 )
308 return WideCharToMultiByte( codepage, 0, src, -1, dst, 0x7fffffff, NULL, NULL );