1 files changed, 78 insertions, 0 deletions
diff --git a/gfsm/gfsm/src/programs/gfsmlabels.gog b/gfsm/gfsm/src/programs/gfsmlabels.gog
new file mode 100644
index 0000000..56642da
--- /dev/null
+++ b/gfsm/gfsm/src/programs/gfsmlabels.gog
@@ -0,0 +1,78 @@
+# -*- Mode: Shell-Script -*-
+#
+# Getopt::Gen specification
+#-----------------------------------------------------------------------------
+program "gfsmlabels"
+#program_version "0.01"
+
+purpose	"Map input text characters to gfsm labels"
+author  "Bryan Jurish <moocow@ling.uni-potsdam.de>"
+on_reparse "warn"
+
+#-----------------------------------------------------------------------------
+# Details
+#-----------------------------------------------------------------------------
+details ""
+
+#-----------------------------------------------------------------------------
+# Files
+#-----------------------------------------------------------------------------
+#rcfile "/etc/mootrc"
+#rcfile "~/.mootrc"
+
+#-----------------------------------------------------------------------------
+# Arguments
+#-----------------------------------------------------------------------------
+argument "TXTFILE" "Input text file" \
+    details="
+If unspecified, standard input will be read.
+"
+
+#argument "BINFILE" "Output binary gfsm file" \
+#    details="
+#If unspecified, output will be written to standard output.
+#"
+
+#-----------------------------------------------------------------------------
+# Options
+#-----------------------------------------------------------------------------
+#group "Basic Options"
+
+string "labels" l "Specify input alphabet (labels) file." \
+   arg="LABELS"
+
+flag "att-mode" a "Parse string(s) in AT&T-compatible mode." \
+   default="0"
+
+flag "map-mode" m "Output original strings in addition to label vectors." \
+   default="0"
+
+flag "quiet" q "Suppress warnings about undefined symbols." \
+   default="0"
+
+string "output" o "Specifiy output file (default=stdout)." \
+    arg="FILE" \
+    default="-"
+
+#-----------------------------------------------------------------------------
+# Addenda
+#-----------------------------------------------------------------------------
+#addenda ""
+
+#-----------------------------------------------------------------------------
+# Bugs
+#-----------------------------------------------------------------------------
+bugs "
+
+None known.
+
+"
+
+#-----------------------------------------------------------------------------
+# Footer
+#-----------------------------------------------------------------------------
+#acknowledge `cat acknowledge.pod`
+
+seealso "
+L<gfsmutils>
+"