From: acevest <zhaoyanbai@126.com>
Date: Sun, 12 Dec 2021 09:41:00 +0000 (+0800)
Subject: cs add support for S
X-Git-Url: http://zhaoyanbai.com/repos/%22http:/www.isc.org/icons/zpipe.c?a=commitdiff_plain;h=8144e57859081d76c3a1f874b3ceef7c7fdcac40;p=acecode.git

cs add support for S
---

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});