Lines Matching refs:tmpstr
56 register STR *tmpstr;
246 tmpstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN);
248 for (s = tmpstr->str_ptr, d = tokenbuf; *s; s++, d++) {
264 str_free(tmpstr);
277 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
278 if (*tmpstr->str_ptr) {
281 str_scat(str,tmpstr);
377 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
382 t = tmpstr->str_ptr;
384 str_set(tmpstr,"eq");
386 str_set(tmpstr,"ne");
388 str_set(tmpstr,"lt");
390 str_set(tmpstr,"le");
392 str_set(tmpstr,"gt");
394 str_set(tmpstr,"ge");
395 if (!strchr(tmpstr->str_ptr,'\'') && !strchr(tmpstr->str_ptr,'"') &&
408 str_scat(str,tmpstr);
409 str_free(tmpstr);
427 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
428 if (strEQ(tmpstr->str_ptr,"~"))
431 str_scat(str,tmpstr);
432 str_free(tmpstr);
462 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
463 str_scat(str,tmpstr);
464 if (str_len(tmpstr) > 1)
466 str_free(tmpstr);
585 tmpstr=walk(1,level,ops[node+3].ival,&numarg,P_MIN);
588 t = tmpstr->str_ptr;
612 str_cat(opens,tmpstr->str_ptr+1);
631 str_set(tmpstr,"'");
632 str_cat(tmpstr,tokenbuf);
633 str_cat(tmpstr,"'");
636 str_cat(tmpstr,", '|'");
640 tmpstr = str_make("");
641 sprintf(tokenbuf," = &Getline%d(%s)",len,tmpstr->str_ptr);
643 str_free(tmpstr);
680 tmpstr = walk(1,level,ops[node+2].ival,&numarg,P_MIN);
685 str_scat(str,tmpstr);
720 str_free(tmpstr);
774 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
796 str_cat(tmpstr,"(");
800 hstore(symtab,tmpstr->str_ptr,tmp2str);
801 str_free(tmpstr);
822 tmpstr = hfetch(symtab,str->str_ptr+3);
823 if (tmpstr && tmpstr->str_ptr)
824 numeric |= atoi(tmpstr->str_ptr);
833 tmpstr = str_new(0);
836 tmpstr = walk(1,level,ops[node+3].ival,&numarg,P_MATCH+1);
837 if (strNE(tmpstr->str_ptr,"$_")) {
838 str_cat(tmpstr, " =~ s");
842 str_set(tmpstr, "s");
845 str_set(tmpstr, "s");
881 str_scat(str,tmpstr);
889 str_scat(str,tmpstr);
903 str_scat(str,tmpstr);
910 str_free(tmpstr);
920 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
922 for (t = tmpstr->str_ptr, d=tokenbuf; *t; d++,t++) {
941 str_free(tmpstr);
961 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
963 tmp2str = hfetch(symtab,tmpstr->str_ptr);
987 sprintf(tokenbuf,"$%s,",tmpstr->str_ptr);
992 str_cat(tmpstr,"[]");
993 tmp2str = hfetch(symtab,tmpstr->str_ptr);
1013 str_free(tmpstr);
1039 tmpstr=walk(1,level,i,&numarg,P_MIN);
1040 str_scat(str,tmpstr);
1041 str_free(tmpstr);
1059 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1060 for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
1062 str_scat(str,tmpstr);
1063 str_free(tmpstr);
1068 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1069 for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
1071 str_scat(str,tmpstr);
1072 str_free(tmpstr);
1100 tmpstr = walk(0,level,ops[node+2].ival,&numarg,P_MIN);
1101 if (*tmpstr->str_ptr == ';') {
1103 str_cat(str,tmpstr->str_ptr+1);
1105 str_free(tmpstr);
1111 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
1113 t = tmpstr->str_ptr;
1128 str_free(tmpstr);
1135 tmpstr->str_ptr, tmpstr->str_ptr);
1136 str_free(tmpstr);
1146 tmpstr = walk(1,level,ops[node+3].ival,&numarg,P_MIN);
1149 t = tmpstr->str_ptr;
1173 str_cat(opens,tmpstr->str_ptr+1);
1186 str_free(tmpstr);
1193 tmp2str->str_ptr, tmpstr->str_ptr);
1197 str_free(tmpstr);
1218 tmpstr = walk(1+(type==OPRINT),level,ops[node+1].ival,&numarg,P_MIN);
1219 if (!*tmpstr->str_ptr && lval_field) {
1223 str_cat(tmpstr,tokenbuf);
1231 str_cat(tmpstr,tokenbuf);
1237 str_cat(tmpstr,tokenbuf);
1240 if (*tmpstr->str_ptr) {
1242 if (!saw_fh && *tmpstr->str_ptr == '(') {
1244 str_scat(str,tmpstr);
1248 str_scat(str,tmpstr);
1254 str_free(tmpstr);
1291 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
1293 tmpstr = str_new(0);
1294 if (!tmpstr->str_ptr || !*tmpstr->str_ptr) {
1299 str_cat(tmpstr,tokenbuf);
1303 str_cat(tmpstr,tokenbuf);
1309 str_cat(tmpstr,tokenbuf);
1315 str_cat(tmpstr,tokenbuf);
1319 str_cat(tmpstr,"$_");
1321 if (strEQ(tmpstr->str_ptr,"$_")) {
1324 str_cat(tmpstr,") - 1");
1327 str_scat(str,tmpstr);
1328 str_free(tmpstr);
1427 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1430 t = s = tmpstr->str_ptr;
1445 str_free(tmpstr);
1454 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1455 d = strchr(tmpstr->str_ptr,'$');
1457 fatal("Illegal for loop: %s",tmpstr->str_ptr);
1490 str_free(tmpstr);
1638 STR *tmpstr;
1854 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1860 str_cat(tmpstr,"(");
1864 hstore(symtab,tmpstr->str_ptr,tmp2str);
1865 str_free(tmpstr);
1877 str_scat(tmp2str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1878 fixrargs(tmpstr->str_ptr,ops[node+2].ival,0);
1879 str_free(tmpstr);
1881 tmpstr = hfetch(symtab,tmp2str->str_ptr);
1882 if (tmpstr && tmpstr->str_ptr)
1883 numeric |= atoi(tmpstr->str_ptr);
2052 STR *tmpstr;
2060 tmpstr=walk(0,0,ops[node+1].ival,&numarg,P_MIN);
2062 hstore(symtab,tmpstr->str_ptr,tmp2str);