696 lines
24 KiB
C
696 lines
24 KiB
C
#include "cmd.h"
|
|
|
|
#define TYPEBUFSIZE 80
|
|
#define TYPEREADSIZE 512
|
|
|
|
extern UINT CurrentCP;
|
|
extern TCHAR VerMsg[] ; /* dgs - print out cmd version too */
|
|
|
|
extern unsigned DosErr ;
|
|
|
|
extern unsigned tywild; /* @@5@J1 type wild cards */
|
|
|
|
extern TCHAR CurDrvDir[] ;
|
|
|
|
extern TCHAR CrLf[] ; /* M010 */
|
|
|
|
extern TCHAR VolSrch[] ; /* M006 - Search string for Volume ID */
|
|
extern TCHAR AppendStr[] ;
|
|
|
|
extern TCHAR TmpBuf[];
|
|
#define Tmpbuffer &TmpBuf[128]
|
|
extern TCHAR Fmt26[], Fmt25[];
|
|
|
|
extern unsigned LastRetCode;
|
|
extern BOOL CtrlCSeen;
|
|
|
|
struct FSVol {
|
|
unsigned long SerNum ; /* Volume serial number */
|
|
TCHAR len ; /* Volume name len (excludes \0) */
|
|
TCHAR name[257] ; /* Volume name asciz */
|
|
};
|
|
|
|
int ZScanA(BOOL flag, PCHAR buf, PULONG buflen, PULONG skip);
|
|
|
|
/**************** START OF SPECIFICATIONS ***********************/
|
|
/* */
|
|
/* SUBROUTINE NAME: eDirectory */
|
|
/* */
|
|
/* DESCRIPTIVE NAME: Begin execution of the DIR command */
|
|
/* */
|
|
/* FUNCTION: To list out the files on a disk. eDirectory will */
|
|
/* be called whenever the user enters the DIR command */
|
|
/* on the command line. DIR will continue if it */
|
|
/* encounters an invalid argument. */
|
|
/* */
|
|
/* NOTES: */
|
|
/* */
|
|
/* ENTRY POINT: eDirectory */
|
|
/* LINKAGE: Near */
|
|
/* */
|
|
/* INPUT: n - the parse tree node containing the DIR command */
|
|
/* */
|
|
/* EXIT-NORMAL: return SUCCESS if no errors occur */
|
|
/* */
|
|
/* EXIT-ERROR: return FAILURE otherwise */
|
|
/* */
|
|
/* EFFECTS: None. */
|
|
/* */
|
|
/* INTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* Dir - lists out the files in a directory */
|
|
/* */
|
|
/* EXTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* */
|
|
/**************** END OF SPECIFICATIONS *************************/
|
|
|
|
int eDirectory(n)
|
|
struct cmdnode *n ;
|
|
{
|
|
return(LastRetCode = Dir(n->argptr)) ;
|
|
}
|
|
|
|
|
|
|
|
|
|
/*** eType - begin the execution of a Type command
|
|
*
|
|
* Purpose:
|
|
* To type the contents of an arbitrary number of files.
|
|
*
|
|
* int eType(struct cmdnode *n)
|
|
*
|
|
* Args:
|
|
* n - the parse tree note containing the type command
|
|
*
|
|
* Returns:
|
|
* SUCCESS if all of the files were successfully typed.
|
|
* FAILURE otherwise.
|
|
*
|
|
*/
|
|
|
|
int eType(n)
|
|
struct cmdnode *n ;
|
|
{
|
|
|
|
//
|
|
// Removed LTA_NOMATCH from flags. This caused a *.xxx to call the TyWork
|
|
// function which would think that *.xxx is a file and try to open it.
|
|
//
|
|
return(LastRetCode = LoopThroughArgs(n->argptr, TyWork, LTA_EXPAND | LTA_CONT | LTA_NOMATCH)) ;
|
|
}
|
|
|
|
|
|
|
|
|
|
/*** TyWork - display a file
|
|
*
|
|
* Purpose:
|
|
* Write the contents of the file specified in fspec to stdout.
|
|
* Output ends when all of fspec has been written or a ^Z is found in
|
|
* fspec.
|
|
*
|
|
* int TyWork(TCHAR *fspec)
|
|
*
|
|
* Args:
|
|
* fspec - the name of the file to write out
|
|
*
|
|
* Returns:
|
|
* SUCCESS if the file was written.
|
|
* FAILURE otherwise, such as inability to allocate a temporary buffer
|
|
*/
|
|
|
|
int TyWork(TCHAR *fspec) {
|
|
TCHAR fspec_temp[MAX_PATH];
|
|
TCHAR TypeBufW[TYPEREADSIZE*3];
|
|
CHAR TypeBuf[TYPEREADSIZE+1];
|
|
ULONG result;
|
|
BOOL flag;
|
|
TCHAR *bptr;
|
|
ULONG fDevice = 0;
|
|
ULONG maxbytes = 0xFFFFFFFF ; // max file size
|
|
ULONG bytestoctlz ; // Number of bytes read
|
|
ULONG bytesread ; // Number of bytes read
|
|
ULONG byteswrit ; // Number of bytes read
|
|
ULONG brcopy ; // Bytes to copy
|
|
CRTHANDLE fh ; // File handle
|
|
int first_read; // first read on file for wild
|
|
|
|
int TypeBufSize;
|
|
int rc;
|
|
LONG bWrite;
|
|
CHAR *pType;
|
|
#ifdef UNICODE
|
|
WCHAR wc;
|
|
BOOL fUnicode=FALSE;
|
|
#endif // UNICODE
|
|
|
|
TypeBufSize = TYPEREADSIZE;
|
|
|
|
first_read = TRUE; /* set flag to test for wilds @@5@J1 */
|
|
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: fspec = `%ws'", fspec)) ;
|
|
if ((fh = Copen(fspec, O_RDONLY)) == BADHANDLE) {
|
|
|
|
if ( SearchPath( (TCHAR *)AppendStr,
|
|
(TCHAR *)fspec,
|
|
NULL,
|
|
(unsigned)MAX_PATH,
|
|
(TCHAR *)fspec_temp,
|
|
NULL ) != 0) {
|
|
fh = Copen(fspec_temp, O_RDONLY);
|
|
}
|
|
}
|
|
|
|
if ( fh == BADHANDLE ) {
|
|
|
|
if (DosErr == ERROR_INVALID_NAME) {
|
|
DosErr = ERROR_FILE_NOT_FOUND;
|
|
}
|
|
PrtErr(DosErr) ;
|
|
rc = FAILURE;
|
|
goto TypeExit;
|
|
|
|
}
|
|
|
|
/************************************************************/
|
|
/* M004 - Added code to get max file size if not device */
|
|
/************************************************************/
|
|
|
|
bptr = (TCHAR*)TypeBuf; /* Copy of original pointer*/
|
|
if (!FileIsDevice(fh)) {
|
|
maxbytes = GetFileSize(CRTTONT(fh), NULL) ; /* Get file size */
|
|
SetFilePointer(CRTTONT(fh), 0L, NULL, FILE_BEGIN) ; /* Return pointer*/
|
|
fDevice = 1 ; /* Set no device flag */
|
|
DEBUG((ICGRP,TYLVL,"TYWORK: Is file, size=%d", maxbytes)) ;
|
|
}
|
|
|
|
do {
|
|
if (CtrlCSeen) {
|
|
Cclose(fh) ;
|
|
rc = FAILURE;
|
|
goto TypeExit;
|
|
}
|
|
if (!ReadFile(CRTTONT(fh), TypeBuf, TypeBufSize, (LPDWORD)&bytesread, NULL)) {
|
|
DosErr = GetLastError();
|
|
PutStdErr(DosErr, NOARGS);
|
|
break;
|
|
}
|
|
if (bytesread == 0) {
|
|
break;
|
|
}
|
|
|
|
if (first_read) {
|
|
result = 0xffffffff; /* unlimited checks */
|
|
#ifdef UNICODE
|
|
fUnicode = IsTextUnicode((LPWSTR)TypeBuf, bytesread, &result);
|
|
if ((result&IS_TEXT_UNICODE_SIGNATURE) != 0) {
|
|
bytesread -= sizeof(TCHAR);
|
|
MoveMemory(TypeBuf, TypeBuf+sizeof(TCHAR), bytesread);
|
|
//result = SetFilePointer(CRTTONT(fh), sizeof(TCHAR), NULL, FILE_BEGIN);
|
|
//if (result != sizeof(TCHAR)) {
|
|
// DosErr = GetLastError();
|
|
// PutStdErr(DosErr, NOARGS);
|
|
// break;
|
|
//}
|
|
}
|
|
#endif // UNICODE
|
|
#ifdef DBCS
|
|
//
|
|
// If the result depends only upon statistics, check
|
|
// to see if there is a possibility of DBCS.
|
|
//
|
|
if (AnyDbcsLeadChars &&
|
|
(result&IS_TEXT_UNICODE_STATISTICS) != 0 &&
|
|
(result&(~IS_TEXT_UNICODE_STATISTICS)) == 0) {
|
|
CHAR *pch = TypeBuf;
|
|
int cb = bytesread;
|
|
|
|
while (cb != 0) {
|
|
if (is_dbcsleadchar(*pch)) {
|
|
fUnicode = FALSE;
|
|
break;
|
|
}
|
|
cb--;
|
|
pch++;
|
|
}
|
|
}
|
|
#endif /* DBCS */
|
|
}
|
|
|
|
bytestoctlz = bytesread;
|
|
#ifdef UNICODE
|
|
if (fUnicode) {
|
|
if (first_read) {
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: file is unicode")) ;
|
|
}
|
|
brcopy = bytesread / sizeof(TCHAR);
|
|
} else
|
|
#endif // UNICODE
|
|
if (FileIsConsole(STDOUT)
|
|
#ifdef UNICODE
|
|
|| fOutputUnicode
|
|
#endif // UNICODE
|
|
) {
|
|
PCHAR pch = TypeBuf;
|
|
|
|
brcopy = bytesread;
|
|
while (brcopy > 0) {
|
|
if (is_dbcsleadchar(*pch)) {
|
|
pch++;
|
|
if (--brcopy == 0) {
|
|
if (!ReadFile(CRTTONT(fh), pch, 1, &brcopy, NULL)) {
|
|
DosErr = GetLastError();
|
|
PutStdErr(DosErr, NOARGS);
|
|
Cclose(fh) ;
|
|
rc = SUCCESS;
|
|
goto TypeExit;
|
|
}
|
|
bytesread++;
|
|
bytestoctlz = bytesread;
|
|
break;
|
|
}
|
|
}
|
|
pch++;
|
|
brcopy--;
|
|
}
|
|
|
|
result = 0;
|
|
flag = ZScanA(TRUE, (PCHAR)TypeBuf, &bytestoctlz, &result);
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: converting %d bytes to unicode", flag?bytesread:bytestoctlz)) ;
|
|
|
|
if ( (!flag) && (bytestoctlz == 0) )
|
|
break;
|
|
|
|
brcopy = MultiByteToWideChar(CurrentCP, 0,
|
|
(LPCSTR)TypeBuf, flag?bytesread:bytestoctlz,
|
|
(LPWSTR)TypeBufW, TypeBufSize*2);
|
|
if (brcopy == 0) {
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: Error converting to Unicode: %d", GetLastError())) ;
|
|
brcopy = TypeBufSize*2;
|
|
}
|
|
bptr = TypeBufW;
|
|
} else {
|
|
brcopy = bytesread;
|
|
}
|
|
|
|
if (first_read) {
|
|
if (tywild)
|
|
PutStdErr(MSG_TYPE_FILENAME, ONEARG, fspec);
|
|
first_read = FALSE;
|
|
}
|
|
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: bytesread = %d, brcopy = %d", bytesread, brcopy)) ;
|
|
|
|
bWrite = brcopy;
|
|
pType = (CHAR *)bptr;
|
|
while ( bWrite > 0 ) {
|
|
|
|
ULONG bToWrite = min( TYPEBUFSIZE, bWrite );
|
|
|
|
if (CtrlCSeen) {
|
|
Cclose(fh) ;
|
|
rc = FAILURE;
|
|
goto TypeExit;
|
|
}
|
|
|
|
if (FileIsConsole(STDOUT)) {
|
|
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: Writing to console")) ;
|
|
flag = WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), pType, bToWrite, &byteswrit, NULL);
|
|
if (flag == 0 || byteswrit != bToWrite) {
|
|
goto try_again;
|
|
}
|
|
bWrite -= byteswrit;
|
|
byteswrit *= sizeof(TCHAR);
|
|
pType += byteswrit;
|
|
|
|
#ifdef UNICODE
|
|
} else if (fOutputUnicode || fUnicode) {
|
|
|
|
if ( bWrite > TYPEBUFSIZE*sizeof(TCHAR) ) {
|
|
bToWrite = TYPEBUFSIZE;
|
|
} else {
|
|
if ( fUnicode ) {
|
|
bToWrite = bWrite;
|
|
} else {
|
|
bToWrite = bWrite/sizeof(TCHAR);
|
|
}
|
|
}
|
|
|
|
if ( bToWrite == 0 ) {
|
|
break;
|
|
}
|
|
|
|
if ( fUnicode ) {
|
|
wc = *((TCHAR*)pType + bToWrite);
|
|
*((TCHAR*)pType + bToWrite) = UNICODE_NULL;
|
|
}
|
|
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: Writing unicode text to file")) ;
|
|
flag = MyWriteFile(
|
|
STDOUT, /* device */
|
|
pType, /* bytes */
|
|
bToWrite * sizeof(TCHAR), /* bytes to write */
|
|
&byteswrit); /* bytes actually written */
|
|
|
|
if ( fUnicode ) {
|
|
*((TCHAR*)pType + bToWrite) = wc;
|
|
}
|
|
|
|
bWrite -= byteswrit/sizeof(TCHAR);
|
|
pType += byteswrit;
|
|
#endif // UNICODE
|
|
|
|
} else {
|
|
|
|
try_again:
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: Writing dbcs text to file")) ;
|
|
flag = WriteFile(CRTTONT(STDOUT), pType, bToWrite, &byteswrit, NULL);
|
|
bWrite -= byteswrit;
|
|
pType += byteswrit;
|
|
byteswrit *= sizeof(TCHAR);
|
|
}
|
|
|
|
DEBUG((ICGRP, TYLVL, "TYWORK: flag = %d, byteswrit = %d", flag, byteswrit)) ;
|
|
if (flag == 0 || byteswrit != bToWrite*sizeof(TCHAR)) {
|
|
DosErr = GetLastError();
|
|
if (!DosErr) {
|
|
DosErr = ERROR_DISK_FULL ;
|
|
}
|
|
if (FileIsDevice(STDOUT)) {
|
|
PutStdErr(ERROR_WRITE_FAULT, NOARGS);
|
|
} else {
|
|
if (FileIsPipe(STDOUT)) {
|
|
PutStdErr(MSG_CMD_INVAL_PIPE, NOARGS);
|
|
} else {
|
|
PrtErr(DosErr);
|
|
}
|
|
Cclose(fh);
|
|
rc = FAILURE;
|
|
goto TypeExit;
|
|
}
|
|
|
|
if (fDevice) { /* If not device */
|
|
/* Get new position ptr */
|
|
fDevice = SetFilePointer(CRTTONT(fh), 0, NULL, FILE_CURRENT);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
/*************************************************/
|
|
/* Added check below for current file position */
|
|
/* at original EOF */
|
|
/*************************************************/
|
|
|
|
} while((bytesread == bytestoctlz) && (maxbytes > fDevice));
|
|
|
|
Cclose(fh) ;
|
|
rc = SUCCESS;
|
|
|
|
TypeExit:
|
|
return(rc) ;
|
|
}
|
|
|
|
|
|
|
|
|
|
/*** eVersion - execute the Version command
|
|
*
|
|
* Purpose:
|
|
* To print DOS version information.
|
|
*
|
|
* int eVersion(struct cmdnode *n)
|
|
*
|
|
* Args:
|
|
* n - the parse tree node containing the version command. N will be NULL
|
|
* if eVersion was called from PrintPrompt().
|
|
*
|
|
* Returns:
|
|
* SUCCESS always.
|
|
*
|
|
*/
|
|
|
|
int
|
|
eVersion(
|
|
struct cmdnode *n
|
|
)
|
|
{
|
|
unsigned vrs ;
|
|
|
|
vrs = GetVersion();
|
|
|
|
if (n) /* Begins & ends with NLN only... */
|
|
cmd_printf(CrLf) ; /* ...when not part of prompt. */
|
|
|
|
PutStdOut(MSG_MS_DOS_VERSION,
|
|
THREEARGS,
|
|
VerMsg,
|
|
argstr1( TEXT("%d"), (unsigned long)(vrs & 0xFF)),
|
|
argstr2( TEXT("%-2d"), (unsigned long)((vrs >> 8)& 0xFF))) ;
|
|
if (n) /* Begins & ends with NLN only... */
|
|
cmd_printf(CrLf) ; /* ...when not part of prompt. */
|
|
|
|
|
|
return(LastRetCode = SUCCESS) ;
|
|
}
|
|
|
|
|
|
/**************** START OF SPECIFICATIONS ***********************/
|
|
/* */
|
|
/* SUBROUTINE NAME: eVolume */
|
|
/* */
|
|
/* DESCRIPTIVE NAME: Begin execution of the VOL command */
|
|
/* */
|
|
/* FUNCTION: eVolume will print out the volume label and serial */
|
|
/* number for an arbitrary number of drives, and will */
|
|
/* continue if it encounters an invalid argument. */
|
|
/* This routine is called when the user enters VOL */
|
|
/* on the command line. */
|
|
/* */
|
|
/* NOTES: */
|
|
/* */
|
|
/* ENTRY POINT: eVolume */
|
|
/* LINKAGE: Near */
|
|
/* */
|
|
/* INPUT: n - a parse tree node containing the VOL command */
|
|
/* */
|
|
/* EXIT-NORMAL: returns SUCCESS if the command was well formed, */
|
|
/* and was executed successfully. */
|
|
/* */
|
|
/* EXIT-ERROR: returns FAILURE otherwise. */
|
|
/* */
|
|
/* EFFECTS: None. */
|
|
/* */
|
|
/* INTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* LoopThroughArgs - breaks up command line, calls VolWork */
|
|
/* */
|
|
/* EXTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* */
|
|
/**************** END OF SPECIFICATIONS *************************/
|
|
|
|
int eVolume(n)
|
|
struct cmdnode *n ;
|
|
{
|
|
|
|
return(LastRetCode = LoopThroughArgs(n->argptr, VolWork, LTA_CONT|LTA_NULLOK)) ;
|
|
}
|
|
|
|
|
|
/**************** START OF SPECIFICATIONS ***********************/
|
|
/* */
|
|
/* SUBROUTINE NAME: VolWork */
|
|
/* */
|
|
/* DESCRIPTIVE NAME: Display the volume ID of a drive */
|
|
/* */
|
|
/* FUNCTION: VolWork will print the volume label and serial */
|
|
/* number of a specific drive. */
|
|
/* */
|
|
/* NOTES: */
|
|
/* */
|
|
/* ENTRY POINT: VolWork */
|
|
/* LINKAGE: Near */
|
|
/* */
|
|
/* INPUT: drvspec - a pointer to a character specifying the */
|
|
/* drive to print the information for. If the */
|
|
/* character is null, the information for the */
|
|
/* current drive is displayed. */
|
|
/* */
|
|
/* EXIT-NORMAL: returns SUCCESS if the command was executed */
|
|
/* successfully */
|
|
/* */
|
|
/* EXIT-ERROR: returns FAILURE otherwise */
|
|
/* */
|
|
/* EFFECTS: None. */
|
|
/* */
|
|
/* INTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* PutStdOut - Writes output to standard out */
|
|
/* PutStdErr - Writes output to standard error */
|
|
/* */
|
|
/* EXTERNAL REFERENCES: */
|
|
/* ROUTINES: */
|
|
/* DOSQFSINFO */
|
|
/* */
|
|
/**************** END OF SPECIFICATIONS *************************/
|
|
|
|
int VolWork(drvspec)
|
|
TCHAR *drvspec ;
|
|
{
|
|
struct FSVol vol ;
|
|
unsigned DNum ;
|
|
TCHAR c ;
|
|
TCHAR VolumeRoot[] = TEXT(" :\\");
|
|
DWORD Vsn[2];
|
|
BOOL b;
|
|
|
|
DEBUG((ICGRP, VOLVL, "VOLWORK: drvspec = `%ws'", drvspec)) ;
|
|
|
|
if (*drvspec == NULLC) {
|
|
DNum = 0 ;
|
|
c = _totupper(CurDrvDir[0]) ;
|
|
} else if ((mystrlen(drvspec) == 2) &&
|
|
*(drvspec+1) == COLON &&
|
|
_istalpha(*drvspec)) {
|
|
c = _totupper(*drvspec) ;
|
|
DNum = (unsigned)(c - 0x40) ;
|
|
} else {
|
|
cmd_printf(CrLf);
|
|
PutStdErr(ERROR_INVALID_DRIVE, NOARGS) ; /* M013 */
|
|
return(FAILURE) ;
|
|
} ;
|
|
|
|
VolumeRoot[0] = c;
|
|
b = GetVolumeInformation(VolumeRoot,vol.name,sizeof(vol.name),Vsn,NULL,NULL,NULL,0);
|
|
|
|
if (!b) {
|
|
|
|
DEBUG((ICGRP, VOLVL, "VOLWORK: GetVolumeInformation ret'd %d", GetLastError())) ;
|
|
|
|
cmd_printf(CrLf);
|
|
if (GetLastError() == ERROR_NOT_READY)
|
|
PutStdErr(ERROR_NOT_READY, NOARGS) ;
|
|
else
|
|
PutStdErr(GetLastError(), NOARGS) ; /* @@5a */
|
|
return(FAILURE) ;
|
|
} else {
|
|
if (b && vol.name[0]) {
|
|
/* M013 */ PutStdOut(MSG_DR_VOL_LABEL, TWOARGS,
|
|
argstr1( TEXT("%c"), (unsigned long)c),
|
|
argstr2( TEXT("%s"), (unsigned long)((int)vol.name))) ;
|
|
}
|
|
else {
|
|
/* M013 */ PutStdOut(MSG_HAS_NO_LABEL, ONEARG,
|
|
argstr1( TEXT("%c"), (unsigned long)c)) ;
|
|
}
|
|
/* @@5 */ if (b) { // FIX, FIX
|
|
wsprintf(Tmpbuffer, Fmt26,
|
|
(Vsn[0] & 0xffff0000)>>16, (Vsn[0] & 0xffff));
|
|
PutStdOut(MSG_DR_VOL_SERIAL, ONEARG, Tmpbuffer);
|
|
/* @@5 */ }
|
|
} ;
|
|
|
|
return(SUCCESS) ;
|
|
}
|
|
|
|
/****************************************************************
|
|
*
|
|
* ZScanA - scan data in an arbitrary segment for ^Zs
|
|
*
|
|
* Purpose:
|
|
* If flag is on, scan buffer for a ^Z. If it is found, update the
|
|
* buffer length and return 0. Otherwise return -1.
|
|
* Double byte characters are taken into account.
|
|
*
|
|
* int ZScan(int flag, long buffer, unsigned *buflenptr, int *skip_first)
|
|
*
|
|
* Args:
|
|
* flag - nonzero if any scanning is to be done
|
|
* buffer - a long pointer to the buffer to use
|
|
* buflenptr - ptr to the length of buffer
|
|
* skip_first - ptr to an integer. The initial value of *skip_first
|
|
* must be 0 on the first call when scanning a file. There
|
|
* after, the caller leaves *skip_first alone. ZScan uses
|
|
* the variable to remember if the first byte of the next
|
|
* buffer is going to be the second have of a double
|
|
* byte character.
|
|
*
|
|
* Returns:
|
|
* See above.
|
|
*
|
|
* Notes:
|
|
* This routine will need to be modified once the MMU code is in the DOS.
|
|
* macro is defined in cmd.h.
|
|
*
|
|
*
|
|
* ZScan
|
|
* if (flag) then
|
|
* buffer = buffer + *skip_first
|
|
* dbcs_flag = 0
|
|
* count = *buflenptr - *skip_first
|
|
* use rep scanb to find first ^Z in buffer
|
|
* if (no ^z was found)
|
|
* goto FZSNoZ
|
|
* do {
|
|
* count++;
|
|
* buffer--;
|
|
* } until (*buffer < 0x80 || count = *buflenptr);
|
|
* while (--count > 0) loop
|
|
* if (dbcs_flag == 0) then
|
|
* if (*buffer == ^Z) then
|
|
* *buflenptr = count
|
|
* return(0)
|
|
* else if (*buffer is a dbcs_lead_char) then
|
|
* dbcs_flag = 1
|
|
* endif
|
|
* endif
|
|
* else
|
|
* dbcs_flag = 0
|
|
* buffer = buffer + 1
|
|
* count = count - 1
|
|
* end loop
|
|
* *skip_first = dbcs_flag
|
|
* endif
|
|
*FZSNoZ:
|
|
* return(-1)
|
|
*----
|
|
****************************************************************/
|
|
|
|
|
|
int
|
|
ZScanA(BOOL flag, PCHAR buf, PULONG buflen, PULONG skip)
|
|
{
|
|
PCHAR pbuf = buf,
|
|
bufend;
|
|
|
|
CHAR c0;
|
|
|
|
if ( flag ) {
|
|
pbuf += *skip;
|
|
bufend = buf + *buflen - *skip;
|
|
|
|
while (pbuf < bufend) {
|
|
if (is_dbcsleadchar(c0=*pbuf))
|
|
pbuf++;
|
|
if (c0 == CTRLZ)
|
|
break;
|
|
pbuf++;
|
|
}
|
|
|
|
if (c0 == CTRLZ) {
|
|
// *buflen = pbuf+1 - buf;
|
|
*buflen = pbuf - buf;
|
|
*skip = 0;
|
|
return(0);
|
|
}
|
|
else {
|
|
*skip = pbuf - bufend;
|
|
}
|
|
}
|
|
return(-1);
|
|
}
|