Author: bernhard
Date: Wed Oct 12 14:12:59 2005
New Revision: 9470
Modified:
trunk/examples/pir/md5sum.pir
Log:
Typos in md5sum.pir
Modified: trunk/examples/pir/md5sum.pir
==============================================================================
--- trunk/examples/pir/md5sum.pir (original)
+++ trunk/examples/pir/md5sum.pir Wed Oct 12 14:12:59 2005
@@ -1,7 +1,4 @@
-# Parrot md5sum; Nick Glencross <[EMAIL PROTECTED]>
-# Improvements from Leo
-#
-# Harness for the Digest/MD5.pir library
+# $Id$
=head1 NAME
@@ -9,20 +6,22 @@ examples/pir/md5sum.imc - calculate MD5
=head1 SYNOPSIS
- % ./parrot examples/pir/md5sum.imc filename [filename ...]
+ % ./parrot examples/pir/md5sum.pir filename [filename ...]
=head1 DESCRIPTION
-Behave very much like md5sum(1).
+The main purpose of this script is testing the Digest/MD5.pir library.
+It should behave very much like md5sum(1).
Running parrot with -j will give a significant performance boost (often
about ten-fold).
-=cut
+=head1 AUTHOR
-###########################################################################
+Nick Glencross - <[EMAIL PROTECTED]>
+Leopold Toetsch - <[EMAIL PROTECTED]>
-# Main Harness to demonstrate MD5.imc
+=cut
.sub _main :main
.param pmc args
@@ -50,7 +49,7 @@ next_iter:
file = args[$I1]
.include "stat.pasm"
# Get size of file
- stat size, file, .STAT_FILESIZE
+ size = stat file, .STAT_FILESIZE
.local pmc pio, cl
cl = getclass "ParrotIO"
# slurp the file into memory
@@ -88,4 +87,3 @@ iter_cont:
iter_done:
.end
-