From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 26 Jan 2024 02:11:19 +0000 (-0600)
Subject: codebase-analyzer: split up c header/src words
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=a60e942aaf22fcbc14788945499e720f2c9dedd7

codebase-analyzer: split up c header/src words
---

diff --git a/extra/codebase-analyzer/codebase-analyzer.factor b/extra/codebase-analyzer/codebase-analyzer.factor
index 9f6afa163b..33b9c18709 100644
--- a/extra/codebase-analyzer/codebase-analyzer.factor
+++ b/extra/codebase-analyzer/codebase-analyzer.factor
@@ -88,13 +88,21 @@ IN: codebase-analyzer
 : swift-files ( paths -- paths' ) [ ".swift" tail? ] filter ;
 
 : c-file? ( path -- ? )
-    >lower file-extension { "h" "c" } member? ;
+    >lower file-extension { "c" } member? ;
 : c-files ( paths -- paths' ) [ c-file? ] filter ;
 
+: c-header-file? ( path -- ? )
+    >lower file-extension { "h" } member? ;
+: c-header-files ( paths -- paths' ) [ c-header-file? ] filter ;
+
 : cpp-file? ( path -- ? )
-    >lower file-extension { "h" "hh" "hpp" "cc" "cpp" } member? ;
+    >lower file-extension { "cc" "cpp" } member? ;
 : cpp-files ( paths -- paths' ) [ cpp-file? ] filter ;
 
+: cpp-header-file? ( path -- ? )
+    >lower file-extension { "h" "hh" "hpp" } member? ;
+: cpp-header-files ( paths -- paths' ) [ cpp-header-file? ] filter ;
+
 : python-file? ( path -- ? )
     >lower file-extension {
         "py" "py3" "pyc" "pyo" "pyw" "pyx" "pyd"