From 8144e57859081d76c3a1f874b3ceef7c7fdcac40 Mon Sep 17 00:00:00 2001
From: acevest <zhaoyanbai@126.com>
Date: Sun, 12 Dec 2021 17:41:00 +0800
Subject: [PATCH] cs add support for S

---
 tools/comm/cs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tools/comm/cs b/tools/comm/cs
index 2ec75b7..5fe6b87 100755
--- 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});
-- 
2.44.0