2073 |
|
|
2074 |
if((env->head)==NULL || env->head->next==NULL) { |
if((env->head)==NULL || env->head->next==NULL) { |
2075 |
printerr("Too Few Arguments"); |
printerr("Too Few Arguments"); |
2076 |
env->err=1; |
env->err= 1; |
2077 |
return; |
return; |
2078 |
} |
} |
2079 |
|
|
2091 |
printerr("Bad Argument Type"); |
printerr("Bad Argument Type"); |
2092 |
env->err=2; |
env->err=2; |
2093 |
} |
} |
2094 |
|
|
2095 |
|
/* "div" */ |
2096 |
|
extern void sx_646976(environment *env) |
2097 |
|
{ |
2098 |
|
int a, b; |
2099 |
|
|
2100 |
|
if((env->head)==NULL || env->head->next==NULL) { |
2101 |
|
printerr("Too Few Arguments"); |
2102 |
|
env->err= 1; |
2103 |
|
return; |
2104 |
|
} |
2105 |
|
|
2106 |
|
if(env->head->item->type==integer |
2107 |
|
&& env->head->next->item->type==integer) { |
2108 |
|
a= env->head->item->content.i; |
2109 |
|
toss(env); if(env->err) return; |
2110 |
|
b= env->head->item->content.i; |
2111 |
|
toss(env); if(env->err) return; |
2112 |
|
push_int(env, (int)b/a); |
2113 |
|
|
2114 |
|
return; |
2115 |
|
} |
2116 |
|
|
2117 |
|
printerr("Bad Argument Type"); |
2118 |
|
env->err= 2; |
2119 |
|
} |