130 lines
3.2 KiB
C
130 lines
3.2 KiB
C
/***
|
|
*putch.c - contains the _putch() routine for OS/2 Protected Mode
|
|
*
|
|
* Copyright (c) 1989-1993, Microsoft Corporation. All rights reserved
|
|
*
|
|
*Purpose:
|
|
* The routine "_putch()" writes a single character to the console.
|
|
*
|
|
* NOTE: In real-mode DOS the character is actually written to standard
|
|
* output, and is therefore redirected when standard output is redirected.
|
|
* However, in Protected-Mode OS/2 the character is ALWAYS written
|
|
* to the console, even when standard output has been redirected.
|
|
*
|
|
*Revision History:
|
|
* 06-08-89 PHG Module created, based on asm version
|
|
* 03-13-90 GJF Made calling type _CALLTYPE1, added #include
|
|
* <cruntime.h> and fixed copyright. Also, cleaned up
|
|
* the formatting a bit.
|
|
* 06-05-90 SBM Recoded as pure 32-bit, using new file handle state bits
|
|
* 07-24-90 SBM Removed '32' from API names
|
|
* 10-01-90 GJF New-style function declarators.
|
|
* 12-04-90 SRW Changed to include <oscalls.h> instead of <doscalls.h>
|
|
* 12-06-90 SRW Added _CRUISER_ and _WIN32 conditionals.
|
|
* 01-16-91 GJF ANSI naming.
|
|
* 02-19-91 SRW Adapt to OpenFile/CreateFile changes (_WIN32_)
|
|
* 02-25-91 MHL Adapt to ReadFile/WriteFile changes (_WIN32_)
|
|
* 07-26-91 GJF Took out init. stuff and cleaned up the error
|
|
* handling [_WIN32_].
|
|
* 03-20-93 GJF Use WriteConsole instead of WriteFile.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#include <oscalls.h>
|
|
#include <conio.h>
|
|
#include <os2dll.h>
|
|
#include <stdio.h>
|
|
|
|
/*
|
|
* declaration for console handle
|
|
*/
|
|
extern int _confh;
|
|
|
|
/***
|
|
*int _putch(c) - write a character to the console
|
|
*
|
|
*Purpose:
|
|
* Calls DOSWRITE to output the character
|
|
* Note: in OS/2 protect mode always writes to console even
|
|
* when stdout redirected
|
|
*
|
|
*Entry:
|
|
* c - Character to be output
|
|
*
|
|
*Exit:
|
|
* If an error is returned from DOSWRITE
|
|
* Then returns EOF
|
|
* Otherwise
|
|
* returns character that was output
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef MTHREAD
|
|
/* normal version lock and unlock the console, and then call the _lk version
|
|
which directly accesses the console without locking. */
|
|
|
|
int _CRTAPI1 _putch (
|
|
int c
|
|
)
|
|
{
|
|
int ch;
|
|
|
|
_mlock(_CONIO_LOCK); /* secure the console lock */
|
|
ch = _putch_lk(c); /* output the character */
|
|
_munlock(_CONIO_LOCK); /* release the console lock */
|
|
|
|
return ch;
|
|
}
|
|
#endif /* MTHREAD */
|
|
|
|
/* define version which accesses the console directly - normal version in
|
|
non-MTHREAD situations, special _lk version in MTHREAD */
|
|
|
|
#ifdef MTHREAD
|
|
int _CRTAPI1 _putch_lk (
|
|
#else
|
|
int _CRTAPI1 _putch (
|
|
#endif
|
|
int c
|
|
)
|
|
{
|
|
/* can't use ch directly unless sure we have a big-endian machine */
|
|
unsigned char ch = (unsigned char)c;
|
|
ULONG num_written;
|
|
|
|
/* write character to console file handle */
|
|
|
|
#ifdef _CRUISER_
|
|
|
|
if (DOSWRITE(_confh, &ch, 1L, &num_written)) {
|
|
/* OS/2 error, return error indicator */
|
|
return EOF;
|
|
}
|
|
|
|
#else /* ndef _CRUISER_ */
|
|
|
|
#ifdef _WIN32_
|
|
|
|
if ( (_confh == -1) || !WriteConsole( (HANDLE)_confh,
|
|
(LPVOID)&ch,
|
|
1,
|
|
&num_written,
|
|
NULL )
|
|
)
|
|
/* return error indicator */
|
|
return EOF;
|
|
|
|
#else /* ndef _WIN32_ */
|
|
|
|
#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
|
|
|
|
#endif /* _WIN32_ */
|
|
|
|
#endif /* _CRUISER_ */
|
|
|
|
return ch;
|
|
}
|