[svn:parrot] r21482 - in trunk/languages/PIR: lib t

[kjs]

Author: kjs
Date: Sat Sep 22 04:30:51 2007
New Revision: 21482

Modified:
   trunk/languages/PIR/lib/pir.pg
   trunk/languages/PIR/t/compunit.t
   trunk/languages/PIR/t/exotic.t

Log:
languages/pir:
* remove "->"
* remove ".global" 

Modified: trunk/languages/PIR/lib/pir.pg
==============================================================================
--- trunk/languages/PIR/lib/pir.pg      (original)
+++ trunk/languages/PIR/lib/pir.pg      Sat Sep 22 04:30:51 2007
@@ -26,7 +26,6 @@
 
 token compilation_unit {
     | <expansion>
-    | <global_def>
     | <sub_def>
     | <const_def>
     | <pragma>
@@ -231,9 +230,6 @@
 }
 
 
-rule global_def {
-    <'.global'> [ <id> | <syntax_error: identifier expected> ]
-}
 
 =head2 Const definition
 
@@ -401,9 +397,7 @@
 }
 
 rule short_sub_call {
-    [ [ <target>\. ]
-    | [ <target> <'->'> ]
-    ]?                               # optional invocant
+    [ <target>\.]?                   # optional invocant
     [ <target> | <string_constant> ] # method or sub name/id
     <parenthesized_args>             # sub args
     <process_heredocs>                           # process the list of heredoc 
labels, if any

Modified: trunk/languages/PIR/t/compunit.t
==============================================================================
--- trunk/languages/PIR/t/compunit.t    (original)
+++ trunk/languages/PIR/t/compunit.t    Sat Sep 22 04:30:51 2007
@@ -6,17 +6,9 @@
 use strict;
 use warnings;
 use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 12;
+use Parrot::Test tests => 11;
 use Test::More;
 
-language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'global 
defs' );
-
-.global g_X
-
-.global g_Y
-
-CODE
-
 language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'const defs' 
);
 
 .const int iConst = 42

Modified: trunk/languages/PIR/t/exotic.t
==============================================================================
--- trunk/languages/PIR/t/exotic.t      (original)
+++ trunk/languages/PIR/t/exotic.t      Sat Sep 22 04:30:51 2007
@@ -28,8 +28,8 @@
 language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, '' );
 
 .sub main                      
-       x->hello()
-       x->'hello'()
+       x.hello()
+       x.'hello'()
 .end
 
 CODE