Lines Matching defs:type

31 "[-1c?\n@(#)$Id: type (AT&T Labs Research) 2008-07-01 $\n]"
33 "[+NAME?\f?\f - set the type of variables to \b\f?\f\b]"
34 "[+DESCRIPTION?\b\f?\f\b sets the type on each of the variables specified "
39 "variables of this type are written to standard output.]"
44 "[a]:?[type?Indexed array. Each \aname\a will converted to an index "
45 "array of type \b\f?\f\b. If a variable already exists, the current "
48 "type \atype\a.]"
50 "array of type \b\f?\f\b. If a variable already exists, the current "
52 "[h]:[string?Used within a type definition to provide a help string "
54 "[S?Used with a type definition to indicate that the variable is shared by "
55 "each instance of the type. When used inside a function defined "
103 struct type
400 dp->childfun.ttype = (Namtype_t*)nv_hasdisc(dp->fun.type,&type_disc);
551 if((pp=nv_hasdisc(nq,fp->disc)) && pp->type==fp->type)
644 sfprintf(sfstderr,"%s: not a type\n",np->nvname);
649 tp = fp->type;
651 fp->type = 0;
659 fp->type = tp;
771 sp += strlen(pp->fun.type->nvname)+1;
773 np = pp->fun.type;
844 * This function creates a type out of the <numnodes> nodes in the
845 * array <nodes>. The first node is the name for the type
933 pp->fun.type = mp;
1082 * If field is a type, mark the type by setting
1226 fp->type = mp;
1275 if(fp->type)
1276 return(fp->type);
1304 * This function turns variable <np> to the type <tp>
1327 ap->hdr.type = tp;
1375 ap->hdr.type = tp;
1404 char *type;
1449 if(memcmp(fp->type,"typeset",7))
1451 stakputs(fp->type);
1456 errormsg(SH_DICT,ERROR_exit(1),e_unknowntype,strlen(fp->type),fp->type);
1468 pp->fun.type = mp;
1489 if(memcmp(fp->type,"typeset",7))
1491 stakputs(fp->type);
1526 else if(strmatch(fp->type+7,"*-*i*")==0)
1529 if(strmatch(fp->type+7,"*-*s*")==0)
1531 else if(strmatch(fp->type+7,"*-*l*")==0)
1533 if(strmatch(fp->type+7,"*-*u*")==0)
1576 fp->type = tp;