Lines Matching defs:item
106 register Arg arg, nextarg; register Item item, nextitem;
109 for(item = arg->items; item; item = nextitem) {
110 nextitem = item->next;
111 if (item->subscripted) {
112 if (!item->subscript->constant) free(item->subscript->name);
113 free(item->subscript);
114 if(item->scaled) {
115 if (!item->scale->constant) free(item->scale->name);
116 free(item->scale);
119 free(item->name); free(item);
125 for(item = arg->items; item; item = nextitem) {
126 nextitem = item->next;
127 if (item->subscripted) {
128 if (!item->subscript->constant) free(item->subscript->name);
129 free(item->subscript);
131 free(item->name); free(item);
150 register Item item, prevItem;
162 for (item = arg->items; item; item = item->next) {
164 && !(item->starred || item->subscripted)) {
165 ErrIntro(item->sourceLine);
168 item->name);
169 /* remove item from list */
170 if (prevItem) {prevItem->next = item->next;}
171 else if (item == arg->items) {arg->items = item->next;};
172 /* free(item); XXX? */
175 if(item->scaled && !IsNumStrType(arg->type)) {
176 ErrIntro(item->sourceLine);
180 && (item->starred || !item->subscripted)) {
181 ErrIntro(item->sourceLine);
184 item->name);
185 /* remove item from list */
186 if (prevItem) {prevItem->next = item->next;}
187 else if (item == arg->items) {arg->items = item->next;};
188 /* free(item); XXX? */
192 if (PSWDictLookup(currentDict, item->name) != -1) {
193 ErrIntro(item->sourceLine);
194 fprintf(stderr,"parameter %s reused\n", item->name);
195 if (prevItem) {prevItem->next = item->next;}
196 else if (item == arg->items) {arg->items = item->next;};
200 PSWDictEnter(currentDict, item->name, (PSWDictValue) item);
201 item->isoutput = false;
202 item->type = arg->type;
203 prevItem = item;
217 for (item = arg->items; item; item = item->next) {
219 ErrIntro(item->sourceLine);
221 item->name);
222 /* remove item from list */
223 if (prevItem) {prevItem->next = item->next;}
224 else if (item == arg->items) {arg->items = item->next;};
225 /* free(item); XXX */
230 ErrIntro(item->sourceLine);
232 item->name);
233 /* remove item from list */
234 if (prevItem) {prevItem->next = item->next;}
235 else if (item == arg->items) {arg->items = item->next;};
236 /* free(item); XXX */
239 if (!(item->starred || item->subscripted)) {
240 ErrIntro(item->sourceLine);
242 item->name);
243 /* remove item from list */
244 if (prevItem) {prevItem->next = item->next;}
245 else if (item == arg->items) {arg->items = item->next;};
246 /* free(item); XXX */
249 if (PSWDictLookup(currentDict, item->name) != -1) {
250 ErrIntro(item->sourceLine);
251 fprintf(stderr,"parameter %s reused\n", item->name);
252 /* remove item from list */
253 if (prevItem) {prevItem->next = item->next;}
254 else if (item == arg->items) {arg->items = item->next;};
258 PSWDictEnter(currentDict, item->name, (PSWDictValue) item);
259 item->isoutput = true;
260 item->type = arg->type;
261 item->tag = nextTag++;
262 prevItem = item;
277 for (item = arg->items; item; item = item->next) {
278 if (item->subscripted && !item->subscript->constant) {
279 PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
301 for (item = arg->items; item; item = item->next) {
302 if (item->subscripted && !item->subscript->constant) {
303 PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
426 register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
427 item->next = NULL;
428 item->name = name;
429 item->sourceLine = yylineno;
430 return item;
435 register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
436 item->next = NULL;
437 item->name = name;
438 item->starred = true;
439 item->sourceLine = yylineno;
440 return item;
445 register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
446 item->next = NULL;
447 item->name = name;
448 item->subscript = subscript;
449 item->subscripted = true;
450 item->sourceLine = yylineno;
451 return item;
456 Item item;
458 item = PSWSubscriptItem(name, subscript);
459 item->scaled = true;
466 item->scale = scale;
467 return(item);
541 Items AppendPSWItems(Item item, Items items)
544 item->next = NULL;
545 if (items == NULL) return item;
549 t->next = item;