Lines Matching defs:type
70 # define NIL(type) ((type)0)
88 #define getnode(type) ((Shnode_t*)stakalloc(sizeof(struct type)))
94 * type=='V' for variable assignment lists
95 * Otherwise type is determined by the command */
96 static unsigned long writedefs(Lex_t *lexp,struct argnod *arglist, int line, int type, struct argnod *cmd)
107 if(type==0)
110 type = 'v';
114 type='p';
153 r=kiaentity(lexp,argp->argval,n,type,line,eline,parent,justify,width,atbuff);
186 * add type definitions when compiling with -n
298 static Shnode_t *makelist(Lex_t *lexp, int type, Shnode_t *l, Shnode_t *r)
305 if((type&COMMSK) == TTST)
309 t->lst.lsttyp = type;
490 register int type = FINT|FAMP;
504 type |= (FPIN|FPOU|FPCL|FCOOP);
512 left = makeparent(lexp,TFORK|type, left);
937 static struct argnod *assign(Lex_t *lexp, register struct argnod *ap, int type)
968 if(type==NV_ARRAY)
972 array= (type==NV_ARRAY)?SH_ARRAY:0;
1017 else if(type!=NV_ARRAY && n!=FUNCTSYM && !(lexp->arg->argflag&ARG_ASSIGN) && !((np=nv_search(lexp->arg->argval,lexp->sh->fun_tree,0)) && (nv_isattr(np,BLT_DCL)|| np==SYSDOT)))
1033 if(array && type==NV_TYPE)
1502 int type = 0;
1512 type = NV_TYPE;
1514 type = NV_ARRAY;
1520 argp = assign(lexp,argp,type);
2008 unsigned long kiaentity(Lex_t *lexp,const char *name,int len,int type,int first,int last,unsigned long parent, int pkind, int width, const char *attr)
2013 sfputc(stkp,type);
2018 if(type=='p')
2033 sfprintf(lexp->kiafile,"%..64d;%c;%.*s;%d;%d;%..64d;%..64d;%c;%d;%s\n",np->hash,type,len,name,first,last,parent,lexp->fscript,pkind,width,attr);
2035 sfprintf(lexp->kiafile,"%..64d;%c;%s;%d;%d;%..64d;%..64d;%c;%d;%s\n",np->hash,type,name,first,last,parent,lexp->fscript,pkind,width,attr);