fix code

src/rustint/core.clj

@@ -2148,10 +2148,17 @@
 ; user=> (buscar-tipo-de-retorno [(symbol ";") (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}")) ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")] :sin-errores [[0 2] [['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2] ['main ['fn [() ()]] 8]]] 0 [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]] [[2 ['i64 nil] ['i64 nil]] [8]]] 1)
 ; nil
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;TODO
+(defn get_addr_map [sv]
-;(defn buscar-tipo-de-retorno
+  (apply merge (cons nil (map #(hash-map (get %1 0) (get (get %1 1 ['()]) 0)) sv)))
-;
+)
-;)
+
+(defn buscar-tipo-de-retorno [space addr]
+  (let [addrs (last space),
+        addr_map (get_addr_map addrs)
+      ]
+      (get addr_map addr)
+    )
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; GENERAR-REF: Recibe un ambiente y, si su estado no es :sin-errores, lo devuelve intacto.

test/rustint/core_test.clj

@@ -527,3 +527,84 @@
           false))
   )
 )
+
+(deftest test-buscar-tipo-de-retorno-01
+  (testing "Test 01 buscar-tipo-de-retorno"
+    (is (=
+        (buscar-tipo-de-retorno [
+          (symbol ";")
+          (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}"))
+          ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")]
+          :sin-errores
+          [
+            [0 2]
+            [
+              ['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2]
+              ['main ['fn [() ()]] 8]
+            ]
+          ]
+          0
+          [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
+          [[2 ['i64 nil] ['i64 nil]] [8]]
+        ]
+        2
+      )
+      'i64
+      )
+    )
+  )
+)
+
+(deftest test-buscar-tipo-de-retorno-02
+  (testing "Test 02 buscar-tipo-de-retorno"
+    (is (=
+        (buscar-tipo-de-retorno [
+          (symbol ";")
+          (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}"))
+          ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")]
+          :sin-errores
+          [
+            [0 2]
+            [
+              ['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2]
+              ['main ['fn [() ()]] 8]
+            ]
+          ]
+          0
+          [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
+          [[2 ['i64 nil] ['i64 nil]] [8]]
+        ]
+        8
+      )
+      '()
+      )
+    )
+  )
+)
+
+(deftest test-buscar-tipo-de-retorno-03
+  (testing "Test 03 buscar-tipo-de-retorno"
+    (is (=
+      (buscar-tipo-de-retorno [
+        (symbol ";")
+        (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}"))
+        ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")]
+        :sin-errores
+        [
+          [0 2]
+          [
+            ['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2]
+            ['main ['fn [() ()]] 8]
+          ]
+        ]
+        0
+        [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
+        [[2 ['i64 nil] ['i64 nil]] [8]]
+      ]
+      1
+    )
+      nil
+      )
+    )
+  )
+)