[svn:parrot] r37018 - trunk/examples/embed

NotFound at svn.parrot.org NotFound at svn.parrot.org
Thu Feb 26 19:48:25 UTC 2009


Author: NotFound
Date: Thu Feb 26 19:48:24 2009
New Revision: 37018
URL: https://trac.parrot.org/parrot/changeset/37018

Log:
[examples] add --warnings option to lorito

Modified:
   trunk/examples/embed/lorito.c

Modified: trunk/examples/embed/lorito.c
==============================================================================
--- trunk/examples/embed/lorito.c	Thu Feb 26 07:08:05 2009	(r37017)
+++ trunk/examples/embed/lorito.c	Thu Feb 26 19:48:24 2009	(r37018)
@@ -95,6 +95,12 @@
                 fail("Option needs argument");
             Parrot_set_trace(interp, getuintval(argv[i]));
         }
+        if (strcmp(argv[i], "--warnings") == 0) {
+            ++i;
+            if (i >= argc)
+                fail("Option needs argument");
+            Parrot_setwarnings(interp, getuintval(argv[i]));
+        }
         else if (strcmp(argv[i], "-e") == 0) {
             ++i;
             if (i >= argc)
@@ -163,7 +169,6 @@
         fail("Cannot create parrot interpreter");
 
     Parrot_set_executable_name(interp, create_string(interp, argv[0]));
-    Parrot_setwarnings(interp, PARROT_WARNINGS_ALL_FLAG);
 
     r = lorito_main(interp, argc, argv);
 


More information about the parrot-commits mailing list