add test

src/rustint/core.clj

@@ -1937,7 +1937,7 @@
 ; user=> (agregar-ptocoma (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") (symbol "}") 'renglon '= 'x (symbol ";") 'if 'z '< '0 (symbol "{") 'z '= '- 'z (symbol ";") (symbol "}") (symbol "}") 'fn 'foo (symbol "(") (symbol ")") (symbol "{") 'if 'y '> '0 (symbol "{") 'y '= '- 'y (symbol ";") (symbol "}") 'else (symbol "{") 'x '= '- 'y (symbol ";") (symbol "}") (symbol "}")))
 ; (fn main ( ) { if x < 0 { x = - x ; } ; renglon = x ; if z < 0 { z = - z ; } } fn foo ( ) { if y > 0 { y = - y ; } else { x = - y ; } })
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;TODO
+; TODO
 ;(defn agregar-ptocoma
 ;
 ;)
@@ -2097,10 +2097,12 @@
 ; [; (fn main ( ) { println! ( "{}" , TRES ) }) [use std :: io ; const TRES : i64 = 3] :sin-errores [[0] [[io [lib ()] 0] [TRES [const i64] 3]]] 0 [[CAL 0] HLT] []]
 ;                                               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; TODO
-; (defn cargar-const-en-tabla
-;
-;)
+(defn cargar-const-en-tabla [amb]
+  (cond
+    (not= (get amb 4) :sin-errores) amb
+    :else nil
+  )
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; INICIALIZAR-CONTEXTO-LOCAL: Recibe un ambiente y, si su estado no es :sin-errores, lo devuelve intacto.

test/rustint/core_test.clj

@@ -608,3 +608,60 @@
     )
   )
 )
+
+(deftest test-cargar-const-en-tabla-01
+  (testing "Test 01 cargar-const-en-tabla"
+    (is (=
+          (cargar-const-en-tabla [
+            (symbol ";") ; simb-actual
+            (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "{}" (symbol ",") 'TRES (symbol ")") (symbol "}")) ; simb-no-parseados-aun
+            ['use 'std (symbol "::") 'io (symbol ";") 'const 'TRES (symbol ":") 'i64 (symbol "=") 3] ; simb-ya-parseados
+            8  ; estado
+            [[0] [['io ['lib '()] 0]]] ; contexto
+            0 ; prox-var
+            [['CAL 0] 'HLT] ; bytecode
+            [] ; mapa-regs-de-act
+          ])
+          [
+            (symbol ";")
+            (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "{}" (symbol ",") 'TRES (symbol ")") (symbol "}"))
+            ['use 'std (symbol "::") 'io (symbol ";") 'const 'TRES (symbol ":") 'i64 (symbol "=") 3]
+            8
+            [[0] [['io ['lib '()] 0]]]
+            0
+            [['CAL 0] 'HLT]
+            []
+          ]
+        )
+    )
+  )
+)
+
+(deftest test-cargar-const-en-tabla-02
+  (testing "Test 02 cargar-const-en-tabla"
+    (is (=
+      (cargar-const-en-tabla [
+          (symbol ";")
+          (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "{}" (symbol ",") 'TRES (symbol ")") (symbol "}"))
+          ['use 'std (symbol "::") 'io (symbol ";") 'const 'TRES (symbol ":") 'i64 (symbol "=") 3]
+          :sin-errores
+          [[0] [['io ['lib '()] 0]]]
+          0
+          [['CAL 0] 'HLT]
+          []
+        ]
+      )
+      [
+        (symbol ";")
+        (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "{}" (symbol ",") 'TRES (symbol ")") (symbol "}"))
+        ['use 'std (symbol "::") 'io (symbol ";") 'const 'TRES (symbol ":") 'i64 (symbol "=") 3]
+        :sin-errores
+        [[0] [['io ['lib '()] 0] ['TRES ['const 'i64] 3]]]
+        0
+        [['CAL 0] 'HLT]
+        []
+      ]
+       )
+    )
+  )
+)