aw

PicoLisp's (native) can be used to create files atomically

The C equivalent would be:

open("atomic.file", O_RDWR|O_CREAT|O_EXCL, 0644);

PicoLisp:

aw

Parse a CSV in PicoLisp:

Examples:

: (make-csv "Testing,csv,\"parsing,a,csv\",test")
-> ("Testing" "csv" "\"parsing,a,csv\"" "test")
: (make-lst '("n" "g" "," "\"" "p" "a" "," "a" "," "c" "s" "v" "\"" "," "t") ",")
-> (("n" "g") (("\"" "p" "a" "," "a" "," "c" "s" "v" "\"")) ("t"))
: (make-quot '("n" "g" "," "\"" "p" "a" "," "a" "," "c" "s" "v" "\"" "," "t"))

aw

Proxmox VE 6.x release includes a feature to add custom cloud-init configs. Unfortunately there is poor documentation, so I had to figure this out by adding pieces of information together.

The custom cloud-init files (user-data, meta-data, network-config)

The cloud-init files need to be stored in a snippet. This is not very well documented:

1. Go to Storage View -> Storage -> Add -> Directory
2. Give it an ID such as snippets, and specify any path on your host such as /snippets
3. Under Content choose Snippets and de-select Disk image (optional)
4. Upload (scp/rsync/whatever) your user-data, meta-data, network-config files to your proxmox server in /snippets/snippets/ (the directory should be there if you followed steps 1-3)

aw

# load this code after loading http.l
# ex: pil http.l headers-patch.l --server 8000 yourcode.l

(patch _htHead
  '(T (if (eol) (char) (line T) @S))
  (fill '(T (if (eol) (char) (when @ (push '*Headers (list @ (cdr (line))))))
            . @S) ) )

aw

#!/usr/bin/env pil
# 64-bit max
#
# functions to set/clear/toggle a specific bit in an 64-bit integer (8 bytes)

[de lpad (Int)
  (pad 64 (bin Int) ]

[de getbit (Int Pos)
  (& 1 (>> Pos Int) ]

aw

Problem

When parsing with PicoLisp (native) and the mq_getattr() call, I kept seeing errors such as:

corrupted size vs. prev_size

or

aw

This obtains the twos complement of a signed integer (from signed -> unsigned), or reverse (from unsigned -> signed)

• Int: an positive or negative integer
• Size: expressed in bits (ex: 8, 16, 32, 64...)

(de twos-complement (Int Size)
  (if (lt0 Int)
      (+ Int (>> (- Size) 1))
      (if (=0 (& Int (>> (- (- Size 1)) 1)))
 Int

aw

#![no_std]
#![no_main]

use panic_halt as _;

use embedded_graphics::fonts::{Font12x16, Text};
use embedded_graphics::pixelcolor::Rgb565;
use embedded_graphics::prelude::*;
use embedded_graphics::primitives::Rectangle;
use embedded_graphics::{primitive_style, text_style};

aw

setxkbmap -option altwin:swap_alt_win

aw

# To avoid running Claude or Codex in a way that could be considered "dangerous"
#

# Install Ubuntu Noble into a local dir
sudo apt install -y debootstrap systemd-container
sudo debootstrap --variant=minbase noble ~/ai-sandbox-rootfs http://archive.ubuntu.com/ubuntu

# Enter your sandbox and bind-mount your code dir
sudo systemd-nspawn  \
  -D ~/ai-sandbox-rootfs \