cs add support for S

diff --git a/tools/comm/cs b/tools/comm/cs
index 2ec75b72142a3ffc027a2049be436aef7765df65..5fe6b87d323074e620625c51eac48811249bf881 100755 (executable)
--- a/tools/comm/cs
+++ b/tools/comm/cs
@@ -34,6 +34,7 @@ my %s = ("c"        => {CSTYLE},
          "go"       => {CSTYLE},
          "cpp"      => {CSTYLE},
          "h"        => {CSTYLE},
+         "S"        => {CSTYLE},
          "rs"       => {CSTYLE},
          "pl"       => {env=>"#!/usr/bin/env perl\n",   SSTYLE},
          "py"       => {env=>"#!/usr/bin/env python\n# -*- coding: utf-8 -*-\n", SSTYLE},
@@ -61,7 +62,8 @@ foreach my $file (@ARGV) {
 
     open    SFH, ">", $file;
 
-    $_ = lc($file);
+    #$_ = lc($file);
+    $_ = $file;
     my $index = $default_index;
     if(m#.+\.+(\w+)#) {
         $index = $1 if($s{$1});