enable new builtins (*with gotcha)

We still need to adjust the writeBits one to work around its list<int> argument.

crates/aiken-lang/src/builtins.rs

@@ -505,11 +505,14 @@ pub fn plutus(id_gen: &IdGenerator) -> TypeInfo {
         annotations: HashMap::new(),
     };
 
-    for builtin in DefaultFunction::iter().take(75) {
+    for builtin in DefaultFunction::iter() {
+        // FIXME: Disabling WriteBits for now, since its signature requires the ability to create
+        // list of raw integers, which isn't possible through Aiken at the moment.
+        if !matches!(builtin, DefaultFunction::WriteBits) {
             let value = from_default_function(builtin, id_gen);
-
             plutus.values.insert(builtin.aiken_name(), value);
         }
+    }
 
     plutus
 }

crates/aiken-lang/src/gen_uplc.rs

@@ -44,7 +44,6 @@ use builder::{
     introduce_name, introduce_pattern, pop_pattern, softcast_data_to_type_otherwise,
     unknown_data_to_type, DISCARDED,
 };
-
 use decision_tree::{get_tipo_by_path, Assigned, CaseTest, DecisionTree, TreeGen};
 use indexmap::IndexMap;
 use interner::AirInterner;

crates/uplc/src/machine/error.rs

@@ -136,6 +136,8 @@ pub enum Error {
     ReadBitOutOfBounds,
     #[error("writeBits: index out of bounds")]
     WriteBitsOutOfBounds,
+    #[error("illegal operation on empty ByteArray")]
+    EmptyByteArray,
     #[error("blst error {0:?}")]
     Blst(blst::BLST_ERROR),
     #[error("blst::hashToGroup")]

crates/uplc/src/machine/runtime.rs

@@ -1592,6 +1592,10 @@ impl DefaultFunction {
                 let bytes = args[0].unwrap_byte_string()?;
                 let bit_index = args[1].unwrap_integer()?;
 
+                if bytes.is_empty() {
+                    return Err(Error::EmptyByteArray);
+                }
+
                 // This ensures there is at least one byte in bytes
                 if *bit_index < 0.into() || *bit_index >= (bytes.len() * 8).into() {
                     return Err(Error::ReadBitOutOfBounds);