262 lines
7.4 KiB
C++
262 lines
7.4 KiB
C++
|
/*
|
||
|
|
** Command & Conquer Red Alert(tm)
|
||
|
|
** Copyright 2025 Electronic Arts Inc.
|
||
|
|
**
|
||
|
|
** This program is free software: you can redistribute it and/or modify
|
||
|
|
** it under the terms of the GNU General Public License as published by
|
||
|
|
** the Free Software Foundation, either version 3 of the License, or
|
||
|
|
** (at your option) any later version.
|
||
|
|
**
|
||
|
|
** This program 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 General Public License for more details.
|
||
|
|
**
|
||
|
|
** You should have received a copy of the GNU General Public License
|
||
|
|
** along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/***************************************************************************
|
||
|
|
** C O N F I D E N T I A L --- W E S T W O O D S T U D I O S **
|
||
|
|
***************************************************************************
|
||
|
|
* *
|
||
|
|
* Project Name : VQAVIEW *
|
||
|
|
* *
|
||
|
|
* File Name : MONOCHRM.CPP *
|
||
|
|
* *
|
||
|
|
* Programmer : Michael Legg *
|
||
|
|
* *
|
||
|
|
* Start Date : May 10, 1995 *
|
||
|
|
* *
|
||
|
|
* Last Update : May 30, 1995 [ML] *
|
||
|
|
* *
|
||
|
|
*-------------------------------------------------------------------------*
|
||
|
|
* Functions: *
|
||
|
|
* *
|
||
|
|
* These are not our functions, but Microsoft's from DBWIN.EXE *
|
||
|
|
* *
|
||
|
|
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
|
||
|
|
|
||
|
|
#include <mem.h>
|
||
|
|
#include <stdarg.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <monochrm.h>
|
||
|
|
#include <westwood.h>
|
||
|
|
|
||
|
|
typedef struct
|
||
|
|
{
|
||
|
|
char ch;
|
||
|
|
char attr;
|
||
|
|
} CA;
|
||
|
|
|
||
|
|
#define CCOLMAX 80
|
||
|
|
#define CROWMAX 25
|
||
|
|
|
||
|
|
#define ESC 27
|
||
|
|
#define BELL 7
|
||
|
|
#define DEFATTR 0x07
|
||
|
|
#define CA_SPACE ((DEFATTR << 8) | ' ')
|
||
|
|
|
||
|
|
// row+1 = DBWIN
|
||
|
|
#define PCA(row, col) (0xB0000 + ( (((row+0)*CCOLMAX)+col) * sizeof(CA)))
|
||
|
|
|
||
|
|
static void Monochrome_Output( char *string );
|
||
|
|
static void CACopy( CA *pcaDst, CA *pcaSrc, int cca );
|
||
|
|
static void CAFill( CA *pcaDst, int cca, int ca );
|
||
|
|
|
||
|
|
int rowCur = 0;
|
||
|
|
int colCur = 0;
|
||
|
|
|
||
|
|
/***************************************************************************
|
||
|
|
* DEBUG_PRINTF - works like printf, with limit of 10 variable args *
|
||
|
|
* *
|
||
|
|
* INPUT: same as printf *
|
||
|
|
* *
|
||
|
|
* OUTPUT: a message on the monochrome monitor display *
|
||
|
|
* *
|
||
|
|
* WARNINGS: try to end messages with \r\n! *
|
||
|
|
* *
|
||
|
|
* HISTORY: see PVCS log *
|
||
|
|
*=========================================================================*/
|
||
|
|
void Debug_Printf( char *format_string, ... )
|
||
|
|
{
|
||
|
|
va_list ap;
|
||
|
|
int arg[ 10 ];
|
||
|
|
char output_string[ 255 ];
|
||
|
|
|
||
|
|
va_start( ap, format_string );
|
||
|
|
arg[ 0 ] = va_arg( ap, int );
|
||
|
|
arg[ 1 ] = va_arg( ap, int );
|
||
|
|
arg[ 2 ] = va_arg( ap, int );
|
||
|
|
arg[ 3 ] = va_arg( ap, int );
|
||
|
|
arg[ 4 ] = va_arg( ap, int );
|
||
|
|
arg[ 5 ] = va_arg( ap, int );
|
||
|
|
arg[ 6 ] = va_arg( ap, int );
|
||
|
|
arg[ 7 ] = va_arg( ap, int );
|
||
|
|
arg[ 8 ] = va_arg( ap, int );
|
||
|
|
arg[ 9 ] = va_arg( ap, int );
|
||
|
|
va_end( ap );
|
||
|
|
|
||
|
|
sprintf( (char *) output_string,
|
||
|
|
(char *) format_string,
|
||
|
|
arg[ 0 ],
|
||
|
|
arg[ 1 ],
|
||
|
|
arg[ 2 ],
|
||
|
|
arg[ 3 ],
|
||
|
|
arg[ 4 ],
|
||
|
|
arg[ 5 ],
|
||
|
|
arg[ 6 ],
|
||
|
|
arg[ 7 ],
|
||
|
|
arg[ 8 ],
|
||
|
|
arg[ 9 ] );
|
||
|
|
|
||
|
|
Debug_Mono_Message( (char *) output_string );
|
||
|
|
}
|
||
|
|
|
||
|
|
/***************************************************************************
|
||
|
|
* DEBUG_MONO_MESSAGE -- Post a line to the monochrome monitor *
|
||
|
|
* *
|
||
|
|
* INPUT: the message to print *
|
||
|
|
* *
|
||
|
|
* OUTPUT: a message on the monochrome monitor display *
|
||
|
|
* *
|
||
|
|
* WARNINGS: try to end messages with \r\n! *
|
||
|
|
* *
|
||
|
|
* HISTORY: see PVCS log *
|
||
|
|
*=========================================================================*/
|
||
|
|
void Debug_Mono_Message( char *message )
|
||
|
|
{
|
||
|
|
char *temp_string;
|
||
|
|
char *temp_null_position;
|
||
|
|
char temp_char;
|
||
|
|
int length_left;
|
||
|
|
|
||
|
|
length_left = strlen( message );
|
||
|
|
temp_null_position = message;
|
||
|
|
while ( length_left > CCOLMAX ) {
|
||
|
|
temp_string = temp_null_position;
|
||
|
|
temp_null_position += CCOLMAX;
|
||
|
|
temp_char = *temp_null_position;
|
||
|
|
temp_null_position[ 0 ] = '\0';
|
||
|
|
|
||
|
|
Monochrome_Output( temp_string );
|
||
|
|
|
||
|
|
*temp_null_position = temp_char;
|
||
|
|
length_left -= CCOLMAX;
|
||
|
|
}
|
||
|
|
temp_string = temp_null_position;
|
||
|
|
|
||
|
|
Monochrome_Output( temp_string );
|
||
|
|
}
|
||
|
|
|
||
|
|
static void Monochrome_Output( char *string )
|
||
|
|
{
|
||
|
|
CA *pca;
|
||
|
|
char ch;
|
||
|
|
static int _initialized = FALSE;
|
||
|
|
|
||
|
|
pca = (CA *) PCA(rowCur, colCur);
|
||
|
|
|
||
|
|
if ( ! _initialized ) {
|
||
|
|
CAFill( (CA *) PCA(0, 0),
|
||
|
|
(CCOLMAX * CROWMAX),
|
||
|
|
CA_SPACE );
|
||
|
|
colCur = 0;
|
||
|
|
rowCur = 0;
|
||
|
|
_initialized = TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
while ( TRUE ) {
|
||
|
|
|
||
|
|
ch = *string++;
|
||
|
|
if ( ! ch ) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch (ch) {
|
||
|
|
|
||
|
|
case '\b':
|
||
|
|
if (colCur > 0)
|
||
|
|
{
|
||
|
|
colCur--;
|
||
|
|
pca--;
|
||
|
|
pca->ch = ' ';
|
||
|
|
pca->attr = DEFATTR;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case BELL:
|
||
|
|
// MessageBeep(0);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case '\t':
|
||
|
|
pca += 8 - colCur % 8;
|
||
|
|
colCur += 8 - colCur % 8;
|
||
|
|
break;
|
||
|
|
|
||
|
|
case '\r':
|
||
|
|
colCur = 0;
|
||
|
|
pca = (CA *) PCA(rowCur, colCur);
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
pca->ch = ch;
|
||
|
|
pca->attr = DEFATTR;
|
||
|
|
pca++;
|
||
|
|
colCur++;
|
||
|
|
|
||
|
|
if (colCur < CCOLMAX)
|
||
|
|
break;
|
||
|
|
|
||
|
|
// fall through to handle LF
|
||
|
|
|
||
|
|
case '\n':
|
||
|
|
colCur = 0;
|
||
|
|
rowCur++;
|
||
|
|
|
||
|
|
if (rowCur >= CROWMAX)
|
||
|
|
{
|
||
|
|
CACopy( (CA *) PCA(0, 0), (CA *) PCA(1, 0), CCOLMAX * (CROWMAX - 1));
|
||
|
|
CAFill( (CA *) PCA(CROWMAX - 1, 0), CCOLMAX, CA_SPACE);
|
||
|
|
rowCur = CROWMAX - 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
pca = (CA *) PCA(rowCur, colCur);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case ESC:
|
||
|
|
//
|
||
|
|
// ANSI clear screen escape
|
||
|
|
//
|
||
|
|
if (string[1] == '[' && string[2] == '2' && string[3] == 'J')
|
||
|
|
{
|
||
|
|
CAFill( (CA *)PCA(0,0), CCOLMAX * CROWMAX, CA_SPACE);
|
||
|
|
rowCur = colCur = 0;
|
||
|
|
string += 3;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static void CACopy( CA *pcaDst, CA *pcaSrc, int cca )
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
|
||
|
|
for ( i = 0; i < cca; i ++ ) {
|
||
|
|
*pcaDst = *pcaSrc;
|
||
|
|
pcaDst ++;
|
||
|
|
pcaSrc ++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static void CAFill( CA *pcaDst, int cca, int ca )
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
|
||
|
|
for ( i = 0; i < cca; i ++ ) {
|
||
|
|
memcpy( pcaDst, &ca, sizeof( int ) );
|
||
|
|
pcaDst ++;
|
||
|
|
}
|
||
|
|
}
|