1 files changed, 31 insertions, 0 deletions
diff --git a/sample/getopts.test b/sample/getopts.test
new file mode 100755
index 0000000000..16f1bb06c7
--- /dev/null
+++ b/sample/getopts.test
@@ -0,0 +1,31 @@
+#! /mp/free/bin/ruby -- -*- ruby -*-
+
+load("parsearg.rb")
+
+def usage()
+  printf("Usage:\n")
+  printf("This is Getopt test program \n")
+end
+
+$USAGE = 'usage'
+parseArgs(0, !nil, "d", "x:", "y:", "version", "geometry:")
+if ($OPT_d)
+  if ($OPT_x)
+    printf("x = %d\n", $OPT_x.atoi)
+  end
+  if ($OPT_y)
+    printf("y = %d\n", $OPT_y.atoi)
+  end
+  if ($OPT_geometry)
+    printf("geometry = %s\n", $OPT_geometry)
+  end
+end
+
+if ($OPT_version)
+  printf("version 1.00\n")
+end
+
+while ($ARGV.length != 0)
+  print ("other = ", $ARGV[0], "\n")
+  $ARGV.shift
+end