Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'master' of git@github.com:parrot/parrot

  • Loading branch information...
commit 5b8fb372b74dee93bf8ffce16ae039a5d314e99c 2 parents f123b30 + 65b4794
@jkeenan jkeenan authored
View
3  MANIFEST
@@ -1109,8 +1109,6 @@ lib/Pod/Simple/TranscodeDumb.pm []
lib/Pod/Simple/TranscodeSmart.pm []
lib/Pod/Simple/XHTML.pm []
lib/Pod/Simple/XMLOutStream.pm []
-md5task/main_m.pir []
-md5task/main_nfio.pir []
parrotbug []
runtime/parrot/bin/prove.pir [library]
runtime/parrot/dynext/README []doc
@@ -2083,7 +2081,6 @@ t/tools/pmc2cutils/05-gen_c.t [test]
t/tools/pmc2cutils/08-pmc-pm.t [test]
t/tools/pmc2cutils/README []doc
t/tools/testdata [test]
-test_data []
tools/build/README []doc
tools/build/c2str.pl []
tools/build/fixup_gen_file.pl []
View
28 md5task/main_m.pir
@@ -1,28 +0,0 @@
-# Copyright (C) 2010, Parrot Foundation.
-
-.sub main
- .param pmc argv
- load_bytecode "Digest/MD5.pbc"
- .local pmc mba
- .local string filename
-
- set filename, argv[1]
- $S0 = "Creating new MappedByteArray, and opening " . filename
- say $S0
- mba = new 'MappedByteArray'
- mba.'open'(filename)
-
- say 'getting the data from the Mapped Byte Array...'
- $I1 = elements mba
- $S0 = mba.'get_string'(0, $I1, 'binary')
-
- $P1 = _md5sum($S0)
- $S0 = _md5_hex($P1)
- say $S0
-.end
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
View
29 md5task/main_nfio.pir
@@ -1,29 +0,0 @@
-# Copyright (C) 2010, Parrot Foundation.
-
-.loadlib 'io_ops'
-.sub main
- .param pmc argv
- load_bytecode "Digest/MD5.pbc"
- .local pmc mba
- .local string filename
-
- set filename, argv[1]
- $S0 = "Creating new MappedByteArray, and opening " . filename
- say $S0
- say 'getting the data from the Mapped Byte Array...'
-
- $P0 = new 'FileHandle'
- $P0.'open'(filename, 'r')
- $P0.'encoding'('binary')
- $S0 = $P0.'readall'()
-
- $P1 = _md5sum($S0)
- $S0 = _md5_hex($P1)
- say $S0
-.end
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
View
1  test_data
@@ -1 +0,0 @@
-blah
Please sign in to comment.
Something went wrong with that request. Please try again.