aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--editors/awk.c48
-rwxr-xr-xtestsuite/awk.tests7
-rw-r--r--testsuite/awk_t1.tar.bz2bin0 -> 15955 bytes
3 files changed, 28 insertions, 27 deletions
diff --git a/editors/awk.c b/editors/awk.c
index fef3246b8..cc5dc84b5 100644
--- a/editors/awk.c
+++ b/editors/awk.c
@@ -681,11 +681,6 @@ static ALWAYS_INLINE int isalnum_(int c)
681 return (isalnum(c) || c == '_'); 681 return (isalnum(c) || c == '_');
682} 682}
683 683
684static FILE *afopen(const char *path, const char *mode)
685{
686 return (*path == '-' && *(path+1) == '\0') ? stdin : xfopen(path, mode);
687}
688
689/* -------- working with variables (set/get/copy/etc) -------- */ 684/* -------- working with variables (set/get/copy/etc) -------- */
690 685
691static xhash *iamarray(var *v) 686static xhash *iamarray(var *v)
@@ -2740,7 +2735,7 @@ static rstream *next_input_file(void)
2740 ind = getvar_s(incvar(intvar[ARGIND])); 2735 ind = getvar_s(incvar(intvar[ARGIND]));
2741 fname = getvar_s(findvar(iamarray(intvar[ARGV]), ind)); 2736 fname = getvar_s(findvar(iamarray(intvar[ARGV]), ind));
2742 if (fname && *fname && !is_assignment(fname)) 2737 if (fname && *fname && !is_assignment(fname))
2743 F = afopen(fname, "r"); 2738 F = xfopen_stdin(fname);
2744 } 2739 }
2745 } while (!F); 2740 } while (!F);
2746 2741
@@ -2757,8 +2752,9 @@ int awk_main(int argc, char **argv)
2757{ 2752{
2758 unsigned opt; 2753 unsigned opt;
2759 char *opt_F, *opt_W; 2754 char *opt_F, *opt_W;
2760 llist_t *opt_v = NULL; 2755 llist_t *list_v = NULL;
2761 int i, j, flen; 2756 llist_t *list_f = NULL;
2757 int i, j;
2762 var *v; 2758 var *v;
2763 var tv; 2759 var tv;
2764 char **envp; 2760 char **envp;
@@ -2816,35 +2812,33 @@ int awk_main(int argc, char **argv)
2816 *s1 = '='; 2812 *s1 = '=';
2817 } 2813 }
2818 } 2814 }
2819 opt_complementary = "v::"; 2815 opt_complementary = "v::f::"; /* -v and -f can occur multiple times */
2820 opt = getopt32(argv, "F:v:f:W:", &opt_F, &opt_v, &g_progname, &opt_W); 2816 opt = getopt32(argv, "F:v:f:W:", &opt_F, &list_v, &list_f, &opt_W);
2821 argv += optind; 2817 argv += optind;
2822 argc -= optind; 2818 argc -= optind;
2823 if (opt & 0x1) 2819 if (opt & 0x1)
2824 setvar_s(intvar[FS], opt_F); // -F 2820 setvar_s(intvar[FS], opt_F); // -F
2825 while (opt_v) { /* -v */ 2821 while (list_v) { /* -v */
2826 if (!is_assignment(llist_pop(&opt_v))) 2822 if (!is_assignment(llist_pop(&list_v)))
2827 bb_show_usage(); 2823 bb_show_usage();
2828 } 2824 }
2829 if (opt & 0x4) { // -f 2825 if (list_f) { /* -f */
2830 char *s = s; /* die, gcc, die */ 2826 do {
2831 FILE *from_file = afopen(g_progname, "r"); 2827 char *s = NULL;
2832 /* one byte is reserved for some trick in next_token */ 2828 FILE *from_file;
2833 if (fseek(from_file, 0, SEEK_END) == 0) { 2829
2834 flen = ftell(from_file); 2830 g_progname = llist_pop(&list_f);
2835 s = xmalloc(flen + 4); 2831 from_file = xfopen_stdin(g_progname);
2836 fseek(from_file, 0, SEEK_SET); 2832 /* one byte is reserved for some trick in next_token */
2837 i = 1 + fread(s + 1, 1, flen, from_file);
2838 } else {
2839 for (i = j = 1; j > 0; i += j) { 2833 for (i = j = 1; j > 0; i += j) {
2840 s = xrealloc(s, i + 4096); 2834 s = xrealloc(s, i + 4096);
2841 j = fread(s + i, 1, 4094, from_file); 2835 j = fread(s + i, 1, 4094, from_file);
2842 } 2836 }
2843 } 2837 s[i] = '\0';
2844 s[i] = '\0'; 2838 fclose(from_file);
2845 fclose(from_file); 2839 parse_program(s + 1);
2846 parse_program(s + 1); 2840 free(s);
2847 free(s); 2841 } while (list_f);
2848 } else { // no -f: take program from 1st parameter 2842 } else { // no -f: take program from 1st parameter
2849 if (!argc) 2843 if (!argc)
2850 bb_show_usage(); 2844 bb_show_usage();
diff --git a/testsuite/awk.tests b/testsuite/awk.tests
index 91657418d..f69da2cc9 100755
--- a/testsuite/awk.tests
+++ b/testsuite/awk.tests
@@ -17,4 +17,11 @@ testing "awk -F case 5" "awk -F '[#]' '{ print NF }'" "4\n" "" "#abc##zz\n"
17testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n" 17testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n"
18testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n" 18testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n"
19 19
20tar xjf awk_t1.tar.bz2
21testing "awk 'gcc build bug'" \
22 "awk -f awk_t1_opt-functions.awk -f awk_t1_opth-gen.awk <awk_t1_input | md5sum" \
23 "f842e256461a5ab1ec60b58d16f1114f -\n" \
24 "" ""
25rm -rf awk_t1_*
26
20exit $FAILCOUNT 27exit $FAILCOUNT
diff --git a/testsuite/awk_t1.tar.bz2 b/testsuite/awk_t1.tar.bz2
new file mode 100644
index 000000000..0fb8a0743
--- /dev/null
+++ b/testsuite/awk_t1.tar.bz2
Binary files differ