blob: 40ebe675ab1fd87bc5f0d502f7f54e149da3e337 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
/***
*wrt2err.c - write an LSTRING to stderr (OS/2 version)
*
* Copyright (c) 1989-1991, Microsoft Corporation. All rights reserved.
*
*Purpose:
* This module contains a routine __wrt2err that writes an LSTRING
* (one byte length followed by the several bytes of the string)
* to the standard error handle (2). This is a helper routine used
* for MATH error messages (and also FORTRAN error messages). It
* is in the C library rather than the math library because there
* are separate MS-DOS and MS OS/2 versions.
*
*Revision History:
* 06-30-89 PHG module created, based on asm version
* 03-16-90 GJF Made calling type _CALLTYPE1, added #include
* <cruntime.h> and fixed the copyright. Also, cleaned
* up the formatting a bit.
* 07-24-90 SBM Removed '32' from API names
* 10-04-90 GJF New-style function declarator.
* 12-04-90 SRW Changed to include <oscalls.h> instead of <doscalls.h>
* 04-26-91 SRW Removed level 3 warnings
* 07-18-91 GJF Replaced call to DbgPrint with WriteFile to standard
* error handle [_WIN32_].
*
*******************************************************************************/
#ifndef _POSIX_
#include <cruntime.h>
#include <oscalls.h>
#include <internal.h>
/***
*__wrt2err(msg) - write an LSTRING to stderr
*
*Purpose:
* Takes a near pointer in BX, which is a pointer to an LSTRING which
* is to be written to standard error. An LSTRING is a one-byte length
* followed by that many bytes for the character string (as opposed to
* a null-terminated string).
*
*Entry:
* char *msg = pointer to LSTRING to write to standard error.
*
*Exit:
* Nothing returned.
*
*Exceptions:
* None handled.
*
*******************************************************************************/
void __wrt2err (
char *msg
)
{
unsigned long length; /* length of string to write */
unsigned long numwritten; /* number of bytes written */
length = *msg++; /* 1st byte is length */
/* write the message to stderr */
#ifdef _CRUISER_
DOSWRITE(2, msg, length, &numwritten);
#else /* ndef _CRUISER_ */
#ifdef _WIN32_
WriteFile((HANDLE)_osfhnd[2], msg, length, &numwritten, NULL);
#else /* ndef _WIN32_ */
#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
#endif /* _WIN32_ */
#endif /* _CRUISER_ */
}
#endif /* _POSIX_ */
|
