Initial pointer support, ugly toast

nimterop/ast.nim

@@ -14,7 +14,7 @@ proc addReorder*(): NimNode =
 
 proc addHeader*(fullpath: string) =
   gCurrentHeader = ("header" & fullpath.splitFile().name.replace(re"[-.]+", ""))
-  gConstStr &= &"  {gCurrentHeader} = \"{fullpath}\" # addHeader()\n"
+  gConstStr &= &"  {gCurrentHeader} = \"{fullpath}\"        # addHeader()\n"
 
 #
 # Preprocessor
@@ -30,7 +30,7 @@ proc preprocDef(node: ref Ast) =
       gConsts.add(name)
       if val.getLit().nBl:
         # #define NAME VALUE
-        gConstStr &= &"  {name.getIdentifier()}* = {val} # preprocDef()\n"
+        gConstStr &= &"  {name.getIdentifier()}* = {val}        # preprocDef()\n"
 
 #
 # Types
@@ -68,14 +68,14 @@ proc structSpecifier(node: ref Ast, name = "") =
           gTypes.add(name)
           if name != typ:
             # typedef struct X Y
-            gTypeStr &= &"  {name}* = {typ} #1 structSpecifier()\n"
+            gTypeStr &= &"  {name}* = {typ}        #1 structSpecifier()\n"
           else:
             # typedef struct X X
-            gTypeStr &= &"  {name}* {{.importc: \"{name}\", header: {gCurrentHeader}, bycopy.}} = object #2 structSpecifier()\n"
+            gTypeStr &= &"  {name}* {{.importc: \"{name}\", header: {gCurrentHeader}, bycopy.}} = object        #2 structSpecifier()\n"
 
       of "field_declaration_list":
         # typedef struct { fields } X
-        stmt = &"  {name}* {{.importc: \"{name}\", header: {gCurrentHeader}, bycopy.}} = object #3 structSpecifier()\n"
+        stmt = &"  {name}* {{.importc: \"{name}\", header: {gCurrentHeader}, bycopy.}} = object        #3 structSpecifier()\n"
 
         for field in node.children[0].children:
           let ts = typeScan(field, "field_declaration", "field_identifier", "    ")
@@ -89,7 +89,7 @@ proc structSpecifier(node: ref Ast, name = "") =
     let ename = getNodeValIf(node.children[0], "type_identifier")
     if ename.nBl and ename notin gTypes:
       # struct X { fields }
-      stmt &= &"  {ename}* {{.importc: \"struct {ename}\", header: {gCurrentHeader}, bycopy.}} = object #4 structSpecifier()\n"
+      stmt &= &"  {ename}* {{.importc: \"struct {ename}\", header: {gCurrentHeader}, bycopy.}} = object        #4 structSpecifier()\n"
 
       for field in node.children[1].children:
         let ts = typeScan(field, "field_declaration", "field_identifier", "    ")
@@ -110,13 +110,13 @@ proc enumSpecifier(node: ref Ast, name = "") =
     # typedef enum { fields } X
     ename = name
     elid = 0
-    stmt = &"  {name}* = enum #1 enumSpecifier()\n"
+    stmt = &"  {name}* = enum        #1 enumSpecifier()\n"
   elif name.len() == 0 and node.children.len() == 2 and node.children[1].sym == "enumerator_list":
     ename = getNodeValIf(node.children[0], "type_identifier")
     elid = 1
     if ename.nBl:
       # enum X { fields }
-      stmt = &"  {ename}* = enum #2 enumSpecifier()\n"
+      stmt = &"  {ename}* = enum        #2 enumSpecifier()\n"
     else:
       return
 
@@ -137,20 +137,24 @@ proc enumSpecifier(node: ref Ast, name = "") =
 
 proc typeDefinition(node: ref Ast) =
   if node.children.len() == 2:
-    let
+    var
       name = getNodeValIf(node.children[1], "type_identifier")
+      pname = getNodeValIf(node.children[1], "pointer_declarator")
       ptyp = getNodeValIf(node.children[0], "primitive_type")
       ttyp = getNodeValIf(node.children[0], "type_identifier")
 
+    if name.len() == 0 and node.children[1].sym == "pointer_declarator" and node.children[1].children.len() == 1:
+      name = getNodeValIf(node.children[1].children[0], "type_identifier")
+
     if name.nBl and name notin gTypes:
       if ptyp.nBl:
         # typedef int X
         gTypes.add(name)
-        gTypeStr &= &"  {name}* = {ptyp.getType()} #1 typeDefinition()\n"
+        gTypeStr &= &"  {name}* = {ptyp.getType()}        #1 typeDefinition()\n"
       elif ttyp.nBl:
         # typedef X Y
         gTypes.add(name)
-        gTypeStr &= &"  {name}* = {ttyp} #2 typeDefinition()\n"
+        gTypeStr &= &"  {name}* = {ttyp}        #2 typeDefinition()\n"
       else:
         case node.children[0].sym:
           of "struct_specifier":
@@ -217,8 +221,6 @@ proc genNimAst*(node: ref Ast) =
     of "enum_specifier":
       if node.parent.sym notin ["type_definition", "declaration"]:
         enumSpecifier(node)
-    of "":
-      return
 
   for child in node.children:
     genNimAst(child)

nimterop/getters.nim

@@ -8,7 +8,7 @@ proc getIdentifier*(str: string): string =
   result = str.strip(chars={'_'})
 
 proc getType*(str: string): string =
-  result = str.strip(chars={'_'}).replace(re"([u]?int[\d]+)_t", "$1")
+  result = str.strip(chars={'_'}).replace(re"([u]?int[\d]+)_t", "$1").replace(re"^void$", "object")
   
 proc getLit*(str: string): string =
   if str.contains(re"^[\-]?[\d]+$") or

nimterop/lisp.nim

@@ -13,16 +13,14 @@ proc tokenize(fullpath: string) =
   
   gTokens = @[]
   idx = 0
-  for i in staticExec("toast " & fullpath):
+  for i in staticExec("toast -u " & fullpath):
     case i:
-      of ' ', '\n', '\r', ')':
+      of ' ', '\n', '\r', '(', ')':
         if collect.nBl:
           gTokens.add(collect)
           collect = ""
-        if i == ')':
+        if i in ['(', ')']:
-          gTokens.add(")")
+          gTokens.add($i)
-      of '(':
-        gTokens.add("(")
       else:
         collect &= $i
 

toast.nim

@@ -8,6 +8,9 @@ const HELP = """
 > toast header.h
 """
 
+var
+  gPretty = true
+
 proc printLisp(root: TSNode, data: var string) =
   var
     node = root
@@ -16,21 +19,30 @@ proc printLisp(root: TSNode, data: var string) =
     
   while true:
     if not node.tsNodeIsNull():
-      stdout.write spaces(depth) & "(" & $node.tsNodeType() & " " & $node.tsNodeStartByte() & " " & $node.tsNodeEndByte()
+      if gPretty:
+        stdout.write spaces(depth)
+      stdout.write "(" & $node.tsNodeType() & " " & $node.tsNodeStartByte() & " " & $node.tsNodeEndByte()
 
     if node.tsNodeNamedChildCount() != 0:
-      echo ""
+      if gPretty:
+        echo ""
       nextnode = node.tsNodeNamedChild(0)
       depth += 1
     else:
-      echo ")"
+      if gPretty:
+        echo ")"
+      else:
+        stdout.write ")"
       nextnode = node.tsNodeNextNamedSibling()
 
     if nextnode.tsNodeIsNull():
       while true:
         node = node.tsNodeParent()
         depth -= 1
-        echo spaces(depth) & ")"
+        if gPretty:
+          echo spaces(depth) & ")"
+        else:
+          stdout.write ")"
         if node == root:
           break
         if not node.tsNodeNextNamedSibling().tsNodeIsNull():
@@ -93,6 +105,8 @@ proc parseCli() =
     if param in ["-h", "--help", "-?", "/?", "/h"]:
       echo HELP
       quit()
+    elif param == "-u":
+      gPretty = false
     else:
       process(param)