File: stackmach.c

package info (click to toggle)
libimager-perl 0.44-1sarge1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,648 kB
  • ctags: 2,262
  • sloc: ansic: 18,403; perl: 10,771; makefile: 55
file content (49 lines) | stat: -rw-r--r-- 726 bytes parent folder | download | duplicates (13) 
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
 
#include "stackmach.h"

double
i_op_run(int codes[], size_t code_size, double parms[], size_t parm_size) {
  double stack[100];
  double *sp = stack;

  while (code_size) {
    switch (*codes++) {
    case bcAdd:
      sp[-2] += sp[-1];
      --sp;
      break;

    case bcSubtract:
      sp[-2] -= sp[-1];
      --sp;
      break;

    case bcDiv:
      sp[-2] /= sp[-1];
      --sp;
      break;

    case bcMult:
      sp[-2] *= sp[-1];
      --sp;
      break;

    case bcParm:
      *sp++ = parms[*codes++];
      --code_size;
      break;

    case bcSin:
      sp[-1] = sin(sp[-1]);
      break;
      
    case bcCos:
      sp[-1] = cos(sp[-1]);
      break;
      
    }
    --code_size;
  }
  
  return sp[-1];
}