From 6034fe23fdcf607ecf53bb97223d84864b3af461 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 15 Jul 2022 13:42:31 +0200
Subject: Add makedeps.pl.

---
 makedeps.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 makedeps.pl

(limited to 'makedeps.pl')

diff --git a/makedeps.pl b/makedeps.pl
new file mode 100644
index 0000000..8956e81
--- /dev/null
+++ b/makedeps.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+open my $fh, ">", "deps.mk";
+print $fh "# This file is generated by makedeps.pl.\n";
+while (my $f = glob("c/*.cpp")) {
+	open my $gh, "<", $f;
+	$f =~ s,^c/,,;
+	$f =~ s/\.cpp$//;
+	print $fh "b/$f.obj: c/$f.cpp";
+	while ($_ = <$gh>) {
+		next if /^$/;
+		goto n if not /#/;
+		print $fh " c/$1" if /^#include\s+"([^"]+)"/;
+	}
+      n:
+	print $fh "\n";
+}
-- 
cgit v1.2.3