diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-11-25 21:54:48 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-11-25 21:54:48 +0200 |
| commit | 9a9ff61bbd952c1263b55f82a269da5b09289a6b (patch) | |
| tree | 4bc31b31d0bec6d27f77e55f1a88f50534fa6ed4 /extension/rwarray.awk | |
| parent | dbabe5a569ad82a9faeb2f121e387ec6399f9dcb (diff) | |
| parent | 7af1da783175273a26609911c3a95975ed0f5c13 (diff) | |
| download | egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.tar.gz egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.tar.bz2 egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.zip | |
Merge branch 'master' into array-iface
Diffstat (limited to 'extension/rwarray.awk')
| -rw-r--r-- | extension/rwarray.awk | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/extension/rwarray.awk b/extension/rwarray.awk deleted file mode 100644 index 1057b396..00000000 --- a/extension/rwarray.awk +++ /dev/null @@ -1,28 +0,0 @@ -BEGIN { - extension("./rwarray.so","dlload") - - while ((getline word < "/usr/share/dict/words") > 0) - dict[word] = word word - - for (i in dict) - printf("dict[%s] = %s\n", i, dict[i]) > "orig.out" - close("orig.out"); - - writea("orig.bin", dict) - - reada("orig.bin", dict) - - for (i in dict) - printf("dict[%s] = %s\n", i, dict[i]) > "new.out" - close("new.out"); - - ret = system("cmp orig.out new.out") - - if (ret == 0) - print "old and new are equal - GOOD" - else - print "old and new are not equal - BAD" - - if (ret == 0 && !("keepit" in ENVIRON)) - system("rm orig.bin orig.out new.out") -} |