windows-nt/Source/XPSP1/NT/ds/netapi/netdom/varg.cxx
2020-09-26 16:20:57 +08:00

1333 lines
36 KiB
C++

/*****************************************************************************\
Author: Hiteshr
Copyright (c) 1998-2000 Microsoft Corporation
Change History:
Adapted From Parser Implemenation of Corey Morgan
\*****************************************************************************/
#include "pch.h"
#pragma hdrstop
#include <netdom.h>
BOOL ValidateCommands(IN ARG_RECORD *Commands,OUT PPARSE_ERROR pError);
//General Utility Functions
DWORD ResizeByTwo(PTSTR *ppBuffer, LONG *pSize);
BOOL StringCopy(PWSTR *ppDest, PCWSTR pSrc);
LONG ReadFromIn(PWSTR *ppBuffer);
#define INIT_SIZE 1024
#define FILL_ERROR(pError,source,error_code,rec_index,argv_index) \
pError->ErrorSource = source; \
pError->Error = error_code; \
pError->ArgRecIndex = rec_index; \
pError->ArgvIndex = argv_index;
BOOL IsCmd( PARG_RECORD arg, LPTOKEN pToken)
{
if (!arg || !pToken)
return FALSE;
LPWSTR str = pToken->GetToken();
if (!str)
return FALSE;
if (pToken->IsSwitch())
{
if (arg->fFlag & ARG_FLAG_VERB)
{
// Verbs do not have a switch.
//
return FALSE;
}
str++;
}
else
{
if ((arg->fFlag & ARG_FLAG_OBJECT) && !arg->bDefined)
{
return TRUE;
}
if (!(arg->fFlag & ARG_FLAG_VERB))
{
// Non-verbs must have a switch except for the object arg.
//
return FALSE;
}
}
if ( ( arg->strArg1 && !_wcsicmp( str, arg->strArg1 ) )
||(arg->strArg2 && !_wcsicmp( str, arg->strArg2 )) )
{
return TRUE;
}
return FALSE;
}
void FreeCmd(ARG_RECORD *Commands)
{
int i;
for(i=0;Commands[i].fType != ARG_TYPE_LAST;i++)
{
if((Commands[i].fType == ARG_TYPE_STR ||
Commands[i].fType == ARG_TYPE_MSZ ) &&
Commands[i].bDefined )
{
LocalFree( Commands[i].strValue );
Commands[i].strValue = NULL;
}
if( Commands[i].idArg1 && Commands[i].strArg1 != NULL )
{
LocalFree(Commands[i].strArg1);
}
if( Commands[i].idArg2 && Commands[i].strArg2 != NULL )
{
LocalFree( Commands[i].strArg2 );
}
Commands[i].bDefined = FALSE;
}
}
BOOL LoadCmd(ARG_RECORD *Commands)
{
int i;
BOOL bRet = TRUE;
for (i=0; Commands[i].fType!=ARG_TYPE_LAST; i++)
{
if (Commands[i].idArg1 !=0)
if (!LoadStringAlloc(&Commands[i].strArg1, NULL, Commands[i].idArg1))
{
bRet = FALSE;
break;
}
if (Commands[i].idArg2 !=0 && Commands[i].idArg2 != ID_ARG2_NULL)
if (!LoadStringAlloc(&Commands[i].strArg2, NULL, Commands[i].idArg2))
{
bRet = FALSE;
break;
}
}
return bRet;
}
BOOL
ValidateCommands(ARG_RECORD *Commands, PPARSE_ERROR pError)
{
int i = 0;
LONG cReadFromStdin = 0;
ARG_RECORD *CommandsIn = NULL;
LPWSTR pBuffer=NULL;
LONG BufferLen = 0;
LPTOKEN pToken = NULL;
int argc=0;
BOOL bRet = FALSE;
bool bAtLeastOne = false;
bool bAtLeastOneDefined = false;
if(!Commands || !pError)
goto exit_gracefully;
for(i=0; Commands[i].fType != ARG_TYPE_LAST;i++)
{
if( (Commands[i].fFlag & ARG_FLAG_REQUIRED) && !Commands[i].bDefined)
{
if(Commands[i].fFlag & ARG_FLAG_STDIN)
{
cReadFromStdin++;
}
else
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_NOTDEFINED,
i,
-1);
goto exit_gracefully;
}
}
if (Commands[i].fFlag & ARG_FLAG_ATLEASTONE)
{
bAtLeastOne = true;
if (Commands[i].bDefined)
{
bAtLeastOneDefined = true;
}
}
}
if (bAtLeastOne && !bAtLeastOneDefined)
{
FILL_ERROR(pError, ERROR_FROM_PARSER,
PARSE_ERROR_ATLEASTONE_NOTDEFINED, -1, -1)
goto exit_gracefully;
}
if(!cReadFromStdin)
{
bRet = TRUE;
goto exit_gracefully;
}
//Read From STDIN
BufferLen = ReadFromIn(&pBuffer);
if(BufferLen == -1)
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
GetLastError(),
-1,
-1);
goto exit_gracefully;
}
if(BufferLen == 0)
{
for(i=0; Commands[i].fType != ARG_TYPE_LAST;i++)
{
if( (Commands[i].fFlag & ARG_FLAG_REQUIRED) && !Commands[i].bDefined)
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_NOTDEFINED,
i,
-1);
goto exit_gracefully;
}
}
}
if(BufferLen)
{
//Tokenize what you have read from STDIN
DWORD dwErr;
WCHAR szDelimiters[] = L": \n\t";
dwErr = Tokenize(pBuffer,
BufferLen,
szDelimiters,
&pToken,
&argc);
if( dwErr != ERROR_SUCCESS )
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
dwErr,
-1,
-1);
goto exit_gracefully;
}
//Prepare a CommandArray for them
CommandsIn = (ARG_RECORD*)LocalAlloc(LPTR,sizeof(ARG_RECORD)*(cReadFromStdin+1));
if(!CommandsIn)
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
ERROR_NOT_ENOUGH_MEMORY,
-1,
-1);
goto exit_gracefully;
}
int j;
j = 0;
for(i=0; Commands[i].fType != ARG_TYPE_LAST;i++)
{
if((Commands[i].fFlag & ARG_FLAG_REQUIRED) &&
(Commands[i].fFlag & ARG_FLAG_STDIN) &&
!Commands[i].bDefined)
{
CommandsIn[j++] = Commands[i];
}
}
//Copy the Last One
CommandsIn[j] = Commands[i];
if(!ParseCmd(CommandsIn,
argc,
pToken,
false,
pError,
FALSE))
{
goto exit_gracefully;
}
//Copy the values back to Commands
j=0;
for(i=0; Commands[i].fType != ARG_TYPE_LAST;i++)
{
if((Commands[i].fFlag & ARG_FLAG_REQUIRED) &&
(Commands[i].fFlag & ARG_FLAG_STDIN) &&
!Commands[i].bDefined)
{
Commands[i] = CommandsIn[j++];
}
}
//Validate Commands
for(i=0; Commands[i].fType != ARG_TYPE_LAST;i++)
{
if( (Commands[i].fFlag & ARG_FLAG_REQUIRED) && !Commands[i].bDefined)
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_NOTDEFINED,
i,
-1);
goto exit_gracefully;
}
}
}
bRet = TRUE;
exit_gracefully:
if(CommandsIn)
LocalFree(CommandsIn);
if(pBuffer)
LocalFree(pBuffer);
if(pToken)
{
delete []pToken;
}
return bRet;
}
BOOL ParseCmd(IN ARG_RECORD *Commands,
IN int argc,
IN LPTOKEN pToken,
IN bool fSkipObject,
OUT PPARSE_ERROR pError,
IN BOOL bValidate)
{
int i = 0;
BOOL bFound = FALSE;
int argCount = 0;
DWORD dwErr = ERROR_SUCCESS;
if (!Commands || argc == 0 || !pToken || !pError)
return FALSE;
argCount = argc;
while (argc > 0)
{
bFound = FALSE;
for (i = 0; Commands[i].fType != ARG_TYPE_LAST && (!bFound); i++)
{
if (fSkipObject && Commands[i].fFlag & ARG_FLAG_OBJECT)
{
continue;
}
if (IsCmd(&Commands[i], pToken))
{
if (Commands[i].bDefined)
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_MULTIPLE_DEF,
i,
-1);
return FALSE;
}
if (pToken->IsSwitch())
{
pToken++;
argc--;
}
bFound = TRUE;
Commands[i].bDefined = TRUE;
switch( Commands[i].fType )
{
case ARG_TYPE_HELP:
Commands[i].bValue = TRUE;
if( Commands[i].fntValidation != NULL )
{
Commands[i].fntValidation( Commands + i );
}
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_HELP_SWITCH,
i,
-1);
return FALSE;
break;
case ARG_TYPE_INT:
if( argc > 0 && !pToken->IsSwitch())
{
PWSTR pszToken = pToken->GetToken();
Commands[i].nValue = _wtoi( pszToken);
if (Commands[i].nValue == 0 &&
!iswdigit(pszToken[0]))
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_VALUE,
i,
argCount - argc);
return FALSE;
}
pToken++;
argc--;
}
else if ( !(Commands[i].fFlag & ARG_FLAG_DEFAULTABLE) )
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_VALUE,
i,
argCount - argc);
return FALSE;
}
break;
case ARG_TYPE_VERB:
//
// Verbs are not proceeded by a switch character.
//
pToken++;
argc--;
// fall through.
case ARG_TYPE_BOOL:
//
// Bools are proceeded by a switch char (and had the token
// pointer advanced above).
//
Commands[i].bValue = TRUE;
break;
case ARG_TYPE_MSZ:
if (argc > 0 && !pToken->IsSwitch())
{
PWSTR buffer = (PWSTR)LocalAlloc(LPTR, MAXSTR*sizeof(WCHAR));
LONG maxSize = MAXSTR;
LONG currentSize = 0;
LONG len = 0;
if (!buffer)
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
ERROR_NOT_ENOUGH_MEMORY,
-1,
argCount - argc);
return FALSE;
}
LPCTSTR pszTemp = pToken->GetToken();
len = wcslen(pszTemp);
//-2 as last string is delimited by two null
while ((currentSize + len) > (maxSize - 2))
{
dwErr = ResizeByTwo(&buffer, &maxSize);
if (dwErr != ERROR_SUCCESS)
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
dwErr,
i,
-1);
return FALSE;
}
}
wcscpy((buffer + currentSize), pszTemp);
currentSize += len;
//Null Terminate, buffer is initialized to zero
currentSize++;
pToken++;
argc--;
while (argc > 0 && !pToken->IsSwitch())
{
pszTemp = pToken->GetToken();
len = wcslen(pszTemp);
while ((currentSize + len) > (maxSize - 2))
{
dwErr = ResizeByTwo(&buffer, &maxSize);
if(dwErr != ERROR_SUCCESS)
{
FILL_ERROR(pError,
ERROR_WIN32_ERROR,
dwErr,
i,
-1);
return FALSE;
}
}
wcscat((buffer + currentSize), pszTemp);
currentSize += len;
//Null Terminate, buffer is initialized to zero
currentSize++;
pToken++;
argc--;
}
Commands[i].strValue = buffer;
}
else if (Commands[i].fFlag & ARG_FLAG_DEFAULTABLE )
{
PWSTR strValue = Commands[i].strValue;
Commands[i].strValue = (PWSTR)LocalAlloc(LPTR, (wcslen(strValue)+1) * sizeof(WCHAR));
if (Commands[i].strValue != NULL )
{
wcscpy(Commands[i].strValue, strValue);
}
}
else
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWICH_NO_VALUE,
i,
-1);
return FALSE;
}
break;
case ARG_TYPE_STR:
if (argc > 0)
{
if (!pToken->IsSwitch())
{
Commands[i].strValue = (PWSTR)LocalAlloc(LPTR, (wcslen(pToken->GetToken())+2) * sizeof(WCHAR));
if (Commands[i].strValue != NULL)
{
wcscpy(Commands[i].strValue, pToken->GetToken());
}
pToken++;
argc--;
}
else if (ARG_FLAG_OPTIONAL & Commands[i].fFlag)
{
// The current switch doesn't have a value.
// An arg value is optional, so parse the next switch
// token.
//
break;
}
}
else if (Commands[i].fFlag & ARG_FLAG_DEFAULTABLE)
{
PWSTR strValue = Commands[i].strValue;
Commands[i].strValue = (PWSTR)LocalAlloc(LPTR, (wcslen(strValue)+2) * sizeof(WCHAR));
if (Commands[i].strValue != NULL)
{
wcscpy(Commands[i].strValue, strValue);
}
}
else if (ARG_FLAG_OPTIONAL & Commands[i].fFlag)
{
// The current switch doesn't have a value and is the
// last token, so we are done.
//
break;
}
else
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWICH_NO_VALUE,
i,
-1);
return FALSE;
}
break;
case ARG_TYPE_INTSTR:
//
// We use IsSlash here instead of IsSwitch because we want to allow
// negative numbers
//
if (argc > 0 && !pToken->IsSlash())
{
PWSTR pszToken = pToken->GetToken();
size_t strLen = wcslen(pszToken);
Commands[i].nValue = _wtoi( pszToken);
Commands[i].fType = ARG_TYPE_INT;
if (Commands[i].nValue == 0 &&
!iswdigit(pszToken[0]))
{
//
// Then treat as a string
//
Commands[i].strValue = (PWSTR)LocalAlloc(LPTR, (wcslen(pToken->GetToken())+2) * sizeof(WCHAR) );
if (Commands[i].strValue != NULL )
{
wcscpy( Commands[i].strValue, pToken->GetToken() );
Commands[i].fType = ARG_TYPE_STR;
}
}
pToken++;
argc--;
}
else if (!(Commands[i].fFlag & ARG_FLAG_DEFAULTABLE))
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_SWITCH_VALUE,
i,
argCount - argc);
return FALSE;
}
break;
}
if (Commands[i].bDefined && Commands[i].fntValidation != NULL)
{
dwErr = Commands[i].fntValidation(Commands + i);
if (dwErr != ERROR_SUCCESS)
{
FILL_ERROR(pError,
ERROR_FROM_VLDFN,
dwErr,
i,
-1);
return FALSE;
}
}
}
}
if (!bFound)
{
FILL_ERROR(pError,
ERROR_FROM_PARSER,
PARSE_ERROR_UNKNOWN_INPUT_PARAMETER,
-1,
argCount - argc);
return FALSE;
}
}
if (bValidate)
return ValidateCommands(Commands, pError);
return TRUE;
}
//This Function reads from the Command Line,
//return it in tokenized format.
DWORD GetCommandInput( OUT int *pargc, //Number of Tokens
OUT LPTOKEN *ppToken) //Array of CToken
{
LPWSTR pBuffer = NULL;
DWORD dwErr = ERROR_SUCCESS;
WCHAR szDelimiters[] = L": \n\t";
*pargc = 0;
//Read the commandline input
pBuffer = GetCommandLine();
if(pBuffer)
dwErr = Tokenize(pBuffer,
wcslen(pBuffer),
szDelimiters,
ppToken,
pargc);
return dwErr;
}
BOOL IsDelimiter(WCHAR ch, LPWSTR pszDelimiters)
{
while(*pszDelimiters)
if((WCHAR)*pszDelimiters++ == ch)
return TRUE;
return FALSE;
}
/*
This Function Tokenize the input buffer. It needs to be called in two step.
First time you call it, provide pBuf and Buflen. First Call will return
the first token. To get next token, call the function with NULL for pBuf and
0 for Buflen.
Output: pbQuote is true if this token was enclosed in a quote.
ppToken: Token string. Call LocalFree to free it.
Return Value:Length of Token if token found.
0 if no token found.
-1 in case of error. Call GetLastError to get the error.
*/
LONG GetToken(IN LPWSTR pBuf,
IN LONG BufLen,
IN LPWSTR pszDelimiters,
OUT BOOL *pbQuote,
OUT LPWSTR *ppToken)
{
static LPWSTR pBuffer;
static LONG BufferLen;
DWORD dwErr = ERROR_SUCCESS;
if(pbQuote)
*pbQuote = FALSE;
if(ppToken)
*ppToken = NULL;
LONG MaxSize = INIT_SIZE;
LONG pos = 0;
if(pBuf)
pBuffer = pBuf;
if(BufLen)
BufferLen = BufLen;
if(!BufferLen)
return pos;
do
{
BOOL bQuoteBegin = FALSE;
PWSTR pItem = NULL;
//Find the begining of Next Token
// while( pBuffer[0] == L' ' ||
// pBuffer[0] == L'\t' ||
// pBuffer[0] == L'\n' && BufferLen)
while(BufferLen && IsDelimiter(pBuffer[0],pszDelimiters) )
{
++pBuffer;--BufferLen;
}
if(!BufferLen)
break;
//Does Token Start with '"'
if( pBuffer[0] == L'"' )
{
if(pbQuote)
*pbQuote = TRUE;
bQuoteBegin = TRUE;
pBuffer++; --BufferLen;
}
if(!BufferLen)
break;
if(ppToken)
{
pItem = (PWSTR)LocalAlloc(LPTR,sizeof(WCHAR)*INIT_SIZE);
if(!pItem)
{
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return -1;
}
}
//Now get the end
WCHAR ch;
while( BufferLen )
{
BOOL bChar = TRUE;
if( BufferLen >= 2 && *pBuffer == L'\\' && *(pBuffer+1) == L'"')
{
ch = L'"';
pBuffer +=2; BufferLen -=2;
}
else if(pBuffer[0] == L'"')
{
//A Matching Quote Found.
if(bQuoteBegin)
{
++pBuffer;
--BufferLen;
if(BufferLen)
{
//If next char is whitespace endof token
//Ex "ABC" "xyz" . after C its endof token
//if(pBuffer[0] == L' ' ||
// pBuffer[0] == L'\t' ||
// pBuffer[0] == L'\n')
if(IsDelimiter(pBuffer[0],pszDelimiters) )
break;
else
{
//Ex "ABC"xyz
if(pBuffer[0] != L'"')
bQuoteBegin = FALSE;
//"ABC""xyz"
else
{
++pBuffer;
--BufferLen;
}
}
}
bChar = FALSE;
//
// Don't break because "" means that we want to clear the field out
//
// else
// break;
}
//ABC" xyz" will get one token 'ABC xyz'
else
{
bQuoteBegin = TRUE;
++pBuffer;
--BufferLen;
bChar = FALSE;
}
}
// else if(!bQuoteBegin && (pBuffer[0] == L' ' ||
// pBuffer[0] == L'\t' ||
// pBuffer[0] == L'\n'))
else if(!bQuoteBegin && IsDelimiter(pBuffer[0],pszDelimiters))
{
++pBuffer;
--BufferLen;
break;
}
else
{
ch = pBuffer[0];
++pBuffer;
--BufferLen;
}
if(bChar && ppToken)
{
if(pos == MaxSize -1)
if(ERROR_SUCCESS != ResizeByTwo(&pItem,&MaxSize))
{
LocalFree(pItem);
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return -1;
}
pItem[pos] = ch;
}
if(bChar)
++pos;
}
if(pos ||
(!pos && bQuoteBegin))
{
if(ppToken)
{
pItem[pos] = '\0';
*ppToken = pItem;
}
++pos;
}
}while(0);
return pos;
}
/*
Function to convert string an array of CTokens.
INPUT: pBuf Input Buffer
BufLen Length of bBuf
OUTPUT:ppToken Gets Pointer to array of CToken
argc Lenght of array of CToken
Return Value: WIN32 Error
*/
DWORD Tokenize(IN LPWSTR pBuf,
IN LONG BufLen,
LPWSTR szDelimiters,
OUT CToken **ppToken,
OUT int *argc)
{
*argc = 0;
CToken *pToken = NULL;
DWORD dwErr = ERROR_SUCCESS;
BOOL bQuote;
LPWSTR pszItem = NULL;
//Get First Token
LONG ret = GetToken(pBuf,
BufLen,
szDelimiters,
&bQuote,
NULL);
if(ret == -1)
{
dwErr = GetLastError();
goto exit_gracefully;
}
while(ret)
{
++(*argc);
ret = GetToken(NULL,
NULL,
szDelimiters,
&bQuote,
NULL);
if(ret == -1)
{
dwErr = GetLastError();
goto exit_gracefully;
}
}
if(*argc)
{
int i =0;
pToken = new CToken[*argc];
if(!pToken)
{
dwErr = ERROR_NOT_ENOUGH_MEMORY;
goto exit_gracefully;
}
ret = GetToken(pBuf,
BufLen,
szDelimiters,
&bQuote,
&pszItem);
if(ret == -1)
{
dwErr = GetLastError();
goto exit_gracefully;
}
while(ret)
{
if (!pToken[i++].Init(pszItem,bQuote))
{
dwErr = ERROR_OUTOFMEMORY;
goto exit_gracefully;
}
if(pszItem)
LocalFree(pszItem);
pszItem = NULL;
ret = GetToken(NULL,
NULL,
szDelimiters,
&bQuote,
&pszItem);
if(ret == -1)
{
dwErr = GetLastError();
goto exit_gracefully;
}
}
}
exit_gracefully:
if(dwErr != ERROR_SUCCESS)
{
if(pToken)
{
delete [] pToken ;
}
return dwErr;
}
*ppToken = pToken;
return dwErr;
}
/*
Function to display the parsing errors. If function cannot
handle some error, it will return False and calling function
must handle that error.
*/
BOOL DisplayParseError(IN PPARSE_ERROR pError,
IN ARG_RECORD *Commands,
IN CToken *pToken)
{
if(!pError)
return FALSE;
VOID *parg1 = NULL;
VOID *parg2 = NULL;
UINT idStr = 0;
switch(pError->ErrorSource)
{
case ERROR_FROM_PARSER:
{
switch(pError->Error)
{
case PARSE_ERROR_SWITCH_VALUE:
{
}
break;
case PARSE_ERROR_UNKNOWN_INPUT_PARAMETER:
{
}
break;
case PARSE_ERROR_SWITCH_NOTDEFINED:
{
idStr = IDS_PARSE_ERROR_SWITCH_NOTDEFINED;
parg1 = Commands[pError->ArgRecIndex].strArg1;
}
break;
case PARSE_ERROR_MULTIPLE_DEF:
{
}
break;
case ERROR_READING_FROM_STDIN:
{
}
break;
}
}
break;
case ERROR_FROM_VLDFN:
{
}
break;
case ERROR_WIN32_ERROR:
{
}
break;
}
if(idStr)
{
//Format the string
LPWSTR pBuffer = NULL;
FormatStringID(&pBuffer,
NULL,
idStr,
parg1,
parg2);
//Display it
if(pBuffer)
DisplayError(pBuffer);
LocalFreeString(&pBuffer);
return TRUE;
}
else
return FALSE;
}
VOID DisplayError(LPWSTR pszError)
{
if(pszError)
WriteStandardError(L"%s\n",pszError);
}
VOID DisplayOutput(LPWSTR pszOutput)
{
if(pszOutput)
WriteStandardOut(L"%s\n",pszOutput);
}
VOID DisplayOutputNoNewline(LPWSTR pszOutput)
{
if(pszOutput)
WriteStandardOut(L"%s",pszOutput);
}
/*******************************************************************
NAME: DisplayMessage
SYNOPSIS: Loads Message from Message Table and Formats its
IN Indent - Number of tabs to indent
MessageId - Id of the message to load
... - Optional list of parameters
RETURNS: NONE
********************************************************************/
VOID DisplayMessage(DWORD MessageId,...)
{
PWSTR MessageDisplayString;
va_list ArgList;
ULONG Length;
va_start( ArgList, MessageId );
Length = FormatMessage( FORMAT_MESSAGE_FROM_HMODULE | FORMAT_MESSAGE_ALLOCATE_BUFFER,
NULL,
MessageId,
0,
(PWSTR)&MessageDisplayString,
0,
&ArgList );
if ( Length != 0 ) {
WriteStandardError(L"%s",MessageDisplayString);
LocalFree( MessageDisplayString );
}
va_end( ArgList );
}
/*
Class CToken
*/
CToken::CToken(PCWSTR psz, BOOL bQuote)
{
StringCopy(&m_pszToken,psz);
m_bInitQuote = bQuote;
}
CToken::CToken() : m_bInitQuote(FALSE), m_pszToken(NULL) {}
CToken::~CToken()
{
LocalFree(m_pszToken);
}
BOOL CToken::Init(PCWSTR psz, BOOL bQuote)
{
if (!StringCopy(&m_pszToken,psz))
{
return FALSE;
}
m_bInitQuote = bQuote;
return TRUE;
}
PWSTR CToken::GetToken() const {return m_pszToken;}
BOOL CToken::IsSwitch() const
{
//Assert(m_pszToken);
if(!m_pszToken)
return FALSE;
if(m_bInitQuote)
return FALSE;
if(m_pszToken[0] == L'/' ||
m_pszToken[0] == L'-')
return TRUE;
return FALSE;
}
BOOL CToken::IsSlash() const
{
if (!m_pszToken)
return FALSE;
if (m_bInitQuote)
return FALSE;
if (m_pszToken[0] == L'/')
return TRUE;
return FALSE;
}
// Copied from JSchwart
BOOL
FileIsConsole(
HANDLE fp
)
{
unsigned htype;
htype = GetFileType(fp);
htype &= ~FILE_TYPE_REMOTE;
return htype == FILE_TYPE_CHAR;
}
void
MyWriteConsole(
HANDLE fp,
LPWSTR lpBuffer,
DWORD cchBuffer
)
{
//
// Jump through hoops for output because:
//
// 1. printf() family chokes on international output (stops
// printing when it hits an unrecognized character)
//
// 2. WriteConsole() works great on international output but
// fails if the handle has been redirected (i.e., when the
// output is piped to a file)
//
// 3. WriteFile() works great when output is piped to a file
// but only knows about bytes, so Unicode characters are
// printed as two Ansi characters.
//
if (FileIsConsole(fp))
{
WriteConsole(fp, lpBuffer, cchBuffer, &cchBuffer, NULL);
}
else
{
LPSTR lpAnsiBuffer = (LPSTR) LocalAlloc(LMEM_FIXED, cchBuffer * sizeof(WCHAR));
if (lpAnsiBuffer != NULL)
{
cchBuffer = WideCharToMultiByte(CP_OEMCP,
0,
lpBuffer,
cchBuffer,
lpAnsiBuffer,
cchBuffer * sizeof(WCHAR),
NULL,
NULL);
if (cchBuffer != 0)
{
WriteFile(fp, lpAnsiBuffer, cchBuffer, &cchBuffer, NULL);
}
LocalFree(lpAnsiBuffer);
}
}
}
void
WriteStandardOut(PCWSTR pszFormat, ...)
{
static HANDLE standardOut = GetStdHandle(STD_OUTPUT_HANDLE);
//
// Verify parameters
//
if (!pszFormat)
{
return;
}
va_list args;
va_start(args, pszFormat);
int nBuf;
WCHAR szBuffer[4 * MAX_PATH];
ZeroMemory(szBuffer, sizeof(szBuffer));
nBuf = _vsnwprintf(szBuffer, sizeof(szBuffer)/sizeof(WCHAR), pszFormat, args);
//
// Output the results
//
if (nBuf > 0)
{
MyWriteConsole(standardOut,
szBuffer,
nBuf);
}
va_end(args);
}
void
WriteStandardError(PCWSTR pszFormat, ...)
{
static HANDLE standardErr = GetStdHandle(STD_ERROR_HANDLE);
//
// Verify parameters
//
if (!pszFormat)
{
return;
}
va_list args;
va_start(args, pszFormat);
int nBuf;
WCHAR szBuffer[100 * MAX_PATH];
ZeroMemory(szBuffer, sizeof(szBuffer));
nBuf = _vsnwprintf(szBuffer, sizeof(szBuffer)/sizeof(WCHAR), pszFormat, args);
//
// Output the results
//
if (nBuf > 0)
{
MyWriteConsole(standardErr,
szBuffer,
nBuf);
}
va_end(args);
}
//Read From Stdin
//Return Value:
// Number of WCHAR read if successful
// -1 in case of Failure. Call GetLastError to get the error.
LONG ReadFromIn(OUT LPWSTR *ppBuffer)
{
LPWSTR pBuffer = NULL;
DWORD dwErr = ERROR_SUCCESS;
pBuffer = (LPWSTR)LocalAlloc(LPTR,INIT_SIZE*sizeof(WCHAR));
if(!pBuffer)
{
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return -1;
}
LONG Pos = 0;
LONG MaxSize = INIT_SIZE;
wint_t ch;
while((ch = getwchar()) != WEOF)
{
if(Pos == MaxSize -1 )
{
if(ERROR_SUCCESS != ResizeByTwo(&pBuffer,&MaxSize))
{
LocalFree(pBuffer);
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return -1;
}
}
pBuffer[Pos++] = (WCHAR)ch;
}
pBuffer[Pos] = L'\0';
*ppBuffer = pBuffer;
return Pos;
}
//General Utility Functions
DWORD ResizeByTwo( PWSTR *ppBuffer,
LONG *pSize )
{
LPWSTR pTempBuffer = (LPWSTR)LocalAlloc(LPTR,(*pSize)*2*sizeof(WCHAR));
if(!pTempBuffer)
return ERROR_NOT_ENOUGH_MEMORY;
memcpy(pTempBuffer,*ppBuffer,*pSize*sizeof(WCHAR));
LocalFree(*ppBuffer);
*ppBuffer = pTempBuffer;
*pSize *=2;
return ERROR_SUCCESS;
}
BOOL StringCopy(PWSTR *ppDest, PCWSTR pSrc)
{
*ppDest = NULL;
if(!pSrc)
return TRUE;
*ppDest = (LPWSTR)LocalAlloc(LPTR, (wcslen(pSrc) + 1)*sizeof(WCHAR));
if(!*ppDest)
return FALSE;
wcscpy(*ppDest,pSrc);
return TRUE;
}