[svn:parrot] r33541 - in trunk: compilers/ncigen ext/SQLite3 ext/SQLite3/DBDI/Driver languages/perl6/src/pmc

Author: infinoid
Date: Fri Dec  5 22:48:14 2008
New Revision: 33541

Modified:
   trunk/compilers/ncigen/NCIGENP6.pm
   trunk/compilers/ncigen/gen_sqlite3.pl
   trunk/ext/SQLite3/DBDI.pm
   trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm
   trunk/languages/perl6/src/pmc/perl6multisub.pmc

Log:
[CAGE] Remove trailing whitespace from 5 source files.

Modified: trunk/compilers/ncigen/NCIGENP6.pm
==============================================================================
--- trunk/compilers/ncigen/NCIGENP6.pm	(original)
+++ trunk/compilers/ncigen/NCIGENP6.pm	Fri Dec  5 22:48:14 2008
@@ -38,7 +38,7 @@
         $fmt ~= "\$P1 = null\ngoto has_lib\n";
     }
 
-    $fmt ~= 
+    $fmt ~=
         qq{{\$P2 = new 'Exception'
 \$P2[0] = 'error loading $libname - loadlib failed'
 throw \$P2
@@ -68,7 +68,7 @@
 =end
 
 #multi sub pir(NCIGENAST::TypeDef $node) { return ""; }
-#multi sub pir(NCIGENAST::VarDecl $node) { return ""; } 
+#multi sub pir(NCIGENAST::VarDecl $node) { return ""; }
 multi sub pir(NCIGENAST::FuncDecl $node) {
 ## return type
     my $type = param_to_code($node, 1);
@@ -93,13 +93,13 @@
         given $pt {
           when 'void' {
             if ($returncode) { return "p"; } #probably should be "V"
-            else { return "p"; } 
+            else { return "p"; }
           }
           when 'int'    { return "V"; }
           when 'long'   { return "V"; }
           when 'char'   { return "t"; }
           when 'short'  { return "V"; }
-          default { 
+          default {
 =begin
             say "ERROR";
             say $node.perl;
@@ -136,6 +136,6 @@
 #   mode: pir
 #   fill-column: 100
 # End:
-# vim: expandtab ft=perl6 shiftwidth=2 
+# vim: expandtab ft=perl6 shiftwidth=2
 
 

Modified: trunk/compilers/ncigen/gen_sqlite3.pl
==============================================================================
--- trunk/compilers/ncigen/gen_sqlite3.pl	(original)
+++ trunk/compilers/ncigen/gen_sqlite3.pl	Fri Dec  5 22:48:14 2008
@@ -23,7 +23,7 @@
         my $suffix_name .= subst( /sqlite3_/, '' );
 
         my $pirname = %rename_table{$suffix_name} || $suffix_name;
-        
+
         say format_func_decl($pirname, |@result);
     }
 }

Modified: trunk/ext/SQLite3/DBDI.pm
==============================================================================
--- trunk/ext/SQLite3/DBDI.pm	(original)
+++ trunk/ext/SQLite3/DBDI.pm	Fri Dec  5 22:48:14 2008
@@ -8,7 +8,7 @@
 
         my $c2 = $rurl.index(":");
         my $driver = "DBDI::Driver::"~substr($rurl, 0, $c2);
-        eval "use "~$driver; 
+        eval "use "~$driver;
         if ($!) { die "Couldn't load "~$driver~": "~$!; }
 
         my $r = substr($rurl, $c2+1);

Modified: trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm
==============================================================================
--- trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm	(original)
+++ trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm	Fri Dec  5 22:48:14 2008
@@ -12,11 +12,11 @@
         return $o;
     }
 
-    method createStatement() { 
-        return DBDI::Statement::SQLite3.new(:connection(self)); 
+    method createStatement() {
+        return DBDI::Statement::SQLite3.new(:connection(self));
     }
 
-    method prepareStatement($sql) { 
+    method prepareStatement($sql) {
         my $sth := SQLite::prepare($.dbHandle, $sql);
         my $p = DBDI::PreparedStatement::SQLite3.new(:connection(self), :sql($sql), :stHandle($sth));
         return $p;
@@ -24,7 +24,7 @@
 }
 
 class DBDI::Statement::SQLite3 is DBDI::Statement {
-    has $connection; 
+    has $connection;
 
     method executeQuery($sql) {
         my $temp_statement = $connection.prepareStatement($sql);
@@ -38,7 +38,7 @@
     }
 }
 
-class DBDI::PreparedStatement::SQLite3 is DBDI::PreparedStatement { 
+class DBDI::PreparedStatement::SQLite3 is DBDI::PreparedStatement {
     has $connection;
     has $stHandle;
     has @columns;
@@ -63,11 +63,11 @@
         my $cn; my $i =0;
         while ($cn = SQLite::column_name($stHandle, $i)) {
             %columns{$cn} = $i++;
-            push @columns, $cn; 
+            push @columns, $cn;
         }
     }
 
-    method next () { 
+    method next () {
         SQLite::step($stHandle);
         if (! +@columns) { self!fillColumns(); }
         my $res = self!errorCheck();
@@ -77,9 +77,9 @@
         SQLite::finalize($stHandle);
         return self!errorCheck();
     }
-    
-    method bind($num, $data) { 
-        @bind_params[$num] = $data; 
+
+    method bind($num, $data) {
+        @bind_params[$num] = $data;
         SQLite::bind_text($stHandle, $num, $data, chars($data), -1);
         return self!errorCheck();
     }

Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc	Fri Dec  5 22:48:14 2008
@@ -286,7 +286,7 @@
         /* Get information about this candidate. */
         PMC *candidate = VTABLE_get_pmc_keyed_int(interp, candidates, i);
         PMC *proto     = VTABLE_getprop(interp, candidate, CONST_STRING(interp, "proto"));
-        
+
         /* Is it a proto? */
         if (!PMC_IS_NULL(proto) && VTABLE_get_bool(interp, proto)) {
             if (PMC_IS_NULL(found_proto))

• [svn:parrot] r33541 - in trunk: compilers/ncigen ext/SQLite3 ext/SQLite3/DBDI/Driver languages/perl6/src/pmc by infinoid