common: allow c-- as extension of a filename in Common.filesuffix

facebookarchive · Nov 1, 2010 · 3c37503 · 3c37503
1 parent 19f0db1
commit 3c37503
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/commons/common.ml b/commons/common.ml
@@ -2329,8 +2329,9 @@ module BasicType = struct
 end
 
 
+(* updated: added '-' in filesuffix because of file like foo.c-- *)
 let (filesuffix: filename -> string) = fun s -> 
-  (try regexp_match s ".+\\.\\([a-zA-Z0-9_]+\\)$" with _ ->  "NOEXT")
+  (try regexp_match s ".+\\.\\([a-zA-Z0-9_-]+\\)$" with _ ->  "NOEXT")
 let (fileprefix: filename -> string) = fun s -> 
   (try regexp_match s "\\(.+\\)\\.\\([a-zA-Z0-9_]+\\)?$" with _ ->  s)