File: creatop.c

package info (click to toggle)
lie 2.2.2%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch, wheezy
  • size: 1,000 kB
  • ctags: 1,801
  • sloc: ansic: 12,761; yacc: 395; makefile: 150; sh: 4
file content (34 lines) | stat: -rw-r--r-- 742 bytes parent folder | download | duplicates (5) 
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
 
#include "lie.h"


static symblst creatop(strtype a,fobject f,objtype restype)
{
    symblst	    s;
    s = creatsym(a);
    s->class = OPERATOR;
    s->type = restype;
    s->data.f = f;
    return (s);
}

static symblst mkarg(int n) /* arguments allocated outside reach of GC */
{ if (n == 0) return NULL;
  return alloc_array(symbrec,n);
}

symblst creatopsym
(int n, strtype a, fobject f, int restype, ...)
{ va_list  ap; int i, argtype; symblst t, s;
  va_start(ap, restype);
  s = creatop(a, f, restype);
  s->arglst = t = mkarg(n);
  for (i = 0; i < n; ++i)
  { t->class = DUMMY; t->a.name =  0;
    argtype = va_arg(ap, int);
    t->type = (objtype) argtype;
    t= t->next = (i==n-1 ? NULL : t + 1);
  }
  va_end(ap);
  return s;
}