1 /* $RCSfile: walk.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:31 $
3 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1997, 1998, 1999,
4 * 2000, 2001, 2002, 2005 by Larry Wall and others
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
17 bool realexit = FALSE;
18 bool saw_getline = FALSE;
19 bool subretnum = FALSE;
21 bool saw_argv0 = FALSE;
28 STR *curargs = Nullstr;
30 static void addsemi ( STR *str );
31 static void emit_split ( STR *str, int level );
32 static void fixtab ( STR *str, int lvl );
33 static void numericize ( int node );
34 static void tab ( STR *str, int lvl );
36 int prewalk ( int numit, int level, int node, int *numericptr );
37 STR * walk ( int useval, int level, int node, int *numericptr, int minprec );
39 char *savestr(char *str);
40 char *cpytill(register char *to, register char *from, register int delim);
41 char *instr(char *big, char *little);
45 walk(int useval, int level, register int node, int *numericptr, int minprec)
50 /* minimum precedence without parens */
64 int prec = P_MAX; /* assume no parens needed */
70 type = ops[node].ival;
77 while (isALPHA(*namelist)) {
78 for (d = tokenbuf,s=namelist;
79 isALPHA(*s) || isDIGIT(*s) || *s == '_';
82 while (*s && !isALPHA(*s)) s++;
84 nameary[++arymax] = savestr(tokenbuf);
91 str = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
92 if (do_split && need_entire && !absmaxfld)
93 split_to_array = TRUE;
94 if (do_split && split_to_array)
95 set_array_base = TRUE;
97 str_cat(str,"$[ = 1;\t\t\t# set array base to 1\n");
99 if (fswitch && !const_FS)
101 if (saw_FS > 1 || saw_RS)
103 if (saw_ORS && need_entire)
106 str_cat(str,"$FS = '");
107 if (strchr("*+?.[]()|^$\\",fswitch))
109 sprintf(tokenbuf,"%c",fswitch);
110 str_cat(str,tokenbuf);
111 str_cat(str,"';\t\t# field separator from -F switch\n");
113 else if (saw_FS && !const_FS) {
114 str_cat(str,"$FS = ' ';\t\t# set field separator\n");
117 str_cat(str,"$, = ' ';\t\t# set output field separator\n");
120 str_cat(str,"$\\ = \"\\n\";\t\t# set output record separator\n");
123 str_cat(str,"$ARGV0 = $0;\t\t# remember what we ran as\n");
125 if (str->str_cur > 20)
127 if (ops[node+2].ival) {
128 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
132 fstr = walk(0,level+1,ops[node+3].ival,&numarg,P_MIN);
133 if (*fstr->str_ptr) {
135 str_cat(str,"line: ");
136 str_cat(str,"while (<>) {\n");
138 if (saw_FS && !const_FS)
141 str_cat(str,"chomp;\t# strip record separator\n");
145 emit_split(str,level);
151 str_cat(str,"continue {\n $FNRbase = $. if eof;\n}\n");
154 str_cat(str,"while (<>) { } # (no line actions)\n");
155 if (ops[node+4].ival) {
159 str_scat(str,fstr=walk(0,level,ops[node+4].ival,&numarg,P_MIN));
164 str_cat(str,"exit $ExitValue;\n");
170 for (len = 0; len < 4; len++) {
171 if (saw_getline & (1 << len)) {
172 sprintf(tokenbuf,"\nsub Getline%d {\n",len);
173 str_cat(str, tokenbuf);
176 str_cat(str," &Pick('',@_);\n");
178 str_cat(str," ($fh) = @_;\n");
182 str_cat(str," $FNRbase = $. if eof;\n");
185 str_cat(str," local($_);\n");
188 " if ($getline_ok = (($_ = <$fh>) ne ''))");
191 " if ($getline_ok = (($_ = <>) ne ''))");
192 str_cat(str, " {\n");
198 str_cat(str,"chomp;\t# strip record separator\n");
201 if (do_split && !(len & 1)) {
203 emit_split(str,level);
208 str_cat(str,"}\n $_;\n}\n");
213 if (do_fancy_opens) {
216 local($mode,$name,$pipe) = @_;\n\
218 open($name,$mode.$name.$pipe) unless $opened{$name}++;\n\
224 str = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
225 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
228 str_scat(str,fstr=walk(0,level,ops[node+3].ival,&numarg,P_MIN));
236 str = walk(1,level,ops[node+1].ival,&numarg,prec+1);
238 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
246 tmpstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN);
247 /* translate \nnn to [\nnn] */
248 for (s = tmpstr->str_ptr, d = tokenbuf; *s; s++, d++) {
249 if (*s == '\\' && isDIGIT(s[1]) && isDIGIT(s[2]) && isDIGIT(s[3])){
261 for (d=tokenbuf; *d; d++)
263 str_cat(str,tokenbuf);
270 str = walk(0,level,oper1(OPRINT,0),&numarg,P_MIN);
272 str_scat(str,fstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN));
277 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
278 if (*tmpstr->str_ptr) {
281 str_scat(str,tmpstr);
282 str_cat(str,") {\n");
284 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
291 str = walk(0,level,ops[node+2].ival,&numarg,P_MIN);
298 str_scat(str,fstr=walk(useval != 0,level,ops[node+1].ival,&numarg,P_MIN));
304 str = walk(1,level,ops[node+1].ival,&numarg,prec);
306 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
308 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
313 str = walk(1,level,ops[node+1].ival,&numarg,prec);
315 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
317 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
324 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,prec));
329 str = walk(1,level,ops[node+1].ival,&numarg,prec);
331 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
334 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
340 str_scat(str,fstr=walk(useval != 0,level,ops[node+1].ival,&numarg,P_MIN));
347 str = walk(1,level,ops[node+1].ival,&numarg,prec);
350 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
352 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
357 str = walk(1,level,ops[node+1].ival,&numarg,prec);
360 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
362 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
369 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,prec));
375 str = walk(1,level,ops[node+2].ival,&numarg,prec+1);
377 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
378 tmp2str = walk(1,level,ops[node+3].ival,&numarg,prec+1);
381 (!numarg && (*tmp2str->str_ptr == '"' || *tmp2str->str_ptr == '\''))) {
384 str_set(tmpstr,"eq");
385 else if (strEQ(t,"!="))
386 str_set(tmpstr,"ne");
387 else if (strEQ(t,"<"))
388 str_set(tmpstr,"lt");
389 else if (strEQ(t,"<="))
390 str_set(tmpstr,"le");
391 else if (strEQ(t,">"))
392 str_set(tmpstr,"gt");
393 else if (strEQ(t,">="))
394 str_set(tmpstr,"ge");
395 if (!strchr(tmpstr->str_ptr,'\'') && !strchr(tmpstr->str_ptr,'"') &&
396 !strchr(tmp2str->str_ptr,'\'') && !strchr(tmp2str->str_ptr,'"') )
400 if (numeric & 1) /* numeric is very good guess */
408 str_scat(str,tmpstr);
411 str_scat(str,tmp2str);
418 str_scat(str,fstr=walk(useval != 0,level,ops[node+1].ival,&numarg,P_MIN));
425 str = walk(1,level,ops[node+2].ival,&numarg,prec+1);
427 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
428 if (strEQ(tmpstr->str_ptr,"~"))
431 str_scat(str,tmpstr);
435 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
443 fstr=walk(useval != 0,level,ops[node+1].ival,&numarg,P_MIN));
450 type = ops[ops[node+1].ival].ival & 255;
451 str = walk(1,level,ops[node+1].ival,&numarg,prec+(type != OCONCAT));
453 type = ops[ops[node+2].ival].ival & 255;
455 fstr=walk(1,level,ops[node+2].ival,&numarg,prec+(type != OCONCAT)));
460 str = walk(0,level,ops[node+2].ival,&numarg,prec+1);
462 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
463 str_scat(str,tmpstr);
464 if (str_len(tmpstr) > 1)
468 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec));
471 if (strEQ(str->str_ptr,"$/ = ''"))
472 str_set(str, "$/ = \"\\n\\n\"");
476 str = walk(1,level,ops[node+1].ival,&numarg,prec);
478 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
484 str = walk(1,level,ops[node+1].ival,&numarg,prec);
486 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
492 str = walk(1,level,ops[node+1].ival,&numarg,prec);
494 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
500 str = walk(1,level,ops[node+1].ival,&numarg,prec);
502 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
508 str = walk(1,level,ops[node+1].ival,&numarg,prec+1);
510 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec));
516 str = walk(1,level,ops[node+1].ival,&numarg,prec);
518 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,prec+1));
524 str = walk(1,level,ops[node+1].ival,&numarg,prec+1);
530 str = walk(1,level,ops[node+1].ival,&numarg,prec+1);
538 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,prec+1));
546 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,prec+1));
554 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,prec));
565 fstr=walk(useval != 0,level,ops[node+1].ival,&numarg,P_MIN));
575 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
576 if (!*fstr->str_ptr) {
578 len = 2; /* a legal fiction */
585 tmpstr=walk(1,level,ops[node+3].ival,&numarg,P_MIN);
586 fstr=walk(1,level,ops[node+2].ival,&numarg,P_MIN);
587 if (!do_fancy_opens) {
589 if (*t == '"' || *t == '\'')
590 t = cpytill(tokenbuf,t+1,*t);
592 fatal("Internal error: OGETLINE %s", t);
594 s = savestr(tokenbuf);
595 for (t = tokenbuf; *t; t++) {
599 if (!isALPHA(*t) && !isDIGIT(*t))
602 if (!strchr(tokenbuf,'_'))
604 tmp3str = hfetch(symtab,tokenbuf);
607 str_cat(opens,"open(");
608 str_cat(opens,tokenbuf);
612 str_cat(opens,tmpstr->str_ptr+1);
614 if (*fstr->str_ptr == '|')
617 if (*fstr->str_ptr == '|')
618 str_cat(opens,") || die 'Cannot pipe from \"");
620 str_cat(opens,") || die 'Cannot open file \"");
622 str_cat(opens,"'.\"");
625 str_cat(opens,"\".'");
626 str_cat(opens,"\".';\n");
627 hstore(symtab,tokenbuf,str_make("x"));
632 str_cat(tmpstr,tokenbuf);
635 if (*fstr->str_ptr == '|')
636 str_cat(tmpstr,", '|'");
640 tmpstr = str_make("");
641 sprintf(tokenbuf," = &Getline%d(%s)",len,tmpstr->str_ptr);
642 str_cat(str,tokenbuf);
645 str_cat(str,",$getline_ok)");
646 saw_getline |= 1 << len;
650 str_set(str,"sprintf(");
651 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
657 str_set(str,"substr(");
658 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_COMMA+1));
661 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_COMMA+1));
665 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,P_COMMA+1));
672 str_set(str,ops[node+1].cval);
678 tmpstr = walk(1,level,ops[node+2].ival,&numarg,P_MIN);
683 str_scat(str,tmpstr);
684 str_cat(str," = split(");
686 fstr = walk(1,level,ops[node+3].ival,&numarg,P_COMMA+1);
687 if (str_len(fstr) == 3 && *fstr->str_ptr == '\'') {
688 i = fstr->str_ptr[1] & 127;
689 if (strchr("*+?.[]()|^$\\",i))
690 sprintf(tokenbuf,"/\\%c/",i);
692 sprintf(tokenbuf,"' '");
694 sprintf(tokenbuf,"/%c/",i);
695 str_cat(str,tokenbuf);
702 sprintf(tokenbuf,"/[%c\\n]/",const_FS);
703 str_cat(str,tokenbuf);
712 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_COMMA+1));
722 str_set(str,"index(");
723 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_COMMA+1));
726 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_COMMA+1));
734 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MATCH+1));
737 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_MATCH+1));
739 str_cat(str," && ($RLENGTH = length($&), $RSTART = length($`)+1)");
745 fstr=walk(1,level-1,ops[node+2].ival,&numarg,P_MIN);
746 curargs = str_new(0);
747 str_sset(curargs,fstr);
748 str_cat(curargs,",");
749 tmp2str=walk(1,level,ops[node+5].ival,&numarg,P_MIN);
755 t = tmp2str->str_ptr;
756 while ((t = instr(t,"return ")))
760 for (t = s+7; *t; t++) {
761 if (*t == ';' || *t == '}')
766 tmp2str->str_cur -= 7;
772 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
776 str_cat(str,"local(");
778 str_cat(str,") = @_;");
781 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,P_MIN));
784 str_scat(str,fstr=walk(1,level,ops[node+4].ival,&numarg,P_MIN));
787 str_scat(str,tmp2str);
795 tmp2str = str_new(0);
797 str_set(tmp2str,"1");
798 hstore(symtab,tmpstr->str_ptr,tmp2str);
805 str_cat(str,"return ");
806 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_UNI+1));
812 str_cat(str,"return");
817 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
820 tmpstr = hfetch(symtab,str->str_ptr+3);
821 if (tmpstr && tmpstr->str_ptr)
822 numeric |= atoi(tmpstr->str_ptr);
823 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_MIN));
829 int gsub = type == OGSUB ? 1 : 0;
834 tmpstr = walk(1,level,ops[node+3].ival,&numarg,P_MATCH+1);
835 if (strNE(tmpstr->str_ptr,"$_")) {
836 str_cat(tmpstr, " =~ s");
840 str_set(tmpstr, "s");
843 str_set(tmpstr, "s");
844 type = ops[ops[node+2].ival].ival;
847 tmp3str = str_new(0);
849 tmp2str=walk(1,level,ops[ops[node+2].ival+1].ival,&numarg,P_MIN);
850 for (t = tmp2str->str_ptr, d=tokenbuf; *t; d++,t++) {
852 *d++ = '$' + (char)128;
854 *d++ = '\\' + (char)128;
858 str_set(tmp2str,tokenbuf);
859 s = (char *) (gsub ? "/g" : "/");
862 tmp2str=walk(1,level,ops[node+2].ival,&numarg,P_MIN);
863 str_set(tmp3str,"($s_ = '\"'.(");
864 str_scat(tmp3str,tmp2str);
865 str_cat(tmp3str,").'\"') =~ s/&/\\$&/g, ");
866 str_set(tmp2str,"eval $s_");
867 s = (char *) (gsub ? "/ge" : "/e");
871 type = ops[ops[node+1].ival].ival;
874 fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN);
875 if (type == OREGEX) {
878 str_scat(str,tmp3str);
879 str_scat(str,tmpstr);
881 str_scat(str,tmp2str);
883 else if ((type == OFLD && !split_to_array) || (type == OVAR && len == 1)) {
886 str_scat(str,tmp3str);
887 str_scat(str,tmpstr);
891 str_scat(str,tmp2str);
897 str_cat(str,"$s = ");
900 str_scat(str,tmp3str);
901 str_scat(str,tmpstr);
903 str_scat(str,tmp2str);
914 str = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
918 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
920 for (t = tmpstr->str_ptr, d=tokenbuf; *t; d++,t++) {
923 else if (*t == '\\') {
927 case '\\': case '"': case 'n': case 't': case '$':
929 default: /* hide this from perl */
930 *d++ = '\\' + (char)128;
938 str_cat(str,tokenbuf);
945 str_set(str,"defined $");
949 str_set(str,"delete $");
959 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
961 tmp2str = hfetch(symtab,tmpstr->str_ptr);
962 if (tmp2str && atoi(tmp2str->str_ptr))
964 if (strEQ(str->str_ptr,"$FNR")) {
967 str_set(str,"($.-$FNRbase)");
969 else if (strEQ(str->str_ptr,"$NR")) {
973 else if (strEQ(str->str_ptr,"$NF")) {
975 str_set(str,"$#Fld");
977 else if (strEQ(str->str_ptr,"$0"))
979 else if (strEQ(str->str_ptr,"$ARGC"))
980 str_set(str,"($#ARGV+1)");
985 sprintf(tokenbuf,"$%s,",tmpstr->str_ptr);
986 ??? if (instr(curargs->str_ptr,tokenbuf))
987 str_cat(str,"\377"); /* can't translate yet */
990 str_cat(tmpstr,"[]");
991 tmp2str = hfetch(symtab,tmpstr->str_ptr);
992 if (tmp2str && atoi(tmp2str->str_ptr))
996 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_MIN));
998 if (strEQ(str->str_ptr,"$ARGV[0")) {
999 str_set(str,"$ARGV0");
1003 if (tmp2str && atoi(tmp2str->str_ptr))
1004 strcpy(tokenbuf,"]");
1006 strcpy(tokenbuf,"}");
1007 *tokenbuf += (char)128;
1008 str_cat(str,tokenbuf);
1015 if (split_to_array) {
1016 str_set(str,"$Fld");
1018 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1023 i = atoi(walk(1,level,ops[node+1].ival,&numarg,P_MIN)->str_ptr);
1025 sprintf(tokenbuf,"$%s",nameary[i]);
1027 sprintf(tokenbuf,"$Fld%d",i);
1028 str_set(str,tokenbuf);
1033 str_set(str,"$Fld[");
1034 i = ops[node+1].ival;
1035 if ((ops[i].ival & 255) == OPAREN)
1037 tmpstr=walk(1,level,i,&numarg,P_MIN);
1038 str_scat(str,tmpstr);
1057 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1058 for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
1060 str_scat(str,tmpstr);
1066 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1067 for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
1069 str_scat(str,tmpstr);
1075 str = walk(1,level,ops[node+1].ival,&numarg,prec);
1077 str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_MIN));
1079 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec+1));
1088 str = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1089 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1095 str_scat(str,fstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN));
1098 tmpstr = walk(0,level,ops[node+2].ival,&numarg,P_MIN);
1099 if (*tmpstr->str_ptr == ';') {
1101 str_cat(str,tmpstr->str_ptr+1);
1108 str = str_make("close(");
1109 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
1110 if (!do_fancy_opens) {
1111 t = tmpstr->str_ptr;
1112 if (*t == '"' || *t == '\'')
1113 t = cpytill(tokenbuf,t+1,*t);
1115 fatal("Internal error: OCLOSE %s",t);
1116 s = savestr(tokenbuf);
1117 for (t = tokenbuf; *t; t++) {
1121 if (!isALPHA(*t) && !isDIGIT(*t))
1124 if (!strchr(tokenbuf,'_'))
1128 str_set(str,"close ");
1129 str_cat(str,tokenbuf);
1132 sprintf(tokenbuf,"delete $opened{%s} && close(%s)",
1133 tmpstr->str_ptr, tmpstr->str_ptr);
1135 str_set(str,tokenbuf);
1140 lparen = ""; /* set to parens if necessary */
1143 if (len == 3) { /* output redirection */
1144 tmpstr = walk(1,level,ops[node+3].ival,&numarg,P_MIN);
1145 tmp2str = walk(1,level,ops[node+2].ival,&numarg,P_MIN);
1146 if (!do_fancy_opens) {
1147 t = tmpstr->str_ptr;
1148 if (*t == '"' || *t == '\'')
1149 t = cpytill(tokenbuf,t+1,*t);
1151 fatal("Internal error: OPRINT");
1153 s = savestr(tokenbuf);
1154 for (t = tokenbuf; *t; t++) {
1158 if (!isALPHA(*t) && !isDIGIT(*t))
1161 if (!strchr(tokenbuf,'_'))
1163 tmp3str = hfetch(symtab,tokenbuf);
1165 str_cat(opens,"open(");
1166 str_cat(opens,tokenbuf);
1167 str_cat(opens,", ");
1170 str_scat(opens,tmp2str);
1171 str_cat(opens,tmpstr->str_ptr+1);
1172 if (*tmp2str->str_ptr == '|')
1173 str_cat(opens,") || die 'Cannot pipe to \"");
1175 str_cat(opens,") || die 'Cannot create file \"");
1177 str_cat(opens,"'.\"");
1180 str_cat(opens,"\".'");
1181 str_cat(opens,"\".';\n");
1182 hstore(symtab,tokenbuf,str_make("x"));
1190 sprintf(tokenbuf,"&Pick('%s', %s) &&\n",
1191 tmp2str->str_ptr, tmpstr->str_ptr);
1192 str_cat(str,tokenbuf);
1194 strcpy(tokenbuf,"$fh");
1202 strcpy(tokenbuf,"");
1203 str_cat(str,lparen); /* may be null */
1204 if (type == OPRINTF)
1205 str_cat(str,"printf");
1207 str_cat(str,"print");
1209 if (len == 3 || do_fancy_opens) {
1214 str_cat(str,tokenbuf);
1216 tmpstr = walk(1+(type==OPRINT),level,ops[node+1].ival,&numarg,P_MIN);
1217 if (!*tmpstr->str_ptr && lval_field) {
1218 t = (char*)(saw_OFS ? "$," : "' '");
1219 if (split_to_array) {
1220 sprintf(tokenbuf,"join(%s,@Fld)",t);
1221 str_cat(tmpstr,tokenbuf);
1224 for (i = 1; i < maxfld; i++) {
1226 sprintf(tokenbuf,"$%s, ",nameary[i]);
1228 sprintf(tokenbuf,"$Fld%d, ",i);
1229 str_cat(tmpstr,tokenbuf);
1231 if (maxfld <= arymax)
1232 sprintf(tokenbuf,"$%s",nameary[maxfld]);
1234 sprintf(tokenbuf,"$Fld%d",maxfld);
1235 str_cat(tmpstr,tokenbuf);
1238 if (*tmpstr->str_ptr) {
1240 if (!saw_fh && *tmpstr->str_ptr == '(') {
1242 str_scat(str,tmpstr);
1246 str_scat(str,tmpstr);
1251 str_cat(str,rparen); /* may be null */
1255 str = str_make("rand(1)");
1258 str = str_make("srand(");
1261 str = str_make("atan2(");
1264 str = str_make("sin(");
1267 str = str_make("cos(");
1270 str = str_make("system(");
1273 str = str_make("length(");
1276 str = str_make("log(");
1279 str = str_make("exp(");
1282 str = str_make("sqrt(");
1285 str = str_make("int(");
1289 tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN);
1291 tmpstr = str_new(0);
1292 if (!tmpstr->str_ptr || !*tmpstr->str_ptr) {
1294 t = (char*)(saw_OFS ? "$," : "' '");
1295 if (split_to_array) {
1296 sprintf(tokenbuf,"join(%s,@Fld)",t);
1297 str_cat(tmpstr,tokenbuf);
1300 sprintf(tokenbuf,"join(%s, ",t);
1301 str_cat(tmpstr,tokenbuf);
1302 for (i = 1; i < maxfld; i++) {
1304 sprintf(tokenbuf,"$%s,",nameary[i]);
1306 sprintf(tokenbuf,"$Fld%d,",i);
1307 str_cat(tmpstr,tokenbuf);
1309 if (maxfld <= arymax)
1310 sprintf(tokenbuf,"$%s)",nameary[maxfld]);
1312 sprintf(tokenbuf,"$Fld%d)",maxfld);
1313 str_cat(tmpstr,tokenbuf);
1317 str_cat(tmpstr,"$_");
1319 if (strEQ(tmpstr->str_ptr,"$_")) {
1320 if (type == OLENGTH && !do_chop) {
1321 str = str_make("(length(");
1322 str_cat(tmpstr,") - 1");
1325 str_scat(str,tmpstr);
1331 str_set(str,"last");
1335 str_set(str,"next line");
1341 str_set(str,"exit");
1346 fstr=walk(1,level,ops[node+1].ival,&numarg,prec+1));
1352 str_set(str,"$ExitValue = ");
1355 fstr=walk(1,level,ops[node+1].ival,&numarg,P_ASSIGN));
1359 str_cat(str,"last line");
1364 str_set(str,"next");
1370 str_set(str,"if (");
1371 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1374 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1377 i = ops[node+3].ival;
1379 if ((ops[i].ival & 255) == OBLOCK) {
1382 if ((ops[i].ival & 255) != OIF)
1391 str_scat(str,fstr=walk(0,level,i,&numarg,P_MIN));
1395 str_cat(str,"else ");
1396 str_scat(str,fstr=walk(0,level,ops[node+3].ival,&numarg,P_MIN));
1403 str_set(str,"while (");
1404 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1407 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1413 str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1415 if (str->str_ptr[str->str_cur - 1] == '\n')
1417 str_cat(str," while (");
1418 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1424 str_set(str,"for (");
1425 str_scat(str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1428 t = s = tmpstr->str_ptr;
1429 while (isALPHA(*t) || isDIGIT(*t) || *t == '$' || *t == '_')
1436 fstr=walk(1,level,ops[node+2].ival,&numarg,P_MIN);
1437 if (i && (t = strchr(fstr->str_ptr,0377))) {
1438 if (strnEQ(fstr->str_ptr,s,i))
1445 str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,P_MIN));
1448 str_scat(str,fstr=walk(0,level,ops[node+4].ival,&numarg,P_MIN));
1452 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1453 d = strchr(tmpstr->str_ptr,'$');
1455 fatal("Illegal for loop: %s",tmpstr->str_ptr);
1460 fatal("Illegal for loop: %s",d);
1462 for (t = s; (i = *t); t++) {
1464 if (i == '}' || i == ']')
1472 tmp2str = hfetch(symtab,str->str_ptr);
1473 if (tmp2str && atoi(tmp2str->str_ptr)) {
1475 "foreach %s ($[ .. $#%s) ",
1481 "foreach %s (keys %%%s) ",
1485 str_set(str,tokenbuf);
1486 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1493 if (len >= 2 && ops[node+2].ival) {
1494 str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN));
1497 fixtab(str,++level);
1498 str_scat(str,fstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN));
1501 fixtab(str,--level);
1505 str_scat(str,fstr=walk(0,level,ops[node+3].ival,&numarg,P_MIN));
1513 fatal("Garbage length in walk");
1514 str = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1515 for (i = 2; i<= len; i++) {
1516 str_scat(str,fstr=walk(0,level,ops[node+i].ival,&numarg,P_MIN));
1528 if (useval && prec < minprec) { /* need parens? */
1529 fstr = str_new(str->str_cur+2);
1530 str_nset(fstr,"(",1);
1532 str_ncat(fstr,")",1);
1537 *numericptr = numeric;
1540 printf("%3d %5d %15s %d %4d ",level,node,opname[type],len,str->str_cur);
1541 for (t = str->str_ptr; *t && t - str->str_ptr < 40; t++)
1544 else if (*t == '\t')
1555 tab(register STR *str, register int lvl)
1566 fixtab(register STR *str, register int lvl)
1570 /* strip trailing white space */
1572 s = str->str_ptr+str->str_cur - 1;
1573 while (s >= str->str_ptr && (*s == ' ' || *s == '\t' || *s == '\n'))
1576 str->str_cur = s + 1 - str->str_ptr;
1577 if (s >= str->str_ptr && *s != '\n')
1584 addsemi(register STR *str)
1588 s = str->str_ptr+str->str_cur - 1;
1589 while (s >= str->str_ptr && (*s == ' ' || *s == '\t' || *s == '\n'))
1591 if (s >= str->str_ptr && *s != ';' && *s != '}')
1596 emit_split(register STR *str, int level)
1601 str_cat(str,"@Fld");
1604 for (i = 1; i < maxfld; i++) {
1606 sprintf(tokenbuf,"$%s,",nameary[i]);
1608 sprintf(tokenbuf,"$Fld%d,",i);
1609 str_cat(str,tokenbuf);
1611 if (maxfld <= arymax)
1612 sprintf(tokenbuf,"$%s)",nameary[maxfld]);
1614 sprintf(tokenbuf,"$Fld%d)",maxfld);
1615 str_cat(str,tokenbuf);
1618 sprintf(tokenbuf," = split(/[%c\\n]/, $_, -1);\n",const_FS);
1619 str_cat(str,tokenbuf);
1622 str_cat(str," = split($FS, $_, -1);\n");
1624 str_cat(str," = split(' ', $_, -1);\n");
1629 prewalk(int numit, int level, register int node, int *numericptr)
1635 int numeric = FALSE;
1643 type = ops[node].ival;
1648 prewalk(0,level,ops[node+1].ival,&numarg);
1649 if (ops[node+2].ival) {
1650 prewalk(0,level,ops[node+2].ival,&numarg);
1653 prewalk(0,level,ops[node+3].ival,&numarg);
1655 if (ops[node+3].ival) {
1656 prewalk(0,level,ops[node+4].ival,&numarg);
1660 prewalk(0,level,ops[node+1].ival,&numarg);
1661 prewalk(0,level,ops[node+2].ival,&numarg);
1663 prewalk(0,level,ops[node+3].ival,&numarg);
1667 prewalk(1,level,ops[node+1].ival,&numarg);
1668 prewalk(1,level,ops[node+2].ival,&numarg);
1673 prewalk(0,level,ops[node+1].ival,&numarg);
1677 prewalk(0,level,ops[node+1].ival,&numarg);
1680 i = prewalk(0,level,ops[node+1].ival,&numarg);
1683 prewalk(0,level,ops[node+2].ival,&numarg);
1687 prewalk(0,level,ops[node+2].ival,&numarg);
1692 prewalk(0,level,ops[node+1].ival,&numarg);
1695 prewalk(0,level,ops[node+1].ival,&numarg);
1696 prewalk(0,level,ops[node+2].ival,&numarg);
1699 prewalk(0,level,ops[node+1].ival,&numarg);
1700 prewalk(0,level,ops[node+2].ival,&numarg);
1703 prewalk(0,level,ops[node+1].ival,&numarg);
1706 prewalk(0,level,ops[node+1].ival,&numarg);
1710 prewalk(0,level,ops[node+1].ival,&numarg);
1712 prewalk(0,level,ops[node+2].ival,&numarg);
1715 prewalk(0,level,ops[node+1].ival,&numarg);
1717 prewalk(0,level,ops[node+2].ival,&numarg);
1720 prewalk(0,level,ops[node+1].ival,&numarg);
1724 prewalk(0,level,ops[node+2].ival,&numarg);
1726 prewalk(0,level,ops[node+1].ival,&numarg);
1727 prewalk(0,level,ops[node+3].ival,&numarg);
1732 prewalk(0,level,ops[node+1].ival,&numarg);
1736 prewalk(0,level,ops[node+2].ival,&numarg);
1737 prewalk(0,level,ops[node+1].ival,&numarg);
1738 prewalk(0,level,ops[node+3].ival,&numarg);
1742 prewalk(0,level,ops[node+1].ival,&numarg);
1746 prewalk(0,level,ops[node+1].ival,&numarg);
1747 prewalk(0,level,ops[node+2].ival,&numarg);
1750 prewalk(0,level,ops[node+2].ival,&numarg);
1751 prewalk(0,level,ops[node+1].ival,&numarg);
1752 prewalk(0,level,ops[node+3].ival,&numarg);
1753 if (numarg || strlen(ops[ops[node+1].ival+1].cval) > (Size_t)1) {
1754 numericize(ops[node+2].ival);
1756 numericize(ops[node+3].ival);
1761 prewalk(1,level,ops[node+1].ival,&numarg);
1762 prewalk(1,level,ops[node+2].ival,&numarg);
1766 prewalk(1,level,ops[node+1].ival,&numarg);
1767 prewalk(1,level,ops[node+2].ival,&numarg);
1771 prewalk(1,level,ops[node+1].ival,&numarg);
1772 prewalk(1,level,ops[node+2].ival,&numarg);
1776 prewalk(1,level,ops[node+1].ival,&numarg);
1777 prewalk(1,level,ops[node+2].ival,&numarg);
1781 prewalk(1,level,ops[node+1].ival,&numarg);
1782 prewalk(1,level,ops[node+2].ival,&numarg);
1786 prewalk(1,level,ops[node+1].ival,&numarg);
1787 prewalk(1,level,ops[node+2].ival,&numarg);
1791 prewalk(1,level,ops[node+1].ival,&numarg);
1795 prewalk(1,level,ops[node+1].ival,&numarg);
1799 prewalk(1,level,ops[node+1].ival,&numarg);
1803 prewalk(1,level,ops[node+1].ival,&numarg);
1807 prewalk(1,level,ops[node+1].ival,&numarg);
1811 prewalk(1,level,ops[node+1].ival,&numarg);
1815 prewalk(0,level,ops[node+1].ival,&numarg);
1821 prewalk(0,level,ops[node+1].ival,&numarg);
1824 prewalk(0,level,ops[node+1].ival,&numarg);
1825 prewalk(1,level,ops[node+2].ival,&numarg);
1827 prewalk(1,level,ops[node+3].ival,&numarg);
1834 prewalk(0,level,ops[node+2].ival,&numarg);
1836 prewalk(0,level,ops[node+3].ival,&numarg);
1837 prewalk(0,level,ops[node+1].ival,&numarg);
1840 prewalk(0,level,ops[node+1].ival,&numarg);
1841 prewalk(0,level,ops[node+2].ival,&numarg);
1845 prewalk(0,level,ops[node+1].ival,&numarg);
1846 prewalk(0,level,ops[node+2].ival,&numarg);
1852 tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
1854 prewalk(0,level,ops[node+2].ival,&numarg);
1855 prewalk(0,level,ops[node+4].ival,&numarg);
1856 prewalk(0,level,ops[node+5].ival,&numarg);
1858 str_cat(tmpstr,"(");
1859 tmp2str = str_new(0);
1860 if (subretnum || numarg)
1861 str_set(tmp2str,"1");
1862 hstore(symtab,tmpstr->str_ptr,tmp2str);
1868 prewalk(0,level,ops[node+1].ival,&numarg);
1874 tmp2str = str_new(0);
1875 str_scat(tmp2str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN));
1876 fixrargs(tmpstr->str_ptr,ops[node+2].ival,0);
1878 str_cat(tmp2str,"(");
1879 tmpstr = hfetch(symtab,tmp2str->str_ptr);
1880 if (tmpstr && tmpstr->str_ptr)
1881 numeric |= atoi(tmpstr->str_ptr);
1882 prewalk(0,level,ops[node+2].ival,&numarg);
1888 prewalk(0,level,ops[node+3].ival,&numarg);
1889 prewalk(0,level,ops[ops[node+2].ival+1].ival,&numarg);
1890 prewalk(0,level,ops[node+1].ival,&numarg);
1894 prewalk(0,level,ops[node+1].ival,&numarg);
1898 prewalk(0,level,ops[node+1].ival,&numarg);
1904 prewalk(0,level,ops[node+1].ival,&numarg);
1910 prewalk(0,level,ops[node+2].ival,&numarg);
1914 prewalk(0,level,ops[node+1].ival,&numarg);
1917 i = ops[node+1].ival;
1918 prewalk(0,level,i,&numarg);
1931 prewalk(0,level,ops[node+1].ival,&numarg);
1932 prewalk(0,level,ops[node+2].ival,&numarg);
1933 prewalk(0,level,ops[node+3].ival,&numarg);
1938 prewalk(0,level,ops[node+1].ival,&numarg);
1939 prewalk(0,level,ops[node+2].ival,&numarg);
1943 prewalk(0,level,ops[node+1].ival,&numarg);
1945 prewalk(0,level,ops[node+2].ival,&numarg);
1950 prewalk(0,level,ops[node+1].ival,&numarg);
1954 if (len == 3) { /* output redirection */
1955 prewalk(0,level,ops[node+3].ival,&numarg);
1956 prewalk(0,level,ops[node+2].ival,&numarg);
1958 prewalk(0+(type==OPRINT),level,ops[node+1].ival,&numarg);
1984 prewalk(type != OLENGTH && type != OSYSTEM,
1985 level,ops[node+1].ival,&numarg);
1993 prewalk(1,level,ops[node+1].ival,&numarg);
2001 prewalk(0,level,ops[node+1].ival,&numarg);
2002 prewalk(0,level,ops[node+2].ival,&numarg);
2004 prewalk(0,level,ops[node+3].ival,&numarg);
2008 prewalk(0,level,ops[node+1].ival,&numarg);
2009 prewalk(0,level,ops[node+2].ival,&numarg);
2012 prewalk(0,level,ops[node+1].ival,&numarg);
2013 prewalk(0,level,ops[node+2].ival,&numarg);
2014 prewalk(0,level,ops[node+3].ival,&numarg);
2015 prewalk(0,level,ops[node+4].ival,&numarg);
2018 prewalk(0,level,ops[node+2].ival,&numarg);
2019 prewalk(0,level,ops[node+1].ival,&numarg);
2023 prewalk(0,level,ops[node+2].ival,&numarg);
2026 prewalk(0,level,ops[node+1].ival,&numarg);
2033 fatal("Garbage length in prewalk");
2034 prewalk(0,level,ops[node+1].ival,&numarg);
2035 for (i = 2; i<= len; i++) {
2036 prewalk(0,level,ops[node+i].ival,&numarg);
2041 *numericptr = numeric;
2046 numericize(register int node)
2054 type = ops[node].ival;
2057 if (type == OVAR && len == 1) {
2058 tmpstr=walk(0,0,ops[node+1].ival,&numarg,P_MIN);
2059 tmp2str = str_make("1");
2060 hstore(symtab,tmpstr->str_ptr,tmp2str);