BSD 3 development

[unix-history] / usr / src / cmd / lisp / eval2.c

#include "global.h"
lispval
Iarray(fun,args)
register lispval fun,args;
{
       register lispval reg, temp;
       register struct argent *lbot, *np;
       snpand(2);
       
       lbot = np;
       if(np + 3 > nplim)
               namerr();
       np++->val = fun->accfun;
       np++->val = args;
       np++->val = fun;
       return(vtemp = Lfuncal());

}
#define FINTF 1
#define FDOUBF 2
#define FORTSUB 0

lispval
Ifcall(a)
register lispval a;
{
       int *alloca();
       register int *arglist;
       register int index;
       register struct argent *mynp;
       register lispval ltemp;
       register struct argent *lbot;
       register struct argent *np;
       int nargs = np - lbot;

       arglist = alloca((nargs + 1) * sizeof(int));
       mynp = lbot;
       *arglist = nargs;
       for(index = 1; index <=  nargs; index++) {
               switch(TYPE(mynp->val)) {
               case INT:
                       arglist[index] = sp();
                       stack(0);
                       *(int *) arglist[index] = mynp->val->i;
                       break;
               case DOUB:
                       stack(0);
                       arglist[index] = sp();
                       stack(0);
                       *(double *) arglist[index] = mynp->val->r;
                       break;
               case ARRAY:
                       arglist[index] = (int) mynp->val->data;
               }
               mynp++;
       }
       switch(a->discipline->i) {
               case FINTF:
                       ltemp = inewint(callg(a->entry,arglist));
                       break;

               case FDOUBF:
                       ltemp = newdoub();
                       ltemp->r = (* ((double (*)()) callg))(a->entry,arglist);
                       break;

               default:
               case FORTSUB:
                       callg(a->entry,arglist);
                       ltemp = tatom;
       }
}
callg(funct,arglist)
lispval (*funct)();
int *arglist;
{
       asm("   callg   *8(ap),*4(ap)");
}