1 files changed, 17 insertions, 0 deletions
diff --git a/gfsm/gfsm/src/libgfsm/tests/asciigen.perl b/gfsm/gfsm/src/libgfsm/tests/asciigen.perl
new file mode 100755
index 0000000..1cabeb9
--- /dev/null
+++ b/gfsm/gfsm/src/libgfsm/tests/asciigen.perl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+@ascii = (ord('A')..ord('Z'),
+	  ord('a')..ord('z'),
+	  ord('!')..ord('/'),
+	  ord('0')..ord('9'),
+	  ord(':')..ord('?'));
+
+foreach $c (@ascii) {
+  print chr($c);
+}
+print "\n";
+
+foreach $c (161..255) {
+  printf("\\%o", $c);
+}
+print "\n";