Lines Matching defs:subscript
112 if (!item->subscript->constant) free(item->subscript->name);
113 free(item->subscript);
128 if (!item->subscript->constant) free(item->subscript->name);
129 free(item->subscript);
278 if (item->subscripted && !item->subscript->constant) {
279 PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
284 fprintf(stderr,"output parameter %s used as a subscript\n",
291 "input parameter %s used as a subscript is not an int\n",
302 if (item->subscripted && !item->subscript->constant) {
303 PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
308 fprintf(stderr,"output parameter %s used as a subscript\n",
315 "input parameter %s used as a subscript is not an int\n",
390 fprintf(stderr,"cannot subscript numstring %s\n", val);
443 Item PSWSubscriptItem(char *name, Subscript subscript)
448 item->subscript = subscript;
454 Item PSWScaleItem(char *name, Subscript subscript, char *nameval, int val)
458 item = PSWSubscriptItem(name, subscript);
472 Subscript subscript = (Subscript)psw_calloc(sizeof(SubscriptRec), 1);
473 subscript->name = name;
474 return subscript;
479 Subscript subscript = (Subscript)psw_calloc(sizeof(SubscriptRec), 1);
480 subscript->constant = true;
481 subscript->val = val;
482 return subscript;