forked from ring-lang/ring
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathring_vmjump.c
More file actions
98 lines (92 loc) · 1.95 KB
/
ring_vmjump.c
File metadata and controls
98 lines (92 loc) · 1.95 KB
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/* Copyright (c) 2013-2016 Mahmoud Fayed <[email protected]> */
#include "ring.h"
/* Jump Functions */
void ring_vm_jump ( VM *pVM )
{
RING_VM_JUMP ;
}
void ring_vm_jumpzero ( VM *pVM )
{
if ( RING_VM_STACK_ISNUMBER ) {
if ( RING_VM_STACK_READN == 0 ) {
ring_vm_jump(pVM);
}
}
RING_VM_STACK_POP ;
}
void ring_vm_jumpfor ( VM *pVM )
{
double nNum1,nNum2,nNum3 ;
/* Check Data */
if ( RING_VM_STACK_ISNUMBER ) {
nNum1 = RING_VM_STACK_READN ;
RING_VM_STACK_POP ;
}
else if ( RING_VM_STACK_ISSTRING ) {
nNum1 = ring_vm_stringtonum(pVM,RING_VM_STACK_READC);
RING_VM_STACK_POP ;
} else {
ring_vm_error(pVM,RING_VM_ERROR_FORLOOPDATATYPE);
return ;
}
nNum2 = ring_list_getdouble(pVM->aForStep,ring_list_getsize(pVM->aForStep));
/* Check Data */
if ( RING_VM_STACK_ISNUMBER ) {
nNum3 = RING_VM_STACK_READN ;
RING_VM_STACK_POP ;
}
else if ( RING_VM_STACK_ISSTRING ) {
nNum3 = ring_vm_stringtonum(pVM,RING_VM_STACK_READC);
RING_VM_STACK_POP ;
} else {
ring_vm_error(pVM,RING_VM_ERROR_FORLOOPDATATYPE);
return ;
}
/*
** nNum2 = Step value that can be positive or negative
** nNum1 = Items Count , nNum3 = Index
*/
if ( nNum2 < 0 ) {
if ( ! ( nNum3 >= nNum1 ) ) {
ring_vm_jump(pVM);
}
}
else {
if ( ! ( nNum3 <= nNum1 ) ) {
ring_vm_jump(pVM);
}
}
}
void ring_vm_jumpone ( VM *pVM )
{
if ( RING_VM_STACK_ISNUMBER ) {
if ( RING_VM_STACK_READN != 0 ) {
ring_vm_jump(pVM);
}
}
RING_VM_STACK_POP ;
}
void ring_vm_jumpone2 ( VM *pVM )
{
/* Add 1, required for jump in many 'OR' in conditions */
if ( RING_VM_STACK_ISNUMBER ) {
if ( RING_VM_STACK_READN != 0 ) {
ring_vm_jump(pVM);
return ;
}
}
RING_VM_STACK_POP ;
RING_VM_STACK_PUSHNVALUE(0);
}
void ring_vm_jumpzero2 ( VM *pVM )
{
/* Add 1, required for jump in many 'AND' in conditions */
if ( RING_VM_STACK_ISNUMBER ) {
if ( RING_VM_STACK_READN == 0 ) {
ring_vm_jump(pVM);
return ;
}
}
RING_VM_STACK_POP ;
RING_VM_STACK_PUSHNVALUE(1);
}