[svn:parrot] r44251 - trunk/runtime/parrot/library/Configure

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Feb 20 21:56:01 2010
New Revision: 44251
URL: https://trac.parrot.org/parrot/changeset/44251

Log:
[genfile] add a verbose option

Modified:
   trunk/runtime/parrot/library/Configure/genfile.pir

Modified: trunk/runtime/parrot/library/Configure/genfile.pir
==============================================================================
--- trunk/runtime/parrot/library/Configure/genfile.pir	Sat Feb 20 21:19:25 2010	(r44250)
+++ trunk/runtime/parrot/library/Configure/genfile.pir	Sat Feb 20 21:56:01 2010	(r44251)
@@ -44,15 +44,19 @@
     .param string tmpl
     .param string outfile
     .param pmc config
+    .param int verbose          :named('verbose') :optional
+    .param int has_verbose      :opt_flag
     $S0 = slurp(tmpl)
     $S0 = conditioned_line($S0, config)
     $S0 = interpolate_var($S0, config)
     $S1 = sysinfo .SYSINFO_PARROT_OS
     $S0 = replace_slash($S0, $S1)
     spew(outfile, $S0)
-    printerr "\n\tGenerating '"
-    printerr outfile
-    printerr "'\n\n"
+    unless has_verbose goto L1
+    unless verbose goto L1
+    print "generate "
+    say outfile
+  L1:
 .end
 
 .sub 'slurp' :anon