mirror of
https://github.com/reactos/reactos.git
synced 2024-09-19 17:21:14 +00:00
395 lines
8.8 KiB
C
395 lines
8.8 KiB
C
/*
|
|
* Notepad (text.c)
|
|
*
|
|
* Copyright 1998,99 Marcel Baur <mbaur@g26.ethz.ch>
|
|
* Copyright 2002 Sylvain Petreolle <spetreolle@yahoo.fr>
|
|
* Copyright 2002 Andriy Palamarchuk
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#include <notepad.h>
|
|
|
|
static BOOL Append(LPWSTR *ppszText, DWORD *pdwTextLen, LPCWSTR pszAppendText, DWORD dwAppendLen)
|
|
{
|
|
LPWSTR pszNewText;
|
|
|
|
if (dwAppendLen > 0)
|
|
{
|
|
if (*ppszText)
|
|
{
|
|
pszNewText = (LPWSTR) HeapReAlloc(GetProcessHeap(), 0, *ppszText, (*pdwTextLen + dwAppendLen) * sizeof(WCHAR));
|
|
}
|
|
else
|
|
{
|
|
pszNewText = (LPWSTR) HeapAlloc(GetProcessHeap(), 0, dwAppendLen * sizeof(WCHAR));
|
|
}
|
|
|
|
if (!pszNewText)
|
|
return FALSE;
|
|
|
|
memcpy(pszNewText + *pdwTextLen, pszAppendText, dwAppendLen * sizeof(WCHAR));
|
|
*ppszText = pszNewText;
|
|
*pdwTextLen += dwAppendLen;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL ReadText(HANDLE hFile, LPWSTR *ppszText, DWORD *pdwTextLen, int *piEncoding, int *piEoln)
|
|
{
|
|
DWORD dwSize;
|
|
LPBYTE pBytes = NULL;
|
|
LPCWSTR pszText;
|
|
LPWSTR pszAllocText = NULL;
|
|
DWORD dwPos, i;
|
|
DWORD dwCharCount;
|
|
BOOL bSuccess = FALSE;
|
|
BYTE b = 0;
|
|
int iEncoding = ENCODING_ANSI;
|
|
int iCodePage;
|
|
WCHAR szCrlf[2] = { '\r', '\n' };
|
|
DWORD adwEolnCount[3] = { 0, 0, 0 };
|
|
|
|
*ppszText = NULL;
|
|
*pdwTextLen = 0;
|
|
|
|
dwSize = GetFileSize(hFile, NULL);
|
|
if (dwSize == INVALID_FILE_SIZE)
|
|
goto done;
|
|
|
|
pBytes = HeapAlloc(GetProcessHeap(), 0, dwSize + 2);
|
|
if (!pBytes)
|
|
goto done;
|
|
|
|
if (!ReadFile(hFile, pBytes, dwSize, &dwSize, NULL))
|
|
goto done;
|
|
dwPos = 0;
|
|
|
|
/* Make sure that there is a NUL character at the end, in any encoding */
|
|
pBytes[dwSize + 0] = '\0';
|
|
pBytes[dwSize + 1] = '\0';
|
|
|
|
/* Look for Byte Order Marks */
|
|
if ((dwSize >= 2) && (pBytes[0] == 0xFF) && (pBytes[1] == 0xFE))
|
|
{
|
|
iEncoding = ENCODING_UNICODE;
|
|
dwPos += 2;
|
|
}
|
|
else if ((dwSize >= 2) && (pBytes[0] == 0xFE) && (pBytes[1] == 0xFF))
|
|
{
|
|
iEncoding = ENCODING_UNICODE_BE;
|
|
dwPos += 2;
|
|
}
|
|
else if ((dwSize >= 3) && (pBytes[0] == 0xEF) && (pBytes[1] == 0xBB) && (pBytes[2] == 0xBF))
|
|
{
|
|
iEncoding = ENCODING_UTF8;
|
|
dwPos += 3;
|
|
}
|
|
|
|
switch(iEncoding)
|
|
{
|
|
case ENCODING_UNICODE_BE:
|
|
for (i = dwPos; i < dwSize-1; i += 2)
|
|
{
|
|
b = pBytes[i+0];
|
|
pBytes[i+0] = pBytes[i+1];
|
|
pBytes[i+1] = b;
|
|
}
|
|
/* fall through */
|
|
|
|
case ENCODING_UNICODE:
|
|
pszText = (LPCWSTR) &pBytes[dwPos];
|
|
dwCharCount = (dwSize - dwPos) / sizeof(WCHAR);
|
|
break;
|
|
|
|
case ENCODING_ANSI:
|
|
case ENCODING_UTF8:
|
|
if (iEncoding == ENCODING_ANSI)
|
|
iCodePage = CP_ACP;
|
|
else if (iEncoding == ENCODING_UTF8)
|
|
iCodePage = CP_UTF8;
|
|
else
|
|
goto done;
|
|
|
|
if ((dwSize - dwPos) > 0)
|
|
{
|
|
dwCharCount = MultiByteToWideChar(iCodePage, 0, (LPCSTR)&pBytes[dwPos], dwSize - dwPos, NULL, 0);
|
|
if (dwCharCount == 0)
|
|
goto done;
|
|
}
|
|
else
|
|
{
|
|
/* special case for files with no characters (other than BOMs) */
|
|
dwCharCount = 0;
|
|
}
|
|
|
|
pszAllocText = (LPWSTR) HeapAlloc(GetProcessHeap(), 0, (dwCharCount + 1) * sizeof(WCHAR));
|
|
if (!pszAllocText)
|
|
goto done;
|
|
|
|
if ((dwSize - dwPos) > 0)
|
|
{
|
|
if (!MultiByteToWideChar(iCodePage, 0, (LPCSTR)&pBytes[dwPos], dwSize - dwPos, pszAllocText, dwCharCount))
|
|
goto done;
|
|
}
|
|
|
|
pszAllocText[dwCharCount] = '\0';
|
|
pszText = pszAllocText;
|
|
break;
|
|
}
|
|
|
|
dwPos = 0;
|
|
for (i = 0; i < dwCharCount; i++)
|
|
{
|
|
switch(pszText[i])
|
|
{
|
|
case '\r':
|
|
if ((i < dwCharCount-1) && (pszText[i+1] == '\n'))
|
|
{
|
|
i++;
|
|
adwEolnCount[EOLN_CRLF]++;
|
|
break;
|
|
}
|
|
/* fall through */
|
|
|
|
case '\n':
|
|
if (!Append(ppszText, pdwTextLen, &pszText[dwPos], i - dwPos))
|
|
return FALSE;
|
|
if (!Append(ppszText, pdwTextLen, szCrlf, sizeof(szCrlf) / sizeof(szCrlf[0])))
|
|
return FALSE;
|
|
dwPos = i + 1;
|
|
|
|
if (pszText[i] == '\r')
|
|
adwEolnCount[EOLN_CR]++;
|
|
else
|
|
adwEolnCount[EOLN_LF]++;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!*ppszText && (pszText == pszAllocText))
|
|
{
|
|
/* special case; don't need to reallocate */
|
|
*ppszText = pszAllocText;
|
|
*pdwTextLen = dwCharCount;
|
|
pszAllocText = NULL;
|
|
}
|
|
else
|
|
{
|
|
/* append last remaining text */
|
|
if (!Append(ppszText, pdwTextLen, &pszText[dwPos], i - dwPos + 1))
|
|
return FALSE;
|
|
}
|
|
|
|
/* chose which eoln to use */
|
|
*piEoln = EOLN_CRLF;
|
|
if (adwEolnCount[EOLN_LF] > adwEolnCount[*piEoln])
|
|
*piEoln = EOLN_LF;
|
|
if (adwEolnCount[EOLN_CR] > adwEolnCount[*piEoln])
|
|
*piEoln = EOLN_CR;
|
|
*piEncoding = iEncoding;
|
|
|
|
bSuccess = TRUE;
|
|
|
|
done:
|
|
if (pBytes)
|
|
HeapFree(GetProcessHeap(), 0, pBytes);
|
|
if (pszAllocText)
|
|
HeapFree(GetProcessHeap(), 0, pszAllocText);
|
|
|
|
if (!bSuccess && *ppszText)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, *ppszText);
|
|
*ppszText = NULL;
|
|
*pdwTextLen = 0;
|
|
}
|
|
return bSuccess;
|
|
}
|
|
|
|
static BOOL WriteEncodedText(HANDLE hFile, LPCWSTR pszText, DWORD dwTextLen, int iEncoding)
|
|
{
|
|
LPBYTE pBytes = NULL;
|
|
LPBYTE pAllocBuffer = NULL;
|
|
DWORD dwPos = 0;
|
|
DWORD dwByteCount;
|
|
BYTE buffer[1024];
|
|
UINT iCodePage;
|
|
DWORD dwDummy, i;
|
|
BOOL bSuccess = FALSE;
|
|
int iBufferSize, iRequiredBytes;
|
|
BYTE b;
|
|
|
|
while(dwPos < dwTextLen)
|
|
{
|
|
switch(iEncoding)
|
|
{
|
|
case ENCODING_UNICODE:
|
|
pBytes = (LPBYTE) &pszText[dwPos];
|
|
dwByteCount = (dwTextLen - dwPos) * sizeof(WCHAR);
|
|
dwPos = dwTextLen;
|
|
break;
|
|
|
|
case ENCODING_UNICODE_BE:
|
|
dwByteCount = (dwTextLen - dwPos) * sizeof(WCHAR);
|
|
if (dwByteCount > sizeof(buffer))
|
|
dwByteCount = sizeof(buffer);
|
|
|
|
memcpy(buffer, &pszText[dwPos], dwByteCount);
|
|
for (i = 0; i < dwByteCount; i += 2)
|
|
{
|
|
b = buffer[i+0];
|
|
buffer[i+0] = buffer[i+1];
|
|
buffer[i+1] = b;
|
|
}
|
|
pBytes = (LPBYTE) &buffer[dwPos];
|
|
dwPos += dwByteCount / sizeof(WCHAR);
|
|
break;
|
|
|
|
case ENCODING_ANSI:
|
|
case ENCODING_UTF8:
|
|
if (iEncoding == ENCODING_ANSI)
|
|
iCodePage = CP_ACP;
|
|
else if (iEncoding == ENCODING_UTF8)
|
|
iCodePage = CP_UTF8;
|
|
else
|
|
goto done;
|
|
|
|
iRequiredBytes = WideCharToMultiByte(iCodePage, 0, &pszText[dwPos], dwTextLen - dwPos, NULL, 0, NULL, NULL);
|
|
if (iRequiredBytes <= 0)
|
|
{
|
|
goto done;
|
|
}
|
|
else if (iRequiredBytes < sizeof(buffer))
|
|
{
|
|
pBytes = buffer;
|
|
iBufferSize = sizeof(buffer);
|
|
}
|
|
else
|
|
{
|
|
pAllocBuffer = (LPBYTE) HeapAlloc(GetProcessHeap(), 0, iRequiredBytes);
|
|
if (!pAllocBuffer)
|
|
return FALSE;
|
|
pBytes = pAllocBuffer;
|
|
iBufferSize = iRequiredBytes;
|
|
}
|
|
|
|
dwByteCount = WideCharToMultiByte(iCodePage, 0, &pszText[dwPos], dwTextLen - dwPos, (LPSTR) pBytes, iBufferSize, NULL, NULL);
|
|
if (!dwByteCount)
|
|
goto done;
|
|
|
|
dwPos = dwTextLen;
|
|
break;
|
|
|
|
default:
|
|
goto done;
|
|
}
|
|
|
|
if (!WriteFile(hFile, pBytes, dwByteCount, &dwDummy, NULL))
|
|
goto done;
|
|
|
|
/* free the buffer, if we have allocated one */
|
|
if (pAllocBuffer)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, pAllocBuffer);
|
|
pAllocBuffer = NULL;
|
|
}
|
|
}
|
|
bSuccess = TRUE;
|
|
|
|
done:
|
|
if (pAllocBuffer)
|
|
HeapFree(GetProcessHeap(), 0, pAllocBuffer);
|
|
return bSuccess;
|
|
}
|
|
|
|
BOOL WriteText(HANDLE hFile, LPCWSTR pszText, DWORD dwTextLen, int iEncoding, int iEoln)
|
|
{
|
|
WCHAR wcBom;
|
|
WCHAR wcEoln;
|
|
BYTE bEoln;
|
|
LPBYTE pbEoln = NULL;
|
|
DWORD dwDummy, dwPos, dwNext, dwEolnSize = 0;
|
|
|
|
/* Write the proper byte order marks if not ANSI */
|
|
if (iEncoding != ENCODING_ANSI)
|
|
{
|
|
wcBom = 0xFEFF;
|
|
if (!WriteEncodedText(hFile, &wcBom, 1, iEncoding))
|
|
return FALSE;
|
|
}
|
|
|
|
/* Identify the proper eoln to use */
|
|
switch(iEoln)
|
|
{
|
|
case EOLN_LF:
|
|
bEoln = '\n';
|
|
pbEoln = &bEoln;
|
|
dwEolnSize = sizeof(bEoln);
|
|
break;
|
|
case EOLN_CR:
|
|
bEoln = '\r';
|
|
pbEoln = &bEoln;
|
|
dwEolnSize = sizeof(bEoln);
|
|
break;
|
|
}
|
|
|
|
/* If we have an eoln, make sure it is of the proper encoding */
|
|
if (pbEoln && ((iEncoding == ENCODING_UNICODE) || (iEncoding == ENCODING_UNICODE_BE)))
|
|
{
|
|
wcEoln = bEoln;
|
|
pbEoln = (LPBYTE) &wcEoln;
|
|
dwEolnSize = sizeof(wcEoln);
|
|
}
|
|
|
|
dwPos = 0;
|
|
|
|
while(dwPos < dwTextLen)
|
|
{
|
|
if (pbEoln)
|
|
{
|
|
/* Find the next eoln */
|
|
dwNext = dwPos;
|
|
while(dwNext < dwTextLen-1)
|
|
{
|
|
if ((pszText[dwNext] == '\r') && (pszText[dwNext+1] == '\n'))
|
|
break;
|
|
dwNext++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* No eoln conversion is necessary */
|
|
dwNext = dwTextLen;
|
|
}
|
|
|
|
if (!WriteEncodedText(hFile, &pszText[dwPos], dwNext - dwPos, iEncoding))
|
|
return FALSE;
|
|
dwPos = dwNext;
|
|
|
|
/* are we at an eoln? */
|
|
while ((dwPos < dwTextLen-1) &&
|
|
((pszText[dwPos] == '\r') && (pszText[dwPos+1] == '\n')))
|
|
{
|
|
if (!WriteFile(hFile, pbEoln, dwEolnSize, &dwDummy, NULL))
|
|
return FALSE;
|
|
dwPos += 2;
|
|
}
|
|
}
|
|
while(dwPos < dwTextLen);
|
|
|
|
return TRUE;
|
|
}
|
|
|