mod.cpp

   1 #include "stdafx.h"
   2
   3 #include "defs.h"
   4
   5 void mod(void);
   6
   7 void
   8 eval_mod(void)
   9 {
  10         push(cadr(p1));
  11         eval();
  12         push(caddr(p1));
  13         eval();
  14         mod();
  15 }
  16
  17 void
  18 mod(void)
  19 {
  20         int n;
  21
  22         save();
  23
  24         p2 = pop();
  25         p1 = pop();
  26
  27         if (iszero(p2))
  28                 stop("mod function: divide by zero");
  29
  30         if (!isnum(p1) || !isnum(p2)) {
  31                 push_symbol(MOD);
  32                 push(p1);
  33                 push(p2);
  34                 list(3);
  35                 restore();
  36                 return;
  37         }
  38
  39         if (isdouble(p1)) {
  40                 push(p1);
  41                 n = pop_integer();
  42                 if (n == (int) 0x80000000)
  43                         stop("mod function: cannot convert float value to integer");
  44                 push_integer(n);
  45                 p1 = pop();
  46         }
  47
  48         if (isdouble(p2)) {
  49                 push(p2);
  50                 n = pop_integer();
  51                 if (n == (int) 0x80000000)
  52                         stop("mod function: cannot convert float value to integer");
  53                 push_integer(n);
  54                 p2 = pop();
  55         }
  56
  57         if (!isinteger(p1) || !isinteger(p2))
  58                 stop("mod function: integer arguments expected");
  59
  60         p3 = alloc();
  61         p3->k = NUM;
  62         p3->u.q.a = mmod(p1->u.q.a, p2->u.q.a);
  63         p3->u.q.b = mint(1);
  64         push(p3);
  65
  66         restore();
  67 }
  68
  69 #if SELFTEST
  70
  71 static char *s[] = {
  72
  73         "mod(2.0,3.0)",
  74         "2",
  75
  76         "mod(-2.0,3.0)",
  77         "-2",
  78
  79         "mod(2.0,-3.0)",
  80         "2",
  81
  82         "mod(-2.0,-3.0)",
  83         "-2",
  84
  85         "mod(2,3)",
  86         "2",
  87
  88         "mod(-2,3)",
  89         "-2",
  90
  91         "mod(2,-3)",
  92         "2",
  93
  94         "mod(-2,-3)",
  95         "-2",
  96
  97         "mod(a,b)",
  98         "mod(a,b)",
  99
 100         "mod(2.0,0.0)",
 101         "Stop: mod function: divide by zero",
 102
 103         "mod(2,0)",
 104         "Stop: mod function: divide by zero",
 105
 106         "mod(1.2,2)",
 107         "Stop: mod function: cannot convert float value to integer",
 108
 109         "mod(1/2,3)",
 110         "Stop: mod function: integer arguments expected",
 111
 112         "mod(15,8.0)",
 113         "7",
 114 };
 115
 116 void
 117 test_mod(void)
 118 {
 119         test(__FILE__, s, sizeof s / sizeof (char *));
 120 }
 121
 122 #endif