dx3mod

#include <libusb-1.0/libusb.h>
#include <stdio.h>
#include <stdlib.h>

int main(void) {
  libusb_context *ctx = NULL;
  libusb_init_context(&ctx, NULL, 0);

  libusb_device_handle *handle =
      libusb_open_device_with_vid_pid(ctx, 0x16c0, 0x05dc);

dx3mod

dx3mod

let string_of_buffer buffer = Buffer.to_bytes buffer |> Bytes.unsafe_to_string

let read_file ?(perm = 0o777) filename =
  let promise, resolver = Lwt.task () in

  let fd = Unix.openfile filename [ O_RDONLY ] perm in

  let buffer = Buffer.create 1024 in
  let chunk = Bytes.create 1024 in
  let chunk_length = Bytes.length chunk in

dx3mod

open Lwt.Syntax

module Open_file_middleware = struct
  (* Create a tag for finding the stored value by it. *)
  let opened_file = Dream_pure.Message.new_field ()

  (* Middleware function.  *)
  let open_file filename handler request =
    (* Each request opens a file. *)
    Lwt_io.with_file ~mode:Input filename @@ fun ic ->

dx3mod

(** Парсиинг подмножества JSON методом рекурсивного спуска *)

(** Представление JSON-значения *)
type json_value =
  | Null
  | Bool of bool
  | Int of int
  | String of string
  | Assoc of (string * json_value) list

dx3mod

{
    "workbench.startupEditor": "none",
    "editor.fontFamily": "Cascadia Code",
    "editor.fontSize": 12,
    "editor.fontLigatures": true,
    // settings
    "cSpell.language": "en,ru",
    "workbench.iconTheme": "bearded-icons",
    "workbench.colorTheme": "Sequoia Retro",
    "git.autofetch": true,

dx3mod

(* Простой парсер /etc/passwd файла с помошью парсеров-комбинаторов.

   utop # Passwd.user_of_string "dx3mod:x:1000:1000:Михаил:/home/dx3mod:/usr/bin/fish";;
   - : Passwd.user =
    {Passwd.name = "dx3mod"; hash = Passwd.Hide; uid = 1000; gid = 1000;
     description = "Михаил"; home = "/home/dx3mod"; shell = "/usr/bin/fish"}

   utop # let passwd_contents = In_channel.(with_open_text "/etc/passwd" input_all);;
   utop # Passwd.of_string passwd_contents;;
   - : Passwd.user list =

dx3mod

Создание "переносимого" RPM репозитория

Примеры выполнены для openSUSE!

Иногда у горячих голов появляется желание иметь чудо флешку со софтом, с помощью которой можно будет устанавливать софт на автономные компьютеры. В недалеком прошлом иметь репозиторий на CD/DVD было вполне нормально, но в современном мне 202X году это малоактуально.

Так как если у вас, например, корпоративная локальная сеть, то наиболее правильным вариантом было бы иметь просто локальный репозиторий на сервере, создать который, например, можно с помощью Repository Mirroring Tool. Но это enterprise и несколько слишком для обывательских задач, поэтому давайте рассмотрим более костыльный способ.

Немного теории