Permalink
Browse files

fix codetest failures

add copyright line
add pir coda
remove trailing spaces
some documentati8on would be welcome!
  • Loading branch information...
1 parent 7959525 commit 55c5515f66ef0f57a6d14ebdfa62a61cf6127a8a @mikehh mikehh committed Dec 13, 2010
Showing with 11 additions and 3 deletions.
  1. +11 −3 md5task/main_nfio.pir
View
@@ -1,10 +1,12 @@
+# 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
@@ -14,8 +16,14 @@
$P0.'open'(filename, 'r')
$P0.'encoding'('binary')
$S0 = $P0.'readall'()
-
+
$P1 = _md5sum($S0)
$S0 = _md5_hex($P1)
say $S0
- .end
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

0 comments on commit 55c5515

Please sign in to comment.