// write the file (or pipe) to another file
static void _near ListSaveFile( void )
{
int i, nFH, nMode;
long lTemp;
POPWINDOWPTR wn;
TCHAR szBuffer[ MAXLISTLINE+1 ];
// disable ^C / ^BREAK handling
HoldSignals();
wn = wOpen( 2, 1, 4, GetScrCols() - 2, nInverse, LIST_SAVE_TITLE, NULL );
wn->nAttrib = nNormal;
wClear();
wWriteListStr( 0, 1, wn, LIST_QUERY_SAVE );
egets( szBuffer, MAXFILENAME, EDIT_DATA | EDIT_BIOS_KEY );
if ( szBuffer[0] ) {
// save start position
lTemp = LFile.lViewPtr;
nMode = _O_BINARY;
if (( nFH = _sopen( szBuffer, ( nMode | _O_WRONLY | _O_CREAT | _O_TRUNC ), _SH_DENYNO, _S_IWRITE | _S_IREAD )) >= 0 ) {
// reset to beginning of file
ListSetCurrent( 0L );
do {
for ( i = 0; ( i < MAXLISTLINE ); i++ ) {
// don't call GetNextChar unless absolutely necessary
if ( LFile.lpCurrent == LFile.lpEOF )
break;
szBuffer[i] = (TCHAR)GetNextChar();
}
szBuffer[i] = _TEXT('\0');
} while (( i > 0 ) && ( wwrite( nFH, szBuffer, i ) > 0 ));
_close( nFH );
// restore start position
LFile.lViewPtr = lTemp;
ListSetCurrent( LFile.lViewPtr );
} else
honk();
}
wRemove( wn );
// enable ^C / ^BREAK handling
EnableSignals();
}
// edit an existing environment variable or alias
int eset_cmd( int argc, char **argv )
{
char *arg;
int nLength;
int i, rval = 0;
long fEset;
PCH vname, feptr, pchList;
unsigned char buffer[CMDBUFSIZ];
// check for alias or master environment switches
if (( GetSwitches( argv[1], "AM", &fEset, 1 ) != 0 ) || ( first_arg( argv[1] ) == NULL ))
return ( usage( ESET_USAGE ));
for ( i = 0; (( arg = ntharg( argv[1], i )) != NULL ); i++ ) {
pchList = (( fEset & ESET_MASTER ) ? glpMasterEnvironment : glpEnvironment );
// try environment variables first, then aliases
if (( fEset & ESET_ALIAS ) || (( feptr = get_list( arg, pchList )) == 0L)) {
// check for alias editing
if (( feptr = get_list( arg, glpAliasList )) == 0L ) {
rval = error((( fEset & ESET_ALIAS ) ? ERROR_4DOS_NOT_ALIAS : ERROR_4DOS_NOT_IN_ENVIRONMENT ), arg );
continue;
}
pchList = glpAliasList;
}
// get the start of the alias or variable name
for ( vname = feptr; (( vname > pchList ) && ( vname[-1] != '\0' )); vname-- )
;
// length of alias/variable name
nLength = (int)( feptr - vname );
sprintf( buffer, "%.*Fs%.*Fs", nLength, vname, (( CMDBUFSIZ - 1 ) - nLength), feptr );
// echo & edit the argument
printf( FMT_FAR_PREC_STR, nLength, vname );
(void)egets( buffer + nLength, (( CMDBUFSIZ - 1 ) - nLength ), EDIT_ECHO );
if ( add_list( buffer, pchList ) != 0 )
rval = ERROR_EXIT;
}
return rval;
}
// process a single INI file
static int IniFProc(LPTSTR fname, INIFILE *InitData, unsigned int fIgnoreSection)
{
LPTSTR arg;
unsigned int line_num, SecFound = 0, CurrentSec = 0;
int fh, nReturn = 0;
TCHAR szBuffer[2048];
LPTSTR errmsg;
if ( ++nNestLevel > MAX_INI_NEST ) {
ini_error( E_NEST, InitData, fname, 1, NULLSTR );
nReturn = -1;
goto IFProcExit;
}
// force ignore of sections that aren't ours
fIgnoreSection |= 0x100;
// open the INI file
if ((fh = _sopen(fname, (O_RDONLY | O_BINARY), SH_DENYWR)) < 0) {
nReturn = -1;
goto IFProcExit;
}
// loop to process each line
for ( line_num = 1; ( getline( fh, szBuffer, 2047, 0 ) > 0 ); line_num++ ) {
// skip line if empty or all comment
arg = skipspace( szBuffer );
if ((*arg == _TEXT('\0')) || (*arg == _TEXT(';')))
continue;
// query if it was requested
if ( InitData->INIQuery != 0 ) {
WriteTTY(szBuffer);
WriteTTY(INI_QUERY);
query_prompt:
switch (GetKeystroke(EDIT_BIOS_KEY | EDIT_ECHO | EDIT_ECHO_CRLF | EDIT_UC_SHIFT)) {
case YES_CHAR:
break;
case NO_CHAR:
continue;
case INI_QUIT_CHAR:
goto ini_done;
case REST_CHAR:
InitData->INIQuery = 0;
break;
case INI_EDIT_CHAR:
egets( szBuffer, 2047, EDIT_BIOS_KEY | EDIT_ECHO );
break;
default:
qputc( STDOUT, BS );
honk();
goto query_prompt;
}
}
// process the line, holler if any error
if ((nReturn = IniLine(szBuffer, InitData, (fIgnoreSection & CurrentSec), 0, &errmsg)) > 0)
ini_error( errmsg, InitData, fname, line_num , szBuffer );
// if no error, see if we have an included file to process
else if (nReturn == -1) {
// call ourselves recursively to process the included file
if ( is_file( szBuffer ))
(void)IniFProc( szBuffer, InitData, fIgnoreSection);
else
ini_error( E_INCL, InitData, fname, line_num, szBuffer );
// if no error, see if we found a section name
} else if (nReturn < 0) {
CurrentSec = -nReturn;
// save section bit if section is one of ours
if (CurrentSec & 0xFF)
SecFound |= CurrentSec;
}
}
ini_done:
InitData->SecFlag = SecFound; // save sections found
_close(fh);
nReturn = 0;
IFProcExit:
--nNestLevel;
return nReturn;
}
static int _fastcall _list( LPTSTR pszFileName )
{
register int c, i;
TCHAR szDescription[512], szHeader[132], szLine[32];
long lTemp, lRow;
POPWINDOWPTR wn = NULL;
FILESEARCH dir;
// get default normal and inverse attributes
if ( gpIniptr->ListColor != 0 ) {
SetScrColor( nScreenRows, nScreenColumns, gpIniptr->ListColor );
}
// set colors
GetAtt( (unsigned int *)&nNormal, (unsigned int *)&nInverse );
if ( gpIniptr->ListStatusColor != 0 )
nInverse = gpIniptr->ListStatusColor;
// flip the first line to inverse video
clear_header();
// open the file & initialize buffers
if ( ListOpenFile( pszFileName ))
return ERROR_EXIT;
// kludge for empty files or pipes
if ( LFile.lSize == 0L )
LFile.lSize = 1L;
for ( ; ; ) {
// display header
if ( fDirtyHeader ) {
clear_header();
sprintf( szHeader, LIST_HEADER, fname_part(LFile.szName), gchVerticalBar, gchVerticalBar, gchVerticalBar );
WriteStrAtt( 0, 0, nInverse, szHeader );
fDirtyHeader = 0;
}
// display location within file
// (don't use color_printf() so we won't have
// problems with windowed sessions)
i = sprintf( szHeader, LIST_LINE, LFile.nListHorizOffset, LFile.lCurrentLine + gpIniptr->ListRowStart, (int)((( LFile.lViewPtr + 1 ) * 100 ) / LFile.lSize ));
WriteStrAtt( 0, ( nScreenColumns - i ), nInverse, szHeader );
SetCurPos( 0, 0 );
if ( lListFlags & LIST_SEARCH ) {
lListFlags &= ~LIST_SEARCH;
fSearchFlags = 0;
if ( lListFlags & LIST_REVERSE ) {
c = LIST_FIND_CHAR_REVERSE;
fSearchFlags |= FFIND_REVERSE_SEARCH;
// goto the last row
while ( ListMoveLine( 1 ) != 0 )
;
} else
c = LIST_FIND_CHAR;
if ( lListFlags & LIST_NOWILDCARDS )
fSearchFlags |= FFIND_NOWILDCARDS;
bListSkipLine = 0;
goto FindNext;
}
// get the key from the BIOS, because
// STDIN might be redirected
if ((( c = cvtkey( GetKeystroke( EDIT_NO_ECHO | EDIT_BIOS_KEY | EDIT_UC_SHIFT), MAP_GEN | MAP_LIST)) == (TCHAR)ESC ))
break;
switch ( c ) {
case CTRLC:
return CTRLC;
case CUR_LEFT:
case CTL_LEFT:
if (( lListFlags & LIST_WRAP ) || ( LFile.nListHorizOffset == 0 ))
goto bad_key;
if (( LFile.nListHorizOffset -= (( c == CUR_LEFT ) ? 8 : 40 )) < 0 )
LFile.nListHorizOffset = 0;
break;
case CUR_RIGHT:
case CTL_RIGHT:
if (( lListFlags & LIST_WRAP ) || ( LFile.nListHorizOffset >= MAXLISTLINE + 1 ))
goto bad_key;
if ((LFile.nListHorizOffset += ((c == CUR_RIGHT) ? 8 : 40 )) > MAXLISTLINE + 1 )
LFile.nListHorizOffset = MAXLISTLINE+1;
break;
case CUR_UP:
if ( ListMoveLine( -1 ) == 0 )
goto bad_key;
Scroll(1, 0, nScreenRows, nScreenColumns, -1, nNormal);
DisplayLine( 1, LFile.lViewPtr );
continue;
case CUR_DOWN:
if ( ListMoveLine( 1 ) == 0 )
goto bad_key;
Scroll( 1, 0, nScreenRows, nScreenColumns, 1, nNormal );
// display last line
lTemp = LFile.lViewPtr;
lRow = (nScreenRows - 1);
lTemp += MoveViewPtr( lTemp, &lRow );
if ( lRow == ( nScreenRows - 1 ))
DisplayLine( nScreenRows, lTemp );
continue;
case HOME:
ListHome();
break;
case END:
// goto the last row
list_wait( LIST_WAIT );
while ( ListMoveLine( 1 ) != 0 )
;
case PgUp:
// already at TOF?
if ( LFile.lViewPtr == 0L )
goto bad_key;
for ( i = 1; (( i < nScreenRows ) && ( ListMoveLine( -1 ) != 0 )); i++ )
;
break;
case PgDn:
case SPACE:
if ( ListMoveLine( nScreenRows - 1 ) == 0 )
goto bad_key;
break;
case F1: // help
// don't allow a ^X exit from HELP
_help( gpInternalName, HELP_NX );
continue;
case TAB:
// change tab size
// disable ^C / ^BREAK handling
HoldSignals();
wn = wOpen( 2, 5, 4, strlen( LIST_TABSIZE ) + 10, nInverse, LIST_TABSIZE_TITLE, NULL );
wn->nAttrib = nNormal;
wClear();
wWriteListStr( 0, 1, wn, LIST_TABSIZE );
egets( szLine, 2, (EDIT_DIALOG | EDIT_BIOS_KEY | EDIT_NO_CRLF | EDIT_DIGITS));
wRemove( wn );
if (( i = atoi( szLine )) > 0 )
TABSIZE = i;
// enable ^C / ^BREAK handling
EnableSignals();
break;
case DEL:
// delete this file
if (( lListFlags & LIST_STDIN ) == 0 ) {
// disable ^C / ^BREAK handling
HoldSignals();
wn = wOpen( 2, 5, 4, strlen( LIST_DELETE ) + 10, nInverse, LIST_DELETE_TITLE, NULL );
wn->nAttrib = nNormal;
wClear();
wWriteListStr( 0, 1, wn, LIST_DELETE );
i = GetKeystroke( EDIT_ECHO | EDIT_BIOS_KEY | EDIT_UC_SHIFT );
wRemove( wn );
// enable ^C / ^BREAK handling
EnableSignals();
if ( i == (TCHAR)YES_CHAR ) {
if ( LFile.hHandle > 0 )
_close( LFile.hHandle );
LFile.hHandle = -1;
remove( pszFileName );
return 0;
}
}
break;
case INS:
// save to a file
ListSaveFile();
break;
case LIST_INFO_CHAR:
{
unsigned int uSize = 1024;
TCHAR _far *lpszText, _far *lpszArg;
int fFSType, fSFN = 1;
TCHAR szBuf[16];
DOSFILEDATE laDir, crDir;
// disable ^C / ^BREAK handling
HoldSignals();
memset( &dir, '\0', sizeof(FILESEARCH) );
if (( lListFlags & LIST_STDIN ) == 0 ) {
if ( find_file( FIND_FIRST, LFile.szName, 0x07 | FIND_CLOSE | FIND_EXACTLY, &dir, NULL ) == NULL ) {
honk();
continue;
}
}
// display info on the current file
i = (( lListFlags & LIST_STDIN ) ? 5 : 10 );
if (( fFSType = ifs_type( LFile.szName )) != FAT )
i = 11;
wn = wOpen( 2, 1, i, 77, nInverse, gpInternalName, NULL );
wn->nAttrib = nNormal;
wClear();
i = 0;
if ( lListFlags & LIST_STDIN )
wWriteStrAtt( 0, 1, nNormal, LIST_INFO_PIPE );
else {
szDescription[0] = _TEXT('\0');
process_descriptions( LFile.szName, szDescription, DESCRIPTION_READ );
lpszText = lpszArg = (TCHAR _far *)AllocMem( &uSize );
strcpy(szBuf, FormatDate( dir.fd.file_date.months, dir.fd.file_date.days, dir.fd.file_date.years + 80, 0 ));
if (fFSType != FAT) {
FileTimeToDOSTime( &(dir.ftLastAccessTime), &( laDir.ft.wr_time), &( laDir.fd.wr_date) );
FileTimeToDOSTime( &(dir.ftCreationTime), &(crDir.ft.wr_time), &(crDir.fd.wr_date) );
strcpy( szLine, FormatDate( laDir.fd.file_date.months, laDir.fd.file_date.days, laDir.fd.file_date.years + 80, 0 ));
sprintf_far( lpszText, LIST_INFO_LFN,
LFile.szName, szDescription, dir.ulSize,
szBuf,
dir.ft.file_time.hours, gaCountryInfo.szTimeSeparator[0],dir.ft.file_time.minutes,
szLine,
laDir.ft.file_time.hours, gaCountryInfo.szTimeSeparator[0], laDir.ft.file_time.minutes,
FormatDate( crDir.fd.file_date.months, crDir.fd.file_date.days, crDir.fd.file_date.years + 80, 0 ),
crDir.ft.file_time.hours, gaCountryInfo.szTimeSeparator[0], crDir.ft.file_time.minutes);
} else {
sprintf_far( lpszText, LIST_INFO_FAT,
LFile.szName, szDescription, dir.ulSize,
szBuf, dir.ft.file_time.hours,
gaCountryInfo.szTimeSeparator[0],dir.ft.file_time.minutes );
}
// print the text
for ( ; ( *lpszArg != _TEXT('\0') ); i++ ) {
sscanf_far( lpszArg, _TEXT("%[^\n]%*c%n"), szHeader, &uSize );
// allow for long filenames ...
if (( i == 0 ) && ( strlen( szHeader ) > 73 )) {
c = szHeader[73];
szHeader[73] = _TEXT('\0');
wWriteStrAtt( i++, 1, nNormal, szHeader );
szHeader[73] = (TCHAR)c;
wWriteStrAtt( i, 15, nNormal, szHeader+73 );
fSFN = 0;
} else
wWriteStrAtt( i, 1, nNormal, szHeader );
lpszArg += uSize;
}
FreeMem( lpszText );
}
wWriteListStr( i+fSFN, 1, wn, PAUSE_PROMPT );
GetKeystroke( EDIT_NO_ECHO | EDIT_BIOS_KEY );
wRemove( wn );
// enable ^C / ^BREAK handling
EnableSignals();
continue;
}
case LIST_GOTO_CHAR:
// goto the specified line / hex offset
// disable ^C / ^BREAK handling
HoldSignals();
wn = wOpen( 2, 5, 4, strlen( LIST_GOTO_OFFSET ) + 20, nInverse, LIST_GOTO_TITLE, NULL );
wn->nAttrib = nNormal;
wClear();
wWriteListStr( 0, 1, wn, (( lListFlags & LIST_HEX) ? LIST_GOTO_OFFSET : LIST_GOTO));
i = egets( szLine, 10, (EDIT_DIALOG | EDIT_BIOS_KEY | EDIT_NO_CRLF));
wRemove( wn );
// enable ^C / ^BREAK handling
EnableSignals();
if ( i == 0 )
break;
list_wait( LIST_WAIT );
// if in hex mode, jump to offset
if ( lListFlags & LIST_HEX ) {
strupr( szLine );
sscanf( szLine, _TEXT("%lx"), &lRow );
lRow = lRow / 0x10;
} else if ( sscanf( szLine, FMT_LONG, &lRow ) == 0 )
continue;
lRow -= gpIniptr->ListRowStart;
if ( lRow >= 0 ) {
LFile.lViewPtr = MoveViewPtr( 0L, &lRow );
LFile.lCurrentLine = lRow;
} else {
LFile.lViewPtr += MoveViewPtr( LFile.lViewPtr, &lRow );
LFile.lCurrentLine += lRow;
}
break;
case LIST_HIBIT_CHAR:
// toggle high bit filter
lListFlags ^= LIST_HIBIT;
break;
case LIST_WRAP_CHAR:
// toggle line wrap
lListFlags ^= LIST_WRAP;
nRightMargin = (( lListFlags & LIST_WRAP ) ? GetScrCols() : MAXLISTLINE );
// recalculate current line
list_wait( LIST_WAIT );
// get start of line
LFile.nListHorizOffset = 0;
// line number probably changed, so recompute everything
LFile.lCurrentLine = ComputeLines( 0L, LFile.lViewPtr );
LFile.lViewPtr = MoveViewPtr( 0L, &(LFile.lCurrentLine ));
break;
case LIST_HEX_CHAR:
// toggle hex display
lListFlags ^= LIST_HEX;
// if hex, reset to previous 16-byte
// boundary
if ( lListFlags & LIST_HEX ) {
LFile.lViewPtr -= ( LFile.lViewPtr % 16 );
} else {
// if not hex, reset to start of line
ListMoveLine( 1 );
ListMoveLine( -1 );
}
// recalculate current line
list_wait( LIST_WAIT );
LFile.lCurrentLine = ComputeLines( 0L, LFile.lViewPtr );
break;
case LIST_FIND_CHAR:
case LIST_FIND_CHAR_REVERSE:
// find first matching string
bListSkipLine = 0;
//lint -fallthrough
case LIST_FIND_NEXT_CHAR:
case LIST_FIND_NEXT_CHAR_REVERSE:
// find next matching string
if (( c == LIST_FIND_CHAR ) || ( c == LIST_FIND_CHAR_REVERSE )) {
// disable ^C / ^BREAK handling
HoldSignals();
fSearchFlags = 0;
wn = wOpen( 2, 1, 4, 75, nInverse, (( c == LIST_FIND_NEXT_CHAR_REVERSE ) ? LIST_FIND_TITLE_REVERSE : LIST_FIND_TITLE ), NULL );
wn->nAttrib = nNormal;
wClear();
if ( lListFlags & LIST_HEX ) {
wWriteListStr( 0, 1, wn, LIST_FIND_HEX );
if ( GetKeystroke( EDIT_ECHO | EDIT_BIOS_KEY | EDIT_UC_SHIFT ) == YES_CHAR )
fSearchFlags |= FFIND_HEX_SEARCH;
wClear();
}
wWriteListStr( 0, 1, wn, LIST_FIND );
egets( szListFindWhat, 64, (EDIT_DIALOG | EDIT_BIOS_KEY | EDIT_NO_CRLF));
wRemove( wn );
// enable ^C / ^BREAK handling
EnableSignals();
} else {
FindNext:
// a "Next" has to be from current position
fSearchFlags &= ~FFIND_TOPSEARCH;
}
if ( szListFindWhat[0] == _TEXT('\0') )
continue;
sprintf( szDescription, LIST_FIND_WAIT, szListFindWhat );
list_wait( szDescription );
// save start position
lTemp = LFile.lViewPtr;
lRow = LFile.lCurrentLine;
if (( c == LIST_FIND_CHAR_REVERSE ) || ( c == LIST_FIND_NEXT_CHAR_REVERSE )) {
// start on the previous line
fSearchFlags |= FFIND_REVERSE_SEARCH;
} else {
fSearchFlags &= ~FFIND_REVERSE_SEARCH;
// skip the first line (except on /T"xxx")
if ( bListSkipLine )
ListMoveLine( 1 );
}
bListSkipLine = 1;
if ( SearchFile( fSearchFlags ) != 1 ) {
ListSetCurrent( lTemp );
LFile.lViewPtr = lTemp;
LFile.lCurrentLine = lRow;
} else
LFile.fDisplaySearch = (( fSearchFlags & FFIND_CHECK_CASE ) ? 2 : 1 );
break;
case LIST_PRINT_CHAR:
// print the file
ListPrintFile();
continue;
case LIST_CONTINUE_CHAR:
case CTL_PgDn:
return 0;
case LIST_PREVIOUS_CHAR:
case CTL_PgUp:
// previous file
if ( nCurrent > 0 ) {
nCurrent--;
return 0;
}
//lint -fallthrough
default:
bad_key:
honk();
continue;
}
// rewrite the display
ListUpdateScreen();
}
return 0;
}
// edit an existing environment variable or alias
int _near Eset_Cmd( LPTSTR pszCmdLine )
{
LPTSTR pszArg;
register int nLength;
int i, nReturn = 0;
long fEset;
TCHAR _far *lpszVarName, _far *lpszVars, _far *pchList;
TCHAR szBuffer[CMDBUFSIZ];
// check for alias or master environment switches
if (( GetSwitches( pszCmdLine, _TEXT("AFM"), &fEset, 1 ) != 0 ) || ( first_arg( pszCmdLine ) == NULL ))
return ( Usage( ESET_USAGE ));
for ( i = 0; (( pszArg = ntharg( pszCmdLine, i )) != NULL ); i++ ) {
pchList = (( fEset & ESET_MASTER ) ? glpMasterEnvironment : glpEnvironment );
// function edit request?
if ( fEset & ESET_FUNCTION ) {
pchList = glpFunctionList;
if (( lpszVars = get_list( pszArg, pchList )) == 0L ) {
nReturn = error( ERROR_4DOS_NOT_FUNCTION, pszArg );
continue;
}
} else {
// try environment variables first, then aliases
if (( fEset & ESET_ALIAS ) || (( lpszVars = get_list( pszArg, pchList )) == 0L )) {
// check for alias editing
if (( lpszVars = get_list( pszArg, glpAliasList )) == 0L ) {
nReturn = error((( fEset & ESET_ALIAS ) ? ERROR_4DOS_NOT_ALIAS : ERROR_4DOS_NOT_IN_ENVIRONMENT ), pszArg );
continue;
}
pchList = glpAliasList;
}
}
// get the start of the alias / function / variable name
for ( lpszVarName = lpszVars; (( lpszVarName > pchList ) && ( lpszVarName[-1] != _TEXT('\0') )); lpszVarName-- )
;
// length of alias/function/variable name
nLength = (int)( lpszVars - lpszVarName );
sprintf( szBuffer, _TEXT("%.*Fs%.*Fs"), nLength, lpszVarName, (( CMDBUFSIZ - 1 ) - nLength), lpszVars );
// echo & edit the argument
printf( FMT_FAR_PREC_STR, nLength, lpszVarName );
egets( szBuffer + nLength, (( CMDBUFSIZ - 1 ) - nLength ), EDIT_ECHO | EDIT_SCROLL_CONSOLE );
if ( add_list( szBuffer, pchList ) != 0 )
nReturn = ERROR_EXIT;
}
return nReturn;
}
