File: RLOPWR.c

package info (click to toggle)
qepcad 1.74%2Bds-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 4,848 kB
  • sloc: ansic: 27,242; cpp: 2,995; makefile: 1,287; perl: 91
file content (28 lines) | stat: -rw-r--r-- 799 bytes parent folder | download | duplicates (2)
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
/*======================================================================
                      RLOPWR(p)

Relational Operator Write.

\Input
  \parm{p} is a relational operator,
           written out to the ouput stream.
======================================================================*/
#include "qepcad.h"

void RLOPWR(Word p)
{

Step1: /* Write it. */
       switch (p)
         {
         case EQOP: { SWRITE("="); goto Return; } break;
         case NEOP: { SWRITE("/="); goto Return; } break;
         case LTOP: { SWRITE("<"); goto Return; } break;
         case LEOP: { SWRITE("<="); goto Return; } break;
         case GTOP: { SWRITE(">"); goto Return; } break;
         case GEOP: { SWRITE(">="); goto Return; } break;
         }

Return: /* Prepare for return. */
       return;
}