develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34327 - in trunk: compilers/pct/src/PAST languages/perl6/src/builtins languages/perl6/src/classes languages/perl6/src/pmc src/pmc tools/build

From:
bernhard
Date:
December 24, 2008 02:49
Subject:
[svn:parrot] r34327 - in trunk: compilers/pct/src/PAST languages/perl6/src/builtins languages/perl6/src/classes languages/perl6/src/pmc src/pmc tools/build
Message ID:
20081224104915.1EA83CBA12@x12.develooper.com
Author: bernhard
Date: Wed Dec 24 02:49:13 2008
New Revision: 34327

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir
   trunk/languages/perl6/src/builtins/any-list.pir
   trunk/languages/perl6/src/classes/Mapping.pir
   trunk/languages/perl6/src/pmc/perl6str.pmc
   trunk/src/pmc/sub.pmc
   trunk/tools/build/nativecall.pl

Log:
[codingstd] remove trailing spaces


Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	(original)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Wed Dec 24 02:49:13 2008
@@ -1322,7 +1322,7 @@
     ops.'push_pirop'('pop_eh')
     .return (ops)
 .end
-  
+
 
 =item while(PAST::Op node)
 
@@ -1345,7 +1345,7 @@
     nextpast = node[2]
 
     .local pmc exprpost, bodypost, nextpost
-    exprpost = self.'as_post'(exprpast, 'rtype'=>'r') 
+    exprpost = self.'as_post'(exprpast, 'rtype'=>'r')
 
     .local pmc arglist
     arglist = new 'ResizablePMCArray'

Modified: trunk/languages/perl6/src/builtins/any-list.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-list.pir	(original)
+++ trunk/languages/perl6/src/builtins/any-list.pir	Wed Dec 24 02:49:13 2008
@@ -183,7 +183,7 @@
     values.'!flatten'()
     .tailcall values.'kv'()
 .end
-    
+
 .namespace ['Any']
 .sub 'kv' :method
     .local pmc result, it

Modified: trunk/languages/perl6/src/classes/Mapping.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Mapping.pir	(original)
+++ trunk/languages/perl6/src/classes/Mapping.pir	Wed Dec 24 02:49:13 2008
@@ -91,7 +91,7 @@
       push rv, pair
     goto loop
 
-  end:	
+  end:
     .return (rv)
 .end
 
@@ -146,7 +146,7 @@
     pair = shift it
     key = pair.'key'()
     val = pair.'value'()
-    
+
     push rv, key
     push rv, val
     goto loop
@@ -306,7 +306,7 @@
     rv .= "\n"
     goto loop
 
-  end:	
+  end:
     .return (rv)
 .end
 

Modified: trunk/languages/perl6/src/pmc/perl6str.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6str.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6str.pmc	Wed Dec 24 02:49:13 2008
@@ -157,7 +157,7 @@
                 sign = -1.0; s1++;
             }
 
-            if (tolower(s1[0]) == 'i' && tolower(s1[1]) == 'n' 
+            if (tolower(s1[0]) == 'i' && tolower(s1[1]) == 'n'
                     && tolower(s1[2]) == 'f') {
                 s1 += 3;
                 while (s1 < end && isspace((unsigned char)*s1))
@@ -165,7 +165,7 @@
                 return (s1 == end) ? sign * atof("inf") : 0.0;
             }
 
-            if (tolower(s1[0]) == 'n' && tolower(s1[1]) == 'a' 
+            if (tolower(s1[0]) == 'n' && tolower(s1[1]) == 'a'
                     && tolower(s1[2]) == 'n') {
                 s1 += 3;
                 while (s1 < end && isspace((unsigned char)*s1))

Modified: trunk/src/pmc/sub.pmc
==============================================================================
--- trunk/src/pmc/sub.pmc	(original)
+++ trunk/src/pmc/sub.pmc	Wed Dec 24 02:49:13 2008
@@ -738,11 +738,11 @@
                         sig_item = SIG_ITEM(sig, i);
                         if (PARROT_ARG_OPTIONAL_ISSET(sig_item))
                             sub->arg_info->named_optional++;
-                        else 
+                        else
                             sub->arg_info->named_required++;
                     }
                     else if (!PARROT_ARG_OPT_FLAG_ISSET(sig_item)) {
-                        if (PARROT_ARG_OPTIONAL_ISSET(sig_item)) 
+                        if (PARROT_ARG_OPTIONAL_ISSET(sig_item))
                             sub->arg_info->pos_optional++;
                         else
                             sub->arg_info->pos_required++;

Modified: trunk/tools/build/nativecall.pl
==============================================================================
--- trunk/tools/build/nativecall.pl	(original)
+++ trunk/tools/build/nativecall.pl	Wed Dec 24 02:49:13 2008
@@ -39,8 +39,8 @@
 
 
 my %sig_table = (
-    p => { 
-        as_proto => "void *", 
+    p => {
+        as_proto => "void *",
         other_decl => "PMC * const final_destination = pmc_new(interp, enum_class_UnManagedStruct);",
         sig_char => "P",
         ret_assign => "PMC_data(final_destination) = return_data;    set_nci_P(interp, &st, final_destination);",
@@ -51,13 +51,13 @@
     s => { as_proto => "short",  sig_char => "I" },
     f => { as_proto => "float",  sig_char => "N" },
     d => { as_proto => "double", sig_char => "N" },
-    t => { as_proto => "char *", 
-           other_decl => "STRING *final_destination;", 
+    t => { as_proto => "char *",
+           other_decl => "STRING *final_destination;",
            ret_assign => "final_destination = string_from_cstring(interp, return_data, 0);\n    set_nci_S(interp, &st, final_destination);",
            sig_char => "S" },
-    v => { as_proto => "void", 
-           return_type => "void *", 
-           sig_char => "v", 
+    v => { as_proto => "void",
+           return_type => "void *",
+           sig_char => "v",
            ret_assign => "",
            func_call_assign => ""
          },
@@ -70,11 +70,11 @@
     b => { as_proto => "void *", as_return => "", sig_char => "S" },
     B => { as_proto => "void **", as_return => "", sig_char => "S" },
     # These should be replaced by modifiers in the future
-    2 => { as_proto => "short *",  sig_char => "P", 
+    2 => { as_proto => "short *",  sig_char => "P",
            ret_assign => "set_nci_I(interp, &st, *return_data);" },
-    3 => { as_proto => "int *",  sig_char => "P", 
+    3 => { as_proto => "int *",  sig_char => "P",
            ret_assign => "set_nci_I(interp, &st, *return_data);" },
-    4 => { as_proto => "long *",  sig_char => "P", 
+    4 => { as_proto => "long *",  sig_char => "P",
            ret_assign => "set_nci_I(interp, &st, *return_data);" },
     L => { as_proto => "long *", as_return => "" },
     T => { as_proto => "char **", as_return => "" },
@@ -82,10 +82,10 @@
     '@' => { as_proto => "PMC *", as_return => "", cname => "xAT_", sig_char => '@' },
 );
 
-for (values %sig_table) { 
-    if (not exists $_->{as_return}) { $_->{as_return} = $_->{as_proto} } 
-    if (not exists $_->{return_type}) { $_->{return_type} = $_->{as_proto} } 
-    if (not exists $_->{return_type_decl}) { $_->{return_type_decl} = $_->{return_type} } 
+for (values %sig_table) {
+    if (not exists $_->{as_return}) { $_->{as_return} = $_->{as_proto} }
+    if (not exists $_->{return_type}) { $_->{return_type} = $_->{as_proto} }
+    if (not exists $_->{return_type_decl}) { $_->{return_type_decl} = $_->{return_type} }
     if (not exists $_->{ret_assign} and exists $_->{sig_char}) {
         $_->{ret_assign} = "set_nci_".$_->{sig_char}."(interp, &st, return_data);";
     }
@@ -352,7 +352,7 @@
         push @{$extra_preamble_ref}, "t_$temp_num = GET_NCI_P($reg_num);";
         return "(void**)&PMC_data(t_$temp_num)";
     };
-    /[ilIscfdNS]/ && do { 
+    /[ilIscfdNS]/ && do {
         my $ret_type = $sig_table{$_}{return_type};
         push @{$temps_ref},          "$ret_type t_$temp_num;";
         push @{$extra_preamble_ref}, "t_$temp_num = ($ret_type)GET_NCI_$sig_table{$_}{sig_char}($reg_num);";



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About