Auto-generate Makefile with dependencies.

2026-05-22 10:15:16 +02:00 · 2018-05-23 14:57:08 -04:00
parent 2f6017511f
commit 8eb9921c7c
5 changed files with 356 additions and 32 deletions
@@ -54,4 +54,172 @@ sub buildLastModTime

 push @EXPORT, qw(buildLastModTime);

+####################################################################################################################################
+# Build a dependency tree for C files
+####################################################################################################################################
+sub buildDependencyTree
+{
+    my $oStorage = shift;
+
+    my $rhDependencyTree = {};
+
+    # Iterate all files
+    foreach my $strFile (sort(keys(%{$oStorage->manifest('src')})))
+    {
+        # Only process non-auto files
+        if ($strFile =~ /^[A-Za-z0-9\/]+\.(c|h)$/)
+        {
+            buildDependencyTreeSub($oStorage, $rhDependencyTree, $strFile);
+        }
+    }
+
+    return $rhDependencyTree;
+}
+
+push @EXPORT, qw(buildDependencyTree);
+
+sub buildDependencyTreeSub
+{
+    my $oStorage = shift;
+    my $rhDependencyTree = shift;
+    my $strFile = shift;
+
+    if (!defined($rhDependencyTree->{$strFile}))
+    {
+        $rhDependencyTree->{$strFile} = {};
+
+        # Load file contents
+        my $rstrContent = $oStorage->get($oStorage->openRead("src/${strFile}", {bIgnoreMissing => true}));
+
+        if (!defined($rstrContent))
+        {
+            $rstrContent = $oStorage->get("libc/${strFile}");
+        }
+
+        # Process includes
+        my $rhInclude = {};
+
+        foreach my $strInclude (sort($$rstrContent =~ /\#include \".*\"$/mg))
+        {
+            $strInclude = (split('"', $strInclude))[1];
+            $rhInclude->{$strInclude} = true;
+
+            buildDependencyTreeSub($oStorage, $rhDependencyTree, $strInclude);
+
+            foreach my $strIncludeSub (@{$rhDependencyTree->{$strInclude}{include}})
+            {
+                $rhInclude->{$strIncludeSub} = true;
+            }
+        }
+
+        my @stryInclude = sort(keys(%{$rhInclude}));
+        $rhDependencyTree->{$strFile}{include} = \@stryInclude;
+
+        # Find header files that map to C files -- these are required to compile this file
+        foreach my $strInclude (@stryInclude)
+        {
+            if ($strInclude =~ /^[A-Za-z0-9\/]+\.h$/)
+            {
+                my $strObject = substr($strInclude, 0, length($strInclude) - 1) . 'c';
+
+                if ($oStorage->exists("src/${strObject}"))
+                {
+                    push(@{$rhDependencyTree->{$strFile}{object}}, $strObject);
+                }
+            }
+        }
+    }
+}
+
+####################################################################################################################################
+# Build Makefile object compile rules
+####################################################################################################################################
+sub buildMakefileObjectCompile
+{
+    # Assign function parameters, defaults, and log debug info
+    my
+    (
+        $strOperation,
+        $oStorage,
+        $rhOption,
+    ) =
+        logDebugParam
+        (
+            __PACKAGE__ . '::buildMakefile', \@_,
+            {name => 'oStorage'},
+            {name => 'rhOption', optional => true},
+        );
+
+    my $rhDependencyTree = buildDependencyTree($oStorage);
+    my $strMakefile;
+
+    foreach my $strFile (sort(keys(%{$rhDependencyTree})))
+    {
+        if ($strFile =~ /^[A-Za-z0-9\/]+\.c$/)
+        {
+            my $strObject = substr($strFile, 0, length($strFile) - 1) . 'o';
+
+            my $strDepend = "${strFile}";
+
+            foreach my $strInclude (@{$rhDependencyTree->{$strFile}{include}})
+            {
+                $strDepend .= ' ' . ($oStorage->exists("src/${strInclude}") ? '' : '../libc/') . $strInclude;
+            }
+
+            $strMakefile .=
+                (defined($strMakefile) ? "\n" : '') .
+                "${strObject}: ${strDepend}\n" .
+                "\t\$(CC) \$(CFLAGS)" . (defined($rhOption->{$strObject}) ? ' ' . $rhOption->{$strObject} : '') .
+                    " -c ${strFile} -o ${strObject}\n";
+        }
+    }
+
+    return $strMakefile;
+}
+
+push @EXPORT, qw(buildMakefileObjectCompile);
+
+####################################################################################################################################
+# Update a Makefile with object compile rules
+####################################################################################################################################
+sub buildMakefile
+{
+    # Assign function parameters, defaults, and log debug info
+    my
+    (
+        $strOperation,
+        $oStorage,
+        $strMakefile,
+        $rhOption,
+    ) =
+        logDebugParam
+        (
+            __PACKAGE__ . '::buildMakefile', \@_,
+            {name => 'oStorage'},
+            {name => 'strMakeFile'},
+            {name => 'rhOption', optional => true},
+        );
+
+    # Trim off the end where the object compile is
+    my $strHeader = 'Compile rules';
+
+    $strMakefile =~ s/^\#.*${strHeader}(.|\s)+//mg;
+
+    # Add object compile section
+    $strMakefile .=
+        "# $strHeader\n" .
+        ('#' x 132) . "\n" .
+        buildMakefileObjectCompile($oStorage, {rhOption => $rhOption});
+
+
+    # Return from function and log return values if any
+    return logDebugReturn
+    (
+        $strOperation,
+        {name => 'strMakefile', value => $strMakefile},
+    );
+}
+
+push @EXPORT, qw(buildMakefile);
+
 1;