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
-

Reply via email to