*** empty log message ***

ase/test/awk/histsort.awk

@@ -0,0 +1,8 @@
+{
+         if (data[$0]++ == 0) lines[++count] = $0;
+}
+     
+END {
+	for (i = 1; i <= count; i++) print lines[i];
+}
+

ase/test/awk/wordfreq.awk

@@ -0,0 +1,16 @@
+# wordfreq.awk --- print list of word frequencies
+     
+{
+	$0 = tolower($0);    # remove case distinctions
+	# remove punctuation
+	#gsub(/[^[:alnum:]_[:blank:]]/, "", $0);
+
+	for (i = 1; i <= NF; i++) freq[$i]++;
+}
+     
+END {
+	for (word in freq)
+		print word, "\t", freq[word];
+}
+     
+