/*
* pmdos.c
*
* Copyright (c) 1991, Microsoft Corporation
*
* DESCRIPTION
*
* This file is for support of program manager under NT Windows.
* This file is/was ported from pmdos.asm (program manager).
* It was in x86 asm code, and now is in ansi C.
* Some functions will be removed, due to they are only needed
* by DOS Windows.
*
* MODIFICATION HISTORY
* Initial Version: x/x/90 Author Unknown, since he didn't feel
* like commenting the code...
*
* NT 32b Version: 1/9/91 Jeff Pack
* Intitial port to begin.
*
* WARNING: since this is NOT for DOS, I'm making it soley 32bit aware.
* Following functions not ported
* IsRemovable() is in pmcomman.c (already ifdef'd in asm code)
* IsRemote() is in pmcomman.c (ditto!)
*
*/
#include <io.h>
#include <string.h>
#include <ctype.h>
#include <windows.h>
#include <port1632.h>
#if DBG
#define KdPrint(_x_) OutputDebugStringA _x_;
#else
#define KdPrint(_x_)
#endif
#define LOCALBUFFERSIZE 128
/*** FileTime -- Gets time of last modification.
*
*
*
* DWORD FileTime(HFILE hFile)
*
* ENTRY - int hFile - file handle to access
*
* EXIT - LPWORD - which is gotten from lpTimeStamp = 0 (ERROR).
* or lpTimeStamp != 0 (value of timestamp)
*
* SYNOPSIS - calls GetFileTime() to get timestamp. If error, then
* lpTimeStamp = 0, else contains TimeStamp for file.
* WARNINGS -
* EFFECTS -
*
*/
DWORD FileTime(
HFILE hFile)
{
BOOL bReturnCode;
FILETIME CreationTime;
FILETIME LastAccessTime;
FILETIME LastWriteTime;
WORD FatTime;
WORD FatDate;
bReturnCode = GetFileTime((HANDLE)hFile, &CreationTime, &LastAccessTime,
&LastWriteTime);
/*
* Test return code
*/
if (bReturnCode == FALSE) {
return 0; /*set to zero, for error*/
}
/*
* Now convert 64bit time to DOS 16bit time
*/
FileTimeToDosDateTime( &LastWriteTime, &FatDate, &FatTime);
return FatTime;
}
/*** IsReadOnly -- determines if file is readonly or not.
*
*
*
* BOOL IsReadOnly(LPSTR lpszFileString)
*
* ENTRY - LPSTR lpszFileString - file name to use
*
* EXIT - BOOL xxx - returns (0) = not readonly (1) = read only
* or lpTimeStamp != 0 (value of timestamp)
*
* SYNOPSIS - calls GetAttributes, then tests if file is read only.
* WARNINGS -
* EFFECTS -
*
*/
BOOL IsReadOnly(LPTSTR lpszFileString)
{
DWORD dwReturnedAttributes;
LPTSTR lpszLocalBuffer; /*local buffer for AnsiToOem()*/
DWORD nBufferLength;
nBufferLength = lstrlen(lpszFileString) + 1;
/*alloc local, non-moveable, zero filled buffer*/
lpszLocalBuffer = (LPTSTR)LocalAlloc(0, sizeof(TCHAR)*nBufferLength);
if(lpszLocalBuffer == NULL){
KdPrint(("<IsReadOnly> LocalAlloc FAILed\n"));
}
lstrcpy(lpszLocalBuffer,lpszFileString);
/*get attributes of filestring*/
dwReturnedAttributes = GetFileAttributes(lpszLocalBuffer);
if(dwReturnedAttributes == -1){
KdPrint(("<IsReadOnly> - GetFileAttributes() FAILed!\n"));
LocalFree(lpszLocalBuffer);
return FALSE;
} else {
/*AND with read_only attribute*/
dwReturnedAttributes = dwReturnedAttributes & FILE_ATTRIBUTE_READONLY;
switch(dwReturnedAttributes){
case FILE_ATTRIBUTE_READONLY:
LocalFree(lpszLocalBuffer);
return TRUE;
break;
default:
LocalFree(lpszLocalBuffer);
return FALSE;
}
}
}
/*** GetDOSErrorCode -- returns extended error code
*
*
*
* DWORD GetDOSErrorCode(VOID)
*
* ENTRY - VOID
*
* EXIT - DWORD - returned extended code.
*
* SYNOPSIS - calls GetLastError() to get error code from OS
* WARNINGS -
* EFFECTS -
*
*/
DWORD GetDOSErrorCode(VOID)
{
return( (int) GetLastError());
/*BUG BUG, pmgseg.c uses this from _lcreat() to determine if returned
5 (access denied) or 13 (invalid_data). So this need be tested
to see if win32 returns these.*/
}
/*** DosDelete -- Delete named file.
*
* int DosDelete(LPSTR lpszFileToDelete)
*
* ENTRY - LPSTR lpszFileToDelete - filename to delete.
*
* EXIT - int xxx - returns (0) if success
*
* SYNOPSIS - calls win32 DeleteFile.
* WARNINGS -
* EFFECTS -
*
*/
int DosDelete(LPTSTR lpszFileToDelete)
{
BOOL bReturnCode;
LPTSTR lpszLocalBuffer; /*local buffer for AnsiToOem()*/
DWORD nBufferLength;
nBufferLength = lstrlen(lpszFileToDelete) + 1;
/*alloc local, non-moveable, zero filled buffer*/
lpszLocalBuffer = (LPTSTR)LocalAlloc(0, sizeof(TCHAR)*nBufferLength);
if(lpszLocalBuffer == NULL){
KdPrint(("<DosDelete> LocalAlloc FAILed\n"));
}
lstrcpy(lpszLocalBuffer,lpszFileToDelete);
bReturnCode = DeleteFile(lpszLocalBuffer);
LocalFree(lpszLocalBuffer);
if(bReturnCode){
return(0);
}
else{
return(1);
}
}
/*** DosRename -- Rename file.
*
* int DosRename(LPSTR lpszOrgFileName, LPSTR lpszNewFileName)
*
* ENTRY - LPSTR lpszOrgFileName - origianl filename.
* LPSTR lpszNewFileName - New filename.
*
* EXIT - int xxx - returns (0) if success
*
* SYNOPSIS - calls win32 MoveFile.
* WARNINGS -
* EFFECTS -
*
*/
int DosRename(LPTSTR lpszOrgFileName, LPTSTR lpszNewFileName)
{
BOOL bReturnCode;
LPTSTR lpszLocalBuffer; /*local buffer for AnsiToOem()*/
LPTSTR lpszLocalBuffer1; /*local buffer for AnsiToOem()*/
DWORD nBufferLength;
DWORD nBufferLength1;
nBufferLength = lstrlen(lpszOrgFileName) + 1;
nBufferLength1 = lstrlen(lpszNewFileName) + 1;
/*alloc local, non-moveable, zero filled buffer*/
lpszLocalBuffer = (LPTSTR)LocalAlloc(0, sizeof(TCHAR)*nBufferLength);
if(lpszLocalBuffer == NULL){
KdPrint(("<DosRename> LocalAlloc FAILed\n"));
}
lpszLocalBuffer1 = (LPTSTR)LocalAlloc(0, sizeof(TCHAR)*nBufferLength1);
if(lpszLocalBuffer1 == NULL){
KdPrint(("<DosRename> LocalAlloc FAILed\n"));
}
lstrcpy(lpszLocalBuffer,lpszOrgFileName);
lstrcpy(lpszLocalBuffer1,lpszNewFileName);
/*rename file*/
bReturnCode = MoveFile(lpszLocalBuffer, lpszLocalBuffer1);
LocalFree(lpszLocalBuffer);
LocalFree(lpszLocalBuffer1);
if(bReturnCode){
return(0);
}
else{
return(1);
}
}
#if 0
#ifdef i386
//
// Returns true if the application exe type is a DOS binary.
//
BOOL IsDOSApplication(LPTSTR lpPath)
{
DWORD dwBinaryType;
BOOL bRet;
bRet = GetBinaryType(lpPath, &dwBinaryType);
if (bRet) {
if (dwBinaryType != SCS_DOS_BINARY) {
bRet = FALSE;
}
}
return(bRet);
}
//
// this routine translates path characters into _ characters because
// the NT registry apis do not allow the creation of keys with
// names that contain path characters. it allocates a buffer that
// must be freed.
//
LPTSTR TranslateConsoleTitle(LPTSTR ConsoleTitle)
{
int ConsoleTitleLength,i;
LPTSTR TranslatedConsoleTitle,Tmp;
ConsoleTitleLength = lstrlen(ConsoleTitle) + 1;
Tmp = TranslatedConsoleTitle = (LPTSTR)LocalAlloc(LMEM_FIXED,ConsoleTitleLength * sizeof(TCHAR));
if (TranslatedConsoleTitle == NULL) {
return NULL;
}
for (i=0;i<ConsoleTitleLength;i++) {
if (*ConsoleTitle == TEXT('\\')) {
*TranslatedConsoleTitle++ = (TCHAR)TEXT('_');
ConsoleTitle++;
} else {
*TranslatedConsoleTitle++ = *ConsoleTitle++;
}
}
return Tmp;
}
// DOS apps are no longer set to fullscreen by default in progman
// 5-3-93 johannec (bug 8343)
#define CONSOLE_REGISTRY_STRING TEXT("Console")
#define CONSOLE_REGISTRY_FULLSCR TEXT("FullScreen")
BOOL SetDOSApplicationToFullScreen(LPTSTR lpTitle)
{
HKEY hkeyConsole,hkeyTitle;
LPTSTR lpTranslatedTitle;
DWORD Error;
DWORD dwFullScreen = 1;
Error = RegOpenKeyEx(HKEY_CURRENT_USER,
CONSOLE_REGISTRY_STRING,
0,
KEY_READ | KEY_WRITE,
&hkeyConsole);
if (Error) {
return FALSE;
}
lpTranslatedTitle = TranslateConsoleTitle(lpTitle);
if (lpTranslatedTitle == NULL) {
return FALSE;
}
Error = RegCreateKey(hkeyConsole,
lpTranslatedTitle,
&hkeyTitle);
LocalFree(lpTranslatedTitle);
if (Error) {
RegCloseKey(hkeyConsole);
return FALSE;
}
Error = RegSetValueEx(hkeyTitle,
CONSOLE_REGISTRY_FULLSCR,
0,
REG_DWORD,
(LPBYTE)&dwFullScreen,
sizeof(dwFullScreen));
RegCloseKey(hkeyTitle);
RegCloseKey(hkeyConsole);
return(!Error);
}
#endif
#endif