rexx/lstring/sign.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:38  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ------------------ Lsign --------------------- */
  15 int
  16 Lsign( const PLstr num )
  17 {
  18         L2NUM(num);
  19
  20         switch (LTYPE(*num)) {
  21                 case LINTEGER_TY:
  22                         if (LINT(*num)<0)
  23                                 return -1;
  24                         else
  25                         if (LINT(*num)>0)
  26                                 return  1;
  27                         else
  28                                 return  0;
  29
  30                 case LREAL_TY:
  31                         if (LREAL(*num)<0)
  32                                 return -1;
  33                         else
  34                         if (LREAL(*num)>0)
  35                                 return  1;
  36                         else
  37                                 return  0;
  38         }
  39         return 0;
  40 } /* Lsign */