--wip-- [skip ci]

Author: hugoclrd

components/ts-to-clar/src/clarity_std.rs

@@ -1,6 +1,6 @@
 use clarity::vm::{
     functions::NativeFunctions,
-    types::{StacksBlockInfoProperty, TypeSignature},
+    types::{BurnBlockInfoProperty, StacksBlockInfoProperty, TypeSignature},
 };
 use std::{collections::HashMap, sync::LazyLock};
 
@@ -208,6 +208,28 @@ pub static FUNCTIONS: LazyLock<HashMap<&str, StdFunction>> = LazyLock::new(|| {
                 _return_type: None,
             },
         ),
+        (
+            "getBurnBlockInfo",
+            StdFunction {
+                name: GetBurnBlockInfo.get_name_str(),
+                parameters: vec![
+                    (
+                        "prop-name",
+                        Parameter::Identifiers(BurnBlockInfoProperty::ALL_NAMES),
+                    ),
+                    ("burn-block-height", Parameter::Value(UIntType)),
+                ],
+                _return_type: None,
+            },
+        ),
+        (
+            "getTenureInfo",
+            StdFunction {
+                name: GetTenureInfo.get_name_str(),
+                parameters: vec![("tenure-height", Parameter::Value(UIntType))],
+                _return_type: None,
+            },
+        ),
     ])
 });
 

components/ts-to-clar/src/expression_converter.rs

@@ -1,19 +1,19 @@
 use std::{cell::Cell, marker::PhantomData};
 
 use clarity::vm::{
+    ClarityName, Value as ClarityValue,
     representations::{PreSymbolicExpression, PreSymbolicExpressionType},
     types::TypeSignature,
-    ClarityName, Value as ClarityValue,
 };
 use oxc_allocator::{Allocator, CloneIn};
 use oxc_ast::ast::{self, Argument, Expression};
 use oxc_semantic::SemanticBuilder;
 use oxc_span::SourceType;
-use oxc_traverse::{traverse_mut, Ancestor, Traverse};
+use oxc_traverse::{Ancestor, Traverse, traverse_mut};
 
 use crate::{
-    clarity_std::{Parameter, FUNCTIONS, KEYWORDS_TYPES},
-    parser::{IRFunction, IR},
+    clarity_std::{FUNCTIONS, KEYWORDS_TYPES, Parameter},
+    parser::{IR, IRFunction},
     to_kebab_case,
     types::ts_to_clar_type,
 };
@@ -208,7 +208,7 @@ impl<'a> StatementConverter<'a> {
                 .push(PreSymbolicExpression::list(vec![atom(clar_func.name)]));
 
             match func_name {
-                "getStacksBlockInfo" => {
+                "getStacksBlockInfo" | "getBurnBlockInfo" => {
                     if let Some((_, Parameter::Identifiers(allowed_names))) = clar_func
                         .parameters
                         .iter()