78 |
|
esubtr, |
79 |
|
0, |
80 |
|
edivi, |
81 |
< |
0,0,0,0,0,0,0,0,0,0,0,0,0, |
81 |
> |
0,0,0,0,0,0,0,0,0,0, |
82 |
|
ebotch, |
83 |
+ |
0,0, |
84 |
+ |
ebotch, |
85 |
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, |
86 |
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, |
87 |
|
epow, |
643 |
|
syntax("'(' expected"); |
644 |
|
#endif |
645 |
|
#endif |
646 |
+ |
#ifdef RCONST |
647 |
+ |
if (isconstvar(ep1)) |
648 |
+ |
ep1 = rconst(ep1); |
649 |
+ |
#endif |
650 |
|
return(ep1); |
651 |
|
} |
652 |
|
#endif |
677 |
|
epfree(epar); |
678 |
|
|
679 |
|
return(ep); |
680 |
+ |
} |
681 |
+ |
|
682 |
+ |
|
683 |
+ |
isconstvar(ep) /* is ep linked to a constant? */ |
684 |
+ |
register EPNODE *ep; |
685 |
+ |
{ |
686 |
+ |
#ifdef VARIABLE |
687 |
+ |
register EPNODE *ep1; |
688 |
+ |
|
689 |
+ |
#ifdef FUNCTION |
690 |
+ |
if (ep->type == FUNC) { |
691 |
+ |
if (ep->v.kid->type != VAR) |
692 |
+ |
return(0); |
693 |
+ |
ep1 = ep->v.kid->v.ln->def; |
694 |
+ |
if (ep1 != NULL && ep1->type != ':') |
695 |
+ |
return(0); |
696 |
+ |
if ((ep1 == NULL || ep1->v.kid->type != FUNC) |
697 |
+ |
&& liblookup(ep->v.kid->v.ln->name) == NULL) |
698 |
+ |
return(0); |
699 |
+ |
for (ep1 = ep->v.kid->sibling; ep1 != NULL; ep1 = ep1->sibling) |
700 |
+ |
if (ep1->type != NUM) |
701 |
+ |
return(0); |
702 |
+ |
return(1); |
703 |
+ |
} |
704 |
+ |
#endif |
705 |
+ |
if (ep->type != VAR) |
706 |
+ |
return(0); |
707 |
+ |
ep1 = ep->v.ln->def; |
708 |
+ |
if (ep1 == NULL || ep1->type != ':') |
709 |
+ |
return(0); |
710 |
+ |
#ifdef FUNCTION |
711 |
+ |
if (ep1->v.kid->type != SYM) |
712 |
+ |
return(0); |
713 |
+ |
#endif |
714 |
+ |
return(1); |
715 |
+ |
#else |
716 |
+ |
return(ep->type == FUNC); |
717 |
+ |
#endif |
718 |
|
} |
719 |
|
#endif |