1 files changed, 51 insertions, 0 deletions
diff --git a/test/sortglos.awk b/test/sortglos.awk
new file mode 100755
index 00000000..e4f910d7
--- /dev/null
+++ b/test/sortglos.awk
@@ -0,0 +1,51 @@
+BEGIN {
+	pr="y";
+	npre=0;
+	po="n";
+	npos=0;
+	}
+
+pr=="y"      { npre++; pre[npre]=$0; }
+$1=="@table" && $2=="@asis" { pr="n";nite++; next; }
+
+po=="y"      { npos++; pos[npos]=$0; }
+$1=="@end" && $2=="table"   {
+	po="y";
+	npos++;
+	pos[npos]=$0;
+	# last item...
+	vec[nite]=nlin;
+}
+
+	{ nite++; }
+
+END {
+	for ( i=1; i<=npre; i++ ) { print pre[i]; }
+	if ( srt=="y" ) {
+		n=asorti(entr,ital);
+		##print "n=",n;
+		for ( i=1; i<=n; i++ ) {
+			#printf("=========> %3.3d %s\n",i,ital[i]);
+			# ital[i] is the sorted key;
+			j=entr[ital[i]];
+			# j is the original item number
+			for ( k=1; k<=vec[j]; k++ ) {
+				print dat[j,k];
+			}
+		}
+	}
+	if ( srt=="n" ) {
+		for ( i=1; i<=nite; i++ ) {
+			printf("=========> %3.3d %2.2d %s\n",i,vec[i],titl[i]);
+			for ( j=1; j<=vec[i]; j++ ) {
+				print dat[i,j];
+			}
+		}
+		print "========================= END";
+	}
+	for ( i=1; i<=npos; i++ ) { print pos[i]; }
+	print "@c npre=" npre;
+	print "@c nite=" nite;
+	print "@c npos=" npos;
+}
+