[svn:parrot] r36214 - trunk/lib/Parrot/Configure

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Jan 31 19:15:43 2009
New Revision: 36214
URL: https://trac.parrot.org/parrot/changeset/36214

Log:
[configure] remove vim ft generation
vim ft (file type) must be a part of code coda

Modified:
   trunk/lib/Parrot/Configure/Compiler.pm

Modified: trunk/lib/Parrot/Configure/Compiler.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Compiler.pm	Sat Jan 31 19:12:36 2009	(r36213)
+++ trunk/lib/Parrot/Configure/Compiler.pm	Sat Jan 31 19:15:43 2009	(r36214)
@@ -37,19 +37,15 @@
 our %file_types_info = (
     makefile => {
         comment_type    => '#',
-        vim_ft          => 'make',
     },
     c => {
         comment_type    => '/*',
-        vim_ft          => 'c',
     },
     pmc => {
         comment_type    => '/*',
-        vim_ft          => 'pmc',
     },
     perl => {
         comment_type    => '#',
-        vim_ft          => 'perl',
     },
 );
 
@@ -65,7 +61,7 @@
     my $conf   = shift;
     my $source = shift;
 
-    $conf->genfile( $source, "test_$$.c", file_type => 'none' );
+    $conf->genfile( $source, "test_$$.c", file_type => 'c' );
 }
 
 =item C<cc_build()>
@@ -347,7 +343,7 @@
         if ( $target =~ m/makefile$/i ) {
             $options{file_type} = 'makefile';
         }
-        elsif ($target =~ m/\.pl$/i ) {
+        elsif ($target =~ m/\.p[lm]$/i ) {
             $options{file_type} = 'perl';
         }
         elsif ($target =~ m/\.[hc]$/ ) {
@@ -375,18 +371,10 @@
     }
 
     if ( $options{comment_type} ) {
-        my @comment = ( 'ex: set ro',
+        my @comment = ( 'ex: set ro:',
             'DO NOT EDIT THIS FILE',
             'Generated by ' . __PACKAGE__ . " from $source" );
 
-        if ($options{file_type}) {
-            $comment[0] .=
-                ' ft=' . $file_types_info{$options{file_type}}{vim_ft} . ':';
-        }
-        else {
-            $comment[0] .= ':';
-        }
-
         if ( $options{comment_type} eq '#' ) {
             foreach my $line (@comment) {
                 $line = "# $line\n";