Author: bernhard
Date: Mon Jan 16 10:10:48 2006
New Revision: 11216
Removed:
trunk/runtime/parrot/library/Getopt/Long.pir
trunk/t/library/getopt_long.t
Modified:
trunk/MANIFEST
trunk/MANIFEST.generated
trunk/config/gen/makefiles/root.in
trunk/examples/benchmarks/array_access.pir
trunk/runtime/parrot/library/Getopt/ (props changed)
Log:
[perl #38234] Replace Getopt/Long.pir with Getopt/Obj.pir
Getopt/Long.pbc is gone now, use Getopt/Obj.pbc instead.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Mon Jan 16 10:10:48 2006
@@ -1501,7 +1501,6 @@ runtime/parrot/library/Digest/MD5.pir
runtime/parrot/library/File/Spec.pir [library]
runtime/parrot/library/File/Spec/Unix.pir [library]
runtime/parrot/library/File/Spec/Win32.pir [library]
-runtime/parrot/library/Getopt/Long.pir [library]
runtime/parrot/library/Getopt/Obj.pir [library]
runtime/parrot/library/JSON.pir [library]
runtime/parrot/library/JSON/Parser.pir [library]
@@ -1903,7 +1902,6 @@ t/harness
t/library/File-Spec.t []
t/library/data_escape.t []
t/library/dumper.t []
-t/library/getopt_long.t []
t/library/getopt_obj.t []
t/library/json.t []
t/library/md5.t []
Modified: trunk/MANIFEST.generated
==============================================================================
--- trunk/MANIFEST.generated (original)
+++ trunk/MANIFEST.generated Mon Jan 16 10:10:48 2006
@@ -105,7 +105,6 @@ runtime/parrot/library/Data/Dumper/Base.
runtime/parrot/library/Data/Dumper/Default.pbc [main]
runtime/parrot/library/Data/Escape.pbc [main]
runtime/parrot/library/Data/Sort.pbc [main]
-runtime/parrot/library/Getopt/Long.pbc [main]
runtime/parrot/library/Getopt/Obj.pbc [main]
runtime/parrot/library/PGE.pbc [main]
runtime/parrot/library/Stream/Base.pbc [main]
Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in (original)
+++ trunk/config/gen/makefiles/root.in Mon Jan 16 10:10:48 2006
@@ -262,7 +262,6 @@ GEN_LIBRARY = \
$(LIBRARY_DIR)/Data/Sort.pbc \
$(LIBRARY_DIR)/Digest/MD5.pbc \
$(LIBRARY_DIR)/dumper.pbc \
- $(LIBRARY_DIR)/Getopt/Long.pbc \
$(LIBRARY_DIR)/Getopt/Obj.pbc \
$(LIBRARY_DIR)/JSON.pbc \
$(LIBRARY_DIR)/ncurses.pbc \
Modified: trunk/examples/benchmarks/array_access.pir
==============================================================================
--- trunk/examples/benchmarks/array_access.pir (original)
+++ trunk/examples/benchmarks/array_access.pir Mon Jan 16 10:10:48 2006
@@ -18,26 +18,23 @@ Inspired by computer language shootout.
.sub main :main
.param pmc argv
- load_bytecode "Getopt/Long.pbc"
- .local pmc get_options
- find_global get_options, "Getopt::Long", "get_options"
-
+ load_bytecode "Getopt/Obj.pbc"
+
# name of the program
.local string program_name
program_name = shift argv
- # Assemble specification for get_options
- # in an array of format specifiers
- .local pmc opt_spec
- opt_spec = new PerlArray
- push opt_spec, "arr-size=i"
+ # Specification of command line arguments.
+ .local pmc getopts
+ getopts = new "Getopt::Obj"
+ push getopts, "arr-size=i"
# Make a copy of argv, because this can easier be handled in get_options()
.local pmc argv_clone
argv_clone = clone argv
.local pmc opt
- ( opt ) = get_options( argv_clone, opt_spec )
+ opt = getopts."get_options"(argv)
.local int arr_size
arr_size = 100
