Fix walkDir, cCompile mode, add tsoloud, fix void *

README.md

@@ -63,6 +63,12 @@ Detailed documentation is still forthcoming.
 
 `cImport("header.h", recurse=true)` - import all supported definitions from header file and #includes
 
+`cCompile("file.c")` - compile C/C++ implementation into binary
+
+`cCompile("path/to/*.c")` - compile in all files matching wildcard
+
+`cCompile("path/to/dir", "cpp")` - compile in all C++ files found recursively
+
 `cAddSearchDir("XXX")` - add directory XXX to search path in calls to `cSearchPath()`
 
 `cAddStdDir("XXX")` - add standard "c" [default] or "cpp" include paths to search path

nimterop.nimble

@@ -12,7 +12,7 @@ installDirs = @["nimterop"]
 
 requires "nim >= 0.19.0", "regex >= 0.10.0", "cligen >= 0.9.17"
 
-proc execCmd(cmd:string)=
+proc execCmd(cmd: string)=
   echo cmd
   exec cmd
 
@@ -23,3 +23,6 @@ task test, "Test":
   when defined(windows):
     execCmd "nim c -r tests/tmath.nim"
     execCmd "nim cpp -r tests/tmath.nim"
+  when not defined(OSX):
+    execCmd "nim c -r tests/tsoloud.nim"
+    execCmd "nim cpp -r tests/tsoloud.nim"

nimterop/cimport.nim

@@ -1,6 +1,6 @@
 import macros, os, strformat, strutils
 
-const CIMPORT = 1
+const CIMPORT {.used.} = 1
 
 include "."/globals
 
@@ -23,6 +23,36 @@ proc findPath(path: string, fail = true): string =
     else:
       return ""
 
+proc walkDirImpl(indir, inext: string, file=true): seq[string] =
+  let
+    dir = joinPathIfRel(getProjectPath(), indir)
+    ext =
+      if inext.len != 0:
+        when not defined(Windows):
+          "-name " & inext
+        else:
+          "\\" & inext
+      else:
+        ""
+
+  let
+    cmd =
+      when defined(Windows):
+        if file:
+          "cmd /c dir /s/b/a-d " & dir.replace("/", "\\") & ext
+        else:
+          "cmd /c dir /s/b/ad " & dir.replace("/", "\\")
+      else:
+        if file:
+          "find $1 -type f $2" % [dir, ext]
+        else:
+          "find $1 -type d" % dir
+
+    (output, ret) = gorgeEx(cmd)
+
+  if ret == 0:
+    result = output.splitLines()
+
 proc getToast(fullpath: string, recurse: bool = false): string =
   var
     cmd = when defined(Windows): "cmd /c " else: ""
@@ -125,12 +155,11 @@ macro cAddStdDir*(mode = "c"): untyped =
       result.add quote do:
         cAddSearchDir(`sline`)
 
-macro cCompile*(path: static string): untyped =
+macro cCompile*(path: static string, mode = "c"): untyped =
   result = newNimNode(nnkStmtList)
 
   var
     stmt = ""
-    flags = ""
 
   proc fcompile(file: string): string =
     let fn = file.splitFile().name
@@ -147,22 +176,26 @@ macro cCompile*(path: static string): untyped =
     else:
       return "{.compile: (\"../$#\", \"$#.o\").}" % [file.replace("\\", "/"), ufn]
 
-  proc dcompile(dir: string) =
+  proc dcompile(dir: string, ext=""): string =
-    for f in walkFiles(dir):
+    let
-      stmt &= fcompile(f) & "\n"
+      files = walkDirImpl(dir, ext)
+
+    for f in files:
+      if f.len != 0:
+        result &= fcompile(f) & "\n"
 
   if path.contains("*") or path.contains("?"):
-    dcompile(path)
+    stmt &= dcompile(path)
   else:
     let fpath = findPath(path)
     if fileExists(fpath):
       stmt &= fcompile(fpath) & "\n"
     elif dirExists(fpath):
-      if flags.contains("cpp"):
+      if mode.strVal().contains("cpp"):
         for i in @["*.C", "*.cpp", "*.c++", "*.cc", "*.cxx"]:
-          dcompile(fpath / i)
+          stmt &= dcompile(fpath, i)
       else:
-        dcompile(fpath / "*.c")
+        stmt &= dcompile(fpath, "*.c")
 
   result.add stmt.parseStmt()
 

nimterop/grammar.nim

@@ -82,8 +82,7 @@ proc initGrammar() =
       pname = "a" & $count
       count += 1
       i += 1
-    if ptyp != "object":
+    pout &= &"{pname}: {getPtrType(pptr&ptyp)},"
-      pout &= &"{pname}: {getPtrType(pptr&ptyp)},"
 
   # typedef int X
   # typedef X Y
@@ -149,7 +148,7 @@ proc initGrammar() =
               flen = gStateRT.data[i].val.getIdentifier()
             gStateRT.typeStr &= &"  {name}* = {aptr}array[{flen}, {getPtrType(tptr&typ)}]\n"
           else:
-            if name == typ or typ == "object":
+            if name == typ:
               gStateRT.typeStr &= &"  {name}* = object\n"
             else:
               gStateRT.typeStr &= &"  {name}* = {getPtrType(tptr&typ)}\n"