Lines Matching refs:str
36 char *savestr(char *str);
62 register STR *str;
73 str = str_new(0); /* first used for -I flags */
178 str = str_make(STARTPERL);
179 str_cat(str, "\neval 'exec ");
180 str_cat(str, BIN);
181 str_cat(str, "/perl -S $0 ${1+\"$@\"}'\n\
185 str_cat(str,
187 str_cat(str,
190 str_scat(str,opens);
192 str_cat(str,"\n");
194 str_scat(str,tmpstr);
199 fixup(str);
200 putlines(str);
724 /* In old awk, { print sprintf("str%sg"),"in" } prints
1066 fixup(STR *str)
1071 for (s = str->str_ptr; *s; s++) {
1091 putlines(STR *str)
1098 for (s = str->str_ptr; *s; s++) {
1207 STR *str;
1217 str = str_new(0);
1218 hstore(curarghash,ops[ops[arg+1].ival+1].cval,str);
1229 STR *str;
1233 str = hfetch(curarghash,ops[arg+1].cval);
1234 if (str)
1235 str_set(str,"*");
1243 STR *str;
1254 str = hfetch(curarghash,ops[ops[arg+1].ival+1].cval);
1255 if (strEQ(str_get(str),"*")) {
1258 str_set(str,""); /* in case another routine has this */
1263 str = str_new(0);
1264 str_set(str,"*");
1265 hstore(curarghash,tmpbuf,str);
1279 STR *str;
1292 str = hfetch(curarghash,tmpbuf);
1294 if (str && strEQ(str->str_ptr,"*")) {