1 files changed, 40 insertions, 0 deletions
diff --git a/tools/cmerge.nim b/tools/cmerge.nim
new file mode 100644
index 000000000..35f2f5555
--- /dev/null
+++ b/tools/cmerge.nim
@@ -0,0 +1,40 @@
+# Simple tool to merge C projects into a single C file
+
+import os, sets, pegs
+
+type
+  ProcessResult = enum prSkipIncludeDir, prAddIncludeDir
+
+proc process(dir, infile: string, outfile: File,
+             processed: var HashSet[string]): ProcessResult =
+  if processed.containsOrIncl(infile): return prSkipIncludeDir
+  let toProcess = dir / infile
+  if not fileExists(toProcess):
+    echo "Warning: could not process: ", toProcess
+    return prAddIncludeDir
+  echo "adding: ", toProcess
+  for line in lines(toProcess):
+    if line =~ peg"""s <- ig '#include' ig '"' {[^"]+} '"' ig
+                     comment <- '/*' !'*/'* '*/' / '//' .*
+                     ig <- (comment / \s+)* """:
+      # follow the include file:
+      if process(dir, matches[0], outfile, processed) == prAddIncludeDir:
+        writeLine(outfile, line)
+    else:
+      writeLine(outfile, line)
+
+proc main(dir, outfile: string) =
+  var o: File
+  if open(o, outfile, fmWrite):
+    var processed = initHashSet[string]()
+    processed.incl(outfile)
+    for infile in walkFiles(dir / "*.c"):
+      discard process(dir, extractFilename(infile), o, processed)
+    close(o)
+  else:
+    quit("Cannot open for writing: " & outfile)
+
+if paramCount() != 2:
+  quit "Usage: cmerge directory outfile"
+else:
+  main(paramStr(1), addFileExt(paramStr(2), "c"))