jmsdnns

use serde::{Deserialize, Serialize};
use serde_yaml::Value;
use std::ffi::{CStr, CString};
use std::os::raw::c_char;

#[repr(C)]
pub struct KeyValue {
    pub key: *const c_char,
    pub value: *const c_char,
}

jmsdnns

Example: Calling Rust libs from Ocaml

Create rust project and an ocaml directory.

cargo new rahst --lib
mkdir camls

Then replace everything in rahst/src/lib.rs with the following:

jmsdnns

use std::fs;
use winnow::Result;
use winnow::prelude::*;
use winnow::{
    ascii::{line_ending, space0, space1},
    combinator::{opt, repeat, terminated},
    token::take_while,
};

#[derive(Debug, PartialEq)]

jmsdnns

use nom::{
    IResult, Parser,
    branch::alt,
    bytes::complete::{tag, take_until},
    character::complete::{char, multispace0, space0},
    multi::many0,
    sequence::delimited,
};

pub mod errors;

jmsdnns

(* val type_ : Yojson.Safe.t -> [ `Plan | `State | `Unknown ] *)

let type_ json =
  let module Plan = struct
    type t = {
      terraform_version : string;
      planned_values : Yojson.Safe.t;
    }
    [@@deriving of_yojson { strict = false }]
  end in

jmsdnns

pub async fn create_security_group(client: &Client, ac: &AppConfig) -> Result<String, Error> {
    let vpc_id = ac.vpc_id.as_ref().unwrap();
    let tag_specifications = create_tag_spec(ac, ResourceType::SecurityGroup);
    let ssh_cidr_block = ac.ssh_cidr_block.as_ref().unwrap();
    println!("[create_security_group] vpc_id {:?}", vpc_id);
    println!("[create_security_group] tags {:?}", tag_specifications);
    println!("[create_security_group] ssh cidr {:?}", ssh_cidr_block);

    let response = client
        .create_security_group()

jmsdnns

module Scanner = struct

  (* attempt to open a port and return an option *)
  let open_port host port timeout = fun () -> 
    let open Lwt.Infix in
    let sockaddr = Unix.ADDR_INET (Unix.inet_addr_of_string host, port) in
    let socket = Lwt_unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
    Lwt.catch
      (* Port is open *)
      (fun () ->

jmsdnns

module UserModel = struct
  module DB = Sqlite3
  module JSON = Yojson.Basic

  let create_table db =
    let create_sql =
      "CREATE TABLE IF NOT EXISTS users (" ^
      "id INTEGER PRIMARY KEY, " ^
      "name TEXT, " ^
      "age INTEGER, " ^

jmsdnns

(*
compile with:
  `ocamlfind ocamlopt -thread -o downloader -linkpkg -package lwt,cohttp-lwt-unix downloader.ml`
*)

module Downloader = struct

  (* download a single file *)
  let dl_file url filename =
    let open Lwt.Infix in

jmsdnns

package main

import (
	"fmt"
	"io"
	"log"
	"os"
	"time"

	"github.com/charmbracelet/bubbles/viewport"