smj-edison

test
+- run test zigtcl-test failure
thread 92348 panic: incorrect alignment
/usr/lib/zig/std/mem/Allocator.zig:283:82: 0x1153fff in allocBytesWithAlignment__anon_22535 (std.zig)
    const byte_ptr = self.rawAlloc(byte_count, alignment, return_address) orelse return Error.OutOfMemory;
                                                                                 ^
/usr/lib/zig/std/mem/Allocator.zig:269:5: 0x11f0754 in allocWithSizeAndAlignment__anon_33200 (std.zig)
    return self.allocBytesWithAlignment(alignment, byte_count, return_address);
    ^
/usr/lib/zig/std/mem/Allocator.zig:245:5: 0x11ebece in alignedAlloc__anon_33057 (std.zig)

smj-edison

set isNumberVerifier {{x} { string is double -strict $x }}

# start of scientific types
Claim type millimeter exists
Claim type millimeter has verifier $isNumberVerifier
Claim type millimeter has alias mm

Claim type centimeter exists
Claim type centimeter has verifier $isNumberVerifier
Claim type centimeter has alias cm

smj-edison

Wish $this is titled "Centroid calculation"
When when tag /tag/ has centroid /any/ on display /any/ /lambda/ with environment /e/ &\
     tag /tag/ has quad /q/ &\
     display /disp/ has intrinsics /any/ {
    set centroid [quad centroid [quad change $q "display $disp"]]
    Claim tag $tag has centroid $centroid on display $disp
}

When /someone/ wishes to draw a stroke on display /disp/ with /...options/ &\
     display /disp/ has width /width/ height /height/ &\

smj-edison

# for normal
Claim $this is a code view

# for double wide
Claim $this is a code view with widthScale 2 heightScale 2

smj-edison

set keyboardId 12345

Claim $keyboardId is not an editor
Wish tag $keyboardId is stabilized

smj-edison

Hello world!

smj-edison

Hello World 2!

smj-edison

Hello World!

smj-edison

Hello World

smj-edison

$ alias rr="taskset -c 0-7 /home/user/Downloads/rr-5.9.0-Linux-x86_64/bin/rr"
$ rr record -n -- ../jimsh runall.tcl
rr: Saving execution to trace directory `/home/user/.local/share/rr/jimsh-5'.
# -- program specific logs omitted -- #
$ rr replay                                                                   
GNU gdb (GDB) 16.2
Copyright (C) 2024 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.