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
|
/*======================================================================
SIGNWR(s)
Sign write.
\Input
\parm{s} is a sign to be written to the output stream.
======================================================================*/
#include "qepcad.h"
void SIGNWR(Word s)
{
Step1: /* Write. */
switch (s)
{
case POSITIVE: CWRITE('+'); break;
case ZERO: CWRITE('0'); break;
case NEGATIVE: CWRITE('-'); break;
case UNDET: CWRITE('?'); break;
}
Return: /* Prepare for return. */
return;
}
|
